[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
249: SAVEPOINT add_task_asgmt_periods;
250:
251: -- Standard call to check for call compatibility.
252:
253: IF NOT FND_API.Compatible_API_Call ( 1.0, --pa_project_pub.g_api_version_number ,
254: p_api_version_number ,
255: l_api_name ,
256: G_PKG_NAME )
257: THEN
255: l_api_name ,
256: G_PKG_NAME )
257: THEN
258:
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260:
261: END IF;
262:
263: --dbms_output.put_line('Fnd Api is compatible:');
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260:
261: END IF;
262:
263: --dbms_output.put_line('Fnd Api is compatible:');
264:
265: -- Initialize the message table if requested.
266:
267: IF FND_API.TO_BOOLEAN( p_init_msg_list )
263: --dbms_output.put_line('Fnd Api is compatible:');
264:
265: -- Initialize the message table if requested.
266:
267: IF FND_API.TO_BOOLEAN( p_init_msg_list )
268: THEN
269:
270: FND_MSG_PUB.initialize;
271:
272: END IF;
273:
274: -- Set API return status to success
275:
276: x_return_status := FND_API.G_RET_STS_SUCCESS;
277:
278: -- Initialize the message table if requested.
279: -- pm_product_code is mandatory
280:
299: ,p_attribute3 => ''
300: ,p_attribute4 => ''
301: ,p_attribute5 => '');
302: END IF;
303: RAISE FND_API.G_EXC_ERROR;
304:
305: END IF;
306:
307: --dbms_output.put_line('Product Code is checked:');
335: , p_out_project_id => l_project_id
336: , p_return_status => l_return_status
337: );
338:
339: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
340:
341: --dbms_output.put_line('Project_id not successful ');
342: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
343: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
342: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
343: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
344: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
345: END IF;
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347:
348: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
349:
350: --dbms_output.put_line('Project_id conv. not successful ');
344: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
345: END IF;
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347:
348: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
349:
350: --dbms_output.put_line('Project_id conv. not successful ');
351: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
352: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
351: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
352: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
353: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
354: END IF;
355: RAISE FND_API.G_EXC_ERROR;
356:
357: END IF;
358: END IF;
359:
391: p_msg_data => l_msg_data,
392: p_return_status => l_return_status,
393: p_function_allowed => l_function_allowed);
394:
395: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
396: THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398:
399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
393: p_function_allowed => l_function_allowed);
394:
395: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
396: THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398:
399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
400: THEN
401: RAISE FND_API.G_EXC_ERROR;
395: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
396: THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398:
399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
400: THEN
401: RAISE FND_API.G_EXC_ERROR;
402: END IF;
403:
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398:
399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
400: THEN
401: RAISE FND_API.G_EXC_ERROR;
402: END IF;
403:
404: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
405: pa_debug.g_err_stage:=' PA_PM_ADD_TASK_ASSIGNMENT function check successful.' || L_FuncProc;
416: ,p_attribute2 => ''
417: ,p_attribute3 => ''
418: ,p_attribute4 => ''
419: ,p_attribute5 => '');
420: RAISE FND_API.G_EXC_ERROR;
421: END IF;
422: --dbms_output.put_line('PA_FUNCTION_SECURITY_ENFORCED function check successful.');
423: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
424: pa_debug.g_err_stage:=' PA_FUNCTION_SECURITY_ENFORCED function check successful.' || L_FuncProc;
448: ,p_attribute2 => ''
449: ,p_attribute3 => ''
450: ,p_attribute4 => ''
451: ,p_attribute5 => '');
452: RAISE FND_API.G_EXC_ERROR;
453: END IF;
454:
455: --dbms_output.put_line('pa_security.allow_query or update successful..');
456: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
473: ,p_attribute3 => ''
474: ,p_attribute4 => ''
475: ,p_attribute5 => '');
476: END IF;
477: RAISE FND_API.G_EXC_ERROR;
478: END IF;
479:
480: --dbms_output.put_line('PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS IS Fine..');
481: 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: -- DHI ER: allowing multiple user to update task assignment
522: -- Removed logic to lock version.
529: --PA_UTILS.ADD_MESSAGE
530: -- (p_app_short_name => 'PA',
531: -- p_msg_name => 'PA_UPDATE_PUB_VER_ERR'
532: -- );
533: x_return_status := FND_API.G_RET_STS_ERROR;
534: RAISE FND_API.G_EXC_ERROR;
535: END IF;
536:
537: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
530: -- (p_app_short_name => 'PA',
531: -- p_msg_name => 'PA_UPDATE_PUB_VER_ERR'
532: -- );
533: x_return_status := FND_API.G_RET_STS_ERROR;
534: RAISE FND_API.G_EXC_ERROR;
535: END IF;
536:
537: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
538: pa_debug.g_err_stage:='struct_elem version id function check successful.' || L_FuncProc;
553: (p_app_short_name => 'PA',
554: p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH'
555: );
556: END IF;
557: x_return_status := FND_API.G_RET_STS_ERROR;
558: RAISE FND_API.G_EXC_ERROR;
559:
560: END IF;
561:
554: p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH'
555: );
556: END IF;
557: x_return_status := FND_API.G_RET_STS_ERROR;
558: RAISE FND_API.G_EXC_ERROR;
559:
560: END IF;
561:
562: --dbms_output.put_line(' budget version id: ' || l_budget_version_id );
648: p_msg_name => 'PA_TASK_REQUIRED'
649: );
650: END IF;
651:
652: RAISE FND_API.G_EXC_ERROR;
653: END IF;
654:
655:
656:
684: p_msg_name => 'PA_TASK_REQUIRED'
685: );
686: END IF;
687:
688: RAISE FND_API.G_EXC_ERROR;
689: END IF;
690:
691:
692:
709: (p_app_short_name => 'PA',
710: p_msg_name => 'PA_TASK_VERSION_REQUIRED'
711: );
712:
713: RAISE FND_API.G_EXC_ERROR;
714: END IF;
715: END IF;
716:
717:
757: p_token1 => 'RESOURCE_REF',
758: p_value1 => p_task_assignment_periods_in(i).pm_task_asgmt_reference
759: );
760: END IF;
761: x_return_status := FND_API.G_RET_STS_ERROR;
762: RAISE FND_API.G_EXC_ERROR;
763:
764: END IF;
765:
758: p_value1 => p_task_assignment_periods_in(i).pm_task_asgmt_reference
759: );
760: END IF;
761: x_return_status := FND_API.G_RET_STS_ERROR;
762: RAISE FND_API.G_EXC_ERROR;
763:
764: END IF;
765:
766: -- Bug 3866222: validate period data
806: p_token5 => 'END_DATE',
807: p_value5 => p_task_assignment_periods_in(i).end_date
808: );
809:
810: x_return_status := FND_API.G_RET_STS_ERROR;
811: RAISE FND_API.G_EXC_ERROR;
812: END IF;
813:
814: END IF;
807: p_value5 => p_task_assignment_periods_in(i).end_date
808: );
809:
810: x_return_status := FND_API.G_RET_STS_ERROR;
811: RAISE FND_API.G_EXC_ERROR;
812: END IF;
813:
814: END IF;
815:
839: -- dbms_output.put_line('after l_period_name:'||l_period_name);
840: -- dbms_output.put_line('after l_period_start_date:'||l_period_start_date);
841: -- dbms_output.put_line('after l_period_end_date:'||l_period_end_date);
842:
843: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
844: RAISE FND_API.G_EXC_ERROR;
845: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
840: -- dbms_output.put_line('after l_period_start_date:'||l_period_start_date);
841: -- dbms_output.put_line('after l_period_end_date:'||l_period_end_date);
842:
843: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
844: RAISE FND_API.G_EXC_ERROR;
845: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848: -- End of Bug 3866222: validate period data
841: -- dbms_output.put_line('after l_period_end_date:'||l_period_end_date);
842:
843: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
844: RAISE FND_API.G_EXC_ERROR;
845: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848: -- End of Bug 3866222: validate period data
849:
842:
843: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
844: RAISE FND_API.G_EXC_ERROR;
845: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848: -- End of Bug 3866222: validate period data
849:
850: -- Ignore the period line if progress/actual exists in period after this line
891: PA_UTILS.ADD_MESSAGE
892: (p_app_short_name => 'PA',
893: p_msg_name => 'PA_INVALID_RES_LIST_MEM_ID'
894: );
895: x_return_status := FND_API.G_RET_STS_ERROR;
896: RAISE FND_API.G_EXC_ERROR;
897: END IF;
898: END IF;
899:
892: (p_app_short_name => 'PA',
893: p_msg_name => 'PA_INVALID_RES_LIST_MEM_ID'
894: );
895: x_return_status := FND_API.G_RET_STS_ERROR;
896: RAISE FND_API.G_EXC_ERROR;
897: END IF;
898: END IF;
899:
900: ELSIF p_task_assignment_periods_in(i).pa_task_assignment_id IS NULL AND
905: PA_UTILS.ADD_MESSAGE
906: (p_app_short_name => 'PA',
907: p_msg_name => 'PA_INVALID_RES_LIST_MEM_ID'
908: );
909: x_return_status := FND_API.G_RET_STS_ERROR;
910: RAISE FND_API.G_EXC_ERROR;
911: END IF;
912: END IF;
913:
906: (p_app_short_name => 'PA',
907: p_msg_name => 'PA_INVALID_RES_LIST_MEM_ID'
908: );
909: x_return_status := FND_API.G_RET_STS_ERROR;
910: RAISE FND_API.G_EXC_ERROR;
911: END IF;
912: END IF;
913:
914: -- 10/22/04: To handle only lines after the progress as of date
1050: x_return_status => X_RETURN_STATUS );
1051: -- End of Bug Fix 5638541.
1052:
1053:
1054: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1056: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1051: -- End of Bug Fix 5638541.
1052:
1053:
1054: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1056: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1059:
1052:
1053:
1054: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1056: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1059:
1060: --Prior to calling do resets
1053:
1054: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1056: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1059:
1060: --Prior to calling do resets
1061:
1110: pa_debug.g_err_stage:='Return status after add fin plan lines:' ||x_return_status;
1111: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
1112: END IF;
1113:
1114: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1116: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1117: RAISE FND_API.G_EXC_ERROR;
1118: END IF;
1111: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
1112: END IF;
1113:
1114: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1116: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1117: RAISE FND_API.G_EXC_ERROR;
1118: END IF;
1119:
1112: END IF;
1113:
1114: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1116: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1117: RAISE FND_API.G_EXC_ERROR;
1118: END IF;
1119:
1120:
1113:
1114: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1116: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1117: RAISE FND_API.G_EXC_ERROR;
1118: END IF;
1119:
1120:
1121: --dbms_output.put_line(' Internal Add Tables index' || k_index);
1170: --dbms_output.put_line('End of Create Task Assignments:');
1171:
1172: EXCEPTION
1173:
1174: WHEN FND_API.G_EXC_ERROR
1175: THEN
1176: ROLLBACK TO add_task_asgmt_periods;
1177:
1178: x_return_status := FND_API.G_RET_STS_ERROR;
1174: WHEN FND_API.G_EXC_ERROR
1175: THEN
1176: ROLLBACK TO add_task_asgmt_periods;
1177:
1178: x_return_status := FND_API.G_RET_STS_ERROR;
1179: IF P_DEBUG_MODE = 'Y' THEN
1180: PA_DEBUG.write_log (x_module => G_PKG_NAME
1181: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
1182: ,x_log_level => 5);
1184: FND_MSG_PUB.Count_And_Get
1185: ( p_count => x_msg_count ,
1186: p_data => x_msg_data );
1187:
1188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1189: THEN
1190: ROLLBACK TO add_task_asgmt_periods;
1191:
1192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1189: THEN
1190: ROLLBACK TO add_task_asgmt_periods;
1191:
1192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1193: IF P_DEBUG_MODE = 'Y' THEN
1194: PA_DEBUG.write_log (x_module => G_PKG_NAME
1195: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
1196: ,x_log_level => 5);
1201:
1202: WHEN OTHERS THEN
1203: ROLLBACK TO add_task_asgmt_periods;
1204:
1205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1206: IF P_DEBUG_MODE = 'Y' THEN
1207: PA_DEBUG.write_log (x_module => G_PKG_NAME
1208: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
1209: ,x_log_level => 5);
1230: if p_char IS NOT NULL and p_char = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
1231:
1232: return to_char(NULL);
1233:
1234: elsif p_char IS NOT NULL and p_char = FND_API.G_MISS_CHAR THEN
1235:
1236: return to_char(NULL);
1237:
1238: elsif p_char IS NULL THEN
1236: return to_char(NULL);
1237:
1238: elsif p_char IS NULL THEN
1239:
1240: return fnd_api.g_miss_char;
1241:
1242: else
1243:
1244: return p_char;
1259: --dbms_output.put_line('entered pfnum 2');
1260:
1261: return to_number(NULL);
1262:
1263: elsif p_num IS NOT NULL and p_num = FND_API.G_MISS_NUM THEN
1264: --dbms_output.put_line('entered pfnum 3');
1265:
1266: return to_number(NULL);
1267:
1267:
1268: elsif p_num IS NULL THEN
1269: --dbms_output.put_line('entered pfnum 4');
1270:
1271: return fnd_api.g_miss_num;
1272:
1273: else
1274: --dbms_output.put_line('entered pfnum 5');
1275:
1289: if p_date IS NOT NULL and p_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
1290:
1291: return to_date(NULL);
1292:
1293: elsif p_date IS NOT NULL and p_date = FND_API.G_MISS_DATE THEN
1294:
1295: return to_date(NULL);
1296:
1297: elsif p_date IS NULL THEN
1295: return to_date(NULL);
1296:
1297: elsif p_date IS NULL THEN
1298:
1299: return fnd_api.g_miss_date;
1300:
1301: else
1302:
1303: return p_date;
1406: pa_debug.g_err_stage:='Entered ' || L_FuncProc ;
1407: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
1408: END IF;
1409:
1410: x_return_status := FND_API.G_RET_STS_SUCCESS;
1411:
1412: OPEN version_info;
1413: FETCH version_info INTO str;
1414: IF version_info%NOTFOUND THEN
1436: ,x_msg_count => x_msg_count
1437: ,x_msg_data => x_msg_data
1438: );
1439: --dbms_output.put_line(' After lock version upd str vers attr call return status' || x_return_status);
1440: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1442: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1443: PA_UTILS.ADD_MESSAGE
1444: (p_app_short_name => 'PA',
1437: ,x_msg_data => x_msg_data
1438: );
1439: --dbms_output.put_line(' After lock version upd str vers attr call return status' || x_return_status);
1440: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1442: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1443: PA_UTILS.ADD_MESSAGE
1444: (p_app_short_name => 'PA',
1445: p_msg_name => 'PA_PS_STRUC_VER_LOCKED'
1438: );
1439: --dbms_output.put_line(' After lock version upd str vers attr call return status' || x_return_status);
1440: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1442: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1443: PA_UTILS.ADD_MESSAGE
1444: (p_app_short_name => 'PA',
1445: p_msg_name => 'PA_PS_STRUC_VER_LOCKED'
1446: );
1443: PA_UTILS.ADD_MESSAGE
1444: (p_app_short_name => 'PA',
1445: p_msg_name => 'PA_PS_STRUC_VER_LOCKED'
1446: );
1447: RAISE FND_API.G_EXC_ERROR;
1448: END IF;
1449:
1450:
1451:
1452:
1453: --dbms_output.put_line(' Leaving lock version');
1454: EXCEPTION
1455:
1456: WHEN FND_API.G_EXC_ERROR
1457: THEN
1458:
1459: x_return_status := FND_API.G_RET_STS_ERROR;
1460: IF P_DEBUG_MODE = 'Y' THEN
1455:
1456: WHEN FND_API.G_EXC_ERROR
1457: THEN
1458:
1459: x_return_status := FND_API.G_RET_STS_ERROR;
1460: IF P_DEBUG_MODE = 'Y' THEN
1461: PA_DEBUG.write_log (x_module => G_PKG_NAME
1462: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
1463: ,x_log_level => 5);
1465: FND_MSG_PUB.Count_And_Get
1466: ( p_count => x_msg_count ,
1467: p_data => x_msg_data );
1468:
1469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1470: THEN
1471:
1472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1473: IF P_DEBUG_MODE = 'Y' THEN
1468:
1469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1470: THEN
1471:
1472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1473: IF P_DEBUG_MODE = 'Y' THEN
1474: PA_DEBUG.write_log (x_module => G_PKG_NAME
1475: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
1476: ,x_log_level => 5);
1480: p_data => x_msg_data );
1481:
1482: WHEN OTHERS THEN
1483:
1484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1485: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1486: PA_DEBUG.write_log (x_module => G_PKG_NAME
1487: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
1488: ,x_log_level => 5);
1630: l_unplanned_flag_tbl SYSTEM.PA_VARCHAR2_1_TBL_TYPE := SYSTEM.PA_VARCHAR2_1_TBL_TYPE(NULL);
1631:
1632: BEGIN
1633:
1634: x_return_status := FND_API.G_RET_STS_SUCCESS;
1635: x_msg_count := 0;
1636: x_msg_data := NULL;
1637: l_in_resource_list_member_id := p_resource_list_member_id;
1638: l_in_resource_class_code := p_resource_class_code;
1647: -- upon Apply Progress. Should get the PEOPLE class rlm in this case.
1648: -- Also, in shared case, we need to check whether resource list
1649: -- is a None resource list if the given rlm is of the people class.
1650: IF p_resource_list_member_id IS NULL OR
1651: p_resource_list_member_id = FND_API.G_MISS_NUM OR
1652: p_resource_class_code = 'PEOPLE' THEN
1653:
1654: l_resource_list_id := pa_task_assignment_utils.Get_WP_Resource_List_Id(p_project_id);
1655:
1659:
1660: --dbms_output.put_line('derive TA, l_uncategorized_flag:'||l_uncategorized_flag);
1661:
1662: IF p_resource_list_member_id IS NULL OR
1663: p_resource_list_member_id = FND_API.G_MISS_NUM THEN
1664:
1665: l_in_resource_list_member_id := PA_PLANNING_RESOURCE_UTILS.get_class_member_id(
1666: p_project_id => p_project_id,
1667: p_resource_list_id => l_resource_list_id,
1727: l_toggle_ta_display_flag := 'N';
1728: pa_task_assignment_utils.g_ta_display_flag := 'Y';
1729:
1730: IF (p_resource_list_member_id IS NULL OR
1731: p_resource_list_member_id = FND_API.G_MISS_NUM OR
1732: l_uncategorized_flag = 'Y') AND
1733: pa_task_assignment_utils.Check_Asgmt_Exists_In_Task(p_task_version_id) = 'N' THEN
1734:
1735: l_toggle_ta_display_flag := 'Y';
1772: --dbms_output.put_line('CASE 4: after add planning transaciton'||x_return_status);
1773: -- dbms_output.put_line('pa_task_assignment_utils.g_ta_display_flag:'||pa_task_assignment_utils.g_ta_display_flag);
1774:
1775:
1776: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1777:
1778: OPEN get_task_assignment(l_in_resource_list_member_id);
1779: FETCH get_task_assignment INTO l_resource_assignment_id, l_task_version_id, l_rate_based_flag, l_rbs_element_id;
1780: CLOSE get_task_assignment;
1824: -- Set the excetption Message and the stack
1825: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_TASK_ASSIGNMENTS_PVT.Derive_Task_Assignments'
1826: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1827: --
1828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1829:
1830: -- Start 4537865
1831: x_resource_assignment_id := NULL ;
1832: x_task_version_id := NULL ;
1928: );
1929:
1930: BEGIN
1931:
1932: x_return_status := FND_API.G_RET_STS_SUCCESS;
1933: x_msg_count := 0;
1934: x_msg_data := NULL;
1935:
1936: IF p_old_structure_version_id IS NOT NULL THEN
2007: WHEN OTHERS THEN
2008: -- Set the exception message and the stack
2009: FND_MSG_PUB.Add_Exc_Msg( p_pkg_name => 'PA_TASK_ASSIGNMENTS_PVT.Copy_Missing_Unplanned_Asgmts',
2010: p_procedure_name => PA_DEBUG.G_Err_Stack );
2011: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2012: RAISE; -- This is optional depending on the needs
2013:
2014: END Copy_Missing_Unplanned_Asgmts;
2015:
2062:
2063:
2064: BEGIN
2065:
2066: x_return_status := FND_API.G_RET_STS_SUCCESS;
2067:
2068: IF p_time_phase_code <> PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P
2069: AND p_time_phase_code <> PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G THEN
2070: PA_UTILS.ADD_MESSAGE
2070: PA_UTILS.ADD_MESSAGE
2071: (p_app_short_name => 'PA',
2072: p_msg_name => 'PA_INVALID_TIMEPHASE_CODE'
2073: );
2074: RAISE FND_API.G_EXC_ERROR;
2075: END IF;
2076:
2077: --dbms_output.put_line('p_period_name:'||p_period_name);
2078:
2077: --dbms_output.put_line('p_period_name:'||p_period_name);
2078:
2079: --1. get dates from period name
2080: IF p_period_name IS NOT NULL
2081: AND p_period_name <> FND_API.G_MISS_CHAR
2082: AND p_period_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2083:
2084: OPEN get_period_dates_from_name;
2085: FETCH get_period_dates_from_name
2087: CLOSE get_period_dates_from_name;
2088:
2089: --2. get period name from dates
2090: ELSIF p_period_start_date IS NOT NULL
2091: AND p_period_start_date <> FND_API.G_MISS_DATE
2092: AND p_period_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2093:
2094: OPEN get_period_name_from_dates;
2095: FETCH get_period_name_from_dates
2112: p_value4 => p_period_start_date,
2113: p_token5 => 'END_DATE',
2114: p_value5 => p_period_end_date
2115: );
2116: RAISE FND_API.G_EXC_ERROR;
2117: ELSE
2118:
2119: P_PERIOD_NAME := l_period_name;
2120: P_PERIOD_START_DATE := l_period_start_date;
2124:
2125:
2126: EXCEPTION
2127:
2128: WHEN FND_API.G_EXC_ERROR THEN
2129: x_return_status := FND_API.G_RET_STS_ERROR;
2130:
2131: WHEN OTHERS THEN
2132: -- Set the exception message and the stack
2125:
2126: EXCEPTION
2127:
2128: WHEN FND_API.G_EXC_ERROR THEN
2129: x_return_status := FND_API.G_RET_STS_ERROR;
2130:
2131: WHEN OTHERS THEN
2132: -- Set the exception message and the stack
2133: FND_MSG_PUB.Add_Exc_Msg( p_pkg_name => 'PA_TASK_ASSIGNMENTS_PVT.Check_Period_Details',
2131: WHEN OTHERS THEN
2132: -- Set the exception message and the stack
2133: FND_MSG_PUB.Add_Exc_Msg( p_pkg_name => 'PA_TASK_ASSIGNMENTS_PVT.Check_Period_Details',
2134: p_procedure_name => PA_DEBUG.G_Err_Stack );
2135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2136:
2137: P_PERIOD_NAME := NULL ; -- 4537865
2138: P_PERIOD_START_DATE := NULL ; -- 4537865
2139: P_PERIOD_END_DATE := NULL ; -- 4537865