[Home] [Help]
12:
13:
14: PROCEDURE Create_Task_Assignment_Periods
15: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
16: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
17: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
20: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
13:
14: PROCEDURE Create_Task_Assignment_Periods
15: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
16: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
17: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
19: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
20: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
21: ,p_pa_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
287: SAVEPOINT add_task_asgmt_periods;
288:
289: -- Standard call to check for call compatibility.
290:
291: IF NOT FND_API.Compatible_API_Call ( 1.0, --pa_project_pub.g_api_version_number ,
292: p_api_version_number ,
293: l_api_name ,
294: G_PKG_NAME )
295: THEN
293: l_api_name ,
294: G_PKG_NAME )
295: THEN
296:
297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
298:
299: END IF;
300:
301: --dbms_output.put_line('Fnd Api is compatible:');
297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
298:
299: END IF;
300:
301: --dbms_output.put_line('Fnd Api is compatible:');
302:
303: -- Initialize the message table if requested.
304:
305: IF FND_API.TO_BOOLEAN( p_init_msg_list )
301: --dbms_output.put_line('Fnd Api is compatible:');
302:
303: -- Initialize the message table if requested.
304:
305: IF FND_API.TO_BOOLEAN( p_init_msg_list )
306: THEN
307:
308: FND_MSG_PUB.initialize;
309:
310: END IF;
311:
312: -- Set API return status to success
313:
314: x_return_status := FND_API.G_RET_STS_SUCCESS;
315:
316: -- Initialize the message table if requested.
317: -- pm_product_code is mandatory
318:
337: ,p_attribute3 => ''
338: ,p_attribute4 => ''
339: ,p_attribute5 => '');
340: END IF;
341: RAISE FND_API.G_EXC_ERROR;
342:
343: END IF;
344:
345: --dbms_output.put_line('Product Code is checked:');
373: , p_out_project_id => l_project_id
374: , p_return_status => l_return_status
375: );
376:
377: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
378:
379: --dbms_output.put_line('Project_id not successful ');
380: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
381: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
380: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
381: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
382: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
383: END IF;
384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
385:
386: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
387:
388: --dbms_output.put_line('Project_id conv. not successful ');
382: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
383: END IF;
384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
385:
386: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
387:
388: --dbms_output.put_line('Project_id conv. not successful ');
389: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
390: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
389: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
390: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
391: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
392: END IF;
393: RAISE FND_API.G_EXC_ERROR;
394:
395: END IF;
396: END IF;
397:
432: p_msg_data => l_msg_data,
433: p_return_status => l_return_status,
434: p_function_allowed => l_function_allowed);
435:
436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
437: THEN
438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
439:
440: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
434: p_function_allowed => l_function_allowed);
435:
436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
437: THEN
438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
439:
440: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
441: THEN
442: RAISE FND_API.G_EXC_ERROR;
436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
437: THEN
438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
439:
440: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
441: THEN
442: RAISE FND_API.G_EXC_ERROR;
443: END IF;
444:
438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
439:
440: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
441: THEN
442: RAISE FND_API.G_EXC_ERROR;
443: END IF;
444:
445: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
446: pa_debug.g_err_stage:=' PA_PM_ADD_TASK_ASSIGNMENT function check successful.' || L_FuncProc;
457: ,p_attribute2 => ''
458: ,p_attribute3 => ''
459: ,p_attribute4 => ''
460: ,p_attribute5 => '');
461: RAISE FND_API.G_EXC_ERROR;
462: END IF;
463: --dbms_output.put_line('PA_FUNCTION_SECURITY_ENFORCED function check successful.');
464: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
465: pa_debug.g_err_stage:=' PA_FUNCTION_SECURITY_ENFORCED function check successful.' || L_FuncProc;
489: ,p_attribute2 => ''
490: ,p_attribute3 => ''
491: ,p_attribute4 => ''
492: ,p_attribute5 => '');
493: RAISE FND_API.G_EXC_ERROR;
494: END IF;
495:
496: --dbms_output.put_line('pa_security.allow_query or update successful..');
497: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
514: ,p_attribute3 => ''
515: ,p_attribute4 => ''
516: ,p_attribute5 => '');
517: END IF;
518: RAISE FND_API.G_EXC_ERROR;
519: END IF;
520:
521: --dbms_output.put_line('PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS IS Fine..');
522: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
555: ,p_attribute3 => ''
556: ,p_attribute4 => ''
557: ,p_attribute5 => '');
558: END IF;
559: RAISE FND_API.G_EXC_ERROR;
560: END IF;
561:
562: -- DHI ER: allowing multiple user to update task assignment
563: -- Removed logic to lock version.
570: --PA_UTILS.ADD_MESSAGE
571: -- (p_app_short_name => 'PA',
572: -- p_msg_name => 'PA_UPDATE_PUB_VER_ERR'
573: -- );
574: x_return_status := FND_API.G_RET_STS_ERROR;
575: RAISE FND_API.G_EXC_ERROR;
576: END IF;
577:
578: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
571: -- (p_app_short_name => 'PA',
572: -- p_msg_name => 'PA_UPDATE_PUB_VER_ERR'
573: -- );
574: x_return_status := FND_API.G_RET_STS_ERROR;
575: RAISE FND_API.G_EXC_ERROR;
576: END IF;
577:
578: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
579: pa_debug.g_err_stage:='struct_elem version id function check successful.' || L_FuncProc;
594: (p_app_short_name => 'PA',
595: p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH'
596: );
597: END IF;
598: x_return_status := FND_API.G_RET_STS_ERROR;
599: RAISE FND_API.G_EXC_ERROR;
600:
601: END IF;
602:
595: p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH'
596: );
597: END IF;
598: x_return_status := FND_API.G_RET_STS_ERROR;
599: RAISE FND_API.G_EXC_ERROR;
600:
601: END IF;
602:
603: --dbms_output.put_line(' budget version id: ' || l_budget_version_id );
698: p_msg_name => 'PA_TASK_REQUIRED'
699: );
700: END IF;
701:
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704:
705:
706:
734: p_msg_name => 'PA_TASK_REQUIRED'
735: );
736: END IF;
737:
738: RAISE FND_API.G_EXC_ERROR;
739: END IF;
740:
741:
742:
759: (p_app_short_name => 'PA',
760: p_msg_name => 'PA_TASK_VERSION_REQUIRED'
761: );
762:
763: RAISE FND_API.G_EXC_ERROR;
764: END IF;
765: END IF;
766:
767:
808: p_token1 => 'RESOURCE_REF',
809: p_value1 => p_task_assignment_periods_in(i).pm_task_asgmt_reference
810: );
811: END IF;
812: x_return_status := FND_API.G_RET_STS_ERROR;
813: RAISE FND_API.G_EXC_ERROR;
814:
815: END IF;
816:
809: p_value1 => p_task_assignment_periods_in(i).pm_task_asgmt_reference
810: );
811: END IF;
812: x_return_status := FND_API.G_RET_STS_ERROR;
813: RAISE FND_API.G_EXC_ERROR;
814:
815: END IF;
816:
817: -- Bug 3866222: validate period data
857: p_token5 => 'END_DATE',
858: p_value5 => p_task_assignment_periods_in(i).end_date
859: );
860:
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
864:
865: END IF;
858: p_value5 => p_task_assignment_periods_in(i).end_date
859: );
860:
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
864:
865: END IF;
866:
890: -- dbms_output.put_line('after l_period_name:'||l_period_name);
891: -- dbms_output.put_line('after l_period_start_date:'||l_period_start_date);
892: -- dbms_output.put_line('after l_period_end_date:'||l_period_end_date);
893:
894: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
895: RAISE FND_API.G_EXC_ERROR;
896: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: END IF;
891: -- dbms_output.put_line('after l_period_start_date:'||l_period_start_date);
892: -- dbms_output.put_line('after l_period_end_date:'||l_period_end_date);
893:
894: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
895: RAISE FND_API.G_EXC_ERROR;
896: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: END IF;
899: -- End of Bug 3866222: validate period data
892: -- dbms_output.put_line('after l_period_end_date:'||l_period_end_date);
893:
894: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
895: RAISE FND_API.G_EXC_ERROR;
896: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: END IF;
899: -- End of Bug 3866222: validate period data
900:
893:
894: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
895: RAISE FND_API.G_EXC_ERROR;
896: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: END IF;
899: -- End of Bug 3866222: validate period data
900:
901: -- Bug 8498316 - Raise an error if data is passed for a period which
930: p_value3 => l_rlm_alias,
931: p_token4 => 'G_SPREAD_FROM_DATE',
932: p_value4 => l_etc_start_date
933: );
934: x_return_status := FND_API.G_RET_STS_ERROR;
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937: END IF;
938:
931: p_token4 => 'G_SPREAD_FROM_DATE',
932: p_value4 => l_etc_start_date
933: );
934: x_return_status := FND_API.G_RET_STS_ERROR;
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937: END IF;
938:
939: /* Commenting for bug 8498316
983: PA_UTILS.ADD_MESSAGE
984: (p_app_short_name => 'PA',
985: p_msg_name => 'PA_INVALID_RES_LIST_MEM_ID'
986: );
987: x_return_status := FND_API.G_RET_STS_ERROR;
988: RAISE FND_API.G_EXC_ERROR;
989: END IF;
990: END IF;
991:
984: (p_app_short_name => 'PA',
985: p_msg_name => 'PA_INVALID_RES_LIST_MEM_ID'
986: );
987: x_return_status := FND_API.G_RET_STS_ERROR;
988: RAISE FND_API.G_EXC_ERROR;
989: END IF;
990: END IF;
991:
992: ELSIF p_task_assignment_periods_in(i).pa_task_assignment_id IS NULL AND
997: PA_UTILS.ADD_MESSAGE
998: (p_app_short_name => 'PA',
999: p_msg_name => 'PA_INVALID_RES_LIST_MEM_ID'
1000: );
1001: x_return_status := FND_API.G_RET_STS_ERROR;
1002: RAISE FND_API.G_EXC_ERROR;
1003: END IF;
1004: END IF;
1005:
998: (p_app_short_name => 'PA',
999: p_msg_name => 'PA_INVALID_RES_LIST_MEM_ID'
1000: );
1001: x_return_status := FND_API.G_RET_STS_ERROR;
1002: RAISE FND_API.G_EXC_ERROR;
1003: END IF;
1004: END IF;
1005:
1006:
1021: IF x_return_status <> 'S' THEN
1022: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1023: ,p_msg_name => x_msg_data
1024: );
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: RAISE FND_API.G_EXC_ERROR;
1027: END IF;
1028:
1029: ELSE
1022: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1023: ,p_msg_name => x_msg_data
1024: );
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: RAISE FND_API.G_EXC_ERROR;
1027: END IF;
1028:
1029: ELSE
1030: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1031: ,p_msg_name => 'PA_CBS_WP__COST_CODE_MNDTR'
1032: ,p_token1 => 'RES_NAME'
1033: ,p_value1 => PA_TASK_UTILS.get_resource_name(p_task_assignment_periods_in(i).resource_list_member_id)
1034: );
1035: x_return_status := FND_API.G_RET_STS_ERROR;
1036: RAISE FND_API.G_EXC_ERROR;
1037:
1038: END IF;
1039:
1032: ,p_token1 => 'RES_NAME'
1033: ,p_value1 => PA_TASK_UTILS.get_resource_name(p_task_assignment_periods_in(i).resource_list_member_id)
1034: );
1035: x_return_status := FND_API.G_RET_STS_ERROR;
1036: RAISE FND_API.G_EXC_ERROR;
1037:
1038: END IF;
1039:
1040: END IF;
1216: x_return_status => X_RETURN_STATUS );
1217: -- End of Bug Fix 5638541.
1218:
1219:
1220: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1222: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1223: RAISE FND_API.G_EXC_ERROR;
1224: END IF;
1217: -- End of Bug Fix 5638541.
1218:
1219:
1220: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1222: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1223: RAISE FND_API.G_EXC_ERROR;
1224: END IF;
1225:
1218:
1219:
1220: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1222: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1223: RAISE FND_API.G_EXC_ERROR;
1224: END IF;
1225:
1226: --Prior to calling do resets
1219:
1220: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1222: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1223: RAISE FND_API.G_EXC_ERROR;
1224: END IF;
1225:
1226: --Prior to calling do resets
1227:
1291: pa_debug.g_err_stage:='Return status after add fin plan lines:' ||x_return_status;
1292: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
1293: END IF;
1294:
1295: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1297: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1292: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
1293: END IF;
1294:
1295: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1297: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1300:
1293: END IF;
1294:
1295: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1297: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1300:
1301:
1294:
1295: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1297: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1300:
1301:
1302: --dbms_output.put_line(' Internal Add Tables index' || k_index);
1383: --dbms_output.put_line('End of Create Task Assignments:');
1384:
1385: EXCEPTION
1386:
1387: WHEN FND_API.G_EXC_ERROR
1388: THEN
1389: ROLLBACK TO add_task_asgmt_periods;
1390:
1391: x_return_status := FND_API.G_RET_STS_ERROR;
1387: WHEN FND_API.G_EXC_ERROR
1388: THEN
1389: ROLLBACK TO add_task_asgmt_periods;
1390:
1391: x_return_status := FND_API.G_RET_STS_ERROR;
1392: IF P_DEBUG_MODE = 'Y' THEN
1393: PA_DEBUG.write_log (x_module => G_PKG_NAME
1394: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
1395: ,x_log_level => 5);
1397: FND_MSG_PUB.Count_And_Get
1398: ( p_count => x_msg_count ,
1399: p_data => x_msg_data );
1400:
1401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1402: THEN
1403: ROLLBACK TO add_task_asgmt_periods;
1404:
1405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1402: THEN
1403: ROLLBACK TO add_task_asgmt_periods;
1404:
1405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1406: IF P_DEBUG_MODE = 'Y' THEN
1407: PA_DEBUG.write_log (x_module => G_PKG_NAME
1408: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
1409: ,x_log_level => 5);
1414:
1415: WHEN OTHERS THEN
1416: ROLLBACK TO add_task_asgmt_periods;
1417:
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1419: IF P_DEBUG_MODE = 'Y' THEN
1420: PA_DEBUG.write_log (x_module => G_PKG_NAME
1421: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
1422: ,x_log_level => 5);
1443: if p_char IS NOT NULL and p_char = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
1444:
1445: return to_char(NULL);
1446:
1447: elsif p_char IS NOT NULL and p_char = FND_API.G_MISS_CHAR THEN
1448:
1449: return to_char(NULL);
1450:
1451: elsif p_char IS NULL THEN
1449: return to_char(NULL);
1450:
1451: elsif p_char IS NULL THEN
1452:
1453: return fnd_api.g_miss_char;
1454:
1455: else
1456:
1457: return p_char;
1472: --dbms_output.put_line('entered pfnum 2');
1473:
1474: return to_number(NULL);
1475:
1476: elsif p_num IS NOT NULL and p_num = FND_API.G_MISS_NUM THEN
1477: --dbms_output.put_line('entered pfnum 3');
1478:
1479: return to_number(NULL);
1480:
1480:
1481: elsif p_num IS NULL THEN
1482: --dbms_output.put_line('entered pfnum 4');
1483:
1484: return fnd_api.g_miss_num;
1485:
1486: else
1487: --dbms_output.put_line('entered pfnum 5');
1488:
1502: if p_date IS NOT NULL and p_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
1503:
1504: return to_date(NULL);
1505:
1506: elsif p_date IS NOT NULL and p_date = FND_API.G_MISS_DATE THEN
1507:
1508: return to_date(NULL);
1509:
1510: elsif p_date IS NULL THEN
1508: return to_date(NULL);
1509:
1510: elsif p_date IS NULL THEN
1511:
1512: return fnd_api.g_miss_date;
1513:
1514: else
1515:
1516: return p_date;
1619: pa_debug.g_err_stage:='Entered ' || L_FuncProc ;
1620: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
1621: END IF;
1622:
1623: x_return_status := FND_API.G_RET_STS_SUCCESS;
1624:
1625: OPEN version_info;
1626: FETCH version_info INTO str;
1627: IF version_info%NOTFOUND THEN
1649: ,x_msg_count => x_msg_count
1650: ,x_msg_data => x_msg_data
1651: );
1652: --dbms_output.put_line(' After lock version upd str vers attr call return status' || x_return_status);
1653: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1655: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1656: PA_UTILS.ADD_MESSAGE
1657: (p_app_short_name => 'PA',
1650: ,x_msg_data => x_msg_data
1651: );
1652: --dbms_output.put_line(' After lock version upd str vers attr call return status' || x_return_status);
1653: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1655: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1656: PA_UTILS.ADD_MESSAGE
1657: (p_app_short_name => 'PA',
1658: p_msg_name => 'PA_PS_STRUC_VER_LOCKED'
1651: );
1652: --dbms_output.put_line(' After lock version upd str vers attr call return status' || x_return_status);
1653: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1655: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1656: PA_UTILS.ADD_MESSAGE
1657: (p_app_short_name => 'PA',
1658: p_msg_name => 'PA_PS_STRUC_VER_LOCKED'
1659: );
1656: PA_UTILS.ADD_MESSAGE
1657: (p_app_short_name => 'PA',
1658: p_msg_name => 'PA_PS_STRUC_VER_LOCKED'
1659: );
1660: RAISE FND_API.G_EXC_ERROR;
1661: END IF;
1662:
1663:
1664:
1665:
1666: --dbms_output.put_line(' Leaving lock version');
1667: EXCEPTION
1668:
1669: WHEN FND_API.G_EXC_ERROR
1670: THEN
1671:
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1673: IF P_DEBUG_MODE = 'Y' THEN
1668:
1669: WHEN FND_API.G_EXC_ERROR
1670: THEN
1671:
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1673: IF P_DEBUG_MODE = 'Y' THEN
1674: PA_DEBUG.write_log (x_module => G_PKG_NAME
1675: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
1676: ,x_log_level => 5);
1678: FND_MSG_PUB.Count_And_Get
1679: ( p_count => x_msg_count ,
1680: p_data => x_msg_data );
1681:
1682: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1683: THEN
1684:
1685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1686: IF P_DEBUG_MODE = 'Y' THEN
1681:
1682: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1683: THEN
1684:
1685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1686: IF P_DEBUG_MODE = 'Y' THEN
1687: PA_DEBUG.write_log (x_module => G_PKG_NAME
1688: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
1689: ,x_log_level => 5);
1693: p_data => x_msg_data );
1694:
1695: WHEN OTHERS THEN
1696:
1697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1698: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1699: PA_DEBUG.write_log (x_module => G_PKG_NAME
1700: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
1701: ,x_log_level => 5);
1859: l_unplanned_flag_tbl SYSTEM.PA_VARCHAR2_1_TBL_TYPE := SYSTEM.PA_VARCHAR2_1_TBL_TYPE(NULL);
1860:
1861: BEGIN
1862:
1863: x_return_status := FND_API.G_RET_STS_SUCCESS;
1864: x_msg_count := 0;
1865: x_msg_data := NULL;
1866: l_in_resource_list_member_id := p_resource_list_member_id;
1867: l_in_resource_class_code := p_resource_class_code;
1876: -- upon Apply Progress. Should get the PEOPLE class rlm in this case.
1877: -- Also, in shared case, we need to check whether resource list
1878: -- is a None resource list if the given rlm is of the people class.
1879: IF p_resource_list_member_id IS NULL OR
1880: p_resource_list_member_id = FND_API.G_MISS_NUM OR
1881: p_resource_class_code = 'PEOPLE' THEN
1882:
1883: l_resource_list_id := pa_task_assignment_utils.Get_WP_Resource_List_Id(p_project_id);
1884:
1888:
1889: --dbms_output.put_line('derive TA, l_uncategorized_flag:'||l_uncategorized_flag);
1890:
1891: IF p_resource_list_member_id IS NULL OR
1892: p_resource_list_member_id = FND_API.G_MISS_NUM THEN
1893:
1894: l_in_resource_list_member_id := PA_PLANNING_RESOURCE_UTILS.get_class_member_id(
1895: p_project_id => p_project_id,
1896: p_resource_list_id => l_resource_list_id,
1960: l_toggle_ta_display_flag := 'N';
1961: pa_task_assignment_utils.g_ta_display_flag := 'Y';
1962:
1963: IF (p_resource_list_member_id IS NULL OR
1964: p_resource_list_member_id = FND_API.G_MISS_NUM OR
1965: l_uncategorized_flag = 'Y') AND
1966: pa_task_assignment_utils.Check_Asgmt_Exists_In_Task(p_task_version_id) = 'N' THEN
1967:
1968: l_toggle_ta_display_flag := 'Y';
2007: --dbms_output.put_line('CASE 4: after add planning transaciton'||x_return_status);
2008: -- dbms_output.put_line('pa_task_assignment_utils.g_ta_display_flag:'||pa_task_assignment_utils.g_ta_display_flag);
2009:
2010:
2011: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2012:
2013: OPEN get_task_assignment(l_in_resource_list_member_id, l_in_cbs_element_id);
2014: FETCH get_task_assignment INTO l_resource_assignment_id, l_task_version_id, l_rate_based_flag, l_rbs_element_id;
2015: CLOSE get_task_assignment;
2059: -- Set the excetption Message and the stack
2060: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_TASK_ASSIGNMENTS_PVT.Derive_Task_Assignments'
2061: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2062: --
2063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2064:
2065: -- Start 4537865
2066: x_resource_assignment_id := NULL ;
2067: x_task_version_id := NULL ;
2166: );
2167:
2168: BEGIN
2169:
2170: x_return_status := FND_API.G_RET_STS_SUCCESS;
2171: x_msg_count := 0;
2172: x_msg_data := NULL;
2173:
2174: IF p_old_structure_version_id IS NOT NULL THEN
2247: WHEN OTHERS THEN
2248: -- Set the exception message and the stack
2249: FND_MSG_PUB.Add_Exc_Msg( p_pkg_name => 'PA_TASK_ASSIGNMENTS_PVT.Copy_Missing_Unplanned_Asgmts',
2250: p_procedure_name => PA_DEBUG.G_Err_Stack );
2251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2252: RAISE; -- This is optional depending on the needs
2253:
2254: END Copy_Missing_Unplanned_Asgmts;
2255:
2302:
2303:
2304: BEGIN
2305:
2306: x_return_status := FND_API.G_RET_STS_SUCCESS;
2307:
2308: IF p_time_phase_code <> PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P
2309: AND p_time_phase_code <> PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G THEN
2310: PA_UTILS.ADD_MESSAGE
2310: PA_UTILS.ADD_MESSAGE
2311: (p_app_short_name => 'PA',
2312: p_msg_name => 'PA_INVALID_TIMEPHASE_CODE'
2313: );
2314: RAISE FND_API.G_EXC_ERROR;
2315: END IF;
2316:
2317: --dbms_output.put_line('p_period_name:'||p_period_name);
2318:
2317: --dbms_output.put_line('p_period_name:'||p_period_name);
2318:
2319: --1. get dates from period name
2320: IF p_period_name IS NOT NULL
2321: AND p_period_name <> FND_API.G_MISS_CHAR
2322: AND p_period_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2323:
2324: OPEN get_period_dates_from_name;
2325: FETCH get_period_dates_from_name
2327: CLOSE get_period_dates_from_name;
2328:
2329: --2. get period name from dates
2330: ELSIF p_period_start_date IS NOT NULL
2331: AND p_period_start_date <> FND_API.G_MISS_DATE
2332: AND p_period_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2333:
2334: OPEN get_period_name_from_dates;
2335: FETCH get_period_name_from_dates
2352: p_value4 => p_period_start_date,
2353: p_token5 => 'END_DATE',
2354: p_value5 => p_period_end_date
2355: );
2356: RAISE FND_API.G_EXC_ERROR;
2357: ELSE
2358:
2359: P_PERIOD_NAME := l_period_name;
2360: P_PERIOD_START_DATE := l_period_start_date;
2364:
2365:
2366: EXCEPTION
2367:
2368: WHEN FND_API.G_EXC_ERROR THEN
2369: x_return_status := FND_API.G_RET_STS_ERROR;
2370:
2371: WHEN OTHERS THEN
2372: -- Set the exception message and the stack
2365:
2366: EXCEPTION
2367:
2368: WHEN FND_API.G_EXC_ERROR THEN
2369: x_return_status := FND_API.G_RET_STS_ERROR;
2370:
2371: WHEN OTHERS THEN
2372: -- Set the exception message and the stack
2373: FND_MSG_PUB.Add_Exc_Msg( p_pkg_name => 'PA_TASK_ASSIGNMENTS_PVT.Check_Period_Details',
2371: WHEN OTHERS THEN
2372: -- Set the exception message and the stack
2373: FND_MSG_PUB.Add_Exc_Msg( p_pkg_name => 'PA_TASK_ASSIGNMENTS_PVT.Check_Period_Details',
2374: p_procedure_name => PA_DEBUG.G_Err_Stack );
2375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2376:
2377: P_PERIOD_NAME := NULL ; -- 4537865
2378: P_PERIOD_START_DATE := NULL ; -- 4537865
2379: P_PERIOD_END_DATE := NULL ; -- 4537865