[Home] [Help]
69:
70:
71: PROCEDURE create_draft_budget
72: ( p_api_version_number IN NUMBER
73: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
74: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
75: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
76: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
77: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
70:
71: PROCEDURE create_draft_budget
72: ( p_api_version_number IN NUMBER
73: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
74: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
75: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
76: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
77: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
78: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
281:
282: --Standard begin of API savepoint
283: SAVEPOINT create_draft_budget_pub;
284: p_msg_count := 0;
285: p_return_status := FND_API.G_RET_STS_SUCCESS;
286: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
287: l_module_name := 'create_draft_budget' || g_module_name;
288:
289: -- Changes for bug 3182963
294:
295:
296:
297: -- Standard call to check for call compatibility.
298: IF NOT FND_API.Compatible_API_Call ( PA_BUDGET_PUB.g_api_version_number ,
299: p_api_version_number ,
300: l_api_name ,
301: G_PKG_NAME )
302: THEN
299: p_api_version_number ,
300: l_api_name ,
301: G_PKG_NAME )
302: THEN
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
304: END IF;
305:
306: --dbms_output.put_line('copying input parameters to local variables');
307:
505: ,p_msg_count => p_msg_count
506: ,p_msg_data => p_msg_data
507: ,p_return_status => p_return_status);
508:
509: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
510: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
511: END IF;
512: */
513:
562: ,x_msg_count => p_msg_count
563: ,x_msg_data => p_msg_data
564: ,x_return_status => p_return_status);
565:
566: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
567:
568: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
569:
570: END IF;
632: x_return_status => p_return_status,
633: x_msg_count => p_msg_count,
634: x_msg_data => p_msg_data );
635:
636: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
637: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
638: -- RAISE FND_API.G_EXC_ERROR;
639: END IF; -- IF l_err_code <> 0 THEN
640:
634: x_msg_data => p_msg_data );
635:
636: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
637: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
638: -- RAISE FND_API.G_EXC_ERROR;
639: END IF; -- IF l_err_code <> 0 THEN
640:
641: IF l_debug_mode = 'Y' THEN
642: pa_debug.g_err_stage := 'Got the uncategorized res list info';
886: pa_debug.g_err_stage := 'Error executing create draft';
887: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
888: END IF;
889:
890: RAISE FND_API.G_EXC_ERROR;
891:
892: ELSIF l_err_code < 0
893: THEN
894:
907: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
908: END IF;
909:
910:
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912:
913: END IF;
914:
915: IF l_debug_mode = 'Y' THEN
1186: ,x_msg_count => p_msg_count
1187: ,x_msg_data => p_msg_data
1188: ,x_return_status => p_return_status);
1189:
1190: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1191:
1192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1193:
1194: END IF;
1226: /* initialize return status for budget line to success */
1227:
1228: /* Bug 3133930 initialization is removed here as it has been done in
1229: validate_budget_lines */
1230: /* p_budget_lines_out(i).return_status := FND_API.G_RET_STS_SUCCESS; */
1231:
1232: l_budget_line_in_rec := l_budget_lines_in(i);
1233: IF l_budget_line_in_rec.pm_budget_line_reference =
1234: PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
1291: ,p_budget_amount_code => l_budget_amount_code
1292: ,p_budget_entry_method_code => p_entry_method_code
1293: ,p_categorization_code => l_categorization_code
1294: ,p_budget_version_id => l_budget_version_id );
1295: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1296: THEN
1297: p_budget_lines_out(i).return_status := l_return_status;
1298:
1299: IF l_debug_mode = 'Y' THEN
1300: pa_debug.g_err_stage := 'Unexpected Error inserting line '||i;
1301: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1302: END IF;
1303:
1304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1305:
1306: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1307: THEN
1308: p_budget_lines_out(i).return_status := l_return_status;
1302: END IF;
1303:
1304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1305:
1306: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1307: THEN
1308: p_budget_lines_out(i).return_status := l_return_status;
1309: p_multiple_task_msg := 'F';
1310: IF l_debug_mode = 'Y' THEN
1311: pa_debug.g_err_stage := 'Error inserting line '||i;
1312: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1313: END IF;
1314:
1315: -- RAISE FND_API.G_EXC_ERROR;
1316:
1317: END IF;
1318:
1319: IF l_debug_mode = 'Y' THEN
1327: END LOOP budget_line;
1328:
1329: IF p_multiple_task_msg = 'F'
1330: THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: END IF;
1333:
1334: END IF;
1335:
1617: ,x_msg_count => p_msg_count
1618: ,x_msg_data => p_msg_data
1619: ,x_return_status => p_return_status);
1620:
1621: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1622:
1623: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1624:
1625: END IF;
1978: ,x_return_status => p_return_status
1979: ,x_msg_count => p_msg_count
1980: ,x_msg_data => p_msg_data );
1981:
1982: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1983: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1984: END IF;
1985:
1986: IF l_CW_version_id IS NOT NULL THEN
2002: , x_msg_count => p_msg_count
2003: , x_msg_data => p_msg_data
2004: );
2005:
2006: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2007:
2008: IF l_debug_mode = 'Y' THEN
2009: pa_debug.g_err_stage := 'Error executing get refresh plan ele dtls';
2010: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2056: x_return_status => p_return_status,
2057: x_msg_count => p_msg_count,
2058: x_msg_data => p_msg_data) ;
2059:
2060: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2061:
2062: IF l_debug_mode = 'Y' THEN
2063: pa_debug.g_err_stage := 'Error executing lock unlock version';
2064: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2137: ,x_msg_count => p_msg_count
2138: ,x_msg_data => p_msg_data);
2139:
2140:
2141: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2142:
2143: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2144:
2145: END IF;
2159: x_return_status => p_return_status,
2160: x_msg_count => p_msg_count,
2161: x_msg_data => p_msg_data) ;
2162:
2163: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2164:
2165: IF l_debug_mode = 'Y' THEN
2166: pa_debug.g_err_stage := 'Error executing lock unlock version';
2167: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2207: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2208: END IF;
2209:
2210:
2211: RAISE FND_API.G_EXC_ERROR;
2212:
2213: ELSIF l_err_code < 0
2214: THEN
2215:
2227: pa_debug.g_err_stage := 'Unexpected Error executing check_overlapping_dates';
2228: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2229: END IF;
2230:
2231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2232:
2233: END IF;
2234:
2235: --Bug # 3507156 : Patchset M: B and F impact changes : AMG
2243: ,x_msg_count => p_msg_count
2244: ,x_msg_data => p_msg_data );
2245:
2246:
2247: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2248:
2249: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2250:
2251: END IF;
2310: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2311: END IF;
2312:
2313:
2314: RAISE FND_API.G_EXC_ERROR;
2315:
2316: ELSIF l_err_code < 0
2317: THEN
2318:
2331: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2332: END IF;
2333:
2334:
2335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2336:
2337: END IF;
2338:
2339:
2339:
2340: END IF;
2341:
2342:
2343: IF FND_API.TO_BOOLEAN( p_commit )
2344: THEN
2345:
2346: IF l_debug_mode = 'Y' THEN
2347: pa_debug.g_err_stage := 'About to do a COMMIT';
2367: -- dbms_output.put_line('MSG count in the stack ' || FND_MSG_PUB.count_msg);
2368: ROLLBACK TO create_draft_budget_pub;
2369:
2370: IF p_return_status IS NULL OR
2371: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
2372: p_return_status := FND_API.G_RET_STS_ERROR;
2373: END IF;
2374:
2375: l_msg_count := FND_MSG_PUB.count_msg;
2368: ROLLBACK TO create_draft_budget_pub;
2369:
2370: IF p_return_status IS NULL OR
2371: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
2372: p_return_status := FND_API.G_RET_STS_ERROR;
2373: END IF;
2374:
2375: l_msg_count := FND_MSG_PUB.count_msg;
2376: -- dbms_output.put_line('MSG count in the stack ' || l_msg_count);
2376: -- dbms_output.put_line('MSG count in the stack ' || l_msg_count);
2377:
2378: IF l_msg_count = 1 AND p_msg_data IS NULL THEN
2379: PA_INTERFACE_UTILS_PUB.get_messages
2380: (p_encoded => FND_API.G_TRUE,
2381: p_msg_index => 1,
2382: p_msg_count => l_msg_count,
2383: p_msg_data => l_msg_data,
2384: p_data => l_data,
2397: -- dbms_output.put_line('MSG count in the stack ' || l_msg_count);
2398:
2399: RETURN;
2400:
2401: WHEN FND_API.G_EXC_ERROR
2402: THEN
2403:
2404: /* -- dbms_output.put_line('handling an G_EXC_ERROR exception in create_draft_budget'); */
2405:
2404: /* -- dbms_output.put_line('handling an G_EXC_ERROR exception in create_draft_budget'); */
2405:
2406: ROLLBACK TO create_draft_budget_pub;
2407:
2408: p_return_status := FND_API.G_RET_STS_ERROR;
2409:
2410: FND_MSG_PUB.Count_And_Get
2411: ( p_count => p_msg_count ,
2412: p_data => p_msg_data );
2415: pa_debug.reset_curr_function;
2416: END IF;
2417:
2418:
2419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2420: THEN
2421:
2422: /* -- dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception in create_draft_budget'); */
2423:
2422: /* -- dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception in create_draft_budget'); */
2423:
2424: ROLLBACK TO create_draft_budget_pub;
2425:
2426: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2427:
2428: FND_MSG_PUB.Count_And_Get
2429: ( p_count => p_msg_count ,
2430: p_data => p_msg_data );
2438: WHEN ROW_ALREADY_LOCKED
2439: THEN
2440: ROLLBACK TO create_draft_budget_pub;
2441:
2442: p_return_status := FND_API.G_RET_STS_ERROR;
2443:
2444: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2445: THEN
2446: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
2469: /* -- dbms_output.put_line('handling an OTHERS exception'); */
2470:
2471: ROLLBACK TO create_draft_budget_pub;
2472:
2473: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2474:
2475: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2476: THEN
2477: FND_MSG_PUB.add_exc_msg
2545: -- 11-Mar-2003 Srikanth Included the parameters for Fin Plan Model
2546:
2547: PROCEDURE load_budget_line
2548: ( p_api_version_number IN NUMBER
2549: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2550: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2551: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2552: ,p_pa_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2553: ,p_pm_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2546:
2547: PROCEDURE load_budget_line
2548: ( p_api_version_number IN NUMBER
2549: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2550: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2551: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2552: ,p_pa_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2553: ,p_pm_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2554: ,p_resource_alias IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2637: SAVEPOINT load_budget_line_pub;
2638:
2639: -- Standard call to check for call compatibility.
2640:
2641: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
2642: p_api_version_number ,
2643: l_api_name ,
2644: G_PKG_NAME )
2645: THEN
2643: l_api_name ,
2644: G_PKG_NAME )
2645: THEN
2646:
2647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2648:
2649: END IF;
2650:
2651: -- Initialize the message table if requested.
2649: END IF;
2650:
2651: -- Initialize the message table if requested.
2652:
2653: IF FND_API.TO_BOOLEAN( p_init_msg_list )
2654: THEN
2655:
2656: FND_MSG_PUB.initialize;
2657:
2658: END IF;
2659:
2660: -- Set API return status to success
2661:
2662: p_return_status := FND_API.G_RET_STS_SUCCESS;
2663:
2664: -- assign a value to the global counter for this table
2665: G_budget_lines_tbl_count := G_budget_lines_tbl_count + 1;
2666:
2737:
2738:
2739: EXCEPTION
2740:
2741: WHEN FND_API.G_EXC_ERROR
2742: THEN
2743: ROLLBACK TO load_budget_line_pub;
2744:
2745: p_return_status := FND_API.G_RET_STS_ERROR;
2741: WHEN FND_API.G_EXC_ERROR
2742: THEN
2743: ROLLBACK TO load_budget_line_pub;
2744:
2745: p_return_status := FND_API.G_RET_STS_ERROR;
2746:
2747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2748: THEN
2749: ROLLBACK TO load_budget_line_pub;
2743: ROLLBACK TO load_budget_line_pub;
2744:
2745: p_return_status := FND_API.G_RET_STS_ERROR;
2746:
2747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2748: THEN
2749: ROLLBACK TO load_budget_line_pub;
2750:
2751: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2748: THEN
2749: ROLLBACK TO load_budget_line_pub;
2750:
2751: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2752:
2753: WHEN OTHERS THEN
2754: ROLLBACK TO load_budget_line_pub;
2755:
2752:
2753: WHEN OTHERS THEN
2754: ROLLBACK TO load_budget_line_pub;
2755:
2756: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2757:
2758: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2759: THEN
2760: FND_MSG_PUB.add_exc_msg
2781: -- 29-NOV-1996 L. de Werker Added parameter p_pm_budget_reference
2782: -- 01-sep-2004 tpalaniv Added parameter p_pm_budget_reference while calling create_draft_budget
2783: PROCEDURE execute_create_draft_budget
2784: ( p_api_version_number IN NUMBER
2785: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2786: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2787: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
2788: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2789: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2782: -- 01-sep-2004 tpalaniv Added parameter p_pm_budget_reference while calling create_draft_budget
2783: PROCEDURE execute_create_draft_budget
2784: ( p_api_version_number IN NUMBER
2785: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2786: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2787: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
2788: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2789: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2790: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2861: SAVEPOINT execute_create_budget_pub;
2862:
2863: -- Standard call to check for call compatibility.
2864:
2865: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
2866: p_api_version_number ,
2867: l_api_name ,
2868: G_PKG_NAME )
2869: THEN
2867: l_api_name ,
2868: G_PKG_NAME )
2869: THEN
2870:
2871: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2872:
2873: END IF;
2874:
2875: -- Initialize the message table if requested.
2873: END IF;
2874:
2875: -- Initialize the message table if requested.
2876:
2877: IF FND_API.TO_BOOLEAN( p_init_msg_list )
2878: THEN
2879:
2880: FND_MSG_PUB.initialize;
2881:
2882: END IF;
2883:
2884: -- Set API return status to success
2885:
2886: p_return_status := FND_API.G_RET_STS_SUCCESS;
2887:
2888: create_draft_budget
2889: ( p_api_version_number => p_api_version_number
2890: ,p_commit => FND_API.G_FALSE
2886: p_return_status := FND_API.G_RET_STS_SUCCESS;
2887:
2888: create_draft_budget
2889: ( p_api_version_number => p_api_version_number
2890: ,p_commit => FND_API.G_FALSE
2891: ,p_init_msg_list => FND_API.G_FALSE
2892: ,p_msg_count => p_msg_count
2893: ,p_msg_data => p_msg_data
2894: ,p_return_status => l_return_status
2887:
2888: create_draft_budget
2889: ( p_api_version_number => p_api_version_number
2890: ,p_commit => FND_API.G_FALSE
2891: ,p_init_msg_list => FND_API.G_FALSE
2892: ,p_msg_count => p_msg_count
2893: ,p_msg_data => p_msg_data
2894: ,p_return_status => l_return_status
2895: ,p_pm_product_code => p_pm_product_code
2957: SAVEPOINT execute_create_budget_pub;
2958:
2959: /* -- dbms_output.put_line('Return status create_draft_budget: '||l_return_status); */
2960:
2961: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2962: THEN
2963:
2964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2965:
2960:
2961: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2962: THEN
2963:
2964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2965:
2966: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2967: THEN
2968:
2962: THEN
2963:
2964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2965:
2966: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2967: THEN
2968:
2969: RAISE FND_API.G_EXC_ERROR;
2970: END IF;
2965:
2966: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2967: THEN
2968:
2969: RAISE FND_API.G_EXC_ERROR;
2970: END IF;
2971:
2972: IF fnd_api.to_boolean(p_commit)
2973: THEN
2968:
2969: RAISE FND_API.G_EXC_ERROR;
2970: END IF;
2971:
2972: IF fnd_api.to_boolean(p_commit)
2973: THEN
2974: COMMIT;
2975: END IF;
2976:
2976:
2977:
2978: EXCEPTION
2979:
2980: WHEN FND_API.G_EXC_ERROR
2981: THEN
2982:
2983:
2984: ROLLBACK TO execute_create_budget_pub;
2982:
2983:
2984: ROLLBACK TO execute_create_budget_pub;
2985:
2986: p_return_status := FND_API.G_RET_STS_ERROR;
2987:
2988: FND_MSG_PUB.Count_And_Get
2989: ( p_count => p_msg_count ,
2990: p_data => p_msg_data );
2988: FND_MSG_PUB.Count_And_Get
2989: ( p_count => p_msg_count ,
2990: p_data => p_msg_data );
2991:
2992: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2993: THEN
2994:
2995: /* -- dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
2996:
2995: /* -- dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
2996:
2997: ROLLBACK TO execute_create_budget_pub;
2998:
2999: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3000:
3001: FND_MSG_PUB.Count_And_Get
3002: ( p_count => p_msg_count ,
3003: p_data => p_msg_data );
3006:
3007:
3008: ROLLBACK TO execute_create_budget_pub;
3009:
3010: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3011:
3012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3013: THEN
3014: FND_MSG_PUB.add_exc_msg
3040: --
3041: --
3042: PROCEDURE fetch_budget_line
3043: ( p_api_version_number IN NUMBER
3044: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3045: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3046: ,p_line_index IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3047: ,p_line_return_status OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
3048:
3059: SAVEPOINT fetch_budget_line_pub;
3060:
3061: -- Standard call to check for call compatibility.
3062:
3063: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3064: p_api_version_number ,
3065: l_api_name ,
3066: G_PKG_NAME )
3067: THEN
3065: l_api_name ,
3066: G_PKG_NAME )
3067: THEN
3068:
3069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3070:
3071: END IF;
3072:
3073: -- Initialize the message table if requested.
3071: END IF;
3072:
3073: -- Initialize the message table if requested.
3074:
3075: IF FND_API.TO_BOOLEAN( p_init_msg_list )
3076: THEN
3077:
3078: FND_MSG_PUB.initialize;
3079:
3080: END IF;
3081:
3082: -- Set API return status to success
3083:
3084: p_return_status := FND_API.G_RET_STS_SUCCESS;
3085:
3086: -- Check budget line index value,
3087: -- when they don't provide an index we will error out
3088:
3102: ,p_attribute4 => ''
3103: ,p_attribute5 => '');
3104: END IF;
3105:
3106: p_return_status := FND_API.G_RET_STS_ERROR;
3107: RAISE FND_API.G_EXC_ERROR;
3108: ELSE
3109: l_index := p_line_index;
3110: END IF;
3103: ,p_attribute5 => '');
3104: END IF;
3105:
3106: p_return_status := FND_API.G_RET_STS_ERROR;
3107: RAISE FND_API.G_EXC_ERROR;
3108: ELSE
3109: l_index := p_line_index;
3110: END IF;
3111:
3115:
3116:
3117: EXCEPTION
3118:
3119: WHEN FND_API.G_EXC_ERROR
3120: THEN
3121:
3122: ROLLBACK TO fetch_budget_line_pub;
3123:
3120: THEN
3121:
3122: ROLLBACK TO fetch_budget_line_pub;
3123:
3124: p_return_status := FND_API.G_RET_STS_ERROR;
3125:
3126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3127: THEN
3128:
3122: ROLLBACK TO fetch_budget_line_pub;
3123:
3124: p_return_status := FND_API.G_RET_STS_ERROR;
3125:
3126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3127: THEN
3128:
3129: ROLLBACK TO fetch_budget_line_pub;
3130:
3127: THEN
3128:
3129: ROLLBACK TO fetch_budget_line_pub;
3130:
3131: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3132:
3133: WHEN OTHERS THEN
3134:
3135: ROLLBACK TO fetch_budget_line_pub;
3133: WHEN OTHERS THEN
3134:
3135: ROLLBACK TO fetch_budget_line_pub;
3136:
3137: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3138:
3139: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3140: THEN
3141: FND_MSG_PUB.add_exc_msg
3216:
3217:
3218: PROCEDURE Baseline_Budget
3219: ( p_api_version_number IN NUMBER
3220: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3221: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3222: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
3223: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3224: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3217:
3218: PROCEDURE Baseline_Budget
3219: ( p_api_version_number IN NUMBER
3220: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3221: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3222: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
3223: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3224: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3225: ,p_workflow_started OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3425:
3426:
3427: --Standard call to check for call compatibility.
3428:
3429: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3430: p_api_version_number ,
3431: l_api_name ,
3432: G_PKG_NAME )
3433: THEN
3431: l_api_name ,
3432: G_PKG_NAME )
3433: THEN
3434:
3435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3436:
3437: END IF;
3438:
3439: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3443: p_debug_mode => l_debug_mode );
3444:
3445:
3446: --Initialize the message table if requested.
3447: IF FND_API.TO_BOOLEAN( p_init_msg_list )
3448: THEN
3449:
3450: FND_MSG_PUB.initialize;
3451:
3467: ,p_msg_count => l_msg_count
3468: ,p_msg_data => l_msg_data
3469: ,p_return_status => l_return_status);
3470:
3471: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3472: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3473: END IF;
3474: */
3475: --product_code is mandatory
3494: pa_debug.g_err_stage:= 'Product code is missing';
3495: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3496: END IF;
3497:
3498: -- RAISE FND_API.G_EXC_ERROR;
3499: l_any_error_occurred_flag := 'Y';
3500:
3501: ELSE
3502: l_pm_product_code :='Z';
3522: ,p_attribute3 => ''
3523: ,p_attribute4 => ''
3524: ,p_attribute5 => '');
3525: END IF;
3526: p_return_status := FND_API.G_RET_STS_ERROR;
3527: -- RAISE FND_API.G_EXC_ERROR;
3528: l_any_error_occurred_flag := 'Y';
3529: IF l_debug_mode = 'Y' THEN
3530: pa_debug.g_err_stage:= 'Product code is invalid';
3523: ,p_attribute4 => ''
3524: ,p_attribute5 => '');
3525: END IF;
3526: p_return_status := FND_API.G_RET_STS_ERROR;
3527: -- RAISE FND_API.G_EXC_ERROR;
3528: l_any_error_occurred_flag := 'Y';
3529: IF l_debug_mode = 'Y' THEN
3530: pa_debug.g_err_stage:= 'Product code is invalid';
3531: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3566: -- p_msg_data => l_msg_data,
3567: -- p_return_status => l_return_status,
3568: -- p_function_allowed => l_function_allowed );
3569:
3570: --IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3571: --THEN
3572: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3573: --
3574: --ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3568: -- p_function_allowed => l_function_allowed );
3569:
3570: --IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3571: --THEN
3572: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3573: --
3574: --ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3575: --THEN
3576: -- RAISE FND_API.G_EXC_ERROR;
3570: --IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3571: --THEN
3572: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3573: --
3574: --ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3575: --THEN
3576: -- RAISE FND_API.G_EXC_ERROR;
3577: --END IF;
3578: --IF l_function_allowed = 'N' THEN
3572: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3573: --
3574: --ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3575: --THEN
3576: -- RAISE FND_API.G_EXC_ERROR;
3577: --END IF;
3578: --IF l_function_allowed = 'N' THEN
3579: -- pa_interface_utils_pub.map_new_amg_msg
3580: -- ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
3585: -- ,p_attribute2 => ''
3586: -- ,p_attribute3 => ''
3587: -- ,p_attribute4 => ''
3588: -- ,p_attribute5 => '');
3589: -- p_return_status := FND_API.G_RET_STS_ERROR;
3590: -- RAISE FND_API.G_EXC_ERROR;
3591: --END IF;
3592:
3593:
3586: -- ,p_attribute3 => ''
3587: -- ,p_attribute4 => ''
3588: -- ,p_attribute5 => '');
3589: -- p_return_status := FND_API.G_RET_STS_ERROR;
3590: -- RAISE FND_API.G_EXC_ERROR;
3591: --END IF;
3592:
3593:
3594: -- Set API return status to success
3592:
3593:
3594: -- Set API return status to success
3595:
3596: p_return_status := FND_API.G_RET_STS_SUCCESS;
3597:
3598:
3599:
3600: -- 12-AUG-97, jwhite:
3623: pa_debug.g_err_stage:= 'Convert_pm_projref_to_id returned status '||l_return_status;
3624: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3625: END IF;
3626:
3627: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3628: THEN
3629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3630:
3631: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3625: END IF;
3626:
3627: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3628: THEN
3629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3630:
3631: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3632: THEN
3633: RAISE FND_API.G_EXC_ERROR;
3627: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3628: THEN
3629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3630:
3631: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3632: THEN
3633: RAISE FND_API.G_EXC_ERROR;
3634:
3635: END IF;
3629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3630:
3631: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3632: THEN
3633: RAISE FND_API.G_EXC_ERROR;
3634:
3635: END IF;
3636:
3637: IF l_project_id IS NULL --never happens because previous procedure checks this.
3654: pa_debug.g_err_stage:= 'Project id is null ';
3655: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3656: END IF;
3657:
3658: RAISE FND_API.G_EXC_ERROR;
3659:
3660: END IF;
3661:
3662: -- Get segment1 for AMG messages
3733: ,p_version_type => NULL
3734: ,x_return_status => l_return_status
3735: ,x_ret_code => l_security_ret_code );
3736:
3737: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
3738: l_security_ret_code = 'N' THEN
3739:
3740: IF l_debug_mode = 'Y' THEN
3741: pa_debug.g_err_stage := 'Security API failed' ;
3773: pa_debug.g_err_stage:= 'Invalid budget type ';
3774: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3775: END IF;
3776:
3777: RAISE FND_API.G_EXC_ERROR;
3778:
3779: ELSE
3780: CLOSE l_budget_types_csr;
3781: END IF;
3811: ,x_return_status => l_return_status
3812: ,x_msg_count => l_msg_count
3813: ,x_msg_data => l_msg_data);
3814:
3815: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3816:
3817: IF l_debug_mode = 'Y' THEN
3818: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
3819: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3882: ,x_msg_count => l_msg_count
3883: ,x_msg_data => l_msg_data);
3884:
3885: -- dbms_output.put_line('Got the version type');
3886: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3887:
3888: IF l_debug_mode = 'Y' THEN
3889: pa_debug.g_err_stage := 'get_version_type failed' ;
3890: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3904: ,p_version_type => l_version_type
3905: ,x_return_status => l_return_status
3906: ,x_ret_code => l_security_ret_code );
3907:
3908: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
3909: l_security_ret_code = 'N' THEN
3910:
3911: IF l_debug_mode = 'Y' THEN
3912: pa_debug.g_err_stage := 'Security API failed' ;
3927: ,x_return_status => l_return_status
3928: ,x_msg_count => l_msg_count
3929: ,x_msg_data => l_msg_data);
3930:
3931: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3932: THEN
3933: -- RAISE FND_API.G_EXC_ERROR;
3934: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3935: END IF;
3929: ,x_msg_data => l_msg_data);
3930:
3931: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3932: THEN
3933: -- RAISE FND_API.G_EXC_ERROR;
3934: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3935: END IF;
3936:
3937: END IF;--IF p_budget_type_code IS NOT NULL
3955: , x_msg_count => l_msg_count
3956: );
3957:
3958:
3959: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3960: THEN
3961: IF l_debug_mode = 'Y' THEN
3962: pa_debug.g_err_stage := 'Unexpected error in budget ctrl options' ;
3963: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3962: pa_debug.g_err_stage := 'Unexpected error in budget ctrl options' ;
3963: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3964: END IF;
3965:
3966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3967:
3968:
3969: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3970: THEN
3965:
3966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3967:
3968:
3969: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3970: THEN
3971: -- RAISE FND_API.G_EXC_ERROR;
3972: l_any_error_occurred_flag := 'Y';
3973:
3967:
3968:
3969: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3970: THEN
3971: -- RAISE FND_API.G_EXC_ERROR;
3972: l_any_error_occurred_flag := 'Y';
3973:
3974: END IF;
3975:
3989: ,p_attribute4 => ''
3990: ,p_attribute5 => '');
3991: END IF;
3992:
3993: -- RAISE FND_API.G_EXC_ERROR;
3994: l_any_error_occurred_flag := 'Y';
3995: END IF;
3996:
3997:
4069: ,p_attribute5 => '');
4070: END IF;
4071:
4072: CLOSE l_budget_versions_csr;
4073: RAISE FND_API.G_EXC_ERROR;
4074:
4075: IF l_debug_mode = 'Y' THEN
4076: pa_debug.g_err_stage := 'Curr working version does not exist' ;
4077: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4096: ,x_return_status => l_return_status
4097: ,x_msg_count => l_msg_count
4098: ,x_msg_data => l_msg_data );
4099:
4100: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4101: IF l_debug_mode = 'Y' THEN
4102: pa_debug.g_err_stage := 'Unexpected error in Get_Baselined_Version_Info' ;
4103: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4104: END IF;
4121: ,p_attribute5 => '');
4122: END IF;
4123: -- Raising the error since its not possible to proceed if there is no
4124: -- Current working version
4125: RAISE FND_API.G_EXC_ERROR;
4126: l_any_error_occurred_flag := 'Y';
4127: IF l_debug_mode = 'Y' THEN
4128: pa_debug.g_err_stage := 'Curr working version does not exist' ;
4129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4138: ,x_return_status => l_return_status
4139: ,x_msg_count => l_msg_count
4140: ,x_msg_data => l_msg_data);
4141:
4142: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4143: IF l_debug_mode = 'Y' THEN
4144: pa_debug.g_err_stage := 'Unexpected error in Get_Baselined_Version_Info' ;
4145: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4146: END IF;
4167: ,x_return_status => p_return_status
4168: ,x_msg_count => p_msg_count
4169: ,x_msg_data => p_msg_data );
4170:
4171: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4172: IF(l_debug_mode='Y') THEN
4173: pa_debug.g_err_stage := 'Auto baseline API falied';
4174: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4175: END IF;
4221: ,p_attribute5 => '');
4222: END IF;
4223:
4224: CLOSE l_budget_lines_csr;
4225: -- RAISE FND_API.G_EXC_ERROR;
4226: l_any_error_occurred_flag := 'Y';
4227: IF l_debug_mode = 'Y' THEN
4228: pa_debug.g_err_stage := 'Budget Lines do not exist for current working version' ;
4229: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4277: END IF;
4278:
4279: END IF;
4280:
4281: -- RAISE FND_API.G_EXC_ERROR;
4282: l_any_error_occurred_flag := 'Y';
4283:
4284: ELSIF l_err_code < 0
4285: THEN
4293: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
4294:
4295: END IF;
4296:
4297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4298:
4299: END IF;
4300: -- dbms_output.put_line('About to verify budget rules');
4301:
4340: ,p_attribute5 => '');
4341: END IF;
4342:
4343: CLOSE l_budget_rules_csr;
4344: -- RAISE FND_API.G_EXC_ERROR;
4345: l_any_error_occurred_flag := 'Y';
4346:
4347: ELSE
4348:
4382: IF (l_warnings_only_flag = 'Y')
4383: THEN
4384: p_return_status := 'W';
4385: ELSE
4386: -- RAISE FND_API.G_EXC_ERROR;
4387: l_any_error_occurred_flag := 'Y';
4388: END IF;
4389: -- dbms_output.put_line('Count after verify the baseline rules is >0');
4390:
4425: IF (l_warnings_only_flag = 'Y')
4426: THEN
4427: p_return_status := 'W';
4428: ELSE
4429: -- RAISE FND_API.G_EXC_ERROR;
4430: l_any_error_occurred_flag := 'Y';
4431: END IF;
4432: END IF;
4433:
4448: x_return_status => p_return_status,
4449: x_msg_count => p_msg_count,
4450: x_msg_data => p_msg_data) ;
4451:
4452: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4453:
4454: IF l_debug_mode = 'Y' THEN
4455: pa_debug.g_err_stage := 'Error executing lock unlock version';
4456: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4514: FND_MESSAGE.SET_TOKEN('ERRMSG', l_err_stage);
4515: FND_MSG_PUB.add;
4516: END IF;
4517:
4518: -- RAISE FND_API.G_EXC_ERROR;
4519: l_any_error_occurred_flag := 'Y';
4520: ELSIF (l_err_code < 0)
4521: THEN
4522: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4526: , p_procedure_name => 'BUDGET_WF_IS_USED'
4527: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
4528: END IF;
4529:
4530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4531: END IF;
4532:
4533: -- Stop further processing if any errors are reported
4534: -- dbms_output.put_line('l_any_error_occurred_flag is '||l_any_error_occurred_flag);
4537: pa_debug.g_err_stage := 'About to display all the messages';
4538: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4539: END IF;
4540: -- dbms_output.put_line('Displaying all messages');
4541: l_return_status := FND_API.G_RET_STS_ERROR;
4542: l_any_error_occurred_flag := 'Y';
4543: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4544: END IF;
4545: -- dbms_output.put_line('Starting with workflow = T');
4580: FND_MESSAGE.SET_TOKEN('ERRMSG', l_err_stage);
4581: FND_MSG_PUB.add;
4582: END IF;
4583:
4584: RAISE FND_API.G_EXC_ERROR;
4585:
4586: ELSIF (l_err_code < 0)
4587: THEN
4588: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4592: , p_procedure_name => 'START_BUDGET_WF'
4593: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
4594: END IF;
4595:
4596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4597: END IF;
4598:
4599:
4600:
4603: -- NOTE: A commit is required to actually start/activate the workflow instance opened
4604: -- by the previous Start_Budget_WF procedure.
4605:
4606:
4607: IF FND_API.TO_BOOLEAN( p_commit )
4608: THEN
4609: COMMIT;
4610: END IF;
4611:
4691: END IF;
4692:
4693: END IF;
4694:
4695: RAISE FND_API.G_EXC_ERROR;
4696:
4697: ELSIF l_err_code < 0
4698: THEN
4699:
4710: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
4711:
4712: END IF;
4713:
4714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4715:
4716: END IF;
4717:
4718: -- after calling BASELINE, set the budget_status_code back to 'W' (Working)
4765: ,x_return_status => l_return_status
4766: ,x_msg_count => l_msg_count
4767: ,x_msg_data => l_msg_data );
4768:
4769: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4770:
4771: IF l_debug_mode = 'Y' THEN
4772: pa_debug.g_err_stage:= 'Error in fin plan pub baseline ';
4773: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4797: ,x_return_status => l_return_status
4798: ,x_msg_count => l_msg_count
4799: ,x_msg_data => l_msg_data);
4800:
4801: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4802: THEN
4803: -- RAISE FND_API.G_EXC_ERROR;
4804: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4805: END IF;
4799: ,x_msg_data => l_msg_data);
4800:
4801: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4802: THEN
4803: -- RAISE FND_API.G_EXC_ERROR;
4804: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4805: END IF;
4806:
4807: l_CB_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_baselined_version_id);
4825: ,x_return_status => l_return_status
4826: ,x_msg_count => l_msg_count
4827: ,x_msg_data => l_msg_data );
4828:
4829: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
4830: l_msg_count <> 0THEN
4831:
4832: IF l_debug_mode = 'Y' THEN
4833: pa_debug.g_err_stage:= 'Error while marking the newly created version as the original version ';
4850: x_return_status => p_return_status,
4851: x_msg_count => p_msg_count,
4852: x_msg_data => p_msg_data) ;
4853:
4854: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4855:
4856: IF l_debug_mode = 'Y' THEN
4857: pa_debug.g_err_stage := 'Error executing lock unlock version';
4858: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4866:
4867: END IF;-- IF p_budget_type_code IS NOT NULL
4868:
4869:
4870: IF FND_API.TO_BOOLEAN( p_commit )
4871: THEN
4872: COMMIT;
4873: END IF;
4874:
4885: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4886: ROLLBACK TO baseline_budget_pub;
4887:
4888: IF p_return_status IS NULL OR
4889: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
4890: p_return_status := FND_API.G_RET_STS_ERROR;
4891: END IF;
4892: l_msg_count := FND_MSG_PUB.count_msg;
4893: IF l_msg_count = 1 THEN
4886: ROLLBACK TO baseline_budget_pub;
4887:
4888: IF p_return_status IS NULL OR
4889: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
4890: p_return_status := FND_API.G_RET_STS_ERROR;
4891: END IF;
4892: l_msg_count := FND_MSG_PUB.count_msg;
4893: IF l_msg_count = 1 THEN
4894: PA_INTERFACE_UTILS_PUB.get_messages
4891: END IF;
4892: l_msg_count := FND_MSG_PUB.count_msg;
4893: IF l_msg_count = 1 THEN
4894: PA_INTERFACE_UTILS_PUB.get_messages
4895: (p_encoded => FND_API.G_TRUE,
4896: p_msg_index => 1,
4897: p_msg_count => l_msg_count,
4898: p_msg_data => l_msg_data,
4899: p_data => l_data,
4907: pa_debug.reset_curr_function;
4908:
4909: RETURN;
4910:
4911: WHEN FND_API.G_EXC_ERROR
4912: THEN
4913:
4914:
4915: ROLLBACK TO baseline_budget_pub;
4913:
4914:
4915: ROLLBACK TO baseline_budget_pub;
4916:
4917: p_return_status := FND_API.G_RET_STS_ERROR;
4918:
4919: FND_MSG_PUB.Count_And_Get
4920: ( p_count => p_msg_count ,
4921: p_data => p_msg_data );
4921: p_data => p_msg_data );
4922:
4923: pa_debug.reset_curr_function;
4924:
4925: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4926: THEN
4927:
4928:
4929: ROLLBACK TO baseline_budget_pub;
4927:
4928:
4929: ROLLBACK TO baseline_budget_pub;
4930:
4931: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4932:
4933: FND_MSG_PUB.Count_And_Get
4934: ( p_count => p_msg_count ,
4935: p_data => p_msg_data );
4940: THEN
4941:
4942: ROLLBACK TO baseline_budget_pub;
4943:
4944: p_return_status := FND_API.G_RET_STS_ERROR ;
4945:
4946: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4947: THEN
4948: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
4967:
4968:
4969: ROLLBACK TO baseline_budget_pub;
4970:
4971: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4972:
4973: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4974: THEN
4975: FND_MSG_PUB.add_exc_msg
5009: -- add_budget_line for FP.M FinPlan model.
5010:
5011: PROCEDURE Add_Budget_Line
5012: ( p_api_version_number IN NUMBER
5013: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5014: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5015: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5016: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5017: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5010:
5011: PROCEDURE Add_Budget_Line
5012: ( p_api_version_number IN NUMBER
5013: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5014: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5015: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5016: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5017: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5018: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5130:
5131: SAVEPOINT add_budget_line_pub;
5132:
5133: p_msg_count := 0;
5134: p_return_status := FND_API.G_RET_STS_SUCCESS;
5135: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5136: l_module_name := g_module_name || ':Add_Budget_Line';
5137:
5138: IF ( l_debug_mode = 'Y' )
5147: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5148: END IF;
5149:
5150: --Initialize the message table if requested.
5151: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5152: THEN
5153: FND_MSG_PUB.initialize;
5154: END IF;
5155:
5153: FND_MSG_PUB.initialize;
5154: END IF;
5155:
5156: --Set API return status to success
5157: p_return_status := FND_API.G_RET_STS_SUCCESS;
5158:
5159: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
5160: --header level validations
5161: PA_BUDGET_PVT.validate_header_info
5196: ,x_msg_count => p_msg_count
5197: ,x_msg_data => p_msg_data
5198: ,x_return_status => p_return_status );
5199:
5200: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5201: IF(l_debug_mode='Y') THEN
5202: pa_debug.g_err_stage := 'validate header info API falied';
5203: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5204: END IF;
5273: ,p_categorization_code => l_categorization_code
5274: ,p_budget_version_id => l_budget_version_id
5275: ,p_change_reason_code => p_change_reason_code);
5276:
5277: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5278: THEN
5279: IF(l_debug_mode='Y') THEN
5280: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - unexpected error';
5281: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5279: IF(l_debug_mode='Y') THEN
5280: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - unexpected error';
5281: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5282: END IF;
5283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5284:
5285: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
5286: THEN
5287: IF(l_debug_mode='Y') THEN
5281: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5282: END IF;
5283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5284:
5285: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
5286: THEN
5287: IF(l_debug_mode='Y') THEN
5288: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - expected error';
5289: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5287: IF(l_debug_mode='Y') THEN
5288: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - expected error';
5289: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5290: END IF;
5291: RAISE FND_API.G_EXC_ERROR;
5292: END IF;
5293:
5294:
5295: --check for overlapping dates
5313:
5314: FND_MSG_PUB.add;
5315: END IF;
5316:
5317: RAISE FND_API.G_EXC_ERROR;
5318:
5319: ELSIF l_err_code < 0
5320: THEN
5321:
5331: , p_procedure_name => 'CHECK_OVERLAPPING_DATES'
5332: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
5333: END IF;
5334:
5335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5336:
5337: END IF;
5338:
5339:
5378: ,p_attribute5 => to_char(p_budget_start_date));
5379: END IF;
5380: END IF;
5381:
5382: RAISE FND_API.G_EXC_ERROR;
5383:
5384: ELSIF l_err_code < 0 THEN
5385:
5386: IF(l_debug_mode='Y') THEN
5395: , p_procedure_name => 'SUMMERIZE_PROJECT_TOTALS'
5396: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
5397: END IF;
5398:
5399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5400:
5401: END IF;
5402:
5403:
5628: ,x_message_count => p_msg_count
5629: ,x_return_status => p_return_status
5630: ,x_message_data => p_msg_data) ;
5631:
5632: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
5633: THEN
5634: IF(l_debug_mode='Y') THEN
5635: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
5636: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5689: ,x_msg_count => p_msg_count
5690: ,x_msg_data => p_msg_data
5691: ,x_return_status => p_return_status );
5692:
5693: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5694: IF(l_debug_mode='Y') THEN
5695: pa_debug.g_err_stage := 'validate budget lines API falied';
5696: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5697: END IF;
5767: ,x_return_status => p_return_status
5768: ,x_msg_count => p_msg_count
5769: ,x_msg_data => p_msg_data);
5770:
5771: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5772: -- Error message is not added here as the api lock_unlock_version
5773: -- adds the message to stack
5774: IF(l_debug_mode='Y') THEN
5775: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
5774: IF(l_debug_mode='Y') THEN
5775: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
5776: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5777: END IF;
5778: RAISE FND_API.G_EXC_ERROR;
5779: END IF;
5780:
5781: --Call PA_FIN_PLAN_PVT.add_fin_plan_lines. This api takes care of inserting
5782: --budget lines data in all relevant tables.
5787: ,x_return_status => p_return_status
5788: ,x_msg_count => p_msg_count
5789: ,x_msg_data => p_msg_data );
5790:
5791: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
5792: THEN
5793: IF(l_debug_mode='Y') THEN
5794: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
5795: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5793: IF(l_debug_mode='Y') THEN
5794: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
5795: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5796: END IF;
5797: RAISE FND_API.G_EXC_ERROR;
5798: END IF;
5799:
5800:
5801: --unlock the budget version after inserting the budget line
5811: ,x_return_status => p_return_status
5812: ,x_msg_count => p_msg_count
5813: ,x_msg_data => p_msg_data);
5814:
5815: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5816: -- Error message is not added here as the api lock_unlock_version
5817: -- adds the message to stack
5818: IF(l_debug_mode='Y') THEN
5819: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
5818: IF(l_debug_mode='Y') THEN
5819: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
5820: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5821: END IF;
5822: RAISE FND_API.G_EXC_ERROR;
5823: END IF;
5824:
5825:
5826: END IF; --end of code to insert budget line
5825:
5826: END IF; --end of code to insert budget line
5827:
5828:
5829: IF FND_API.to_boolean( p_commit )
5830: THEN
5831: COMMIT;
5832: END IF;
5833:
5846: THEN
5847:
5848: ROLLBACK TO add_budget_line_pub;
5849:
5850: p_return_status := FND_API.G_RET_STS_ERROR;
5851: l_msg_count := FND_MSG_PUB.count_msg;
5852:
5853: IF l_msg_count = 1 and p_msg_data IS NULL THEN
5854: PA_INTERFACE_UTILS_PUB.get_messages
5851: l_msg_count := FND_MSG_PUB.count_msg;
5852:
5853: IF l_msg_count = 1 and p_msg_data IS NULL THEN
5854: PA_INTERFACE_UTILS_PUB.get_messages
5855: (p_encoded => FND_API.G_TRUE
5856: ,p_msg_index => 1
5857: ,p_msg_count => l_msg_count
5858: ,p_msg_data => l_msg_data
5859: ,p_data => l_data
5870:
5871: RETURN;
5872:
5873:
5874: WHEN FND_API.G_EXC_ERROR
5875: THEN
5876:
5877: ROLLBACK TO add_budget_line_pub;
5878:
5875: THEN
5876:
5877: ROLLBACK TO add_budget_line_pub;
5878:
5879: p_return_status := FND_API.G_RET_STS_ERROR;
5880:
5881: FND_MSG_PUB.count_and_get
5882: ( p_count => p_msg_count ,
5883: p_data => p_msg_data );
5886: pa_debug.reset_curr_function;
5887: END IF;
5888:
5889:
5890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5891: THEN
5892:
5893: ROLLBACK TO add_budget_line_pub;
5894:
5891: THEN
5892:
5893: ROLLBACK TO add_budget_line_pub;
5894:
5895: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5896:
5897: FND_MSG_PUB.count_and_get
5898: ( p_count => p_msg_count ,
5899: p_data => p_msg_data );
5907: THEN
5908:
5909: ROLLBACK TO add_budget_line_pub;
5910:
5911: p_return_status := FND_API.G_RET_STS_ERROR;
5912:
5913: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5914: THEN
5915: FND_MESSAGE.set_name('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
5935: THEN
5936:
5937: ROLLBACK TO add_budget_line_pub;
5938:
5939: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5940:
5941: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5942: THEN
5943: FND_MSG_PUB.add_exc_msg
5973: -- 11-APR-2005 Rishukla Bug 4224464: FP M Changes for delete_draft_budget
5974:
5975: PROCEDURE delete_draft_budget
5976: ( p_api_version_number IN NUMBER
5977: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5978: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5979: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5980: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5981: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5974:
5975: PROCEDURE delete_draft_budget
5976: ( p_api_version_number IN NUMBER
5977: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5978: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5979: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5980: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5981: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5982: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
6098: SAVEPOINT delete_draft_budget_pub;
6099:
6100: -- Standard call to check for call compatibility.
6101:
6102: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
6103: p_api_version_number ,
6104: l_api_name ,
6105: G_PKG_NAME )
6106: THEN
6104: l_api_name ,
6105: G_PKG_NAME )
6106: THEN
6107:
6108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6109:
6110: END IF;
6111:
6112: p_msg_count := 0;
6109:
6110: END IF;
6111:
6112: p_msg_count := 0;
6113: p_return_status := FND_API.G_RET_STS_SUCCESS;
6114: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6115:
6116: IF ( l_debug_mode = 'Y' )
6117: THEN
6120: END IF;
6121:
6122: -- Initialize the message table if requested.
6123:
6124: IF FND_API.TO_BOOLEAN( p_init_msg_list )
6125: THEN
6126:
6127: FND_MSG_PUB.initialize;
6128:
6218: pa_debug.g_err_stage := 'Product code is missing' ;
6219: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6220: END IF;
6221:
6222: -- RAISE FND_API.G_EXC_ERROR;
6223: l_any_error_occurred_flag:='Y' ;
6224: END IF;
6225:
6226: l_pm_product_code :='Z';
6243: ,p_attribute3 => ''
6244: ,p_attribute4 => ''
6245: ,p_attribute5 => '');
6246: END IF;
6247: p_return_status := FND_API.G_RET_STS_ERROR;
6248: --RAISE FND_API.G_EXC_ERROR;
6249: l_any_error_occurred_flag:='Y';
6250: IF l_debug_mode = 'Y' THEN
6251: pa_debug.g_err_stage := 'Product code is invalid' ;
6244: ,p_attribute4 => ''
6245: ,p_attribute5 => '');
6246: END IF;
6247: p_return_status := FND_API.G_RET_STS_ERROR;
6248: --RAISE FND_API.G_EXC_ERROR;
6249: l_any_error_occurred_flag:='Y';
6250: IF l_debug_mode = 'Y' THEN
6251: pa_debug.g_err_stage := 'Product code is invalid' ;
6252: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6263: p_out_project_id => l_project_id,
6264: p_return_status => l_return_status );
6265:
6266:
6267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6268: THEN
6269: IF l_debug_mode = 'Y' THEN
6270: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
6271: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6270: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
6271: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6272: END IF;
6273:
6274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6275:
6276: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6277: THEN
6278: IF l_debug_mode = 'Y' THEN
6272: END IF;
6273:
6274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6275:
6276: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6277: THEN
6278: IF l_debug_mode = 'Y' THEN
6279: pa_debug.g_err_stage := 'Error while getting project id' ;
6280: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6279: pa_debug.g_err_stage := 'Error while getting project id' ;
6280: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6281: END IF;
6282:
6283: RAISE FND_API.G_EXC_ERROR;
6284:
6285: END IF;
6286:
6287: -- Get segment1 for AMG messages
6306:
6307: -- the above API adds the error message to stack. Hence the message is not added here.
6308: -- Also, as security check is important further validations are not done in case this
6309: -- validation fails.
6310: IF (p_return_status<>FND_API.G_RET_STS_SUCCESS OR
6311: l_security_ret_code = 'N') THEN
6312: -- dbms_output.put_line('Security api failed l_security_ret_code '||l_security_ret_code);
6313: IF l_debug_mode = 'Y' THEN
6314: pa_debug.g_err_stage:= 'Security API Failed';
6343: END IF;
6344:
6345:
6346: CLOSE l_budget_type_csr;
6347: RAISE FND_API.G_EXC_ERROR;
6348:
6349: END IF;
6350:
6351: CLOSE l_budget_type_csr;
6396: END IF;
6397:
6398:
6399: CLOSE l_budget_version_csr;
6400: RAISE FND_API.G_EXC_ERROR;
6401:
6402: END IF;
6403:
6404: CLOSE l_budget_version_csr;
6427: ,p_token3 => 'BUDGET_VERSION_ID'
6428: ,p_value3 => l_budget_version_id);
6429: END IF;
6430:
6431: RAISE FND_API.G_EXC_ERROR;
6432:
6433: END IF;--budgetary control enabled check
6434:
6435:
6440: IF(l_debug_mode='Y') THEN
6441: pa_debug.g_err_stage := 'About to display all the messages';
6442: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6443: END IF;
6444: p_return_status := FND_API.G_RET_STS_ERROR;
6445: l_any_error_occurred_flag := 'Y';
6446: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6447: END IF;
6448:
6492: END IF;
6493:
6494: END IF;
6495:
6496: RAISE FND_API.G_EXC_ERROR;
6497:
6498: ELSIF l_err_code < 0
6499: THEN
6500:
6512: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
6513:
6514: END IF;
6515:
6516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6517:
6518: END IF;
6519:
6520: CLOSE l_lock_budget_csr; --FYI, does not release locks
6531: ,x_return_status => p_return_status
6532: ,x_msg_count => p_msg_count
6533: ,x_msg_data => p_msg_data);
6534: -- Throw the error if the above API is not successfully executed
6535: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6536:
6537: IF l_debug_mode = 'Y' THEN
6538: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
6539: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6585: ,x_return_status => p_return_status
6586: ,x_msg_count => p_msg_count
6587: ,x_msg_data => p_msg_data);
6588:
6589: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6590:
6591: IF l_debug_mode = 'Y' THEN
6592: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
6593: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6608: ,p_version_type => l_version_type
6609: ,x_return_status => p_return_status
6610: ,x_ret_code => l_security_ret_code );
6611:
6612: IF (p_return_status <>FND_API.G_RET_STS_SUCCESS OR
6613: l_security_ret_code='N') THEN
6614: -- dbms_output.put_line('Exc in security');
6615: IF l_debug_mode = 'Y' THEN
6616: pa_debug.g_err_stage := 'Security API failed' ;
6667: END IF;
6668:
6669: END IF; --version_number IS NULL
6670:
6671: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6672: IF l_debug_mode = 'Y' THEN
6673: pa_debug.g_err_stage := 'get Version Id Failed ' ;
6674: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6675: END IF;
6722: 'to an organisation forecasting project';
6723: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6724: END IF;
6725:
6726: p_return_status := FND_API.G_RET_STS_ERROR;
6727: l_any_error_occurred_flag:='Y' ;
6728: END IF; --org_forecast = 'Y'
6729:
6730: --Lock the version before deleting it
6739: ,x_return_status => p_return_status
6740: ,x_msg_count => p_msg_count
6741: ,x_msg_data => p_msg_data);
6742:
6743: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6744: -- Error message is not added here as the api lock_unlock_version
6745: -- adds the message to stack
6746: IF(l_debug_mode='Y') THEN
6747: pa_debug.g_err_stage := 'Failed in locking the version';
6755: IF(l_debug_mode='Y') THEN
6756: pa_debug.g_err_stage := 'About to display all the messages';
6757: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6758: END IF;
6759: p_return_status := FND_API.G_RET_STS_ERROR;
6760: l_any_error_occurred_flag := 'Y';
6761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6762: END IF;
6763:
6771: ,x_return_status => p_return_status
6772: ,x_msg_count => p_msg_count
6773: ,x_msg_data => p_msg_data );
6774:
6775: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6776:
6777: IF(l_debug_mode='Y') THEN
6778: pa_debug.g_err_stage := 'Failed in deleting the version';
6779: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6834:
6835: END IF;
6836:
6837:
6838: IF fnd_api.to_boolean(p_commit)
6839: THEN
6840: COMMIT;
6841: END IF;
6842:
6852:
6853: EXCEPTION
6854: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6855:
6856: p_return_status := FND_API.G_RET_STS_ERROR;
6857: l_msg_count := FND_MSG_PUB.count_msg;
6858:
6859: IF l_msg_count = 1 and p_msg_data IS NULL THEN
6860: PA_INTERFACE_UTILS_PUB.get_messages
6857: l_msg_count := FND_MSG_PUB.count_msg;
6858:
6859: IF l_msg_count = 1 and p_msg_data IS NULL THEN
6860: PA_INTERFACE_UTILS_PUB.get_messages
6861: (p_encoded => FND_API.G_TRUE
6862: ,p_msg_index => 1
6863: ,p_msg_count => l_msg_count
6864: ,p_msg_data => l_msg_data
6865: ,p_data => l_data
6873: pa_debug.reset_curr_function;
6874: END IF;
6875: RETURN;
6876:
6877: WHEN FND_API.G_EXC_ERROR
6878: THEN
6879:
6880: ROLLBACK TO delete_draft_budget_pub;
6881:
6878: THEN
6879:
6880: ROLLBACK TO delete_draft_budget_pub;
6881:
6882: p_return_status := FND_API.G_RET_STS_ERROR;
6883:
6884: FND_MSG_PUB.Count_And_Get
6885: ( p_count => p_msg_count ,
6886: p_data => p_msg_data );
6887: IF ( l_debug_mode = 'Y' ) THEN
6888: pa_debug.reset_curr_function;
6889: END IF;
6890:
6891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6892: THEN
6893:
6894: ROLLBACK TO delete_draft_budget_pub;
6895:
6892: THEN
6893:
6894: ROLLBACK TO delete_draft_budget_pub;
6895:
6896: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6897:
6898: FND_MSG_PUB.Count_And_Get
6899: ( p_count => p_msg_count ,
6900: p_data => p_msg_data );
6905: WHEN ROW_ALREADY_LOCKED
6906: THEN
6907: ROLLBACK TO delete_draft_budget_pub;
6908:
6909: p_return_status := FND_API.G_RET_STS_ERROR;
6910:
6911: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6912: THEN
6913: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
6930: WHEN OTHERS THEN
6931:
6932: ROLLBACK TO delete_draft_budget_pub;
6933:
6934: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6935:
6936: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6937: THEN
6938: FND_MSG_PUB.add_exc_msg
6958: -- version except the current original and current baseline budget
6959: -- versions.
6960: --
6961: --Called subprograms:
6962: -- FND_API.compatible_api_call
6963: -- PA_PROJECT_PVT.convert_pm_projref_to_id
6964: -- PA_PM_FUNCTION_SECURITY_PUB.check_budget_security
6965: -- PA_BUDGET_UTILS.delete_draft
6966: -- PA_FIN_PLAN_PVT.convert_plan_type_name_to_id
6974: -- 05-APR-2005 Rishukla Created.
6975:
6976: PROCEDURE delete_baseline_budget
6977: ( p_api_version_number IN NUMBER
6978: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6979: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6980: ,p_msg_count OUT NOCOPY NUMBER
6981: ,p_msg_data OUT NOCOPY VARCHAR2
6982: ,p_return_status OUT NOCOPY VARCHAR2
6975:
6976: PROCEDURE delete_baseline_budget
6977: ( p_api_version_number IN NUMBER
6978: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6979: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6980: ,p_msg_count OUT NOCOPY NUMBER
6981: ,p_msg_data OUT NOCOPY VARCHAR2
6982: ,p_return_status OUT NOCOPY VARCHAR2
6983: ,p_pm_product_code IN pa_projects_all.pm_product_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
7103:
7104: SAVEPOINT delete_baseline_budget_pub;
7105:
7106: p_msg_count := 0;
7107: p_return_status := FND_API.G_RET_STS_SUCCESS;
7108: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7109:
7110: IF ( l_debug_mode = 'Y' )
7111: THEN
7120: END IF;
7121:
7122: --Initialize the message table if requested.
7123:
7124: IF FND_API.to_boolean( p_init_msg_list )
7125: THEN
7126: FND_MSG_PUB.initialize;
7127: END IF;
7128:
7127: END IF;
7128:
7129: --Standard call to check for call compatibility.
7130:
7131: IF NOT FND_API.compatible_api_call ( g_api_version_number ,
7132: p_api_version_number ,
7133: l_api_name ,
7134: G_PKG_NAME )
7135: THEN
7132: p_api_version_number ,
7133: l_api_name ,
7134: G_PKG_NAME )
7135: THEN
7136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7137: END IF;
7138:
7139: --Convert following IN parameters from G_PA_MISS_XXX to null
7140:
7232: pa_debug.g_err_stage := 'Product code is missing' ;
7233: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7234: END IF;
7235:
7236: p_return_status := FND_API.G_RET_STS_ERROR;
7237: l_any_error_occurred_flag:='Y' ;
7238:
7239: ELSE --p_pm_product_code is not null
7240:
7251: PA_UTILS.add_message
7252: (p_app_short_name => 'PA',
7253: p_msg_name => 'PA_PRODUCT_CODE_IS_INVALID_AMG');
7254: END IF;
7255: p_return_status := FND_API.G_RET_STS_ERROR;
7256: l_any_error_occurred_flag:='Y';
7257: IF l_debug_mode = 'Y' THEN
7258: pa_debug.g_err_stage := 'Product code is invalid' ;
7259: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7277: pa_debug.g_err_stage := 'Version Number is missing' ;
7278: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7279: END IF;
7280:
7281: p_return_status := FND_API.G_RET_STS_ERROR;
7282: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7283:
7284: END IF; --l_version_number IS NULL
7285:
7290: p_pa_project_id => l_project_id,
7291: p_out_project_id => l_project_id,
7292: p_return_status => l_return_status );
7293:
7294: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7295: THEN
7296: IF l_debug_mode = 'Y' THEN
7297: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
7298: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7297: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
7298: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7299: END IF;
7300:
7301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7302:
7303: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7304: THEN
7305: IF l_debug_mode = 'Y' THEN
7299: END IF;
7300:
7301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7302:
7303: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7304: THEN
7305: IF l_debug_mode = 'Y' THEN
7306: pa_debug.g_err_stage := 'Error while getting project id' ;
7307: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7306: pa_debug.g_err_stage := 'Error while getting project id' ;
7307: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7308: END IF;
7309:
7310: RAISE FND_API.G_EXC_ERROR;
7311:
7312: END IF;
7313:
7314: -- Get segment1 for AMG messages
7370: pa_debug.g_err_stage := 'Budget version number is invalid' ;
7371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7372: END IF;
7373:
7374: p_return_status := FND_API.G_RET_STS_ERROR;
7375: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7376:
7377: ELSE --l_budget_version_no_rec has been fetched
7378:
7389: 'or current original can not be deleted';
7390: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7391: END IF;
7392:
7393: p_return_status := FND_API.G_RET_STS_ERROR;
7394: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7395: END IF;
7396: END IF; --l_budget_version_no_rec.budget_version_id IS NULL
7397:
7417:
7418: -- the above API adds the error message to stack. Hence the message is not added here.
7419: -- Also, as security check is important further validations are not done in case this
7420: -- validation fails.
7421: IF (p_return_status<>FND_API.G_RET_STS_SUCCESS OR l_security_ret_code = 'N')
7422: THEN
7423: IF l_debug_mode = 'Y' THEN
7424: pa_debug.g_err_stage:= 'Security API Failed';
7425: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7452: ,p_token3 => 'BUDGET_VERSION_ID'
7453: ,p_value3 => l_budget_version_no_rec.budget_version_id);
7454: END IF;
7455:
7456: RAISE FND_API.G_EXC_ERROR;
7457:
7458: END IF;--budgetary control enabled check
7459:
7460:
7463: IF(l_debug_mode='Y') THEN
7464: pa_debug.g_err_stage := 'About to display all the messages';
7465: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7466: END IF;
7467: p_return_status := FND_API.G_RET_STS_ERROR;
7468: l_any_error_occurred_flag := 'Y';
7469: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7470: END IF;
7471:
7514: ,p_attribute5 => '');
7515: END IF;
7516:
7517: END IF; --FND_MSG_PUB.check_msg_level
7518: RAISE FND_API.G_EXC_ERROR;
7519:
7520: ELSIF l_err_code < 0 THEN
7521:
7522: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7531: , p_procedure_name => 'DELETE_DRAFT'
7532: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
7533: END IF; --FND_MSG_PUB.check_msg_level
7534:
7535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7536:
7537: END IF; --l_err_code > 0
7538:
7539: ELSE --finplan model
7546: ,x_return_status => p_return_status
7547: ,x_msg_count => p_msg_count
7548: ,x_msg_data => p_msg_data);
7549: --Throw the error if the above API is not successfully executed
7550: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7551: IF l_debug_mode = 'Y' THEN
7552: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
7553: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7554: END IF;
7588: ,x_return_status => p_return_status
7589: ,x_msg_count => p_msg_count
7590: ,x_msg_data => p_msg_data);
7591:
7592: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7593: IF l_debug_mode = 'Y' THEN
7594: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
7595: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7596: END IF;
7608: ,p_version_type => l_version_type
7609: ,x_return_status => p_return_status
7610: ,x_ret_code => l_security_ret_code );
7611:
7612: IF (p_return_status <>FND_API.G_RET_STS_SUCCESS OR
7613: l_security_ret_code='N') THEN
7614: IF l_debug_mode = 'Y' THEN
7615: pa_debug.g_err_stage := 'Security API failed' ;
7616: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7639: pa_debug.g_err_stage := 'Budget version number is invalid' ;
7640: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7641: END IF;
7642:
7643: p_return_status := FND_API.G_RET_STS_ERROR;
7644: l_any_error_occurred_flag:='Y' ;
7645: END IF; --l_budget_version_id IS NULL
7646:
7647: --if the budget version belongs to an org forecast project then throw an error
7658: 'to an organisation forecasting project';
7659: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7660: END IF;
7661:
7662: p_return_status := FND_API.G_RET_STS_ERROR;
7663: l_any_error_occurred_flag:='Y' ;
7664: END IF; --org_forecast = 'Y'
7665:
7666: --Stop Further processing if any errors are reported
7668: IF(l_debug_mode='Y') THEN
7669: pa_debug.g_err_stage := 'About to display all the messages';
7670: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7671: END IF;
7672: p_return_status := FND_API.G_RET_STS_ERROR;
7673: l_any_error_occurred_flag := 'Y';
7674: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7675: END IF;
7676:
7684: ,x_return_status => p_return_status
7685: ,x_msg_count => p_msg_count
7686: ,x_msg_data => p_msg_data );
7687:
7688: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7689:
7690: IF(l_debug_mode='Y') THEN
7691: pa_debug.g_err_stage := 'Failed in deleting the version';
7692: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7744:
7745: End IF; --l_budget_type_code IS NOT NULL
7746:
7747:
7748: IF fnd_api.to_boolean(p_commit)
7749: THEN
7750: COMMIT;
7751: END IF;
7752:
7762: EXCEPTION
7763: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc
7764: THEN
7765:
7766: p_return_status := FND_API.G_RET_STS_ERROR;
7767: l_msg_count := FND_MSG_PUB.count_msg;
7768:
7769: IF l_msg_count = 1 and p_msg_data IS NULL THEN
7770: PA_INTERFACE_UTILS_PUB.get_messages
7767: l_msg_count := FND_MSG_PUB.count_msg;
7768:
7769: IF l_msg_count = 1 and p_msg_data IS NULL THEN
7770: PA_INTERFACE_UTILS_PUB.get_messages
7771: (p_encoded => FND_API.G_TRUE
7772: ,p_msg_index => 1
7773: ,p_msg_count => l_msg_count
7774: ,p_msg_data => l_msg_data
7775: ,p_data => l_data
7785: END IF;
7786:
7787: RETURN;
7788:
7789: WHEN FND_API.G_EXC_ERROR
7790: THEN
7791:
7792: ROLLBACK TO delete_baseline_budget_pub;
7793:
7790: THEN
7791:
7792: ROLLBACK TO delete_baseline_budget_pub;
7793:
7794: p_return_status := FND_API.G_RET_STS_ERROR;
7795:
7796: FND_MSG_PUB.count_and_get
7797: ( p_count => p_msg_count ,
7798: p_data => p_msg_data );
7800: IF ( l_debug_mode = 'Y' ) THEN
7801: pa_debug.reset_curr_function;
7802: END IF;
7803:
7804: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7805: THEN
7806:
7807: ROLLBACK TO delete_baseline_budget_pub;
7808:
7805: THEN
7806:
7807: ROLLBACK TO delete_baseline_budget_pub;
7808:
7809: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7810:
7811: FND_MSG_PUB.count_and_get
7812: ( p_count => p_msg_count ,
7813: p_data => p_msg_data );
7819: WHEN ROW_ALREADY_LOCKED
7820: THEN
7821: ROLLBACK TO delete_baseline_budget_pub;
7822:
7823: p_return_status := FND_API.G_RET_STS_ERROR;
7824:
7825: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7826: THEN
7827: FND_MESSAGE.set_name('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
7845: WHEN OTHERS THEN
7846:
7847: ROLLBACK TO delete_baseline_budget_pub;
7848:
7849: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7850:
7851: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7852: THEN
7853: FND_MSG_PUB.add_exc_msg
8097: --Standard begin of API savepoint
8098: SAVEPOINT delete_budget_line_pub;
8099:
8100: p_msg_count := 0;
8101: p_return_status := FND_API.G_RET_STS_SUCCESS;
8102: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8103: l_module_name := g_module_name || ':Delete_Budget_Line ';
8104:
8105: IF ( l_debug_mode = 'Y' )
8114: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8115: END IF;
8116:
8117: --Initialize the message table if requested.
8118: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8119: THEN
8120: FND_MSG_PUB.initialize;
8121: END IF;
8122:
8120: FND_MSG_PUB.initialize;
8121: END IF;
8122:
8123: --Set API return status to success
8124: p_return_status := FND_API.G_RET_STS_SUCCESS;
8125:
8126: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
8127: --header level validations
8128: PA_BUDGET_PVT.validate_header_info
8163: ,x_msg_count => p_msg_count
8164: ,x_msg_data => p_msg_data
8165: ,x_return_status => p_return_status );
8166:
8167: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8168: IF(l_debug_mode='Y') THEN
8169: pa_debug.g_err_stage := 'validate header info API falied';
8170: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8171: END IF;
8192: p_pm_task_reference => p_pm_task_reference,
8193: p_out_task_id => l_task_id,
8194: p_return_status => p_return_status );
8195:
8196: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8197: THEN
8198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8199:
8200: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8194: p_return_status => p_return_status );
8195:
8196: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8197: THEN
8198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8199:
8200: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8201: THEN
8202: RAISE FND_API.G_EXC_ERROR;
8196: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8197: THEN
8198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8199:
8200: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8201: THEN
8202: RAISE FND_API.G_EXC_ERROR;
8203: END IF;
8204:
8198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8199:
8200: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8201: THEN
8202: RAISE FND_API.G_EXC_ERROR;
8203: END IF;
8204:
8205: END IF;
8206:
8228: ,p_resource_list_member_id => p_resource_list_member_id
8229: ,p_out_resource_list_member_id => l_resource_list_member_id
8230: ,p_return_status => p_return_status );
8231:
8232: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8233: THEN
8234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8235: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8236: THEN
8230: ,p_return_status => p_return_status );
8231:
8232: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8233: THEN
8234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8235: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8236: THEN
8237: RAISE FND_API.G_EXC_ERROR;
8238: END IF;
8231:
8232: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8233: THEN
8234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8235: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8236: THEN
8237: RAISE FND_API.G_EXC_ERROR;
8238: END IF;
8239:
8233: THEN
8234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8235: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
8236: THEN
8237: RAISE FND_API.G_EXC_ERROR;
8238: END IF;
8239:
8240: ELSE
8241:
8272: ,p_attribute5 => to_char(p_start_date));
8273: END IF;
8274:
8275: CLOSE l_resource_assignment_csr;
8276: RAISE FND_API.G_EXC_ERROR;
8277:
8278: END IF;
8279:
8280: CLOSE l_resource_assignment_csr;
8306: ,p_attribute5 => to_char(p_start_date));
8307: END IF;
8308:
8309: CLOSE l_budget_periods_csr;
8310: RAISE FND_API.G_EXC_ERROR;
8311: END IF;
8312: CLOSE l_budget_periods_csr;
8313:
8314: ELSIF p_start_date IS NOT NULL
8341: ,p_attribute5 => '');
8342: END IF;
8343:
8344: CLOSE l_start_date_csr;
8345: RAISE FND_API.G_EXC_ERROR;
8346: END IF;
8347:
8348: CLOSE l_start_date_csr;
8349:
8569: ,p_attribute5 => to_char(l_start_date));
8570: END IF;
8571:
8572: CLOSE l_budget_line_rowid_csr;
8573: RAISE FND_API.G_EXC_ERROR;
8574:
8575: END IF;
8576:
8577: --Loop for deleting budget lines begins
8608: END IF;
8609:
8610: CLOSE l_budget_line_rowid_csr;
8611:
8612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8613: END;
8614:
8615: ELSIF l_fin_plan_type_id IS NOT NULL --new FINPLAN model
8616: THEN
8695: END IF;
8696:
8697: END IF;
8698:
8699: RAISE FND_API.G_EXC_ERROR;
8700:
8701: ELSIF l_err_code < 0
8702: THEN
8703:
8710: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
8711:
8712: END IF;
8713:
8714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8715:
8716: END IF;
8717:
8718: ELSIF l_fin_plan_type_id IS NOT NULL --new FINPLAN model
8731: ,x_return_status => p_return_status
8732: ,x_msg_count => p_msg_count
8733: ,x_msg_data => p_msg_data);
8734:
8735: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8736: -- Error message is not added here as the api lock_unlock_version
8737: -- adds the message to stack
8738: IF(l_debug_mode='Y') THEN
8739: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
8738: IF(l_debug_mode='Y') THEN
8739: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
8740: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8741: END IF;
8742: RAISE FND_API.G_EXC_ERROR;
8743: END IF;
8744:
8745: --Call PA_FP_CALC_PLAN_PKG.calculate api to delete the budget line(s)
8746: /* Added the following code for Bug# 5998035 */
8754: ,x_return_status => p_return_status
8755: ,x_msg_count => p_msg_count
8756: ,x_msg_data => p_msg_data
8757: );
8758: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8759: IF(l_debug_mode='Y') THEN
8760: pa_debug.g_err_stage := 'PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions API has thrown error';
8761: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8762: END IF;
8759: IF(l_debug_mode='Y') THEN
8760: pa_debug.g_err_stage := 'PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions API has thrown error';
8761: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8762: END IF;
8763: RAISE FND_API.G_EXC_ERROR;
8764: END IF;
8765: /* End of code for Bug# 5998035 */
8766: ELSE
8767: PA_FP_CALC_PLAN_PKG.calculate
8779: ,x_msg_count => p_msg_count
8780: ,x_msg_data => p_msg_data );
8781: END IF;
8782:
8783: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8784: IF(l_debug_mode='Y') THEN
8785: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PKG.calculate API has thrown error';
8786: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8787: END IF;
8784: IF(l_debug_mode='Y') THEN
8785: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PKG.calculate API has thrown error';
8786: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8787: END IF;
8788: RAISE FND_API.G_EXC_ERROR;
8789: END IF;
8790:
8791: --unlock the budget version after deleting the budget line
8792: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
8801: ,x_return_status => p_return_status
8802: ,x_msg_count => p_msg_count
8803: ,x_msg_data => p_msg_data);
8804:
8805: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8806: -- Error message is not added here as the api lock_unlock_version
8807: -- adds the message to stack
8808: IF(l_debug_mode='Y') THEN
8809: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
8808: IF(l_debug_mode='Y') THEN
8809: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
8810: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8811: END IF;
8812: RAISE FND_API.G_EXC_ERROR;
8813: END IF;
8814:
8815: END IF;--end of code to delete budget line
8816:
8813: END IF;
8814:
8815: END IF;--end of code to delete budget line
8816:
8817: IF fnd_api.to_boolean(p_commit)
8818: THEN
8819: COMMIT;
8820: END IF;
8821:
8830: THEN
8831:
8832: ROLLBACK TO delete_budget_line_pub;
8833:
8834: p_return_status := FND_API.G_RET_STS_ERROR;
8835: l_msg_count := FND_MSG_PUB.count_msg;
8836:
8837: IF l_msg_count = 1 and p_msg_data IS NULL THEN
8838: PA_INTERFACE_UTILS_PUB.get_messages
8835: l_msg_count := FND_MSG_PUB.count_msg;
8836:
8837: IF l_msg_count = 1 and p_msg_data IS NULL THEN
8838: PA_INTERFACE_UTILS_PUB.get_messages
8839: (p_encoded => FND_API.G_TRUE
8840: ,p_msg_index => 1
8841: ,p_msg_count => l_msg_count
8842: ,p_msg_data => l_msg_data
8843: ,p_data => l_data
8854:
8855: RETURN;
8856:
8857:
8858: WHEN FND_API.G_EXC_ERROR
8859: THEN
8860:
8861: ROLLBACK TO delete_budget_line_pub;
8862:
8859: THEN
8860:
8861: ROLLBACK TO delete_budget_line_pub;
8862:
8863: p_return_status := FND_API.G_RET_STS_ERROR;
8864:
8865: FND_MSG_PUB.Count_And_Get
8866: ( p_count => p_msg_count ,
8867: p_data => p_msg_data );
8870: pa_debug.reset_curr_function;
8871: END IF;
8872:
8873:
8874: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8875: THEN
8876:
8877: ROLLBACK TO delete_budget_line_pub;
8878:
8875: THEN
8876:
8877: ROLLBACK TO delete_budget_line_pub;
8878:
8879: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8880:
8881: FND_MSG_PUB.Count_And_Get
8882: ( p_count => p_msg_count ,
8883: p_data => p_msg_data );
8890: WHEN ROW_ALREADY_LOCKED
8891: THEN
8892: ROLLBACK TO delete_budget_line_pub;
8893:
8894: p_return_status := FND_API.G_RET_STS_ERROR;
8895:
8896: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
8897: THEN
8898: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
8917: WHEN OTHERS THEN
8918:
8919: ROLLBACK TO delete_budget_line_pub;
8920:
8921: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8922:
8923: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8924: THEN
8925: FND_MSG_PUB.add_exc_msg
8960: -- 26-APR-2005 Bug 4224464. Changed the procedure update_budget to support finplan model.
8961:
8962: PROCEDURE update_budget
8963: ( p_api_version_number IN NUMBER
8964: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8965: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8966: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
8967: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
8968: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
8961:
8962: PROCEDURE update_budget
8963: ( p_api_version_number IN NUMBER
8964: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8965: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8966: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
8967: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
8968: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
8969: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
9637: ,x_msg_count => p_msg_count
9638: ,x_msg_data => p_msg_data
9639: ,x_return_status => p_return_status );
9640:
9641: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9642: IF(l_debug_mode='Y') THEN
9643: pa_debug.g_err_stage := 'validate header info API falied';
9644: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9645: END IF;
9715: x_msg_count => l_msg_count,
9716: x_msg_data => l_msg_data) ;
9717:
9718:
9719: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9720:
9721: IF l_debug_mode = 'Y' THEN
9722: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
9723: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,5);
9763: ,x_message_count => l_msg_count
9764: ,x_return_status => x_return_status
9765: ,x_message_data => l_msg_data) ;
9766:
9767: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9768: THEN
9769: -- RAISE FND_API.G_EXC_ERROR;
9770: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9771: END IF;
9765: ,x_message_data => l_msg_data) ;
9766:
9767: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9768: THEN
9769: -- RAISE FND_API.G_EXC_ERROR;
9770: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9771: END IF;
9772: END IF; -- BUDGET_TYPE_CODE IS NULL FOR FINPLAN MODEL. */
9773: /*Commenting ends for bug 6408139 */
9805: ,x_message_count => l_msg_count
9806: ,x_return_status => x_return_status
9807: ,x_message_data => l_msg_data) ;
9808:
9809: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9810: THEN
9811: -- RAISE FND_API.G_EXC_ERROR;
9812: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9813: END IF;
9807: ,x_message_data => l_msg_data) ;
9808:
9809: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9810: THEN
9811: -- RAISE FND_API.G_EXC_ERROR;
9812: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9813: END IF;
9814:
9815: END IF ; -- Getting plan flags only when all are passed as G_PA_MISS_CHAR
9863: ,p_attribute4 => ''
9864: ,p_attribute5 => '');
9865: END IF;
9866:
9867: RAISE FND_API.G_EXC_ERROR;
9868: END IF;
9869:
9870: CLOSE l_budget_change_reason_csr;
9871:
10233: ,p_attribute3 => ''
10234: ,p_attribute4 => ''
10235: ,p_attribute5 => '');
10236: END IF;
10237: RAISE FND_API.G_EXC_ERROR;
10238: END IF;
10239:
10240: /*End of code for Bug 6417360*/
10241:
10291: ,x_return_status => x_return_status
10292: ,x_msg_count => l_msg_count
10293: ,x_msg_data => l_msg_data );
10294:
10295: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10296: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10297: END IF;
10298:
10299: -- Further processing is required only if the version to be updated is not the current working verion
10314: x_return_status => x_return_status,
10315: x_msg_count => l_msg_count,
10316: x_msg_data => l_msg_data) ;
10317:
10318: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
10319:
10320: IF l_debug_mode = 'Y' THEN
10321: pa_debug.g_err_stage := 'Error executing lock unlock version';
10322: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10343: x_return_status => x_return_status,
10344: x_msg_count => l_msg_count,
10345: x_msg_data => l_msg_data);
10346:
10347: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10348: IF l_debug_mode= 'Y' THEN
10349: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
10350: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
10351: END IF;
10717: ,x_msg_count => p_msg_count
10718: ,x_msg_data => p_msg_data
10719: ,x_return_status => p_return_status);
10720:
10721: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN -- 3453650
10722: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10723: END IF;
10724:
10725: ELSE --l_budget_type_code IS NOT NULL
10773: ,x_msg_count => p_msg_count
10774: ,x_msg_data => p_msg_data
10775: ,x_return_status => p_return_status);
10776:
10777: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10778: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10779: END IF;
10780: END IF; --l_budget_type_code IS NOT NULL
10781:
10900: x_return_status => p_return_status,
10901: x_msg_count => p_msg_count,
10902: x_msg_data => p_msg_data);
10903:
10904: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10905: IF l_debug_mode = 'Y' THEN
10906: pa_debug.g_err_stage:= 'valid_rate_type returned error';
10907: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10908: END IF;
10933: ,x_return_status => p_return_status
10934: ,x_msg_count => p_msg_count
10935: ,x_msg_data => p_msg_data);
10936:
10937: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10938: p_return_status:=FND_API.G_RET_STS_ERROR;
10939: IF l_debug_mode = 'Y' THEN
10940: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
10941: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10934: ,x_msg_count => p_msg_count
10935: ,x_msg_data => p_msg_data);
10936:
10937: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10938: p_return_status:=FND_API.G_RET_STS_ERROR;
10939: IF l_debug_mode = 'Y' THEN
10940: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
10941: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10942: END IF;
10995:
10996: --dbms_output.put_line('In budget lines LOOP');
10997:
10998: --initialize return status for budget line to success
10999: p_budget_lines_out(l_budget_line_index).return_status := FND_API.G_RET_STS_SUCCESS;
11000:
11001: /*Note carefully that we should be using l_budget_lines_in for all the processing going fwd. This l_budgte_lines_in table is an
11002: *.output parameter of vallidate_budget_lines(this call to validate_budget_lines has been made before this point in code). */
11003: l_budget_line_in_rec := l_budget_lines_in(l_budget_line_index);--p_budget_lines_in(l_budget_line_index);
11029: ,p_attribute5 => '');
11030: END IF;
11031:
11032: CLOSE l_budget_periods_csr;
11033: p_budget_lines_out(l_budget_line_index).return_status := FND_API.G_RET_STS_ERROR;
11034: p_multiple_task_msg := 'F';
11035:
11036:
11037: END IF;
11059: ,p_attribute4 => ''
11060: ,p_attribute5 => '');
11061: END IF;
11062:
11063: p_budget_lines_out(l_budget_line_index).return_status := FND_API.G_RET_STS_ERROR;
11064: p_multiple_task_msg := 'F';
11065: -- RAISE FND_API.G_EXC_ERROR;
11066:
11067: END IF;
11061: END IF;
11062:
11063: p_budget_lines_out(l_budget_line_index).return_status := FND_API.G_RET_STS_ERROR;
11064: p_multiple_task_msg := 'F';
11065: -- RAISE FND_API.G_EXC_ERROR;
11066:
11067: END IF;
11068:
11069:
11107: ,p_attribute4 => ''
11108: ,p_attribute5 => to_char(l_budget_start_date));
11109: END IF;
11110: p_multiple_task_msg := 'F';
11111: -- RAISE FND_API.G_EXC_ERROR;
11112: END IF;
11113:
11114: l_resource_list_member_id := l_uncategorized_rlmid;
11115: l_budget_alias := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
11129: ,p_resource_list_member_id =>l_budget_line_in_rec.resource_list_member_id
11130: ,p_out_resource_list_member_id => l_resource_list_member_id
11131: ,p_return_status => l_return_status );
11132:
11133: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11134: p_budget_lines_out(l_budget_line_index).return_status :=
11135: l_return_status;
11136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11137: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11132:
11133: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11134: p_budget_lines_out(l_budget_line_index).return_status :=
11135: l_return_status;
11136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11137: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11138: p_budget_lines_out(l_budget_line_index).return_status :=
11139: l_return_status;
11140: p_multiple_task_msg := 'F';
11133: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11134: p_budget_lines_out(l_budget_line_index).return_status :=
11135: l_return_status;
11136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11137: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11138: p_budget_lines_out(l_budget_line_index).return_status :=
11139: l_return_status;
11140: p_multiple_task_msg := 'F';
11141: -- RAISE FND_API.G_EXC_ERROR;
11137: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11138: p_budget_lines_out(l_budget_line_index).return_status :=
11139: l_return_status;
11140: p_multiple_task_msg := 'F';
11141: -- RAISE FND_API.G_EXC_ERROR;
11142: END IF;
11143: l_budget_alias := l_budget_line_in_rec.resource_alias;
11144: END IF; -- If l_budget_line_in_rec.resource_alias <>
11145: END IF; -- If l_categorization_code = 'N'
11156: p_pa_task_id => l_budget_line_in_rec.pa_task_id,
11157: p_pm_task_reference => l_budget_line_in_rec.pm_task_reference,
11158: p_out_task_id => l_task_id,
11159: p_return_status => l_return_status );
11160: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11161: p_budget_lines_out(l_budget_line_index).return_status :=
11162: l_return_status;
11163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11164: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11159: p_return_status => l_return_status );
11160: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11161: p_budget_lines_out(l_budget_line_index).return_status :=
11162: l_return_status;
11163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11164: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11165: p_budget_lines_out(l_budget_line_index).return_status :=
11166: l_return_status;
11167: p_multiple_task_msg := 'F';
11160: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11161: p_budget_lines_out(l_budget_line_index).return_status :=
11162: l_return_status;
11163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11164: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11165: p_budget_lines_out(l_budget_line_index).return_status :=
11166: l_return_status;
11167: p_multiple_task_msg := 'F';
11168: -- RAISE FND_API.G_EXC_ERROR;
11164: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11165: p_budget_lines_out(l_budget_line_index).return_status :=
11166: l_return_status;
11167: p_multiple_task_msg := 'F';
11168: -- RAISE FND_API.G_EXC_ERROR;
11169: END IF;
11170: END IF;
11171:
11172: ELSE -- Bug 3453650 budget_type_code is not null
11233: ,p_resource_list_member_id => l_budget_line_in_rec.resource_list_member_id
11234: ,p_out_resource_list_member_id => l_resource_list_member_id -- 3453650
11235: ,p_return_status => x_return_status );
11236:
11237: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11238: p_budget_lines_out(l_budget_line_index).return_status := x_return_status;
11239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11240: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11241: p_budget_lines_out(l_budget_line_index).return_status :=
11235: ,p_return_status => x_return_status );
11236:
11237: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11238: p_budget_lines_out(l_budget_line_index).return_status := x_return_status;
11239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11240: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11241: p_budget_lines_out(l_budget_line_index).return_status :=
11242: x_return_status;
11243: p_multiple_task_msg := 'F';
11236:
11237: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11238: p_budget_lines_out(l_budget_line_index).return_status := x_return_status;
11239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11240: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11241: p_budget_lines_out(l_budget_line_index).return_status :=
11242: x_return_status;
11243: p_multiple_task_msg := 'F';
11244: END IF;
11256: p_pa_task_id => l_budget_line_in_rec.pa_task_id,
11257: p_pm_task_reference => l_budget_line_in_rec.pm_task_reference,
11258: p_out_task_id => l_task_id,
11259: p_return_status => l_return_status );
11260: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11261: p_budget_lines_out(l_budget_line_index).return_status :=
11262: l_return_status;
11263: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11264: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11259: p_return_status => l_return_status );
11260: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11261: p_budget_lines_out(l_budget_line_index).return_status :=
11262: l_return_status;
11263: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11264: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11265: p_budget_lines_out(l_budget_line_index).return_status :=
11266: l_return_status;
11267: p_multiple_task_msg := 'F';
11260: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11261: p_budget_lines_out(l_budget_line_index).return_status :=
11262: l_return_status;
11263: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11264: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11265: p_budget_lines_out(l_budget_line_index).return_status :=
11266: l_return_status;
11267: p_multiple_task_msg := 'F';
11268:
11376: ,p_categorization_code => l_categorization_code
11377: ,p_budget_version_id => l_budget_version_id
11378: ,p_change_reason_code => l_budget_line_in_rec.change_reason_code );
11379:
11380: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11381: THEN
11382: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11384:
11379:
11380: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11381: THEN
11382: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11384:
11385: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11386: THEN
11387: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11381: THEN
11382: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11384:
11385: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11386: THEN
11387: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11388: p_multiple_task_msg := 'F';
11389: END IF;
11398: * present in l_budget_lines. So we cant use l_budget_lines in making the comparision again*/
11399: IF p_budget_lines_in(l_budget_line_index).raw_cost = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11400: l_budget_line_in_rec.raw_cost := NULL;
11401: ELSIF(p_budget_lines_in(l_budget_line_index).raw_cost is null) THEN
11402: l_budget_line_in_rec.raw_cost := FND_API.G_MISS_NUM;
11403: ELSE
11404: l_budget_line_in_rec.raw_cost := l_budget_line_in_rec.raw_cost;
11405: END IF;
11406:
11406:
11407: IF p_budget_lines_in(l_budget_line_index).burdened_cost = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11408: l_budget_line_in_rec.burdened_cost := NULL;
11409: ELSIF(p_budget_lines_in(l_budget_line_index).burdened_cost is null) THEN
11410: l_budget_line_in_rec.burdened_cost := FND_API.G_MISS_NUM;
11411: ELSE
11412: l_budget_line_in_rec.burdened_cost := l_budget_line_in_rec.burdened_cost;
11413: END IF;
11414:
11414:
11415: IF p_budget_lines_in(l_budget_line_index).revenue = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11416: l_budget_line_in_rec.revenue := NULL;
11417: ELSIF(p_budget_lines_in(l_budget_line_index).revenue is null) THEN
11418: l_budget_line_in_rec.revenue := FND_API.G_MISS_NUM;
11419: ELSE
11420: l_budget_line_in_rec.revenue := l_budget_line_in_rec.revenue;
11421: END IF;
11422:
11422:
11423: IF p_budget_lines_in(l_budget_line_index).quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11424: l_budget_line_in_rec.quantity := NULL;
11425: ELSIF(p_budget_lines_in(l_budget_line_index).quantity is null) THEN
11426: l_budget_line_in_rec.quantity := FND_API.G_MISS_NUM;
11427: ELSE
11428: l_budget_line_in_rec.quantity := l_budget_line_in_rec.quantity;
11429: END IF;
11430:
11430:
11431: IF p_budget_lines_in(l_budget_line_index).change_reason_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11432: l_budget_line_in_rec.change_reason_code :=NULL;
11433: ELSIF(p_budget_lines_in(l_budget_line_index).change_reason_code is null) THEN
11434: l_budget_line_in_rec.change_reason_code := FND_API.G_MISS_CHAR;
11435: ELSE
11436: l_budget_line_in_rec.change_reason_code := l_budget_line_in_rec.change_reason_code ;
11437: END IF;
11438:
11438:
11439: IF p_budget_lines_in(l_budget_line_index).description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11440: l_budget_line_in_rec.description := NULL;
11441: ELSIF(p_budget_lines_in(l_budget_line_index).description is null) THEN
11442: l_budget_line_in_rec.description := FND_API.G_MISS_CHAR;
11443: ELSE
11444: l_budget_line_in_rec.description := l_budget_line_in_rec.description;
11445: END IF;
11446:
11446:
11447: IF p_budget_lines_in(l_budget_line_index).attribute_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11448: l_budget_line_in_rec.attribute_category := NULL;
11449: ELSIF(p_budget_lines_in(l_budget_line_index).attribute_category is null) THEN
11450: l_budget_line_in_rec.attribute_category := FND_API.G_MISS_CHAR;
11451: ELSE
11452: l_budget_line_in_rec.attribute_category := l_budget_line_in_rec.attribute_category;
11453: END IF;
11454:
11454:
11455: IF p_budget_lines_in(l_budget_line_index).attribute1 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11456: l_budget_line_in_rec.attribute1 := NULL;
11457: ELSIF(p_budget_lines_in(l_budget_line_index).attribute1 is null) THEN
11458: l_budget_line_in_rec.attribute1 := FND_API.G_MISS_CHAR;
11459: ELSE
11460: l_budget_line_in_rec.attribute1 := l_budget_line_in_rec.attribute1;
11461: END IF;
11462:
11462:
11463: IF p_budget_lines_in(l_budget_line_index).attribute2 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11464: l_budget_line_in_rec.attribute2 := NULL;
11465: ELSIF(p_budget_lines_in(l_budget_line_index).attribute2 is null) THEN
11466: l_budget_line_in_rec.attribute2 := FND_API.G_MISS_CHAR;
11467: ELSE
11468: l_budget_line_in_rec.attribute2 := l_budget_line_in_rec.attribute2;
11469: END IF;
11470:
11470:
11471: IF p_budget_lines_in(l_budget_line_index).attribute3 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11472: l_budget_line_in_rec.attribute3 := NULL;
11473: ELSIF(p_budget_lines_in(l_budget_line_index).attribute3 is null) THEN
11474: l_budget_line_in_rec.attribute3 := FND_API.G_MISS_CHAR;
11475: ELSE
11476: l_budget_line_in_rec.attribute3 := l_budget_line_in_rec.attribute3;
11477: END IF;
11478:
11478:
11479: IF p_budget_lines_in(l_budget_line_index).attribute4 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11480: l_budget_line_in_rec.attribute4 := NULL;
11481: ELSIF(p_budget_lines_in(l_budget_line_index).attribute4 is null) THEN
11482: l_budget_line_in_rec.attribute4 := FND_API.G_MISS_CHAR;
11483: ELSE
11484: l_budget_line_in_rec.attribute4 := l_budget_line_in_rec.attribute4;
11485: END IF;
11486:
11486:
11487: IF p_budget_lines_in(l_budget_line_index).attribute5 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11488: l_budget_line_in_rec.attribute5 := NULL;
11489: ELSIF(p_budget_lines_in(l_budget_line_index).attribute5 is null) THEN
11490: l_budget_line_in_rec.attribute5 := FND_API.G_MISS_CHAR;
11491: ELSE
11492: l_budget_line_in_rec.attribute5 := l_budget_line_in_rec.attribute5;
11493: END IF;
11494:
11494:
11495: IF p_budget_lines_in(l_budget_line_index).attribute6 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11496: l_budget_line_in_rec.attribute6 := NULL;
11497: ELSIF(p_budget_lines_in(l_budget_line_index).attribute6 is null) THEN
11498: l_budget_line_in_rec.attribute6 := FND_API.G_MISS_CHAR;
11499: ELSE
11500: l_budget_line_in_rec.attribute6 := l_budget_line_in_rec.attribute6;
11501: END IF;
11502:
11502:
11503: IF p_budget_lines_in(l_budget_line_index).attribute7 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11504: l_budget_line_in_rec.attribute7 := NULL;
11505: ELSIF(p_budget_lines_in(l_budget_line_index).attribute7 is null) THEN
11506: l_budget_line_in_rec.attribute7 := FND_API.G_MISS_CHAR;
11507: ELSE
11508: l_budget_line_in_rec.attribute7 := l_budget_line_in_rec.attribute7;
11509: END IF;
11510:
11510:
11511: IF p_budget_lines_in(l_budget_line_index).attribute8 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11512: l_budget_line_in_rec.attribute8 := NULL;
11513: ELSIF(p_budget_lines_in(l_budget_line_index).attribute8 is null) THEN
11514: l_budget_line_in_rec.attribute8 := FND_API.G_MISS_CHAR;
11515: ELSE
11516: l_budget_line_in_rec.attribute8 := l_budget_line_in_rec.attribute8;
11517: END IF;
11518:
11518:
11519: IF p_budget_lines_in(l_budget_line_index).attribute9 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11520: l_budget_line_in_rec.attribute9 := NULL;
11521: ELSIF(p_budget_lines_in(l_budget_line_index).attribute9 is null) THEN
11522: l_budget_line_in_rec.attribute9 := FND_API.G_MISS_CHAR;
11523: ELSE
11524: l_budget_line_in_rec.attribute9 := l_budget_line_in_rec.attribute9;
11525: END IF;
11526:
11526:
11527: IF p_budget_lines_in(l_budget_line_index).attribute10 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11528: l_budget_line_in_rec.attribute10 := NULL;
11529: ELSIF(p_budget_lines_in(l_budget_line_index).attribute10 is null) THEN
11530: l_budget_line_in_rec.attribute10 := FND_API.G_MISS_CHAR;
11531: ELSE
11532: l_budget_line_in_rec.attribute10 := l_budget_line_in_rec.attribute10;
11533: END IF;
11534:
11534:
11535: IF p_budget_lines_in(l_budget_line_index).attribute11 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11536: l_budget_line_in_rec.attribute11 := NULL;
11537: ELSIF(p_budget_lines_in(l_budget_line_index).attribute11 is null) THEN
11538: l_budget_line_in_rec.attribute11 := FND_API.G_MISS_CHAR;
11539: ELSE
11540: l_budget_line_in_rec.attribute11 := l_budget_line_in_rec.attribute11;
11541: END IF;
11542:
11542:
11543: IF p_budget_lines_in(l_budget_line_index).attribute12 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11544: l_budget_line_in_rec.attribute12 := NULL;
11545: ELSIF(p_budget_lines_in(l_budget_line_index).attribute12 is null) THEN
11546: l_budget_line_in_rec.attribute12 := FND_API.G_MISS_CHAR;
11547: ELSE
11548: l_budget_line_in_rec.attribute12 := l_budget_line_in_rec.attribute12;
11549: END IF;
11550:
11550:
11551: IF p_budget_lines_in(l_budget_line_index).attribute13 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11552: l_budget_line_in_rec.attribute13 := NULL;
11553: ELSIF(p_budget_lines_in(l_budget_line_index).attribute13 is null) THEN
11554: l_budget_line_in_rec.attribute13 := FND_API.G_MISS_CHAR;
11555: ELSE
11556: l_budget_line_in_rec.attribute13 := l_budget_line_in_rec.attribute13;
11557: END IF;
11558:
11558:
11559: IF p_budget_lines_in(l_budget_line_index).attribute14 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11560: l_budget_line_in_rec.attribute14 := NULL;
11561: ELSIF(p_budget_lines_in(l_budget_line_index).attribute14 is null) THEN
11562: l_budget_line_in_rec.attribute14 := FND_API.G_MISS_CHAR;
11563: ELSE
11564: l_budget_line_in_rec.attribute14 := l_budget_line_in_rec.attribute14;
11565: END IF;
11566:
11566:
11567: IF p_budget_lines_in(l_budget_line_index).attribute15 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11568: l_budget_line_in_rec.attribute15 := NULL;
11569: ELSIF(p_budget_lines_in(l_budget_line_index).attribute15 is null) THEN
11570: l_budget_line_in_rec.attribute15 := FND_API.G_MISS_CHAR;
11571: ELSE
11572: l_budget_line_in_rec.attribute15 := l_budget_line_in_rec.attribute15;
11573: END IF;
11574:
11602: ,p_attribute14 => l_budget_line_in_rec.attribute14
11603: ,p_attribute15 => l_budget_line_in_rec.attribute15
11604: );
11605:
11606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11607: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11609:
11610: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11604: );
11605:
11606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11607: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11609:
11610: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11611: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11612: p_multiple_task_msg := 'F';
11606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11607: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11609:
11610: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11611: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11612: p_multiple_task_msg := 'F';
11613:
11614: END IF; -- l_return_status = FND_API.G_RET_STS_UNE
11610: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11611: p_budget_lines_out(l_budget_line_index).return_status := l_return_status;
11612: p_multiple_task_msg := 'F';
11613:
11614: END IF; -- l_return_status = FND_API.G_RET_STS_UNE
11615:
11616: END IF; -- End for the condition : (l_dummy <> 'X' OR l_dummy IS NULL) OR
11617:
11618: ELSE -- l_budget_type_code IS NOT NULL (Inserting lines for the finplan model)
11687: * present in l_budget_lines. So we cant use l_budget_lines in making the comparision again*/
11688: IF p_budget_lines_in(i).raw_cost = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11689: l_finplan_lines_tab(j).txn_raw_cost := NULL;
11690: ELSIF(p_budget_lines_in(i).raw_cost is null) THEN
11691: l_finplan_lines_tab(j).txn_raw_cost := FND_API.G_MISS_NUM;
11692: ELSE
11693: l_finplan_lines_tab(j).txn_raw_cost := l_budget_lines_in(i).raw_cost;
11694: END IF;
11695:
11695:
11696: IF p_budget_lines_in(i).burdened_cost = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11697: l_finplan_lines_tab(j).txn_burdened_cost := NULL;
11698: ELSIF(p_budget_lines_in(i).burdened_cost is null) THEN
11699: l_finplan_lines_tab(j).txn_burdened_cost := FND_API.G_MISS_NUM;
11700: ELSE
11701: l_finplan_lines_tab(j).txn_burdened_cost := l_budget_lines_in(i).burdened_cost;
11702: END IF;
11703:
11703:
11704: IF p_budget_lines_in(i).revenue = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11705: l_finplan_lines_tab(j).txn_revenue := NULL;
11706: ELSIF(p_budget_lines_in(i).revenue is null) THEN
11707: l_finplan_lines_tab(j).txn_revenue := FND_API.G_MISS_NUM;
11708: ELSE
11709: l_finplan_lines_tab(j).txn_revenue := l_budget_lines_in(i).revenue;
11710: END IF;
11711:
11711:
11712: IF p_budget_lines_in(i).quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11713: l_finplan_lines_tab(j).quantity := NULL;
11714: ELSIF(p_budget_lines_in(i).quantity is null) THEN
11715: l_finplan_lines_tab(j).quantity := FND_API.G_MISS_NUM;
11716: ELSE
11717: l_finplan_lines_tab(j).quantity := l_budget_lines_in(i).quantity;
11718: END IF;
11719:
11719:
11720: IF p_budget_lines_in(i).change_reason_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11721: l_finplan_lines_tab(j).change_reason_code :=NULL;
11722: ELSIF(p_budget_lines_in(i).change_reason_code is null) THEN
11723: l_finplan_lines_tab(j).change_reason_code := FND_API.G_MISS_CHAR;
11724: ELSE
11725: l_finplan_lines_tab(j).change_reason_code := l_budget_lines_in(i).change_reason_code ;
11726: END IF;
11727:
11727:
11728: IF p_budget_lines_in(i).description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11729: l_finplan_lines_tab(j).description := NULL;
11730: ELSIF(p_budget_lines_in(i).description is null) THEN
11731: l_finplan_lines_tab(j).description := FND_API.G_MISS_CHAR;
11732: ELSE
11733: l_finplan_lines_tab(j).description := l_budget_lines_in(i).description;
11734: END IF;
11735:
11735:
11736: IF p_budget_lines_in(i).attribute_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11737: l_finplan_lines_tab(j).attribute_category := NULL;
11738: ELSIF(p_budget_lines_in(i).attribute_category is null) THEN
11739: l_finplan_lines_tab(j).attribute_category := FND_API.G_MISS_CHAR;
11740: ELSE
11741: l_finplan_lines_tab(j).attribute_category := l_budget_lines_in(i).attribute_category;
11742: END IF;
11743:
11743:
11744: IF p_budget_lines_in(i).attribute1 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11745: l_finplan_lines_tab(j).attribute1 := NULL;
11746: ELSIF(p_budget_lines_in(i).attribute1 is null) THEN
11747: l_finplan_lines_tab(j).attribute1 := FND_API.G_MISS_CHAR;
11748: ELSE
11749: l_finplan_lines_tab(j).attribute1 := l_budget_lines_in(i).attribute1;
11750: END IF;
11751:
11751:
11752: IF p_budget_lines_in(i).attribute2 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11753: l_finplan_lines_tab(j).attribute2 := NULL;
11754: ELSIF(p_budget_lines_in(i).attribute2 is null) THEN
11755: l_finplan_lines_tab(j).attribute2 := FND_API.G_MISS_CHAR;
11756: ELSE
11757: l_finplan_lines_tab(j).attribute2 := l_budget_lines_in(i).attribute2;
11758: END IF;
11759:
11759:
11760: IF p_budget_lines_in(i).attribute3 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11761: l_finplan_lines_tab(j).attribute3 := NULL;
11762: ELSIF(p_budget_lines_in(i).attribute3 is null) THEN
11763: l_finplan_lines_tab(j).attribute3 := FND_API.G_MISS_CHAR;
11764: ELSE
11765: l_finplan_lines_tab(j).attribute3 := l_budget_lines_in(i).attribute3;
11766: END IF;
11767:
11767:
11768: IF p_budget_lines_in(i).attribute4 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11769: l_finplan_lines_tab(j).attribute4 := NULL;
11770: ELSIF(p_budget_lines_in(i).attribute4 is null) THEN
11771: l_finplan_lines_tab(j).attribute4 := FND_API.G_MISS_CHAR;
11772: ELSE
11773: l_finplan_lines_tab(j).attribute4 := l_budget_lines_in(i).attribute4;
11774: END IF;
11775:
11775:
11776: IF p_budget_lines_in(i).attribute5 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11777: l_finplan_lines_tab(j).attribute5 := NULL;
11778: ELSIF(p_budget_lines_in(i).attribute5 is null) THEN
11779: l_finplan_lines_tab(j).attribute5 := FND_API.G_MISS_CHAR;
11780: ELSE
11781: l_finplan_lines_tab(j).attribute5 := l_budget_lines_in(i).attribute5;
11782: END IF;
11783:
11783:
11784: IF p_budget_lines_in(i).attribute6 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11785: l_finplan_lines_tab(j).attribute6 := NULL;
11786: ELSIF(p_budget_lines_in(i).attribute6 is null) THEN
11787: l_finplan_lines_tab(j).attribute6 := FND_API.G_MISS_CHAR;
11788: ELSE
11789: l_finplan_lines_tab(j).attribute6 := l_budget_lines_in(i).attribute6;
11790: END IF;
11791:
11791:
11792: IF p_budget_lines_in(i).attribute7 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11793: l_finplan_lines_tab(j).attribute7 := NULL;
11794: ELSIF(p_budget_lines_in(i).attribute7 is null) THEN
11795: l_finplan_lines_tab(j).attribute7 := FND_API.G_MISS_CHAR;
11796: ELSE
11797: l_finplan_lines_tab(j).attribute7 := l_budget_lines_in(i).attribute7;
11798: END IF;
11799:
11799:
11800: IF p_budget_lines_in(i).attribute8 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11801: l_finplan_lines_tab(j).attribute8 := NULL;
11802: ELSIF(p_budget_lines_in(i).attribute8 is null) THEN
11803: l_finplan_lines_tab(j).attribute8 := FND_API.G_MISS_CHAR;
11804: ELSE
11805: l_finplan_lines_tab(j).attribute8 := l_budget_lines_in(i).attribute8;
11806: END IF;
11807:
11807:
11808: IF p_budget_lines_in(i).attribute9 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11809: l_finplan_lines_tab(j).attribute9 := NULL;
11810: ELSIF(p_budget_lines_in(i).attribute9 is null) THEN
11811: l_finplan_lines_tab(j).attribute9 := FND_API.G_MISS_CHAR;
11812: ELSE
11813: l_finplan_lines_tab(j).attribute9 := l_budget_lines_in(i).attribute9;
11814: END IF;
11815:
11815:
11816: IF p_budget_lines_in(i).attribute10 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11817: l_finplan_lines_tab(j).attribute10 := NULL;
11818: ELSIF(p_budget_lines_in(i).attribute10 is null) THEN
11819: l_finplan_lines_tab(j).attribute10 := FND_API.G_MISS_CHAR;
11820: ELSE
11821: l_finplan_lines_tab(j).attribute10 := l_budget_lines_in(i).attribute10;
11822: END IF;
11823:
11823:
11824: IF p_budget_lines_in(i).attribute11 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11825: l_finplan_lines_tab(j).attribute11 := NULL;
11826: ELSIF(p_budget_lines_in(i).attribute11 is null) THEN
11827: l_finplan_lines_tab(j).attribute11 := FND_API.G_MISS_CHAR;
11828: ELSE
11829: l_finplan_lines_tab(j).attribute11 := l_budget_lines_in(i).attribute11;
11830: END IF;
11831:
11831:
11832: IF p_budget_lines_in(i).attribute12 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11833: l_finplan_lines_tab(j).attribute12 := NULL;
11834: ELSIF(p_budget_lines_in(i).attribute12 is null) THEN
11835: l_finplan_lines_tab(j).attribute12 := FND_API.G_MISS_CHAR;
11836: ELSE
11837: l_finplan_lines_tab(j).attribute12 := l_budget_lines_in(i).attribute12;
11838: END IF;
11839:
11839:
11840: IF p_budget_lines_in(i).attribute13 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11841: l_finplan_lines_tab(j).attribute13 := NULL;
11842: ELSIF(p_budget_lines_in(i).attribute13 is null) THEN
11843: l_finplan_lines_tab(j).attribute13 := FND_API.G_MISS_CHAR;
11844: ELSE
11845: l_finplan_lines_tab(j).attribute13 := l_budget_lines_in(i).attribute13;
11846: END IF;
11847:
11847:
11848: IF p_budget_lines_in(i).attribute14 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11849: l_finplan_lines_tab(j).attribute14 := NULL;
11850: ELSIF(p_budget_lines_in(i).attribute14 is null) THEN
11851: l_finplan_lines_tab(j).attribute14 := FND_API.G_MISS_CHAR;
11852: ELSE
11853: l_finplan_lines_tab(j).attribute14 := l_budget_lines_in(i).attribute14;
11854: END IF;
11855:
11855:
11856: IF p_budget_lines_in(i).attribute15 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11857: l_finplan_lines_tab(j).attribute15 := NULL;
11858: ELSIF(p_budget_lines_in(i).attribute15 is null) THEN
11859: l_finplan_lines_tab(j).attribute15 := FND_API.G_MISS_CHAR;
11860: ELSE
11861: l_finplan_lines_tab(j).attribute15 := l_budget_lines_in(i).attribute15;
11862: END IF;
11863:
11863:
11864: IF p_budget_lines_in(i).projfunc_cost_rate_type =PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11865: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_TYPE := NULL;
11866: ELSIF(p_budget_lines_in(i).projfunc_cost_rate_type is null) THEN
11867: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_TYPE := FND_API.G_MISS_CHAR;
11868: ELSE
11869: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_TYPE := l_budget_lines_in(i).projfunc_cost_rate_type;
11870: END IF;
11871:
11871:
11872: IF p_budget_lines_in(i).projfunc_cost_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11873: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE_TYPE := NULL;
11874: ELSIF(p_budget_lines_in(i).projfunc_cost_rate_date_type is null) THEN
11875: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
11876: ELSE
11877: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE_TYPE :=l_budget_lines_in(i).projfunc_cost_rate_date_type;
11878: END IF;
11879:
11879:
11880: IF p_budget_lines_in(i).projfunc_cost_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
11881: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE := NULL;
11882: ELSIF(p_budget_lines_in(i).projfunc_cost_rate_date is null) THEN
11883: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE := FND_API.G_MISS_DATE;
11884: ELSE
11885: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE := l_budget_lines_in(i).projfunc_cost_rate_date ;
11886: END IF;
11887:
11887:
11888: IF p_budget_lines_in(i).projfunc_cost_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11889: l_finplan_lines_tab(j).PROJFUNC_COST_EXCHANGE_RATE := NULL;
11890: ELSIF(p_budget_lines_in(i).projfunc_cost_exchange_rate is null) THEN
11891: l_finplan_lines_tab(j).PROJFUNC_COST_EXCHANGE_RATE := FND_API.G_MISS_NUM;
11892: ELSE
11893: l_finplan_lines_tab(j).PROJFUNC_COST_EXCHANGE_RATE := l_budget_lines_in(i).projfunc_cost_exchange_rate ;
11894: END IF;
11895:
11895:
11896: IF p_budget_lines_in(i).projfunc_rev_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11897: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_TYPE := NULL;
11898: ELSIF(p_budget_lines_in(i).projfunc_rev_rate_type is null) THEN
11899: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_TYPE := FND_API.G_MISS_CHAR;
11900: ELSE
11901: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_TYPE := l_budget_lines_in(i).projfunc_rev_rate_type ;
11902: END IF;
11903:
11903:
11904: IF p_budget_lines_in(i).projfunc_rev_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11905: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE_TYPE := NULL;
11906: ELSIF(p_budget_lines_in(i).projfunc_rev_rate_date_type is null) THEN
11907: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
11908: ELSE
11909: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE_TYPE := l_budget_lines_in(i).projfunc_rev_rate_date_type ;
11910: END IF;
11911:
11911:
11912: IF p_budget_lines_in(i).projfunc_rev_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
11913: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE := NULL;
11914: ELSIF(p_budget_lines_in(i).projfunc_rev_rate_date is null) THEN
11915: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE := FND_API.G_MISS_DATE;
11916: ELSE
11917: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE := l_budget_lines_in(i).projfunc_rev_rate_date;
11918: END IF;
11919:
11919:
11920: IF p_budget_lines_in(i).projfunc_rev_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11921: l_finplan_lines_tab(j).PROJFUNC_REV_EXCHANGE_RATE := NULL;
11922: ELSIF(p_budget_lines_in(i).projfunc_rev_exchange_rate is null) THEN
11923: l_finplan_lines_tab(j).PROJFUNC_REV_EXCHANGE_RATE := FND_API.G_MISS_NUM;
11924: ELSE
11925: l_finplan_lines_tab(j).PROJFUNC_REV_EXCHANGE_RATE := l_budget_lines_in(i).projfunc_rev_exchange_rate ;
11926: END IF;
11927:
11927:
11928: IF p_budget_lines_in(i).project_cost_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11929: l_finplan_lines_tab(j).PROJECT_COST_RATE_TYPE := NULL;
11930: ELSIF(p_budget_lines_in(i).project_cost_rate_type is null) THEN
11931: l_finplan_lines_tab(j).PROJECT_COST_RATE_TYPE := FND_API.G_MISS_CHAR;
11932: ELSE
11933: l_finplan_lines_tab(j).PROJECT_COST_RATE_TYPE := l_budget_lines_in(i).project_cost_rate_type;
11934: END IF;
11935:
11935:
11936: IF p_budget_lines_in(i).project_cost_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11937: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE_TYPE := NULL;
11938: ELSIF(p_budget_lines_in(i).project_cost_rate_date_type is null) THEN
11939: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
11940: ELSE
11941: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE_TYPE := l_budget_lines_in(i).project_cost_rate_date_type ;
11942: END IF;
11943:
11943:
11944: IF p_budget_lines_in(i).project_cost_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
11945: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE := NULL;
11946: ELSIF(p_budget_lines_in(i).project_cost_rate_date is null) THEN
11947: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE := FND_API.G_MISS_DATE;
11948: ELSE
11949: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE := l_budget_lines_in(i).project_cost_rate_date;
11950: END IF;
11951:
11951:
11952: IF p_budget_lines_in(i).project_cost_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11953: l_finplan_lines_tab(j).PROJECT_COST_EXCHANGE_RATE := NULL;
11954: ELSIF(p_budget_lines_in(i).project_cost_exchange_rate is null) THEN
11955: l_finplan_lines_tab(j).PROJECT_COST_EXCHANGE_RATE := FND_API.G_MISS_NUM;
11956: ELSE
11957: l_finplan_lines_tab(j).PROJECT_COST_EXCHANGE_RATE := l_budget_lines_in(i).project_cost_exchange_rate ;
11958: END IF;
11959:
11959:
11960: IF p_budget_lines_in(i).project_rev_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11961: l_finplan_lines_tab(j).PROJECT_REV_RATE_TYPE := NULL;
11962: ELSIF(p_budget_lines_in(i).project_rev_rate_type is null) THEN
11963: l_finplan_lines_tab(j).PROJECT_REV_RATE_TYPE := FND_API.G_MISS_CHAR;
11964: ELSE
11965: l_finplan_lines_tab(j).PROJECT_REV_RATE_TYPE := l_budget_lines_in(i).project_rev_rate_type ;
11966: END IF;
11967:
11967:
11968: IF p_budget_lines_in(i).project_rev_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11969: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE_TYPE := NULL;
11970: ELSIF(p_budget_lines_in(i).project_rev_rate_date_type is null) THEN
11971: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
11972: ELSE
11973: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE_TYPE := l_budget_lines_in(i).project_rev_rate_date_type;
11974: END IF;
11975:
11975:
11976: IF p_budget_lines_in(i).project_rev_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
11977: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE := NULL;
11978: ELSIF(p_budget_lines_in(i).project_rev_rate_date is null) THEN
11979: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE := FND_API.G_MISS_DATE;
11980: ELSE
11981: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE := l_budget_lines_in(i).project_rev_rate_date ;
11982: END IF;
11983:
11983:
11984: IF p_budget_lines_in(i).project_rev_exchange_rate =PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11985: l_finplan_lines_tab(j).PROJECT_REV_EXCHANGE_RATE := NULL;
11986: ELSIF(p_budget_lines_in(i).project_rev_exchange_rate is null) THEN
11987: l_finplan_lines_tab(j).PROJECT_REV_EXCHANGE_RATE := FND_API.G_MISS_NUM;
11988: ELSE
11989: l_finplan_lines_tab(j).PROJECT_REV_EXCHANGE_RATE := l_budget_lines_in(i).project_rev_exchange_rate ;
11990: END IF;
11991:
11991:
11992: IF p_budget_lines_in(i).pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
11993: l_finplan_lines_tab(j).pm_product_code := NULL;
11994: ELSIF(p_budget_lines_in(i).pm_product_code is null) THEN
11995: l_finplan_lines_tab(j).pm_product_code := FND_API.G_MISS_CHAR;
11996: ELSE
11997: l_finplan_lines_tab(j).pm_product_code := l_budget_lines_in(i).pm_product_code ;
11998: END IF;
11999:
11999:
12000: IF p_budget_lines_in(i).pm_budget_line_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12001: l_finplan_lines_tab(j).pm_budget_line_reference := NULL;
12002: ELSIF(p_budget_lines_in(i).pm_budget_line_reference is null) THEN
12003: l_finplan_lines_tab(j).pm_budget_line_reference := FND_API.G_MISS_CHAR;
12004: ELSE
12005: l_finplan_lines_tab(j).pm_budget_line_reference := l_budget_lines_in(i).pm_budget_line_reference ;
12006: END IF;
12007:
12039: * present in l_budget_lines. So we cant use l_budget_lines in making the comparision again*/
12040: IF p_budget_lines_in(l_budget_line_index).raw_cost = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12041: l_finplan_lines_tab(j).txn_raw_cost := NULL;
12042: ELSIF(p_budget_lines_in(l_budget_line_index).raw_cost is null) THEN
12043: l_finplan_lines_tab(j).txn_raw_cost := FND_API.G_MISS_NUM;
12044: ELSE
12045: l_finplan_lines_tab(j).txn_raw_cost := l_budget_line_in_rec.raw_cost;
12046: END IF;
12047:
12047:
12048: IF p_budget_lines_in(l_budget_line_index).burdened_cost = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12049: l_finplan_lines_tab(j).txn_burdened_cost := NULL;
12050: ELSIF(p_budget_lines_in(l_budget_line_index).burdened_cost is null) THEN
12051: l_finplan_lines_tab(j).txn_burdened_cost := FND_API.G_MISS_NUM;
12052: ELSE
12053: l_finplan_lines_tab(j).txn_burdened_cost := l_budget_line_in_rec.burdened_cost;
12054: END IF;
12055:
12055:
12056: IF p_budget_lines_in(l_budget_line_index).revenue = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12057: l_finplan_lines_tab(j).txn_revenue := NULL;
12058: ELSIF(p_budget_lines_in(l_budget_line_index).revenue is null) THEN
12059: l_finplan_lines_tab(j).txn_revenue := FND_API.G_MISS_NUM;
12060: ELSE
12061: l_finplan_lines_tab(j).txn_revenue := l_budget_line_in_rec.revenue;
12062: END IF;
12063:
12063:
12064: IF p_budget_lines_in(l_budget_line_index).quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12065: l_finplan_lines_tab(j).quantity := NULL;
12066: ELSIF(p_budget_lines_in(l_budget_line_index).quantity is null) THEN
12067: l_finplan_lines_tab(j).quantity := FND_API.G_MISS_NUM;
12068: ELSE
12069: l_finplan_lines_tab(j).quantity := l_budget_line_in_rec.quantity;
12070: END IF;
12071:
12071:
12072: IF p_budget_lines_in(l_budget_line_index).change_reason_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12073: l_finplan_lines_tab(j).change_reason_code :=NULL;
12074: ELSIF(p_budget_lines_in(l_budget_line_index).change_reason_code is null) THEN
12075: l_finplan_lines_tab(j).change_reason_code := FND_API.G_MISS_CHAR;
12076: ELSE
12077: l_finplan_lines_tab(j).change_reason_code := l_budget_line_in_rec.change_reason_code ;
12078: END IF;
12079:
12079:
12080: IF p_budget_lines_in(l_budget_line_index).description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12081: l_finplan_lines_tab(j).description := NULL;
12082: ELSIF(p_budget_lines_in(l_budget_line_index).description is null) THEN
12083: l_finplan_lines_tab(j).description := FND_API.G_MISS_CHAR;
12084: ELSE
12085: l_finplan_lines_tab(j).description := l_budget_line_in_rec.description;
12086: END IF;
12087:
12087:
12088: IF p_budget_lines_in(l_budget_line_index).attribute_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12089: l_finplan_lines_tab(j).attribute_category := NULL;
12090: ELSIF(p_budget_lines_in(l_budget_line_index).attribute_category is null) THEN
12091: l_finplan_lines_tab(j).attribute_category := FND_API.G_MISS_CHAR;
12092: ELSE
12093: l_finplan_lines_tab(j).attribute_category := l_budget_line_in_rec.attribute_category;
12094: END IF;
12095:
12095:
12096: IF p_budget_lines_in(l_budget_line_index).attribute1 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12097: l_finplan_lines_tab(j).attribute1 := NULL;
12098: ELSIF(p_budget_lines_in(l_budget_line_index).attribute1 is null) THEN
12099: l_finplan_lines_tab(j).attribute1 := FND_API.G_MISS_CHAR;
12100: ELSE
12101: l_finplan_lines_tab(j).attribute1 := l_budget_line_in_rec.attribute1;
12102: END IF;
12103:
12103:
12104: IF p_budget_lines_in(l_budget_line_index).attribute2 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12105: l_finplan_lines_tab(j).attribute2 := NULL;
12106: ELSIF(p_budget_lines_in(l_budget_line_index).attribute2 is null) THEN
12107: l_finplan_lines_tab(j).attribute2 := FND_API.G_MISS_CHAR;
12108: ELSE
12109: l_finplan_lines_tab(j).attribute2 := l_budget_line_in_rec.attribute2;
12110: END IF;
12111:
12111:
12112: IF p_budget_lines_in(l_budget_line_index).attribute3 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12113: l_finplan_lines_tab(j).attribute3 := NULL;
12114: ELSIF(p_budget_lines_in(l_budget_line_index).attribute3 is null) THEN
12115: l_finplan_lines_tab(j).attribute3 := FND_API.G_MISS_CHAR;
12116: ELSE
12117: l_finplan_lines_tab(j).attribute3 := l_budget_line_in_rec.attribute3;
12118: END IF;
12119:
12119:
12120: IF p_budget_lines_in(l_budget_line_index).attribute4 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12121: l_finplan_lines_tab(j).attribute4 := NULL;
12122: ELSIF(p_budget_lines_in(l_budget_line_index).attribute4 is null) THEN
12123: l_finplan_lines_tab(j).attribute4 := FND_API.G_MISS_CHAR;
12124: ELSE
12125: l_finplan_lines_tab(j).attribute4 := l_budget_line_in_rec.attribute4;
12126: END IF;
12127:
12127:
12128: IF p_budget_lines_in(l_budget_line_index).attribute5 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12129: l_finplan_lines_tab(j).attribute5 := NULL;
12130: ELSIF(p_budget_lines_in(l_budget_line_index).attribute5 is null) THEN
12131: l_finplan_lines_tab(j).attribute5 := FND_API.G_MISS_CHAR;
12132: ELSE
12133: l_finplan_lines_tab(j).attribute5 := l_budget_line_in_rec.attribute5;
12134: END IF;
12135:
12135:
12136: IF p_budget_lines_in(l_budget_line_index).attribute6 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12137: l_finplan_lines_tab(j).attribute6 := NULL;
12138: ELSIF(p_budget_lines_in(l_budget_line_index).attribute6 is null) THEN
12139: l_finplan_lines_tab(j).attribute6 := FND_API.G_MISS_CHAR;
12140: ELSE
12141: l_finplan_lines_tab(j).attribute6 := l_budget_line_in_rec.attribute6;
12142: END IF;
12143:
12143:
12144: IF p_budget_lines_in(l_budget_line_index).attribute7 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12145: l_finplan_lines_tab(j).attribute7 := NULL;
12146: ELSIF(p_budget_lines_in(l_budget_line_index).attribute7 is null) THEN
12147: l_finplan_lines_tab(j).attribute7 := FND_API.G_MISS_CHAR;
12148: ELSE
12149: l_finplan_lines_tab(j).attribute7 := l_budget_line_in_rec.attribute7;
12150: END IF;
12151:
12151:
12152: IF p_budget_lines_in(l_budget_line_index).attribute8 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12153: l_finplan_lines_tab(j).attribute8 := NULL;
12154: ELSIF(p_budget_lines_in(l_budget_line_index).attribute8 is null) THEN
12155: l_finplan_lines_tab(j).attribute8 := FND_API.G_MISS_CHAR;
12156: ELSE
12157: l_finplan_lines_tab(j).attribute8 := l_budget_line_in_rec.attribute8;
12158: END IF;
12159:
12159:
12160: IF p_budget_lines_in(l_budget_line_index).attribute9 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12161: l_finplan_lines_tab(j).attribute9 := NULL;
12162: ELSIF(p_budget_lines_in(l_budget_line_index).attribute9 is null) THEN
12163: l_finplan_lines_tab(j).attribute9 := FND_API.G_MISS_CHAR;
12164: ELSE
12165: l_finplan_lines_tab(j).attribute9 := l_budget_line_in_rec.attribute9;
12166: END IF;
12167:
12167:
12168: IF p_budget_lines_in(l_budget_line_index).attribute10 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12169: l_finplan_lines_tab(j).attribute10 := NULL;
12170: ELSIF(p_budget_lines_in(l_budget_line_index).attribute10 is null) THEN
12171: l_finplan_lines_tab(j).attribute10 := FND_API.G_MISS_CHAR;
12172: ELSE
12173: l_finplan_lines_tab(j).attribute10 := l_budget_line_in_rec.attribute10;
12174: END IF;
12175:
12175:
12176: IF p_budget_lines_in(l_budget_line_index).attribute11 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12177: l_finplan_lines_tab(j).attribute11 := NULL;
12178: ELSIF(p_budget_lines_in(l_budget_line_index).attribute11 is null) THEN
12179: l_finplan_lines_tab(j).attribute11 := FND_API.G_MISS_CHAR;
12180: ELSE
12181: l_finplan_lines_tab(j).attribute11 := l_budget_line_in_rec.attribute11;
12182: END IF;
12183:
12183:
12184: IF p_budget_lines_in(l_budget_line_index).attribute12 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12185: l_finplan_lines_tab(j).attribute12 := NULL;
12186: ELSIF(p_budget_lines_in(l_budget_line_index).attribute12 is null) THEN
12187: l_finplan_lines_tab(j).attribute12 := FND_API.G_MISS_CHAR;
12188: ELSE
12189: l_finplan_lines_tab(j).attribute12 := l_budget_line_in_rec.attribute12;
12190: END IF;
12191:
12191:
12192: IF p_budget_lines_in(l_budget_line_index).attribute13 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12193: l_finplan_lines_tab(j).attribute13 := NULL;
12194: ELSIF(p_budget_lines_in(l_budget_line_index).attribute13 is null) THEN
12195: l_finplan_lines_tab(j).attribute13 := FND_API.G_MISS_CHAR;
12196: ELSE
12197: l_finplan_lines_tab(j).attribute13 := l_budget_line_in_rec.attribute13;
12198: END IF;
12199:
12199:
12200: IF p_budget_lines_in(l_budget_line_index).attribute14 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12201: l_finplan_lines_tab(j).attribute14 := NULL;
12202: ELSIF(p_budget_lines_in(l_budget_line_index).attribute14 is null) THEN
12203: l_finplan_lines_tab(j).attribute14 := FND_API.G_MISS_CHAR;
12204: ELSE
12205: l_finplan_lines_tab(j).attribute14 := l_budget_line_in_rec.attribute14;
12206: END IF;
12207:
12207:
12208: IF p_budget_lines_in(l_budget_line_index).attribute15 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12209: l_finplan_lines_tab(j).attribute15 := NULL;
12210: ELSIF(p_budget_lines_in(l_budget_line_index).attribute15 is null) THEN
12211: l_finplan_lines_tab(j).attribute15 := FND_API.G_MISS_CHAR;
12212: ELSE
12213: l_finplan_lines_tab(j).attribute15 := l_budget_line_in_rec.attribute15;
12214: END IF;
12215:
12215:
12216: IF p_budget_lines_in(l_budget_line_index).projfunc_cost_rate_type =PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12217: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_TYPE := NULL;
12218: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_cost_rate_type is null) THEN
12219: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_TYPE := FND_API.G_MISS_CHAR;
12220: ELSE
12221: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_TYPE := l_budget_line_in_rec.projfunc_cost_rate_type;
12222: END IF;
12223:
12223:
12224: IF p_budget_lines_in(l_budget_line_index).projfunc_cost_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12225: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE_TYPE := NULL;
12226: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_cost_rate_date_type is null) THEN
12227: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
12228: ELSE
12229: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE_TYPE :=l_budget_line_in_rec.projfunc_cost_rate_date_type;
12230: END IF;
12231:
12231:
12232: IF p_budget_lines_in(l_budget_line_index).projfunc_cost_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12233: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE := NULL;
12234: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_cost_rate_date is null) THEN
12235: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE := FND_API.G_MISS_DATE;
12236: ELSE
12237: l_finplan_lines_tab(j).PROJFUNC_COST_RATE_DATE := l_budget_line_in_rec.projfunc_cost_rate_date ;
12238: END IF;
12239:
12239:
12240: IF p_budget_lines_in(l_budget_line_index).projfunc_cost_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12241: l_finplan_lines_tab(j).PROJFUNC_COST_EXCHANGE_RATE := NULL;
12242: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_cost_exchange_rate is null) THEN
12243: l_finplan_lines_tab(j).PROJFUNC_COST_EXCHANGE_RATE := FND_API.G_MISS_NUM;
12244: ELSE
12245: l_finplan_lines_tab(j).PROJFUNC_COST_EXCHANGE_RATE := l_budget_line_in_rec.projfunc_cost_exchange_rate ;
12246: END IF;
12247:
12247:
12248: IF p_budget_lines_in(l_budget_line_index).projfunc_rev_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12249: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_TYPE := NULL;
12250: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_rev_rate_type is null) THEN
12251: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_TYPE := FND_API.G_MISS_CHAR;
12252: ELSE
12253: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_TYPE := l_budget_line_in_rec.projfunc_rev_rate_type ;
12254: END IF;
12255:
12255:
12256: IF p_budget_lines_in(l_budget_line_index).projfunc_rev_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12257: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE_TYPE := NULL;
12258: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_rev_rate_date_type is null) THEN
12259: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
12260: ELSE
12261: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE_TYPE := l_budget_line_in_rec.projfunc_rev_rate_date_type ;
12262: END IF;
12263:
12263:
12264: IF p_budget_lines_in(l_budget_line_index).projfunc_rev_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12265: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE := NULL;
12266: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_rev_rate_date is null) THEN
12267: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE := FND_API.G_MISS_DATE;
12268: ELSE
12269: l_finplan_lines_tab(j).PROJFUNC_REV_RATE_DATE := l_budget_line_in_rec.projfunc_rev_rate_date;
12270: END IF;
12271:
12271:
12272: IF p_budget_lines_in(l_budget_line_index).projfunc_rev_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12273: l_finplan_lines_tab(j).PROJFUNC_REV_EXCHANGE_RATE := NULL;
12274: ELSIF(p_budget_lines_in(l_budget_line_index).projfunc_rev_exchange_rate is null) THEN
12275: l_finplan_lines_tab(j).PROJFUNC_REV_EXCHANGE_RATE := FND_API.G_MISS_NUM;
12276: ELSE
12277: l_finplan_lines_tab(j).PROJFUNC_REV_EXCHANGE_RATE := l_budget_line_in_rec.projfunc_rev_exchange_rate ;
12278: END IF;
12279:
12279:
12280: IF p_budget_lines_in(l_budget_line_index).project_cost_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12281: l_finplan_lines_tab(j).PROJECT_COST_RATE_TYPE := NULL;
12282: ELSIF(p_budget_lines_in(l_budget_line_index).project_cost_rate_type is null) THEN
12283: l_finplan_lines_tab(j).PROJECT_COST_RATE_TYPE := FND_API.G_MISS_CHAR;
12284: ELSE
12285: l_finplan_lines_tab(j).PROJECT_COST_RATE_TYPE := l_budget_line_in_rec.project_cost_rate_type;
12286: END IF;
12287:
12287:
12288: IF p_budget_lines_in(l_budget_line_index).project_cost_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12289: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE_TYPE := NULL;
12290: ELSIF(p_budget_lines_in(l_budget_line_index).project_cost_rate_date_type is null) THEN
12291: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
12292: ELSE
12293: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE_TYPE := l_budget_line_in_rec.project_cost_rate_date_type ;
12294: END IF;
12295:
12295:
12296: IF p_budget_lines_in(l_budget_line_index).project_cost_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12297: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE := NULL;
12298: ELSIF(p_budget_lines_in(l_budget_line_index).project_cost_rate_date is null) THEN
12299: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE := FND_API.G_MISS_DATE;
12300: ELSE
12301: l_finplan_lines_tab(j).PROJECT_COST_RATE_DATE := l_budget_line_in_rec.project_cost_rate_date;
12302: END IF;
12303:
12303:
12304: IF p_budget_lines_in(l_budget_line_index).project_cost_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12305: l_finplan_lines_tab(j).PROJECT_COST_EXCHANGE_RATE := NULL;
12306: ELSIF(p_budget_lines_in(l_budget_line_index).project_cost_exchange_rate is null) THEN
12307: l_finplan_lines_tab(j).PROJECT_COST_EXCHANGE_RATE := FND_API.G_MISS_NUM;
12308: ELSE
12309: l_finplan_lines_tab(j).PROJECT_COST_EXCHANGE_RATE := l_budget_line_in_rec.project_cost_exchange_rate ;
12310: END IF;
12311:
12311:
12312: IF p_budget_lines_in(l_budget_line_index).project_rev_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12313: l_finplan_lines_tab(j).PROJECT_REV_RATE_TYPE := NULL;
12314: ELSIF(p_budget_lines_in(l_budget_line_index).project_rev_rate_type is null) THEN
12315: l_finplan_lines_tab(j).PROJECT_REV_RATE_TYPE := FND_API.G_MISS_CHAR;
12316: ELSE
12317: l_finplan_lines_tab(j).PROJECT_REV_RATE_TYPE := l_budget_line_in_rec.project_rev_rate_type ;
12318: END IF;
12319:
12319:
12320: IF p_budget_lines_in(l_budget_line_index).project_rev_rate_date_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12321: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE_TYPE := NULL;
12322: ELSIF(p_budget_lines_in(l_budget_line_index).project_rev_rate_date_type is null) THEN
12323: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE_TYPE := FND_API.G_MISS_CHAR;
12324: ELSE
12325: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE_TYPE := l_budget_line_in_rec.project_rev_rate_date_type;
12326: END IF;
12327:
12327:
12328: IF p_budget_lines_in(l_budget_line_index).project_rev_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12329: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE := NULL;
12330: ELSIF(p_budget_lines_in(l_budget_line_index).project_rev_rate_date is null) THEN
12331: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE := FND_API.G_MISS_DATE;
12332: ELSE
12333: l_finplan_lines_tab(j).PROJECT_REV_RATE_DATE := l_budget_line_in_rec.project_rev_rate_date ;
12334: END IF;
12335:
12335:
12336: IF p_budget_lines_in(l_budget_line_index).project_rev_exchange_rate =PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12337: l_finplan_lines_tab(j).PROJECT_REV_EXCHANGE_RATE := NULL;
12338: ELSIF(p_budget_lines_in(l_budget_line_index).project_rev_exchange_rate is null) THEN
12339: l_finplan_lines_tab(j).PROJECT_REV_EXCHANGE_RATE := FND_API.G_MISS_NUM;
12340: ELSE
12341: l_finplan_lines_tab(j).PROJECT_REV_EXCHANGE_RATE := l_budget_line_in_rec.project_rev_exchange_rate;
12342: END IF;
12343:
12343:
12344: IF p_budget_lines_in(l_budget_line_index).pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12345: l_finplan_lines_tab(j).pm_product_code := NULL;
12346: ELSIF(p_budget_lines_in(l_budget_line_index).pm_product_code is null) THEN
12347: l_finplan_lines_tab(j).pm_product_code := FND_API.G_MISS_CHAR;
12348: ELSE
12349: l_finplan_lines_tab(j).pm_product_code := l_budget_line_in_rec.pm_product_code ;
12350: END IF;
12351:
12351:
12352: IF p_budget_lines_in(l_budget_line_index).pm_budget_line_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
12353: l_finplan_lines_tab(j).pm_budget_line_reference := NULL;
12354: ELSIF(p_budget_lines_in(l_budget_line_index).pm_budget_line_reference is null) THEN
12355: l_finplan_lines_tab(j).pm_budget_line_reference := FND_API.G_MISS_CHAR;
12356: ELSE
12357: l_finplan_lines_tab(j).pm_budget_line_reference := l_budget_line_in_rec.pm_budget_line_reference ;
12358: END IF;
12359:
12396: ,x_msg_data => l_msg_data );
12397:
12398: -- dbms_output.put_line ('after Calling add_finplan_lines ' || l_return_status || ' p_multiple_task_msg ' || p_multiple_task_msg);
12399:
12400: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12401: pa_debug.g_err_stage:= 'Error Calling ADD_FINPLAN_LINES';
12402: IF L_DEBUG_MODE = 'Y' THEN
12403: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12404: END IF;
12421: x_return_status => x_return_status,
12422: x_msg_count => l_msg_count,
12423: x_msg_data => l_msg_data) ;
12424:
12425: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
12426:
12427: IF l_debug_mode = 'Y' THEN
12428: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
12429: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
12455: FND_MESSAGE.SET_TOKEN('Rname',l_resource_name);
12456:
12457: FND_MSG_PUB.add;
12458: END IF;
12459: RAISE FND_API.G_EXC_ERROR;
12460: ELSIF l_err_code < 0 THEN
12461: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12462: FND_MSG_PUB.add_exc_msg
12463: ( p_pkg_name => 'PA_BUDGET_LINES_V_PKG'
12463: ( p_pkg_name => 'PA_BUDGET_LINES_V_PKG'
12464: , p_procedure_name => 'CHECK_OVERLAPPING_DATES'
12465: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
12466: END IF;
12467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12468: END IF;
12469:
12470:
12471: PA_BUDGET_UTILS.summerize_project_totals( x_budget_version_id => l_budget_version_id
12498: ,p_attribute4 => ''
12499: ,p_attribute5 => to_char(l_budget_start_date));
12500: END IF;
12501: END IF;
12502: RAISE FND_API.G_EXC_ERROR;
12503: ELSIF l_err_code < 0 THEN
12504: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12505: FND_MSG_PUB.add_exc_msg
12506: ( p_pkg_name => 'PA_BUDGET_UTILS'
12507: , p_procedure_name => 'SUMMERIZE_PROJECT_TOTALS'
12508: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
12509:
12510: END IF;
12511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12512: END IF; -- l_err_code > 0
12513: END IF; -- l_budget_type_code IS NOT NULL
12514:
12515: END IF; --if there are budget lines
12513: END IF; -- l_budget_type_code IS NOT NULL
12514:
12515: END IF; --if there are budget lines
12516:
12517: IF FND_API.TO_BOOLEAN( p_commit ) THEN
12518: COMMIT;
12519: END IF;
12520:
12521:
12525: -- dbms_output.put_line('Invalid_Arg_Exc MSG count in the stack ' || FND_MSG_PUB.count_msg);
12526: ROLLBACK TO update_budget_pub;
12527:
12528: IF p_return_status IS NULL OR
12529: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
12530: p_return_status := FND_API.G_RET_STS_ERROR;
12531: END IF;
12532:
12533: l_msg_count := FND_MSG_PUB.count_msg;
12526: ROLLBACK TO update_budget_pub;
12527:
12528: IF p_return_status IS NULL OR
12529: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
12530: p_return_status := FND_API.G_RET_STS_ERROR;
12531: END IF;
12532:
12533: l_msg_count := FND_MSG_PUB.count_msg;
12534: -- dbms_output.put_line('Invalid_Arg_Exc MSG count in the stack ' || l_msg_count);
12534: -- dbms_output.put_line('Invalid_Arg_Exc MSG count in the stack ' || l_msg_count);
12535:
12536: IF l_msg_count = 1 AND p_msg_data IS NULL THEN
12537: PA_INTERFACE_UTILS_PUB.get_messages
12538: (p_encoded => FND_API.G_TRUE,
12539: p_msg_index => 1,
12540: p_msg_count => l_msg_count,
12541: p_msg_data => l_msg_data,
12542: p_data => l_data,
12554: -- dbms_output.put_line('Invalid_Arg_Exc MSG count in the stack ' || l_msg_count);
12555:
12556: RETURN;
12557:
12558: WHEN FND_API.G_EXC_ERROR
12559: THEN
12560:
12561:
12562: ROLLBACK TO update_budget_pub;
12560:
12561:
12562: ROLLBACK TO update_budget_pub;
12563:
12564: p_return_status := FND_API.G_RET_STS_ERROR;
12565:
12566: FND_MSG_PUB.Count_And_Get
12567: ( p_count => p_msg_count ,
12568: p_data => p_msg_data );
12566: FND_MSG_PUB.Count_And_Get
12567: ( p_count => p_msg_count ,
12568: p_data => p_msg_data );
12569:
12570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
12571: THEN
12572:
12573:
12574: ROLLBACK TO update_budget_pub;
12572:
12573:
12574: ROLLBACK TO update_budget_pub;
12575:
12576: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12577:
12578: FND_MSG_PUB.Count_And_Get
12579: ( p_count => p_msg_count ,
12580: p_data => p_msg_data );
12582: WHEN ROW_ALREADY_LOCKED
12583: THEN
12584: ROLLBACK TO update_budget_pub;
12585:
12586: p_return_status := FND_API.G_RET_STS_ERROR;
12587:
12588: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
12589: THEN
12590: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
12608:
12609:
12610: ROLLBACK TO update_budget_pub;
12611:
12612: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12613:
12614: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12615: THEN
12616: FND_MSG_PUB.add_exc_msg
12643: --
12644:
12645: PROCEDURE execute_update_budget
12646: ( p_api_version_number IN NUMBER
12647: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
12648: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
12649: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
12650: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
12651: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
12644:
12645: PROCEDURE execute_update_budget
12646: ( p_api_version_number IN NUMBER
12647: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
12648: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
12649: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
12650: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
12651: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
12652: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
12714: SAVEPOINT execute_update_budget_pub;
12715:
12716: -- Standard call to check for call compatibility.
12717:
12718: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
12719: p_api_version_number ,
12720: l_api_name ,
12721: G_PKG_NAME )
12722: THEN
12720: l_api_name ,
12721: G_PKG_NAME )
12722: THEN
12723:
12724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12725:
12726: END IF;
12727:
12728: -- Initialize the message table if requested.
12726: END IF;
12727:
12728: -- Initialize the message table if requested.
12729:
12730: IF FND_API.TO_BOOLEAN( p_init_msg_list )
12731: THEN
12732:
12733: FND_MSG_PUB.initialize;
12734:
12735: END IF;
12736:
12737: -- Set API return status to success
12738:
12739: p_return_status := FND_API.G_RET_STS_SUCCESS;
12740:
12741:
12742: -- product_code is mandatory
12743:
12757: ,p_attribute4 => ''
12758: ,p_attribute5 => '');
12759: END IF;
12760:
12761: RAISE FND_API.G_EXC_ERROR;
12762:
12763: END IF;
12764:
12765: l_pm_product_code :='Z';
12782: ,p_attribute3 => ''
12783: ,p_attribute4 => ''
12784: ,p_attribute5 => '');
12785: END IF;
12786: p_return_status := FND_API.G_RET_STS_ERROR;
12787: RAISE FND_API.G_EXC_ERROR;
12788: END IF;
12789:
12790:
12783: ,p_attribute4 => ''
12784: ,p_attribute5 => '');
12785: END IF;
12786: p_return_status := FND_API.G_RET_STS_ERROR;
12787: RAISE FND_API.G_EXC_ERROR;
12788: END IF;
12789:
12790:
12791: /* -- dbms_output.put_line('Before update_budget'); */
12790:
12791: /* -- dbms_output.put_line('Before update_budget'); */
12792:
12793: update_budget( p_api_version_number => p_api_version_number
12794: ,p_commit => FND_API.G_FALSE
12795: ,p_init_msg_list => FND_API.G_FALSE
12796: ,p_msg_count => p_msg_count
12797: ,p_msg_data => p_msg_data
12798: ,p_return_status => l_return_status
12791: /* -- dbms_output.put_line('Before update_budget'); */
12792:
12793: update_budget( p_api_version_number => p_api_version_number
12794: ,p_commit => FND_API.G_FALSE
12795: ,p_init_msg_list => FND_API.G_FALSE
12796: ,p_msg_count => p_msg_count
12797: ,p_msg_data => p_msg_data
12798: ,p_return_status => l_return_status
12799: ,p_pm_product_code => p_pm_product_code
12834: /* -- dbms_output.put_line('After update_budget'); */
12835:
12836: /* -- dbms_output.put_line('Return status update_budget: '||l_return_status); */
12837:
12838: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12839: THEN
12840:
12841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12842:
12837:
12838: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12839: THEN
12840:
12841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12842:
12843: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
12844: THEN
12845:
12839: THEN
12840:
12841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12842:
12843: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
12844: THEN
12845:
12846: RAISE FND_API.G_EXC_ERROR;
12847: END IF;
12842:
12843: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
12844: THEN
12845:
12846: RAISE FND_API.G_EXC_ERROR;
12847: END IF;
12848:
12849: IF fnd_api.to_boolean(p_commit)
12850: THEN
12845:
12846: RAISE FND_API.G_EXC_ERROR;
12847: END IF;
12848:
12849: IF fnd_api.to_boolean(p_commit)
12850: THEN
12851: COMMIT;
12852: END IF;
12853:
12853:
12854:
12855: EXCEPTION
12856:
12857: WHEN FND_API.G_EXC_ERROR
12858: THEN
12859:
12860: /* -- dbms_output.put_line('handling an G_EXC_ERROR exception in execute_update_budget'); */
12861:
12860: /* -- dbms_output.put_line('handling an G_EXC_ERROR exception in execute_update_budget'); */
12861:
12862: ROLLBACK TO execute_update_budget_pub;
12863:
12864: p_return_status := FND_API.G_RET_STS_ERROR;
12865:
12866: FND_MSG_PUB.Count_And_Get
12867: ( p_count => p_msg_count ,
12868: p_data => p_msg_data );
12866: FND_MSG_PUB.Count_And_Get
12867: ( p_count => p_msg_count ,
12868: p_data => p_msg_data );
12869:
12870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
12871: THEN
12872:
12873: /* -- dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
12874:
12873: /* -- dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
12874:
12875: ROLLBACK TO execute_update_budget_pub;
12876:
12877: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12878:
12879: FND_MSG_PUB.Count_And_Get
12880: ( p_count => p_msg_count ,
12881: p_data => p_msg_data );
12885: /* -- dbms_output.put_line('handling an OTHERS exception in execute_update_budget'); */
12886:
12887: ROLLBACK TO execute_update_budget_pub;
12888:
12889: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12890:
12891: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12892: THEN
12893: FND_MSG_PUB.add_exc_msg
12921: -- 11-MAY-2005 Ritesh Shukla Bug 4224464: FP.M Changes for update_budget_line
12922:
12923: PROCEDURE update_budget_line
12924: ( p_api_version_number IN NUMBER
12925: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
12926: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
12927: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
12928: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
12929: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
12922:
12923: PROCEDURE update_budget_line
12924: ( p_api_version_number IN NUMBER
12925: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
12926: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
12927: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
12928: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
12929: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
12930: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
13093: --Standard begin of API savepoint
13094: SAVEPOINT update_budget_line_pub;
13095:
13096: p_msg_count := 0;
13097: p_return_status := FND_API.G_RET_STS_SUCCESS;
13098: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
13099: l_module_name := g_module_name || ':Update_Budget_Line ';
13100:
13101: IF ( l_debug_mode = 'Y' )
13110: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
13111: END IF;
13112:
13113: --Initialize the message table if requested.
13114: IF FND_API.TO_BOOLEAN( p_init_msg_list )
13115: THEN
13116: FND_MSG_PUB.initialize;
13117: END IF;
13118:
13116: FND_MSG_PUB.initialize;
13117: END IF;
13118:
13119: --Set API return status to success
13120: p_return_status := FND_API.G_RET_STS_SUCCESS;
13121:
13122: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
13123: --header level validations
13124: PA_BUDGET_PVT.validate_header_info
13159: ,x_msg_count => p_msg_count
13160: ,x_msg_data => p_msg_data
13161: ,x_return_status => p_return_status );
13162:
13163: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13164: IF(l_debug_mode='Y') THEN
13165: pa_debug.g_err_stage := 'validate header info API falied';
13166: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13167: END IF;
13476: ,x_message_count => p_msg_count
13477: ,x_return_status => p_return_status
13478: ,x_message_data => p_msg_data) ;
13479:
13480: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
13481: THEN
13482: IF(l_debug_mode='Y') THEN
13483: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
13484: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13539: ,x_msg_count => p_msg_count
13540: ,x_msg_data => p_msg_data
13541: ,x_return_status => p_return_status );
13542:
13543: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13544: IF(l_debug_mode='Y') THEN
13545: pa_debug.g_err_stage := 'validate budget lines API falied';
13546: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13547: END IF;
13578: ,p_attribute5 => to_char(l_budget_lines_in(1).budget_start_date));
13579: END IF;
13580:
13581: CLOSE l_resource_assignment_csr;
13582: RAISE FND_API.G_EXC_ERROR;
13583: END IF; --l_resource_assignment_csr%NOTFOUND
13584:
13585: CLOSE l_resource_assignment_csr;
13586:
13615: ,p_attribute5 => to_char(l_budget_lines_in(1).budget_start_date));
13616: END IF;
13617:
13618: CLOSE l_budget_line_csr;
13619: RAISE FND_API.G_EXC_ERROR;
13620: END IF;--l_budget_line_csr%NOTFOUND
13621:
13622: CLOSE l_budget_line_csr;
13623:
13660: ,p_attribute14 => PA_TASK_ASSIGNMENTS_PVT.pfchar(p_attribute14)
13661: ,p_attribute15 => PA_TASK_ASSIGNMENTS_PVT.pfchar(p_attribute15)
13662: );
13663:
13664: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13665: THEN
13666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13667: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
13668: THEN
13662: );
13663:
13664: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13665: THEN
13666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13667: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
13668: THEN
13669: RAISE FND_API.G_EXC_ERROR;
13670: END IF;
13663:
13664: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13665: THEN
13666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13667: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
13668: THEN
13669: RAISE FND_API.G_EXC_ERROR;
13670: END IF;
13671:
13665: THEN
13666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13667: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
13668: THEN
13669: RAISE FND_API.G_EXC_ERROR;
13670: END IF;
13671:
13672: --summarizing the totals in the table pa_budget_versions
13673: PA_BUDGET_UTILS.summerize_project_totals
13710: ,p_attribute5 => to_char(l_budget_lines_in(1).budget_start_date));
13711: END IF;
13712: END IF;--FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13713:
13714: RAISE FND_API.G_EXC_ERROR;
13715:
13716: ELSIF l_err_code < 0
13717: THEN
13718:
13728: , p_procedure_name => 'SUMMERIZE_PROJECT_TOTALS'
13729: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
13730: END IF;
13731:
13732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13733:
13734: END IF;--l_err_code > 0
13735:
13736:
13738:
13739:
13740: --Copy the fin plan line data into a table of type pa_fp_rollup_tmp
13741: --If an attribute should not be updated then pass it as null, and
13742: --if an attribute should be updated to null then pass it as FND_API.G_MISS_XXX
13743:
13744: l_finplan_lines_tab(1).system_reference1 := l_budget_lines_in(1).pa_task_id;
13745: l_finplan_lines_tab(1).system_reference2 := l_budget_lines_in(1).resource_list_member_id;
13746: l_finplan_lines_tab(1).start_date := l_budget_lines_in(1).budget_start_date;
13803: l_finplan_lines_tab(1).project_rev_rate_date_type := to_char(NULL);
13804: l_finplan_lines_tab(1).project_rev_rate_date := to_date(NULL);
13805: l_finplan_lines_tab(1).project_rev_exchange_rate := to_number(NULL);
13806: ELSE
13807: l_finplan_lines_tab(1).projfunc_cost_rate_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_type,FND_API.G_MISS_CHAR);
13808: l_finplan_lines_tab(1).projfunc_cost_rate_date_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_date_type,FND_API.G_MISS_CHAR);
13809: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
13810: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
13811: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
13804: l_finplan_lines_tab(1).project_rev_rate_date := to_date(NULL);
13805: l_finplan_lines_tab(1).project_rev_exchange_rate := to_number(NULL);
13806: ELSE
13807: l_finplan_lines_tab(1).projfunc_cost_rate_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_type,FND_API.G_MISS_CHAR);
13808: l_finplan_lines_tab(1).projfunc_cost_rate_date_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_date_type,FND_API.G_MISS_CHAR);
13809: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
13810: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
13811: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
13812: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
13805: l_finplan_lines_tab(1).project_rev_exchange_rate := to_number(NULL);
13806: ELSE
13807: l_finplan_lines_tab(1).projfunc_cost_rate_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_type,FND_API.G_MISS_CHAR);
13808: l_finplan_lines_tab(1).projfunc_cost_rate_date_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_date_type,FND_API.G_MISS_CHAR);
13809: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
13810: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
13811: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
13812: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
13813: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
13806: ELSE
13807: l_finplan_lines_tab(1).projfunc_cost_rate_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_type,FND_API.G_MISS_CHAR);
13808: l_finplan_lines_tab(1).projfunc_cost_rate_date_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_date_type,FND_API.G_MISS_CHAR);
13809: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
13810: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
13811: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
13812: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
13813: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
13814: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
13807: l_finplan_lines_tab(1).projfunc_cost_rate_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_type,FND_API.G_MISS_CHAR);
13808: l_finplan_lines_tab(1).projfunc_cost_rate_date_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_date_type,FND_API.G_MISS_CHAR);
13809: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
13810: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
13811: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
13812: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
13813: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
13814: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
13815: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
13808: l_finplan_lines_tab(1).projfunc_cost_rate_date_type := nvl(l_budget_lines_in(1).projfunc_cost_rate_date_type,FND_API.G_MISS_CHAR);
13809: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
13810: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
13811: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
13812: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
13813: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
13814: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
13815: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
13816: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
13809: l_finplan_lines_tab(1).projfunc_cost_rate_date := nvl(l_budget_lines_in(1).projfunc_cost_rate_date,FND_API.G_MISS_DATE);
13810: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
13811: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
13812: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
13813: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
13814: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
13815: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
13816: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
13817: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
13810: l_finplan_lines_tab(1).projfunc_cost_exchange_rate := nvl(l_budget_lines_in(1).projfunc_cost_exchange_rate,FND_API.G_MISS_NUM);
13811: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
13812: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
13813: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
13814: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
13815: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
13816: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
13817: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
13818: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
13811: l_finplan_lines_tab(1).projfunc_rev_rate_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_type,FND_API.G_MISS_CHAR);
13812: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
13813: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
13814: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
13815: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
13816: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
13817: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
13818: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
13819: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
13812: l_finplan_lines_tab(1).projfunc_rev_rate_date_type := nvl(l_budget_lines_in(1).projfunc_rev_rate_date_type,FND_API.G_MISS_CHAR);
13813: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
13814: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
13815: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
13816: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
13817: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
13818: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
13819: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
13820: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
13813: l_finplan_lines_tab(1).projfunc_rev_rate_date := nvl(l_budget_lines_in(1).projfunc_rev_rate_date,FND_API.G_MISS_DATE);
13814: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
13815: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
13816: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
13817: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
13818: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
13819: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
13820: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
13821: l_finplan_lines_tab(1).project_rev_rate_date := nvl(l_budget_lines_in(1).project_rev_rate_date,FND_API.G_MISS_DATE);
13814: l_finplan_lines_tab(1).projfunc_rev_exchange_rate := nvl(l_budget_lines_in(1).projfunc_rev_exchange_rate,FND_API.G_MISS_NUM);
13815: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
13816: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
13817: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
13818: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
13819: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
13820: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
13821: l_finplan_lines_tab(1).project_rev_rate_date := nvl(l_budget_lines_in(1).project_rev_rate_date,FND_API.G_MISS_DATE);
13822: l_finplan_lines_tab(1).project_rev_exchange_rate := nvl(l_budget_lines_in(1).project_rev_exchange_rate,FND_API.G_MISS_NUM);
13815: l_finplan_lines_tab(1).project_cost_rate_type := nvl(l_budget_lines_in(1).project_cost_rate_type,FND_API.G_MISS_CHAR);
13816: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
13817: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
13818: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
13819: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
13820: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
13821: l_finplan_lines_tab(1).project_rev_rate_date := nvl(l_budget_lines_in(1).project_rev_rate_date,FND_API.G_MISS_DATE);
13822: l_finplan_lines_tab(1).project_rev_exchange_rate := nvl(l_budget_lines_in(1).project_rev_exchange_rate,FND_API.G_MISS_NUM);
13823: END IF;
13816: l_finplan_lines_tab(1).project_cost_rate_date_type := nvl(l_budget_lines_in(1).project_cost_rate_date_type,FND_API.G_MISS_CHAR);
13817: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
13818: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
13819: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
13820: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
13821: l_finplan_lines_tab(1).project_rev_rate_date := nvl(l_budget_lines_in(1).project_rev_rate_date,FND_API.G_MISS_DATE);
13822: l_finplan_lines_tab(1).project_rev_exchange_rate := nvl(l_budget_lines_in(1).project_rev_exchange_rate,FND_API.G_MISS_NUM);
13823: END IF;
13824:
13817: l_finplan_lines_tab(1).project_cost_rate_date := nvl(l_budget_lines_in(1).project_cost_rate_date,FND_API.G_MISS_DATE);
13818: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
13819: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
13820: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
13821: l_finplan_lines_tab(1).project_rev_rate_date := nvl(l_budget_lines_in(1).project_rev_rate_date,FND_API.G_MISS_DATE);
13822: l_finplan_lines_tab(1).project_rev_exchange_rate := nvl(l_budget_lines_in(1).project_rev_exchange_rate,FND_API.G_MISS_NUM);
13823: END IF;
13824:
13825: l_finplan_lines_tab(1).pm_product_code := l_budget_lines_in(1).pm_product_code;
13818: l_finplan_lines_tab(1).project_cost_exchange_rate := nvl(l_budget_lines_in(1).project_cost_exchange_rate,FND_API.G_MISS_NUM);
13819: l_finplan_lines_tab(1).project_rev_rate_type := nvl(l_budget_lines_in(1).project_rev_rate_type,FND_API.G_MISS_CHAR);
13820: l_finplan_lines_tab(1).project_rev_rate_date_type := nvl(l_budget_lines_in(1).project_rev_rate_date_type,FND_API.G_MISS_CHAR);
13821: l_finplan_lines_tab(1).project_rev_rate_date := nvl(l_budget_lines_in(1).project_rev_rate_date,FND_API.G_MISS_DATE);
13822: l_finplan_lines_tab(1).project_rev_exchange_rate := nvl(l_budget_lines_in(1).project_rev_exchange_rate,FND_API.G_MISS_NUM);
13823: END IF;
13824:
13825: l_finplan_lines_tab(1).pm_product_code := l_budget_lines_in(1).pm_product_code;
13826: l_finplan_lines_tab(1).quantity_source := 'I';
13844: ,x_return_status => p_return_status
13845: ,x_msg_count => p_msg_count
13846: ,x_msg_data => p_msg_data);
13847:
13848: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13849: -- Error message is not added here as the api lock_unlock_version
13850: -- adds the message to stack
13851: IF(l_debug_mode='Y') THEN
13852: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
13851: IF(l_debug_mode='Y') THEN
13852: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
13853: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
13854: END IF;
13855: RAISE FND_API.G_EXC_ERROR;
13856: END IF;
13857:
13858: --Call PA_FIN_PLAN_PVT.add_fin_plan_lines. This api takes care of updating
13859: --budget lines data in all relevant tables.
13864: ,x_return_status => p_return_status
13865: ,x_msg_count => p_msg_count
13866: ,x_msg_data => p_msg_data );
13867:
13868: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
13869: THEN
13870: IF(l_debug_mode='Y') THEN
13871: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
13872: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13870: IF(l_debug_mode='Y') THEN
13871: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
13872: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13873: END IF;
13874: RAISE FND_API.G_EXC_ERROR;
13875: END IF;
13876:
13877:
13878: --unlock the budget version after updating the budget line
13888: ,x_return_status => p_return_status
13889: ,x_msg_count => p_msg_count
13890: ,x_msg_data => p_msg_data);
13891:
13892: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13893: -- Error message is not added here as the api lock_unlock_version
13894: -- adds the message to stack
13895: IF(l_debug_mode='Y') THEN
13896: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
13895: IF(l_debug_mode='Y') THEN
13896: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
13897: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
13898: END IF;
13899: RAISE FND_API.G_EXC_ERROR;
13900: END IF;
13901:
13902:
13903: END IF;--end of code to update budget line
13902:
13903: END IF;--end of code to update budget line
13904:
13905:
13906: IF FND_API.TO_BOOLEAN( p_commit )
13907: THEN
13908: COMMIT;
13909: END IF;
13910:
13924: THEN
13925:
13926: ROLLBACK TO update_budget_line_pub;
13927:
13928: p_return_status := FND_API.G_RET_STS_ERROR;
13929: l_msg_count := FND_MSG_PUB.count_msg;
13930:
13931: IF l_msg_count = 1 and p_msg_data IS NULL THEN
13932: PA_INTERFACE_UTILS_PUB.get_messages
13929: l_msg_count := FND_MSG_PUB.count_msg;
13930:
13931: IF l_msg_count = 1 and p_msg_data IS NULL THEN
13932: PA_INTERFACE_UTILS_PUB.get_messages
13933: (p_encoded => FND_API.G_TRUE
13934: ,p_msg_index => 1
13935: ,p_msg_count => l_msg_count
13936: ,p_msg_data => l_msg_data
13937: ,p_data => l_data
13948:
13949: RETURN;
13950:
13951:
13952: WHEN FND_API.G_EXC_ERROR
13953: THEN
13954:
13955: ROLLBACK TO update_budget_line_pub;
13956:
13953: THEN
13954:
13955: ROLLBACK TO update_budget_line_pub;
13956:
13957: p_return_status := FND_API.G_RET_STS_ERROR;
13958:
13959: FND_MSG_PUB.count_and_get
13960: ( p_count => p_msg_count ,
13961: p_data => p_msg_data );
13964: pa_debug.reset_curr_function;
13965: END IF;
13966:
13967:
13968: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
13969: THEN
13970:
13971: ROLLBACK TO update_budget_line_pub;
13972:
13969: THEN
13970:
13971: ROLLBACK TO update_budget_line_pub;
13972:
13973: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13974:
13975: FND_MSG_PUB.count_and_get
13976: ( p_count => p_msg_count ,
13977: p_data => p_msg_data );
13985: THEN
13986:
13987: ROLLBACK TO update_budget_line_pub;
13988:
13989: p_return_status := FND_API.G_RET_STS_ERROR;
13990:
13991: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13992: THEN
13993: FND_MESSAGE.set_name('PA','PA_ROW_ALREADY_LOCKED_B_AMG');
14013: THEN
14014:
14015: ROLLBACK TO update_budget_line_pub;
14016:
14017: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14018:
14019: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14020: THEN
14021: FND_MSG_PUB.add_exc_msg
14061: -- for the set-of-books.
14062: --
14063: PROCEDURE Calculate_Amounts
14064: ( p_api_version_number IN NUMBER
14065: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
14066: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
14067: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
14068: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
14069: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
14062: --
14063: PROCEDURE Calculate_Amounts
14064: ( p_api_version_number IN NUMBER
14065: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
14066: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
14067: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
14068: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
14069: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
14070: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
14381: SAVEPOINT calculate_amounts_pub;
14382:
14383: -- Standard call to check for call compatibility.
14384:
14385: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
14386: p_api_version_number ,
14387: l_api_name ,
14388: G_PKG_NAME )
14389: THEN
14387: l_api_name ,
14388: G_PKG_NAME )
14389: THEN
14390:
14391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14392:
14393: END IF;
14394: --product_code is mandatory
14395:
14409: ,p_attribute4 => ''
14410: ,p_attribute5 => '');
14411: END IF;
14412:
14413: RAISE FND_API.G_EXC_ERROR;
14414:
14415: END IF;
14416:
14417: l_pm_product_code :='Z';
14434: ,p_attribute3 => ''
14435: ,p_attribute4 => ''
14436: ,p_attribute5 => '');
14437: END IF;
14438: p_return_status := FND_API.G_RET_STS_ERROR;
14439: RAISE FND_API.G_EXC_ERROR;
14440: END IF;
14441:
14442: l_resp_id := FND_GLOBAL.Resp_id;
14435: ,p_attribute4 => ''
14436: ,p_attribute5 => '');
14437: END IF;
14438: p_return_status := FND_API.G_RET_STS_ERROR;
14439: RAISE FND_API.G_EXC_ERROR;
14440: END IF;
14441:
14442: l_resp_id := FND_GLOBAL.Resp_id;
14443: l_user_id := FND_GLOBAL.User_id;
14477: p_msg_data => l_msg_data,
14478: p_return_status => l_return_status,
14479: p_function_allowed => l_function_allowed );
14480:
14481: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
14482: THEN
14483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14484:
14485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
14479: p_function_allowed => l_function_allowed );
14480:
14481: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
14482: THEN
14483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14484:
14485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
14486: THEN
14487: RAISE FND_API.G_EXC_ERROR;
14481: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
14482: THEN
14483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14484:
14485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
14486: THEN
14487: RAISE FND_API.G_EXC_ERROR;
14488: END IF;
14489: IF l_function_allowed = 'N' THEN
14483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14484:
14485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
14486: THEN
14487: RAISE FND_API.G_EXC_ERROR;
14488: END IF;
14489: IF l_function_allowed = 'N' THEN
14490: pa_interface_utils_pub.map_new_amg_msg
14491: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
14496: ,p_attribute2 => ''
14497: ,p_attribute3 => ''
14498: ,p_attribute4 => ''
14499: ,p_attribute5 => '');
14500: p_return_status := FND_API.G_RET_STS_ERROR;
14501: RAISE FND_API.G_EXC_ERROR;
14502: END IF;
14503: END IF;
14504: */
14497: ,p_attribute3 => ''
14498: ,p_attribute4 => ''
14499: ,p_attribute5 => '');
14500: p_return_status := FND_API.G_RET_STS_ERROR;
14501: RAISE FND_API.G_EXC_ERROR;
14502: END IF;
14503: END IF;
14504: */
14505: -- Initialize the message table if requested.
14503: END IF;
14504: */
14505: -- Initialize the message table if requested.
14506:
14507: IF FND_API.TO_BOOLEAN( p_init_msg_list )
14508: THEN
14509:
14510: FND_MSG_PUB.initialize;
14511:
14512: END IF;
14513:
14514: -- Set API return status to success
14515:
14516: p_return_status := FND_API.G_RET_STS_SUCCESS;
14517:
14518:
14519: --CHECK FOR MANDATORY FIELDS and CONVERT VALUES to ID's
14520:
14527: p_pa_project_id => p_pa_project_id,
14528: p_out_project_id => l_project_id,
14529: p_return_status => p_return_status );
14530:
14531: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
14532: THEN
14533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14534:
14535: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
14529: p_return_status => p_return_status );
14530:
14531: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
14532: THEN
14533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14534:
14535: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
14536: THEN
14537: RAISE FND_API.G_EXC_ERROR;
14531: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
14532: THEN
14533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14534:
14535: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
14536: THEN
14537: RAISE FND_API.G_EXC_ERROR;
14538: END IF;
14539:
14533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14534:
14535: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
14536: THEN
14537: RAISE FND_API.G_EXC_ERROR;
14538: END IF;
14539:
14540: -- Commenting out the code below as all the security checks are shifted to a common API
14541: /*
14559: ,p_attribute2 => ''
14560: ,p_attribute3 => ''
14561: ,p_attribute4 => ''
14562: ,p_attribute5 => '');
14563: p_return_status := FND_API.G_RET_STS_ERROR;
14564: RAISE FND_API.G_EXC_ERROR;
14565: ELSE
14566: -- If the user has query privileges, then check whether
14567: -- update privileges are also available
14560: ,p_attribute3 => ''
14561: ,p_attribute4 => ''
14562: ,p_attribute5 => '');
14563: p_return_status := FND_API.G_RET_STS_ERROR;
14564: RAISE FND_API.G_EXC_ERROR;
14565: ELSE
14566: -- If the user has query privileges, then check whether
14567: -- update privileges are also available
14568: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
14578: ,p_attribute2 => ''
14579: ,p_attribute3 => ''
14580: ,p_attribute4 => ''
14581: ,p_attribute5 => '');
14582: p_return_status := FND_API.G_RET_STS_ERROR;
14583: RAISE FND_API.G_EXC_ERROR;
14584: END IF;
14585: END IF;
14586: END IF;
14579: ,p_attribute3 => ''
14580: ,p_attribute4 => ''
14581: ,p_attribute5 => '');
14582: p_return_status := FND_API.G_RET_STS_ERROR;
14583: RAISE FND_API.G_EXC_ERROR;
14584: END IF;
14585: END IF;
14586: END IF;
14587: */
14606: ,x_return_status => l_return_status
14607: ,x_msg_count => l_msg_count
14608: ,x_msg_data => l_msg_data);
14609:
14610: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14611: RAISE FND_API.G_EXC_ERROR;
14612: END IF;
14613:
14614: -- In budget model intialise txn currency code to PFC
14607: ,x_msg_count => l_msg_count
14608: ,x_msg_data => l_msg_data);
14609:
14610: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14611: RAISE FND_API.G_EXC_ERROR;
14612: END IF;
14613:
14614: -- In budget model intialise txn currency code to PFC
14615: IF p_budget_type_code IS NOT NULL AND
14659: IF l_debug_mode = 'Y' THEN
14660: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
14661: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14662: END IF;
14663: RAISE FND_API.G_EXC_ERROR;
14664: END IF;
14665:
14666: -- Both Budget Type Info and Fin Plan Type info shouldn't be provided
14667:
14676: IF l_debug_mode = 'Y' THEN
14677: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
14678: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14679: END IF;
14680: RAISE FND_API.G_EXC_ERROR;
14681: END IF;
14682:
14683: -- get the person_id: used for locking checks
14684: PA_COMP_PROFILE_PUB.GET_USER_INFO
14708: pa_debug.g_err_stage := 'No budget version exists with i/p version id' ;
14709: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14710: END IF;
14711: CLOSE budget_version_info_cur;
14712: RAISE FND_API.G_EXC_ERROR;
14713:
14714: ELSE
14715: -- Check if the budget belongs to the same project
14716:
14724: pa_debug.g_err_stage := 'i/p version doesnot belong to i/p project' ;
14725: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14726: END IF;
14727: CLOSE budget_version_info_cur;
14728: RAISE FND_API.G_EXC_ERROR;
14729: END IF;
14730:
14731: -- The i/p budget version should be a working verion.
14732:
14740: pa_debug.g_err_stage := 'i/p version is not a working version' ;
14741: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14742: END IF;
14743: CLOSE budget_version_info_cur;
14744: RAISE FND_API.G_EXC_ERROR;
14745: END IF;
14746:
14747: -- If the budget version is a control item version throw error
14748:
14756: pa_debug.g_err_stage := 'i/p version is ci version' ;
14757: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14758: END IF;
14759: CLOSE budget_version_info_cur;
14760: RAISE FND_API.G_EXC_ERROR;
14761: END IF;
14762: END IF;
14763:
14764:
14787: IF l_debug_mode = 'Y' THEN
14788: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
14789: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14790: END IF;
14791: RAISE FND_API.G_EXC_ERROR;
14792: END IF;
14793: --bug #3636409. Validation for WorkPlan Versions which cannot be edited using this AMG interface.
14794:
14795: IF l_workplan_flag = 'Y' THEN
14801:
14802: PA_UTILS.ADD_MESSAGE
14803: (p_app_short_name => 'PA',
14804: p_msg_name => 'PA_FP_WP_BV_NOT_ALLOWED');
14805: RAISE FND_API.G_EXC_ERROR;
14806: END IF;
14807:
14808: -- version locked by process
14809: IF ( ( nvl( budget_version_info_rec.locked_by_person_id,0) = -98)
14811: PA_UTILS.ADD_MESSAGE
14812: ( p_app_short_name => 'PA',
14813: p_msg_name => 'PA_FP_LOCKED_BY_PRC');
14814: CLOSE budget_version_info_cur;
14815: RAISE FND_API.G_EXC_ERROR;
14816: END IF;
14817:
14818: -- version locked by another user
14819: IF (budget_version_info_rec.locked_by_person_id is not null) then
14826: p_msg_name => 'PA_FP_LCK_BY_USER',
14827: p_token1 => 'PERSON_NAME',
14828: p_value1 => l_locked_by_name);
14829: CLOSE budget_version_info_cur;
14830: RAISE FND_API.G_EXC_ERROR;
14831: END IF;
14832: END IF;
14833: -- Get the status of the current working version. If the status is submitted then
14834: -- it can not be updated/deleted
14840: PA_UTILS.ADD_MESSAGE
14841: ( p_app_short_name => 'PA',
14842: p_msg_name => 'PA_FP_VER_SUB_STS');
14843: CLOSE budget_version_info_cur;
14844: RAISE FND_API.G_EXC_ERROR;
14845: END IF;
14846:
14847: l_entry_level := pa_fin_plan_utils.get_fin_plan_level_code(l_budget_version_id);
14848:
14860: ,X_msg_data => p_msg_data);
14861:
14862: -- Throw the error if the above API is not successfully executed
14863:
14864: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14865:
14866: IF l_debug_mode = 'Y' THEN
14867: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
14868: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
14867: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
14868: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
14869: END IF;
14870:
14871: RAISE FND_API.G_EXC_ERROR;
14872: END IF;
14873:
14874: --Check for l_editable_flag. If it returns N, then raise PA_FP_PLAN_TYPE_NON_EDITABLE.
14875:
14887: p_value1 => l_amg_project_rec.segment1,
14888: p_token2 => 'PLAN_TYPE',
14889: p_value2 => l_fin_plan_type_name);
14890:
14891: RAISE FND_API.G_EXC_ERROR;
14892: END IF;
14893: END IF;
14894:
14895: ELSE
14931: ,x_msg_data => p_msg_data);
14932:
14933: -- Throw the error if the above API is not successfully executed
14934:
14935: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14936:
14937: IF l_debug_mode = 'Y' THEN
14938: pa_debug.g_err_stage := 'Plan Type validation have failed' ;
14939: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14937: IF l_debug_mode = 'Y' THEN
14938: pa_debug.g_err_stage := 'Plan Type validation have failed' ;
14939: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14940: END IF;
14941: RAISE FND_API.G_EXC_ERROR;
14942: END IF;
14943:
14944: -- Now, we have a valid fin plan type id
14945: -- Check if the fin plan type code is 'ORG_FORECAST' if so throw an error
14966: IF l_debug_mode = 'Y' THEN
14967: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
14968: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14969: END IF;
14970: RAISE FND_API.G_EXC_ERROR;
14971: END IF;
14972: EXCEPTION
14973: WHEN OTHERS THEN
14974: IF l_debug_mode = 'Y' THEN
14974: IF l_debug_mode = 'Y' THEN
14975: pa_debug.g_err_stage := 'Unexpected error while fetching the plan type code'||SQLERRM ;
14976: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14977: END IF;
14978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14979: END;
14980:
14981: --bug #3636409. Validation for WorkPlan Versions which cannot be edited using this AMG interface.
14982:
14989:
14990: PA_UTILS.ADD_MESSAGE
14991: (p_app_short_name => 'PA',
14992: p_msg_name => 'PA_FP_WP_BV_NOT_ALLOWED');
14993: RAISE FND_API.G_EXC_ERROR;
14994: END IF;
14995: --bug #3636409. Validation for workplan versions ends here.
14996:
14997: -- Bug 2863564 Check if the plan type has been attached to the project or not.
15014: pa_debug.g_err_stage := 'plan type not attached to project' ;
15015: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15016: END IF;
15017: CLOSE proj_fp_options_cur;
15018: RAISE FND_API.G_EXC_ERROR;
15019: END IF;
15020:
15021: CLOSE proj_fp_options_cur;
15022:
15042: ,x_return_status => p_return_status
15043: ,x_msg_count => p_msg_count
15044: ,x_msg_data => p_msg_data);
15045:
15046: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15047: IF l_debug_mode = 'Y' THEN
15048: pa_debug.g_err_stage := 'getversiontype Failed ' ;
15049: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15050: END IF;
15047: IF l_debug_mode = 'Y' THEN
15048: pa_debug.g_err_stage := 'getversiontype Failed ' ;
15049: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15050: END IF;
15051: RAISE FND_API.G_EXC_ERROR;
15052: END IF;
15053:
15054: --bug #3636409. Validation for allow_edit_after_baseline_flag starts here.
15055: l_autobaseline_flag := l_amg_project_rec.baseline_funding_flag;
15066: ,X_msg_data => p_msg_data);
15067:
15068: -- Throw the error if the above API is not successfully executed
15069:
15070: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15071:
15072: IF l_debug_mode = 'Y' THEN
15073: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
15074: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15073: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
15074: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15075: END IF;
15076:
15077: RAISE FND_API.G_EXC_ERROR;
15078: END IF;
15079:
15080: --Check for l_editable_flag. If it returns N, then raise PA_FP_PLAN_TYPE_NON_EDITABLE.
15081:
15093: p_value1 => l_amg_project_rec.segment1,
15094: p_token2 => 'PLAN_TYPE',
15095: p_value2 => l_fin_plan_type_name);
15096:
15097: RAISE FND_API.G_EXC_ERROR;
15098: END IF;
15099: END IF;
15100: --bug #3636409. Validation for allow_edit_after_baseline_flag ends here.
15101:
15117: ,x_return_status => p_return_status
15118: ,x_msg_count => p_msg_count
15119: ,x_msg_data => p_msg_data );
15120:
15121: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15122: IF l_debug_mode = 'Y' THEN
15123: pa_debug.g_err_stage := 'getVersionId api Failed ' ;
15124: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15125: END IF;
15122: IF l_debug_mode = 'Y' THEN
15123: pa_debug.g_err_stage := 'getVersionId api Failed ' ;
15124: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15125: END IF;
15126: RAISE FND_API.G_EXC_ERROR;
15127: END IF;
15128:
15129: -- If the budget version is a control item version throw error
15130:
15138: IF l_debug_mode = 'Y' THEN
15139: pa_debug.g_err_stage := 'i/p version is ci version' ;
15140: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15141: END IF;
15142: RAISE FND_API.G_EXC_ERROR;
15143: END IF;
15144: ELSE
15145: -- Fetch the current working version for the project, finplan type and verion type
15146:
15153: ,x_return_status => p_return_status
15154: ,x_msg_count => p_msg_count
15155: ,x_msg_data => p_msg_data );
15156:
15157: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15158: IF l_debug_mode = 'Y' THEN
15159: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
15160: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15161: END IF;
15158: IF l_debug_mode = 'Y' THEN
15159: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
15160: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15161: END IF;
15162: RAISE FND_API.G_EXC_ERROR;
15163: END IF;
15164:
15165: END IF;
15166:
15184: IF l_debug_mode = 'Y' THEN
15185: pa_debug.g_err_stage := 'Budget Version does not exist' ;
15186: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15187: END IF;
15188: RAISE FND_API.G_EXC_ERROR;
15189: Else
15190: -- Fetch budget version info
15191: OPEN budget_version_info_cur(l_budget_version_id);
15192: FETCH budget_version_info_cur INTO budget_version_info_rec;
15198: ( p_app_short_name => 'PA',
15199: p_msg_name => 'PA_FP_LOCKED_BY_PRC');
15200:
15201: CLOSE budget_version_info_cur;
15202: RAISE FND_API.G_EXC_ERROR;
15203: END IF;
15204:
15205: -- version locked by another user
15206: IF (budget_version_info_rec.locked_by_person_id is not null) then
15212: p_msg_name => 'PA_FP_LCK_BY_USER',
15213: p_token1 => 'PERSON_NAME',
15214: p_value1 => l_locked_by_name);
15215: CLOSE budget_version_info_cur;
15216: RAISE FND_API.G_EXC_ERROR;
15217: END IF;
15218: END IF;
15219:
15220: -- Get the status of the current working version. If the status is submitted then
15227: PA_UTILS.ADD_MESSAGE
15228: ( p_app_short_name => 'PA',
15229: p_msg_name => 'PA_FP_VER_SUB_STS');
15230: CLOSE budget_version_info_cur;
15231: RAISE FND_API.G_EXC_ERROR;
15232: END IF;
15233:
15234: IF budget_version_info_rec.plan_processing_code IN ('XLUE','XLUP') THEN
15235:
15241: ,x_return_status => p_return_status
15242: ,x_msg_count => p_msg_count
15243: ,x_msg_data => p_msg_data);
15244:
15245: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15246: IF l_debug_mode = 'Y' THEN
15247: pa_debug.g_err_stage := 'Validate plan processing code api Failed ' ;
15248: pa_debug.write('Processing Code'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15249: END IF;
15246: IF l_debug_mode = 'Y' THEN
15247: pa_debug.g_err_stage := 'Validate plan processing code api Failed ' ;
15248: pa_debug.write('Processing Code'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15249: END IF;
15250: RAISE FND_API.G_EXC_ERROR;
15251: END IF;
15252:
15253: END IF;
15254:
15282: ,p_attribute3 => p_budget_type_code
15283: ,p_attribute4 => ''
15284: ,p_attribute5 => '');
15285: END IF;
15286: RAISE FND_API.G_EXC_ERROR;
15287: ELSE
15288: */
15289:
15290: -- If the budget_type info is passed, we are in the context of old bugets model
15311: ,p_attribute4 => ''
15312: ,p_attribute5 => '');
15313: END IF;
15314: CLOSE l_budget_type_csr;
15315: RAISE FND_API.G_EXC_ERROR;
15316: END IF;
15317: CLOSE l_budget_type_csr;
15318:
15319: -- fetch the draft version id
15332: pa_debug.g_err_stage := 'Draft Budget Version does not exist' ;
15333: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15334: END IF;
15335: CLOSE draft_version_cur;
15336: RAISE FND_API.G_EXC_ERROR;
15337: ELSE
15338: l_budget_version_id := draft_version_rec.budget_version_id;
15339: END IF;
15340: CLOSE draft_version_cur;
15358: ,x_return_status => p_return_status
15359: ,x_msg_count => p_msg_count
15360: ,x_msg_data => p_msg_data );
15361:
15362: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15363: IF(l_debug_mode='Y') THEN
15364: pa_debug.g_err_stage := 'Auto baseline API falied';
15365: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15366: END IF;
15363: IF(l_debug_mode='Y') THEN
15364: pa_debug.g_err_stage := 'Auto baseline API falied';
15365: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15366: END IF;
15367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15368: END IF;
15369:
15370: IF l_result = 'F' THEN
15371: IF(l_debug_mode='Y') THEN
15376: p_app_short_name => 'PA'
15377: ,p_msg_name => 'PA_FP_AB_AR_VER_NON_EDITABLE'
15378: ,p_token1 => 'PROJECT'
15379: ,p_value1 => l_amg_project_rec.segment1);
15380: RAISE FND_API.G_EXC_ERROR;
15381: END IF;
15382:
15383: IF l_context = l_context_budget
15384: THEN
15391: ,x_return_status => p_return_status
15392: ,x_msg_count => p_msg_count
15393: ,x_msg_data => p_msg_data );
15394:
15395: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15396: IF(l_debug_mode='Y') THEN
15397: pa_debug.g_err_stage := 'get_version_type_for_bdgt_type API falied';
15398: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15399: END IF;
15396: IF(l_debug_mode='Y') THEN
15397: pa_debug.g_err_stage := 'get_version_type_for_bdgt_type API falied';
15398: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15399: END IF;
15400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15401: END IF;
15402: END IF;
15403:
15404: IF p_update_db_flag = 'Y'
15420: -- The above API adds the error message to stack. Hence the message is not added here.
15421: -- Also, as security check is important further validations are not done in case this
15422: -- validation fails.
15423:
15424: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS OR l_security_ret_code <> 'Y') THEN
15425:
15426: IF l_debug_mode = 'Y' THEN
15427: pa_debug.g_err_stage:= 'Security API Failed';
15428: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15427: pa_debug.g_err_stage:= 'Security API Failed';
15428: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15429: END IF;
15430:
15431: RAISE FND_API.G_EXC_ERROR;
15432: END IF;
15433: END IF;
15434:
15435: -- Bug 2863564
15451: ,x_return_status => p_return_status
15452: ,x_msg_count => p_msg_count
15453: ,x_msg_data => p_msg_data);
15454:
15455: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15456:
15457: -- Error message is not added here as the api lock_unlock_version
15458: -- adds the message to stack
15459: IF(l_debug_mode='Y') THEN
15460: pa_debug.g_err_stage := 'Failed in locking the version';
15461: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15462: END IF;
15463:
15464: RAISE FND_API.G_EXC_ERROR;
15465: END IF;
15466:
15467: END IF;
15468:
15515: , x_msg_count => p_msg_count
15516: );
15517:
15518: -- calling api above adds the error message to stack hence not adding the error message here.
15519: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15520: THEN
15521: IF l_debug_mode = 'Y' THEN
15522: pa_debug.g_err_stage:= 'Calculate_Amounts returned unexp error';
15523: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15521: IF l_debug_mode = 'Y' THEN
15522: pa_debug.g_err_stage:= 'Calculate_Amounts returned unexp error';
15523: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15524: END IF;
15525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15526: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15527: THEN
15528: IF l_debug_mode = 'Y' THEN
15529: pa_debug.g_err_stage:= 'Calculate_Amounts returned error';
15522: pa_debug.g_err_stage:= 'Calculate_Amounts returned unexp error';
15523: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15524: END IF;
15525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15526: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15527: THEN
15528: IF l_debug_mode = 'Y' THEN
15529: pa_debug.g_err_stage:= 'Calculate_Amounts returned error';
15530: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15528: IF l_debug_mode = 'Y' THEN
15529: pa_debug.g_err_stage:= 'Calculate_Amounts returned error';
15530: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15531: END IF;
15532: RAISE FND_API.G_EXC_ERROR;
15533: END IF;
15534:
15535:
15536: --If funds check is required then this budget cannot be updated thru AMG interface
15552: );
15553:
15554:
15555: -- calling api above adds the error message to stack hence not adding the error message here.
15556: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15557: THEN
15558: IF l_debug_mode = 'Y' THEN
15559: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
15560: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15558: IF l_debug_mode = 'Y' THEN
15559: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
15560: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15561: END IF;
15562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15563: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15564: THEN
15565: IF l_debug_mode = 'Y' THEN
15566: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
15559: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
15560: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15561: END IF;
15562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15563: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15564: THEN
15565: IF l_debug_mode = 'Y' THEN
15566: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
15567: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15565: IF l_debug_mode = 'Y' THEN
15566: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
15567: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15568: END IF;
15569: RAISE FND_API.G_EXC_ERROR;
15570: END IF;
15571:
15572: END IF; --(nvl(l_fck_req_flag,'N') = 'Y')
15573:
15659: ,p_attribute5 => '');
15660: END IF;
15661: CLOSE l_task_csr;
15662: p_multiple_task_msg := 'F';
15663: -- RAISE FND_API.G_EXC_ERROR;
15664: END IF;
15665: CLOSE l_task_csr;
15666: END IF; /* 2207733 */
15667:
15678: p_calc_budget_lines_out(l_line_ctr).txn_currency_code := l_txn_currency_code_tbl(i);
15679:
15680: -- Fix: 03-FEB-97, jwhite
15681: -- Added line to populate line return status. ---------------------------
15682: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_SUCCESS;
15683: -- ------------------------------------------------------------------------------
15684:
15685: l_calculated_raw_cost := l_txn_raw_cost_tbl(i);
15686: l_calculated_burdened_cost := l_txn_burdened_cost_tbl(i);
15723: THEN
15724: pa_utils.add_message
15725: ( p_app_short_name => 'PA'
15726: , p_msg_name => 'PA_BC_ENC_YR_NO_CHG_FUTURE');
15727: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
15728: p_multiple_task_msg := 'F';
15729: END IF;
15730:
15731: END IF;
15820: ,p_value5 => l_start_date_tbl(i)
15821: );
15822: END IF;
15823:
15824: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
15825: p_multiple_task_msg := 'F';
15826: -- RAISE FND_API.G_EXC_ERROR;
15827:
15828: ELSIF l_err_code < 0
15822: END IF;
15823:
15824: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
15825: p_multiple_task_msg := 'F';
15826: -- RAISE FND_API.G_EXC_ERROR;
15827:
15828: ELSIF l_err_code < 0
15829: THEN
15830:
15837: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
15838:
15839: END IF;
15840:
15841: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15843:
15844: END IF;
15845:
15838:
15839: END IF;
15840:
15841: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15843:
15844: END IF;
15845:
15846: /* if the Client extn amounts override the rate api derived amounts
15962: ,p_value5 => l_start_date_tbl(i)
15963: );
15964: END IF;
15965:
15966: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
15967: p_multiple_task_msg := 'F';
15968: -- RAISE FND_API.G_EXC_ERROR;
15969:
15970: ELSIF l_err_code < 0
15964: END IF;
15965:
15966: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
15967: p_multiple_task_msg := 'F';
15968: -- RAISE FND_API.G_EXC_ERROR;
15969:
15970: ELSIF l_err_code < 0
15971: THEN
15972:
15979: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
15980:
15981: END IF;
15982:
15983: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15985:
15986: END IF;
15987:
15980:
15981: END IF;
15982:
15983: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15985:
15986: END IF;
15987:
15988: /* re derive the burden cost rate override after calling the client extn Do it only for finplan model*/
16079: ,p_value5 => l_start_date_tbl(i)
16080: );
16081: END IF;
16082:
16083: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
16084: p_multiple_task_msg := 'F';
16085: -- RAISE FND_API.G_EXC_ERROR;
16086:
16087: ELSIF l_err_code < 0
16081: END IF;
16082:
16083: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_ERROR;
16084: p_multiple_task_msg := 'F';
16085: -- RAISE FND_API.G_EXC_ERROR;
16086:
16087: ELSIF l_err_code < 0
16088: THEN
16089:
16096: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
16097:
16098: END IF;
16099:
16100: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16102:
16103: END IF;
16104:
16097:
16098: END IF;
16099:
16100: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16102:
16103: END IF;
16104:
16105: /* rederive the override rates */
16228: CLOSE l_resource_assignment_csr;
16229:
16230: IF p_multiple_task_msg = 'F'
16231: THEN
16232: RAISE FND_API.G_EXC_ERROR;
16233: END IF;
16234:
16235: IF p_update_db_flag = 'Y' THEN
16236:
16261: ,x_msg_count => p_msg_count
16262: ,x_msg_data => p_msg_data);
16263: END IF;
16264:
16265: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16266: IF(l_debug_mode='Y') THEN
16267: pa_debug.g_err_stage := 'MRC failed';
16268: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16269: END IF;
16266: IF(l_debug_mode='Y') THEN
16267: pa_debug.g_err_stage := 'MRC failed';
16268: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16269: END IF;
16270: RAISE FND_API.G_EXC_ERROR;
16271: END IF;
16272: */
16273: --Summarizing the totals in the table pa_budget_versions
16274:
16315: pa_debug.g_err_stage := 'summerize_project_totals api failed';
16316: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16317: END IF;
16318:
16319: RAISE FND_API.G_EXC_ERROR;
16320:
16321: ELSIF l_err_code < 0
16322: THEN
16323:
16334: IF(l_debug_mode='Y') THEN
16335: pa_debug.g_err_stage := 'summerize_project_totals api failed with unexpected error ';
16336: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16337: END IF;
16338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16339:
16340: END IF;
16341:
16342: ELSIF l_context = l_context_finplan THEN
16353: ,x_return_status => p_return_status
16354: ,x_msg_count => p_msg_count
16355: ,x_msg_data => p_msg_data );
16356:
16357: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16358: -- Error message is not added here as the api lock_unlock_version
16359: -- adds the message to stack
16360: IF(l_debug_mode='Y') THEN
16361: pa_debug.g_err_stage := 'Failed in locking the version';
16360: IF(l_debug_mode='Y') THEN
16361: pa_debug.g_err_stage := 'Failed in locking the version';
16362: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16363: END IF;
16364: RAISE FND_API.G_EXC_ERROR;
16365: END IF;*/
16366:
16367: /* Call PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY for the MC conversions. */
16368:
16373: ,x_return_status => p_return_status
16374: ,x_msg_count => p_msg_count
16375: ,x_msg_data => p_msg_data);
16376:
16377: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16378: IF l_debug_mode = 'Y' THEN
16379: pa_debug.g_err_stage := 'Call to PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY errored... ';
16380: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16381: END IF;
16378: IF l_debug_mode = 'Y' THEN
16379: pa_debug.g_err_stage := 'Call to PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY errored... ';
16380: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16381: END IF;
16382: RAISE FND_API.G_EXC_ERROR;
16383: END IF;
16384:
16385: --IPM Architecture Enhancement - Start
16386:
16390: X_RETURN_STATUS => p_return_status,
16391: X_MSG_COUNT => p_msg_count,
16392: X_MSG_DATA => p_msg_data);
16393:
16394: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16395: IF l_debug_mode = 'Y' THEN
16396: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
16397: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16398: END IF;
16407: x_return_status => p_return_status,
16408: x_msg_data => p_msg_data,
16409: x_msg_count => p_msg_count );
16410:
16411: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16412: IF l_debug_mode = 'Y' THEN
16413: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
16414: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16415: END IF;
16426: ,x_msg_count => p_msg_count
16427: ,x_msg_data => p_msg_data ) ;
16428:
16429:
16430: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16431: IF l_debug_mode = 'Y' THEN
16432: pa_debug.g_err_stage := 'Call to PA_FP_ROLLUP_PKG errored... ';
16433: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16434: END IF;
16431: IF l_debug_mode = 'Y' THEN
16432: pa_debug.g_err_stage := 'Call to PA_FP_ROLLUP_PKG errored... ';
16433: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16434: END IF;
16435: RAISE FND_API.G_EXC_ERROR;
16436: END IF;
16437: -- Bug Fix: 4569365. Removed MRC code.
16438: /* Check if MRC is enabled and Call MRC API */
16439: /*
16443: x_msg_count => p_msg_count,
16444: x_msg_data => p_msg_data);
16445: END IF;
16446:
16447: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16448: IF l_debug_mode = 'Y' THEN
16449: pa_debug.g_err_stage := 'Unexpected exception in checking MRC Install '||sqlerrm;
16450: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16451: END IF;
16448: IF l_debug_mode = 'Y' THEN
16449: pa_debug.g_err_stage := 'Unexpected exception in checking MRC Install '||sqlerrm;
16450: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16451: END IF;
16452: RAISE FND_API.G_EXC_ERROR;
16453: END IF;
16454:
16455: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
16456: PA_MRC_FINPLAN.G_FINPLAN_MRC_OPTION_CODE = 'A' THEN
16462: x_msg_count => p_msg_count,
16463: x_msg_data => p_msg_data);
16464: END IF;
16465:
16466: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16467: IF l_debug_mode = 'Y' THEN
16468: pa_debug.g_err_stage := 'Unexpected exception in MRC API '||sqlerrm;
16469: pa_debug.write('Calculate_Amounts: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
16470: END IF;
16467: IF l_debug_mode = 'Y' THEN
16468: pa_debug.g_err_stage := 'Unexpected exception in MRC API '||sqlerrm;
16469: pa_debug.write('Calculate_Amounts: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
16470: END IF;
16471: RAISE FND_API.G_EXC_ERROR;
16472: END IF;
16473: */
16474:
16475: -- populating the l_budget_version_id_tbl with p_budget_version_id
16480: p_fp_version_ids => l_budget_version_id_tbl,
16481: x_return_status => p_return_status,
16482: x_msg_code => p_msg_data);
16483:
16484: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16485: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16486: p_msg_name => p_msg_data);
16487: RAISE FND_API.G_EXC_ERROR;
16488: END IF;
16483:
16484: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16485: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16486: p_msg_name => p_msg_data);
16487: RAISE FND_API.G_EXC_ERROR;
16488: END IF;
16489:
16490: -- Call PLAN_CREATE to create summarization data as per the new RBS
16491: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE (
16492: p_fp_version_ids => l_budget_version_id_tbl,
16493: x_return_status => p_return_status,
16494: x_msg_code => p_msg_data);
16495:
16496: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16497: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16498: p_msg_name => p_msg_data);
16499: RAISE FND_API.G_EXC_ERROR;
16500: END IF;
16495:
16496: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16497: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16498: p_msg_name => p_msg_data);
16499: RAISE FND_API.G_EXC_ERROR;
16500: END IF;
16501:
16502:
16503: -- Bug 2863564 We need to unlock the version
16515: ,x_return_status => p_return_status
16516: ,x_msg_count => p_msg_count
16517: ,x_msg_data => p_msg_data);
16518:
16519: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16520: -- Error message is not added here as the api lock_unlock_version
16521: -- adds the message to stack
16522: IF(l_debug_mode='Y') THEN
16523: pa_debug.g_err_stage := 'Failed in Unlocking the version';
16522: IF(l_debug_mode='Y') THEN
16523: pa_debug.g_err_stage := 'Failed in Unlocking the version';
16524: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16525: END IF;
16526: RAISE FND_API.G_EXC_ERROR;
16527: END IF;
16528:
16529: -- We need to populate the PC, PFC amounts also in the OUT table
16530: -- in the context of new budgets model. So, open the
16590: p_calc_budget_lines_out(l_line_ctr).period_name := l_period_name_tbl(i);
16591: p_calc_budget_lines_out(l_line_ctr).quantity := l_quantity_tbl(i);
16592: p_calc_budget_lines_out(l_line_ctr).display_quantity := l_display_quantity_tbl(i); --IPM Arch Enhancement Bug 4865563
16593: p_calc_budget_lines_out(l_line_ctr).txn_currency_code := l_txn_currency_code_tbl(i);
16594: p_calc_budget_lines_out(l_line_ctr).return_status := FND_API.G_RET_STS_SUCCESS;
16595: p_calc_budget_lines_out(l_line_ctr).calculated_raw_cost := l_txn_raw_cost_tbl(i);
16596: p_calc_budget_lines_out(l_line_ctr).calculated_burdened_cost := l_txn_burdened_cost_tbl(i);
16597: p_calc_budget_lines_out(l_line_ctr).calculated_revenue := l_txn_revenue_tbl(i);
16598: p_calc_budget_lines_out(l_line_ctr).project_raw_cost := l_project_raw_cost_tbl(i);
16620: );
16621: end if;
16622:
16623:
16624: IF FND_API.TO_BOOLEAN( p_commit )
16625: THEN
16626: COMMIT;
16627: END IF;
16628:
16627: END IF;
16628:
16629: EXCEPTION
16630:
16631: WHEN FND_API.G_EXC_ERROR
16632: THEN
16633: ROLLBACK TO calculate_amounts_pub;
16634:
16635: p_return_status := FND_API.G_RET_STS_ERROR;
16631: WHEN FND_API.G_EXC_ERROR
16632: THEN
16633: ROLLBACK TO calculate_amounts_pub;
16634:
16635: p_return_status := FND_API.G_RET_STS_ERROR;
16636:
16637: FND_MSG_PUB.Count_And_Get
16638: (p_count => p_msg_count ,
16639: p_data => p_msg_data );
16637: FND_MSG_PUB.Count_And_Get
16638: (p_count => p_msg_count ,
16639: p_data => p_msg_data );
16640:
16641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
16642: THEN
16643:
16644: ROLLBACK TO calculate_amounts_pub;
16645:
16642: THEN
16643:
16644: ROLLBACK TO calculate_amounts_pub;
16645:
16646: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16647:
16648: FND_MSG_PUB.Count_And_Get
16649: (p_count => p_msg_count ,
16650: p_data => p_msg_data );
16651: WHEN OTHERS
16652: THEN
16653: ROLLBACK TO calculate_amounts_pub;
16654:
16655: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16656:
16657: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16658: THEN
16659: FND_MSG_PUB.add_exc_msg
16708: -- 25-MAR-2003 Rajagopal Modified for New Fin Plan Model
16709: --
16710: PROCEDURE Execute_Calculate_Amounts
16711: ( p_api_version_number IN NUMBER
16712: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
16713: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
16714: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
16715: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
16716: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
16709: --
16710: PROCEDURE Execute_Calculate_Amounts
16711: ( p_api_version_number IN NUMBER
16712: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
16713: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
16714: ,p_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
16715: ,p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
16716: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
16717: ,p_tot_budget_lines_calculated OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
16739: SAVEPOINT execute_calculate_amounts;
16740:
16741: -- Standard call to check for call compatibility.
16742:
16743: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
16744: p_api_version_number ,
16745: l_api_name ,
16746: G_PKG_NAME )
16747: THEN
16744: p_api_version_number ,
16745: l_api_name ,
16746: G_PKG_NAME )
16747: THEN
16748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16749: END IF;
16750: -- Initialize the message table if requested.
16751:
16752: IF FND_API.TO_BOOLEAN( p_init_msg_list )
16748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16749: END IF;
16750: -- Initialize the message table if requested.
16751:
16752: IF FND_API.TO_BOOLEAN( p_init_msg_list )
16753: THEN
16754: FND_MSG_PUB.initialize;
16755: END IF;
16756: -- Set API return status to success
16753: THEN
16754: FND_MSG_PUB.initialize;
16755: END IF;
16756: -- Set API return status to success
16757: p_return_status := FND_API.G_RET_STS_SUCCESS;
16758: p_tot_budget_lines_calculated := 0;
16759:
16760: Calculate_Amounts
16761: ( p_api_version_number => p_api_version_number
16781: ,p_budget_version_id => p_budget_version_id
16782: );
16783:
16784:
16785: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16786: THEN
16787:
16788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16789:
16784:
16785: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16786: THEN
16787:
16788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16789:
16790: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
16791: THEN
16792: RAISE FND_API.G_EXC_ERROR;
16786: THEN
16787:
16788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16789:
16790: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
16791: THEN
16792: RAISE FND_API.G_EXC_ERROR;
16793: END IF;
16794:
16788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16789:
16790: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
16791: THEN
16792: RAISE FND_API.G_EXC_ERROR;
16793: END IF;
16794:
16795: IF G_calc_budget_lines_out_tbl.EXISTS(1) THEN
16796: p_tot_budget_lines_calculated := G_calc_budget_lines_out_tbl.COUNT;
16795: IF G_calc_budget_lines_out_tbl.EXISTS(1) THEN
16796: p_tot_budget_lines_calculated := G_calc_budget_lines_out_tbl.COUNT;
16797: END IF;
16798:
16799: IF fnd_api.to_boolean(p_commit) THEN
16800: COMMIT;
16801: END IF;
16802: EXCEPTION
16803: WHEN FND_API.G_EXC_ERROR THEN
16799: IF fnd_api.to_boolean(p_commit) THEN
16800: COMMIT;
16801: END IF;
16802: EXCEPTION
16803: WHEN FND_API.G_EXC_ERROR THEN
16804: ROLLBACK TO execute_calculate_amounts;
16805: p_return_status := FND_API.G_RET_STS_ERROR;
16806: FND_MSG_PUB.Count_And_Get
16807: ( p_count => p_msg_count ,
16801: END IF;
16802: EXCEPTION
16803: WHEN FND_API.G_EXC_ERROR THEN
16804: ROLLBACK TO execute_calculate_amounts;
16805: p_return_status := FND_API.G_RET_STS_ERROR;
16806: FND_MSG_PUB.Count_And_Get
16807: ( p_count => p_msg_count ,
16808: p_data => p_msg_data );
16809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16805: p_return_status := FND_API.G_RET_STS_ERROR;
16806: FND_MSG_PUB.Count_And_Get
16807: ( p_count => p_msg_count ,
16808: p_data => p_msg_data );
16809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16810: ROLLBACK TO execute_calculate_amounts;
16811: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16812: FND_MSG_PUB.Count_And_Get
16813: ( p_count => p_msg_count ,
16807: ( p_count => p_msg_count ,
16808: p_data => p_msg_data );
16809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16810: ROLLBACK TO execute_calculate_amounts;
16811: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16812: FND_MSG_PUB.Count_And_Get
16813: ( p_count => p_msg_count ,
16814: p_data => p_msg_data );
16815: WHEN OTHERS THEN
16813: ( p_count => p_msg_count ,
16814: p_data => p_msg_data );
16815: WHEN OTHERS THEN
16816: ROLLBACK TO execute_calculate_amounts;
16817: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16819: THEN
16820: FND_MSG_PUB.add_exc_msg
16821: ( p_pkg_name => G_PKG_NAME
16844: --
16845: --
16846: PROCEDURE fetch_calculate_amounts
16847: ( p_api_version_number IN NUMBER
16848: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
16849: ,p_line_index IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
16850: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
16851: ,p_pa_task_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
16852: ,p_pm_task_reference OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
16869: BEGIN
16870:
16871: -- Standard call to check for call compatibility.
16872:
16873: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
16874: p_api_version_number ,
16875: l_api_name ,
16876: G_PKG_NAME )
16877: THEN
16875: l_api_name ,
16876: G_PKG_NAME )
16877: THEN
16878:
16879: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16880:
16881: END IF;
16882:
16883: -- Initialize the message table if requested.
16881: END IF;
16882:
16883: -- Initialize the message table if requested.
16884:
16885: IF FND_API.TO_BOOLEAN( p_init_msg_list )
16886: THEN
16887:
16888: FND_MSG_PUB.initialize;
16889:
16890: END IF;
16891:
16892: -- Set API return status to success
16893:
16894: p_return_status := FND_API.G_RET_STS_SUCCESS;
16895:
16896: -- Check index value,
16897: -- when they don't provide an index we will error out
16898:
16912: ,p_attribute4 => ''
16913: ,p_attribute5 => '');
16914: END IF;
16915:
16916: p_return_status := FND_API.G_RET_STS_ERROR;
16917: RAISE FND_API.G_EXC_ERROR;
16918: ELSE
16919: l_index := p_line_index;
16920: END IF;
16913: ,p_attribute5 => '');
16914: END IF;
16915:
16916: p_return_status := FND_API.G_RET_STS_ERROR;
16917: RAISE FND_API.G_EXC_ERROR;
16918: ELSE
16919: l_index := p_line_index;
16920: END IF;
16921:
16946: -- ----------------------------------------------------------------------------------------
16947:
16948: EXCEPTION
16949:
16950: WHEN FND_API.G_EXC_ERROR
16951: THEN
16952: p_return_status := FND_API.G_RET_STS_ERROR;
16953:
16954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
16948: EXCEPTION
16949:
16950: WHEN FND_API.G_EXC_ERROR
16951: THEN
16952: p_return_status := FND_API.G_RET_STS_ERROR;
16953:
16954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
16955: THEN
16956:
16950: WHEN FND_API.G_EXC_ERROR
16951: THEN
16952: p_return_status := FND_API.G_RET_STS_ERROR;
16953:
16954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
16955: THEN
16956:
16957: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16958:
16953:
16954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
16955: THEN
16956:
16957: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16958:
16959: WHEN OTHERS THEN
16960:
16961: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16957: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16958:
16959: WHEN OTHERS THEN
16960:
16961: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16962:
16963: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16964: THEN
16965: FND_MSG_PUB.add_exc_msg
17004: -- 24-MAR-2003 Rajagopal Created
17005: --
17006: PROCEDURE fetch_calculate_amounts
17007: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
17008: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17009: ,p_line_index IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
17010: ,p_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
17011: ,p_pa_task_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
17012: ,p_pm_task_reference OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
17032:
17033: l_api_name CONSTANT VARCHAR2(30) := 'fetch_calculate_amounts';
17034:
17035: BEGIN
17036: p_return_status := FND_API.G_RET_STS_SUCCESS;
17037:
17038: -- Call the existing fetch_calculate_amounts api
17039:
17040: PA_BUDGET_PUB.fetch_calculate_amounts
17054: ,p_calculated_burdened_cost => p_calculated_burdened_cost
17055: ,p_calculated_revenue => p_calculated_revenue
17056: ,p_line_return_status => p_line_return_status );
17057:
17058: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17059:
17060: RAISE FND_API.G_EXC_ERROR;
17061:
17062: END IF;
17056: ,p_line_return_status => p_line_return_status );
17057:
17058: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17059:
17060: RAISE FND_API.G_EXC_ERROR;
17061:
17062: END IF;
17063:
17064: -- Fetch the txn currency code of the budget line
17077: END IF;
17078:
17079: EXCEPTION
17080:
17081: WHEN FND_API.G_EXC_ERROR
17082: THEN
17083: p_return_status := FND_API.G_RET_STS_ERROR;
17084:
17085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
17079: EXCEPTION
17080:
17081: WHEN FND_API.G_EXC_ERROR
17082: THEN
17083: p_return_status := FND_API.G_RET_STS_ERROR;
17084:
17085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
17086: THEN
17087:
17081: WHEN FND_API.G_EXC_ERROR
17082: THEN
17083: p_return_status := FND_API.G_RET_STS_ERROR;
17084:
17085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
17086: THEN
17087:
17088: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17089:
17084:
17085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
17086: THEN
17087:
17088: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17089:
17090: WHEN OTHERS THEN
17091:
17092: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17088: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17089:
17090: WHEN OTHERS THEN
17091:
17092: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17093:
17094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
17095: THEN
17096: FND_MSG_PUB.add_exc_msg
17101: END fetch_calculate_amounts;
17102:
17103: PROCEDURE CREATE_DRAFT_FINPLAN
17104: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
17105: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
17106: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17107: ,p_pm_product_code IN pa_budget_versions.pm_product_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17108: ,p_pm_finplan_reference IN pa_budget_versions.pm_budget_reference%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17109: ,p_pm_project_reference IN pa_projects_all. PM_PROJECT_REFERENCE%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17102:
17103: PROCEDURE CREATE_DRAFT_FINPLAN
17104: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
17105: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
17106: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17107: ,p_pm_product_code IN pa_budget_versions.pm_product_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17108: ,p_pm_finplan_reference IN pa_budget_versions.pm_budget_reference%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17109: ,p_pm_project_reference IN pa_projects_all. PM_PROJECT_REFERENCE%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17110: ,p_pa_project_id IN pa_budget_versions.project_id%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
17348: --Standard begin of API savepoint
17349: SAVEPOINT create_draft_finplan_pub;
17350:
17351: x_msg_count := 0;
17352: x_return_status := FND_API.G_RET_STS_SUCCESS;
17353: pa_debug.set_err_stack('PA_BUDGET_PUB.CREATE_DRAFT_FINPLAN');
17354: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
17355: l_debug_mode := NVL(l_debug_mode, 'Y');
17356:
17656: ,x_msg_data => x_msg_data
17657: ,x_return_status => x_return_status
17658: );
17659:
17660: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS )
17661: THEN
17662: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17663: END IF;
17664:
17671: ,x_return_status => x_return_status
17672: ,x_msg_count => x_msg_count
17673: ,x_msg_data => x_msg_data );
17674:
17675: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17676: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17677: END IF;
17678:
17679: IF l_debug_mode = 'Y' THEN
17697: x_msg_count => x_msg_count,
17698: x_msg_data => x_msg_data
17699: );
17700:
17701: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
17702: IF l_debug_mode = 'Y' THEN
17703: pa_debug.g_err_stage := 'Error in lock unlock version - cannot delete working version';
17704: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
17705: END IF;
17713: ,x_return_status => x_return_status
17714: ,x_msg_count => x_msg_count
17715: ,x_msg_data => x_msg_data
17716: );
17717: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
17718: THEN
17719: pa_debug.g_err_stage:= 'Could not delete the current working version';
17720: IF l_debug_mode = 'Y' THEN
17721: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17802: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17803:
17804: END IF;
17805:
17806: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
17807:
17808: pa_debug.g_err_stage:= 'pa_fin_plan_utils.get_plan_amount_flags returned error';
17809: IF l_debug_mode = 'Y' THEN
17810: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17838: ,x_message_count => x_msg_count
17839: ,x_return_status => x_return_status
17840: ,x_message_data => x_msg_data
17841: );
17842: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
17843: IF l_debug_mode = 'Y' THEN
17844: pa_debug.g_err_stage := 'Error in pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID';
17845: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
17846: END IF;
17934: ,x_return_status => x_return_status
17935: ,x_msg_count => x_msg_count
17936: ,x_msg_data => x_msg_data );
17937:
17938: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
17939: pa_debug.g_err_stage:= 'Error Create_Version';
17940: IF l_debug_mode = 'Y' THEN
17941: pa_debug.write( l_procedure_name ||
17942: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18048: ,x_msg_count => l_msg_count
18049: ,x_msg_data => l_msg_data
18050: ,x_return_status => l_return_status);
18051:
18052: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18053: --dbms_output.put_line('error occurred while calling pa_budget_pvt.Validate_Budget_Lines');
18054: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18055: END IF;
18056:
18474: , x_return_status => l_return_status
18475: , x_msg_count => l_msg_count
18476: , x_msg_data => l_msg_data
18477: );
18478: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18479: THEN
18480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18481: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18482: THEN
18476: , x_msg_data => l_msg_data
18477: );
18478: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18479: THEN
18480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18481: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18482: THEN
18483: RAISE FND_API.G_EXC_ERROR;
18484: END IF;
18477: );
18478: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18479: THEN
18480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18481: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18482: THEN
18483: RAISE FND_API.G_EXC_ERROR;
18484: END IF;
18485: END IF; -- 3793370 -- P_finplan_trans_tab.COUNT > 0
18479: THEN
18480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18481: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18482: THEN
18483: RAISE FND_API.G_EXC_ERROR;
18484: END IF;
18485: END IF; -- 3793370 -- P_finplan_trans_tab.COUNT > 0
18486: /************************************
18487: l_fp_version_ids_tbl.extend;
18489: PJI_FM_XBS_ACCUM_MAINT.plan_create( p_fp_version_ids => l_fp_version_ids_tbl
18490: ,x_return_status => l_return_status
18491: ,x_msg_code => l_msg_code
18492: );
18493: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18494: THEN
18495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18496: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18497: THEN
18491: ,x_msg_code => l_msg_code
18492: );
18493: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18494: THEN
18495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18496: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18497: THEN
18498: RAISE FND_API.G_EXC_ERROR;
18499: END IF;
18492: );
18493: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18494: THEN
18495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18496: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18497: THEN
18498: RAISE FND_API.G_EXC_ERROR;
18499: END IF;
18500: ********************/
18494: THEN
18495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18496: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18497: THEN
18498: RAISE FND_API.G_EXC_ERROR;
18499: END IF;
18500: ********************/
18501:
18502: x_finplan_version_id := l_created_version_id;
18513: ,x_fin_plan_version_id => l_CW_version_id
18514: ,x_return_status => x_return_status
18515: ,x_msg_count => x_msg_count
18516: ,x_msg_data => x_msg_data );
18517: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18518: THEN
18519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18520: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18521: THEN
18515: ,x_msg_count => x_msg_count
18516: ,x_msg_data => x_msg_data );
18517: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18518: THEN
18519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18520: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18521: THEN
18522: RAISE FND_API.G_EXC_ERROR;
18523: END IF;
18516: ,x_msg_data => x_msg_data );
18517: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18518: THEN
18519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18520: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18521: THEN
18522: RAISE FND_API.G_EXC_ERROR;
18523: END IF;
18524: IF ( l_created_version_id <> l_CW_version_id )
18518: THEN
18519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18520: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18521: THEN
18522: RAISE FND_API.G_EXC_ERROR;
18523: END IF;
18524: IF ( l_created_version_id <> l_CW_version_id )
18525: THEN
18526: pa_debug.g_err_stage:= 'l_created_version_id [' || TO_CHAR(l_created_version_id) ||
18549: x_return_status => x_return_status,
18550: x_msg_count => x_msg_count,
18551: x_msg_data => x_msg_data) ;
18552:
18553: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
18554: IF l_debug_mode = 'Y' THEN
18555: pa_debug.g_err_stage := 'Error executing lock unlock version';
18556: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
18557: END IF;
18574: x_return_status => x_return_status,
18575: x_msg_count => x_msg_count,
18576: x_msg_data => x_msg_data);
18577:
18578: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18579: IF l_debug_mode = 'Y' THEN
18580: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
18581: pa_debug.write('CREATE_DRAFT: ' ||
18582: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18596: ,x_msg_count => x_msg_count
18597: ,x_msg_data => x_msg_data
18598: );
18599:
18600: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18601: THEN
18602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18603: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18604: THEN
18598: );
18599:
18600: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18601: THEN
18602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18603: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18604: THEN
18605: RAISE FND_API.G_EXC_ERROR;
18606: END IF;
18599:
18600: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
18601: THEN
18602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18603: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18604: THEN
18605: RAISE FND_API.G_EXC_ERROR;
18606: END IF;
18607: /*====================================================================+
18601: THEN
18602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18603: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR)
18604: THEN
18605: RAISE FND_API.G_EXC_ERROR;
18606: END IF;
18607: /*====================================================================+
18608: | If any of the budget lines had any rejections, set x_return_status |
18609: | appropriately - So, whoever calls this API would know - there was |
18611: +====================================================================*/
18612: IF ( x_return_status = 'R')
18613: THEN
18614: -- bug 3825873 donot raise error it will rollback the entire changes
18615: -- bug 3825873 RAISE FND_API.G_EXC_ERROR;
18616: x_return_status := 'S';
18617: END IF;
18618:
18619: --Changes for bug 3823485
18616: x_return_status := 'S';
18617: END IF;
18618:
18619: --Changes for bug 3823485
18620: IF FND_API.TO_BOOLEAN( p_commit )
18621: THEN
18622:
18623: IF l_debug_mode = 'Y' THEN
18624: pa_debug.g_err_stage := 'About to do a COMMIT';
18653: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18654: END IF;
18655:
18656: PA_INTERFACE_UTILS_PUB.get_messages
18657: ( p_encoded => FND_API.G_TRUE
18658: ,p_msg_index => 1
18659: ,p_msg_count => l_msg_count
18660: ,p_msg_data => l_msg_data
18661: ,p_data => l_msg_data
18671: x_msg_count := l_msg_count;
18672: END IF;
18673:
18674:
18675: x_return_status := FND_API.G_RET_STS_ERROR;
18676:
18677: IF l_debug_mode = 'Y' THEN
18678: pa_debug.g_err_stage:='In invalid args exception 3';
18679: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18683: WHEN OTHERS THEN
18684:
18685: ROLLBACK TO create_draft_finplan_pub;
18686:
18687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18688: x_msg_count := 1;
18689: x_msg_data := SQLERRM;
18690:
18691: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
18850: END load_resource_info;
18851:
18852: PROCEDURE EXECUTE_CREATE_DRAFT_FINPLAN
18853: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
18854: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
18855: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18856: ,p_pm_product_code IN pa_budget_versions.pm_product_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
18857: ,p_pm_finplan_reference IN pa_budget_versions.pm_budget_reference%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
18858: ,p_pm_project_reference IN pa_projects_all.PM_PROJECT_REFERENCE%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
18851:
18852: PROCEDURE EXECUTE_CREATE_DRAFT_FINPLAN
18853: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
18854: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
18855: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18856: ,p_pm_product_code IN pa_budget_versions.pm_product_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
18857: ,p_pm_finplan_reference IN pa_budget_versions.pm_budget_reference%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
18858: ,p_pm_project_reference IN pa_projects_all.PM_PROJECT_REFERENCE%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
18859: ,p_pa_project_id IN pa_budget_versions.project_id%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19071: --
19072:
19073: PROCEDURE update_plannning_element_attr
19074: (p_api_version_number IN NUMBER
19075: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
19076: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
19077: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19078: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19079: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19072:
19073: PROCEDURE update_plannning_element_attr
19074: (p_api_version_number IN NUMBER
19075: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
19076: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
19077: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19078: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19079: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19080: ,p_fin_plan_type_id IN pa_budget_versions.fin_plan_type_id%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19185: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
19186: l_debug_mode := NVL(l_debug_mode, 'Y');
19187:
19188: -- Initialize the return status to success
19189: x_return_status := FND_API.G_RET_STS_SUCCESS;
19190:
19191: IF FND_API.TO_BOOLEAN( p_init_msg_list )
19192: THEN
19193: FND_MSG_PUB.initialize;
19187:
19188: -- Initialize the return status to success
19189: x_return_status := FND_API.G_RET_STS_SUCCESS;
19190:
19191: IF FND_API.TO_BOOLEAN( p_init_msg_list )
19192: THEN
19193: FND_MSG_PUB.initialize;
19194: END IF;
19195:
19317: ,x_return_status => l_return_status );
19318: /*
19319: DBMS_OUTPUT.PUT_LINE('return status is '||l_return_status);
19320: */
19321: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
19322: THEN
19323: IF l_debug_mode = 'Y' THEN
19324: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_header_info',5);
19325: END IF;
19340:
19341: l_planning_start_date_tbl.extend(1);
19342: l_planning_start_date_tbl(i) := p_planning_element_rec_tbl(i).planning_start_date;
19343: if l_planning_start_date_tbl(i) is null then
19344: l_planning_start_date_tbl(i) :=FND_API.G_MISS_DATE;
19345: elsif l_planning_start_date_tbl(i) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE then
19346: l_planning_start_date_tbl(i) := null;
19347: end if;
19348:
19348:
19349: l_planning_end_date_tbl.extend(1);
19350: l_planning_end_date_tbl(i) := p_planning_element_rec_tbl(i).planning_end_date;
19351: if l_planning_end_date_tbl(i) is null then
19352: l_planning_end_date_tbl(i) :=FND_API.G_MISS_DATE;
19353: elsif l_planning_end_date_tbl(i) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE then
19354: l_planning_end_date_tbl(i) := null;
19355: end if;
19356:
19356:
19357: l_spread_curve_name_tbl.extend(1);
19358: l_spread_curve_name_tbl(i) := p_planning_element_rec_tbl(i).spread_curve;
19359: if l_spread_curve_name_tbl(i)is null then
19360: l_spread_curve_name_tbl(i) :=FND_API.G_MISS_CHAR;
19361: elsif l_spread_curve_name_tbl(i) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR then
19362: l_spread_curve_name_tbl(i) := null;
19363: end if;
19364:
19364:
19365: l_sp_fixed_date_tbl.extend(1);
19366: l_sp_fixed_date_tbl(i) := p_planning_element_rec_tbl(i).fixed_date;
19367: if l_sp_fixed_date_tbl(i) is null then
19368: l_sp_fixed_date_tbl(i) :=FND_API.G_MISS_DATE;
19369: elsif l_sp_fixed_date_tbl(i) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE then
19370: l_sp_fixed_date_tbl(i) := null;
19371: end if;
19372:
19372:
19373: l_etc_method_name_tbl.extend(1);
19374: l_etc_method_name_tbl(i) := p_planning_element_rec_tbl(i).etc_method_name;
19375: if l_etc_method_name_tbl(i) is null then
19376: l_etc_method_name_tbl(i) :=FND_API.G_MISS_CHAR;
19377: elsif l_etc_method_name_tbl(i) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR then
19378: l_etc_method_name_tbl(i) := null;
19379: end if;
19380:
19432: ,x_msg_count => l_msg_count
19433: ,x_msg_data => l_msg_data
19434: ,x_return_status => l_return_status);
19435:
19436: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19437:
19438: IF l_debug_mode = 'Y' THEN
19439: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_budget_lines',5);
19440: END IF;
19531: l_assignment_description_tbl(i) := p_planning_element_rec_tbl(i).assignment_description;
19532: if l_assignment_description_tbl(i) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR then
19533: l_assignment_description_tbl(i):=null;
19534: elsif l_assignment_description_tbl(i) = null then
19535: l_assignment_description_tbl(i):=FND_API.G_MISS_CHAR;
19536: end if;
19537:
19538: l_attribute_category_tbl(i) := p_planning_element_rec_tbl(i).attribute_category;
19539: l_attribute1_tbl(i) := p_planning_element_rec_tbl(i).attribute1;
19617: ,x_msg_data => l_msg_data
19618: ,x_return_status => l_return_status
19619: );
19620:
19621: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
19622: THEN
19623: IF l_debug_mode = 'Y' THEN
19624: pa_debug.write_file('Failed due to error in update_planning_transactions',5);
19625: END IF;
19636: l_msg_count := FND_MSG_PUB.count_msg;
19637:
19638: IF l_msg_count = 1 THEN
19639: PA_INTERFACE_UTILS_PUB.get_messages
19640: ( p_encoded => FND_API.G_TRUE
19641: ,p_msg_index => 1
19642: ,p_msg_count => l_msg_count
19643: ,p_msg_data => l_msg_data
19644: ,p_data => l_data
19654: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
19655: pa_debug.write_file('update_plannning_element_attr ' || x_msg_data,5);
19656: END IF;
19657:
19658: x_return_status:= FND_API.G_RET_STS_ERROR;
19659:
19660:
19661: pa_debug.reset_err_stack;
19662:
19663:
19664: WHEN Others THEN
19665:
19666:
19667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19668: x_msg_count := 1;
19669: x_msg_data := SQLERRM;
19670: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_BUDGET_PUB'
19671: ,p_procedure_name => 'update_plannning_element_attr');