[Home] [Help]
8: li_curr_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9:
10: PROCEDURE Load_Task_Assignments
11: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
12: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
13: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
14: ,p_pm_project_reference IN PA_VC_1000_25 := PA_VC_1000_25(PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
15: ,p_pa_project_id IN PA_num_1000_num := PA_num_1000_num(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
16: ,p_pa_structure_version_id IN PA_num_1000_num := PA_num_1000_num(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
9:
10: PROCEDURE Load_Task_Assignments
11: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
12: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
13: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
14: ,p_pm_project_reference IN PA_VC_1000_25 := PA_VC_1000_25(PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
15: ,p_pa_project_id IN PA_num_1000_num := PA_num_1000_num(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
16: ,p_pa_structure_version_id IN PA_num_1000_num := PA_num_1000_num(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
17: ,p_pm_task_reference IN PA_VC_1000_25 := PA_VC_1000_25(PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
92: SAVEPOINT load_task_asgmts_pub;
93:
94: -- Standard call to check for call compatibility.
95:
96: IF NOT FND_API.Compatible_API_Call ( 1.0, --pa_project_pub.g_api_version_number ,
97: p_api_version_number ,
98: l_api_name ,
99: G_PKG_NAME )
100: THEN
98: l_api_name ,
99: G_PKG_NAME )
100: THEN
101:
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103:
104: END IF;
105:
106: --dbms_output.put_line('FND API Compatible:' || L_FuncProc);
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103:
104: END IF;
105:
106: --dbms_output.put_line('FND API Compatible:' || L_FuncProc);
107:
108: -- Initialize the message table if requested.
109:
110: IF FND_API.TO_BOOLEAN( p_init_msg_list )
106: --dbms_output.put_line('FND API Compatible:' || L_FuncProc);
107:
108: -- Initialize the message table if requested.
109:
110: IF FND_API.TO_BOOLEAN( p_init_msg_list )
111:
112: THEN
113:
114: FND_MSG_PUB.initialize;
116: END IF;
117:
118: -- Set API return status to success
119:
120: x_return_status := FND_API.G_RET_STS_SUCCESS;
121:
122: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
123: pa_debug.g_err_stage:='Before Looping through 1000 records.' ;
124: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
528: END IF;
529:
530: EXCEPTION
531:
532: WHEN FND_API.G_EXC_ERROR
533: THEN
534: ROLLBACK TO load_task_asgmts_pub;
535:
536: x_return_status := FND_API.G_RET_STS_ERROR;
532: WHEN FND_API.G_EXC_ERROR
533: THEN
534: ROLLBACK TO load_task_asgmts_pub;
535:
536: x_return_status := FND_API.G_RET_STS_ERROR;
537: IF P_DEBUG_MODE = 'Y' THEN
538: PA_DEBUG.write_log (x_module => G_PKG_NAME
539: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
540: ,x_log_level => 5);
543: FND_MSG_PUB.Count_And_Get
544: ( p_count => x_msg_count ,
545: p_data => x_msg_data );
546:
547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
548: THEN
549: ROLLBACK TO load_task_asgmts_pub;
550:
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
548: THEN
549: ROLLBACK TO load_task_asgmts_pub;
550:
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: IF P_DEBUG_MODE = 'Y' THEN
553: PA_DEBUG.write_log (x_module => G_PKG_NAME
554: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
555: ,x_log_level => 5);
569:
570: WHEN OTHERS THEN
571: ROLLBACK TO load_task_asgmts_pub;
572:
573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574: IF P_DEBUG_MODE = 'Y' THEN
575: PA_DEBUG.write_log (x_module => G_PKG_NAME
576: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
577: ,x_log_level => 5);
592:
593:
594: PROCEDURE Load_Task_Asgmt_Periods
595: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
596: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
597: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
598: ,p_pm_project_reference IN PA_VC_1000_25 := PA_VC_1000_25(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
599: ,p_pa_project_id IN PA_num_1000_num := PA_num_1000_num(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
600: ,p_pa_structure_version_id IN PA_num_1000_num := PA_num_1000_num(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
593:
594: PROCEDURE Load_Task_Asgmt_Periods
595: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
596: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
597: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
598: ,p_pm_project_reference IN PA_VC_1000_25 := PA_VC_1000_25(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
599: ,p_pa_project_id IN PA_num_1000_num := PA_num_1000_num(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
600: ,p_pa_structure_version_id IN PA_num_1000_num := PA_num_1000_num(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
601: ,p_pm_task_reference IN PA_VC_1000_25 := PA_VC_1000_25(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
639: SAVEPOINT Load_Task_Asgmt_Periods;
640:
641: -- Standard call to check for call compatibility.
642:
643: IF NOT FND_API.Compatible_API_Call ( 1.0, --pa_project_pub.g_api_version_number ,
644: p_api_version_number ,
645: l_api_name ,
646: G_PKG_NAME )
647: THEN
645: l_api_name ,
646: G_PKG_NAME )
647: THEN
648:
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650:
651: END IF;
652:
653: -- Initialize the message table if requested.
651: END IF;
652:
653: -- Initialize the message table if requested.
654:
655: IF FND_API.TO_BOOLEAN( p_init_msg_list )
656:
657: THEN
658:
659: FND_MSG_PUB.initialize;
661: END IF;
662:
663: -- Set API return status to success
664:
665: x_return_status := FND_API.G_RET_STS_SUCCESS;
666:
667:
668:
669: --assign appropriate values to outgoing parameters
894: END LOOP;
895:
896: EXCEPTION
897:
898: WHEN FND_API.G_EXC_ERROR
899: THEN
900: ROLLBACK TO Load_Task_Asgmt_Periods;
901:
902: x_return_status := FND_API.G_RET_STS_ERROR;
898: WHEN FND_API.G_EXC_ERROR
899: THEN
900: ROLLBACK TO Load_Task_Asgmt_Periods;
901:
902: x_return_status := FND_API.G_RET_STS_ERROR;
903: IF P_DEBUG_MODE = 'Y' THEN
904: PA_DEBUG.write_log (x_module => G_PKG_NAME
905: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
906: ,x_log_level => 5);
909: FND_MSG_PUB.Count_And_Get
910: ( p_count => x_msg_count ,
911: p_data => x_msg_data );
912:
913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
914: THEN
915: ROLLBACK TO Load_Task_Asgmt_Periods;
916:
917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
914: THEN
915: ROLLBACK TO Load_Task_Asgmt_Periods;
916:
917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
918: IF P_DEBUG_MODE = 'Y' THEN
919: PA_DEBUG.write_log (x_module => G_PKG_NAME
920: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
921: ,x_log_level => 5);
934:
935: WHEN OTHERS THEN
936: ROLLBACK TO Load_Task_Asgmt_Periods;
937:
938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
939: IF P_DEBUG_MODE = 'Y' THEN
940: PA_DEBUG.write_log (x_module => G_PKG_NAME
941: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
942: ,x_log_level => 5);
968: --
969:
970: PROCEDURE Execute_Create_Task_Asgmts
971: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
972: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
973: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
974: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
975: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
976: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
969:
970: PROCEDURE Execute_Create_Task_Asgmts
971: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
972: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
973: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
974: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
975: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
976: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
977: ,p_pa_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1003: SAVEPOINT EXECUTE_CREATE_TASK_ASGMTS;
1004:
1005: -- Standard call to check for call compatibility.
1006:
1007: IF NOT FND_API.Compatible_API_Call ( 1.0, --g_api_version_number ,
1008: p_api_version_number,
1009: l_api_name,
1010: G_PKG_NAME )
1011: THEN
1008: p_api_version_number,
1009: l_api_name,
1010: G_PKG_NAME )
1011: THEN
1012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1013: END IF;
1014:
1015:
1016: -- Initialize the message table if requested.
1014:
1015:
1016: -- Initialize the message table if requested.
1017:
1018: IF FND_API.TO_BOOLEAN( p_init_msg_list )
1019: THEN
1020: FND_MSG_PUB.initialize;
1021: END IF;
1022:
1021: END IF;
1022:
1023: -- Set API return status to success
1024:
1025: x_return_status := FND_API.G_RET_STS_SUCCESS;
1026: --dbms_output.put_line('g_task_asgmts_tbl_count:' || g_task_asgmts_tbl_count);
1027: --dbms_output.put_line('g_asgmts_periods_tbl_count:' || g_asgmts_periods_tbl_count);
1028:
1029:
1030: IF nvl(g_task_asgmts_tbl_count, 0) > 0 THEN
1031: --dbms_output.put_line('calling create task assignment');
1032: Create_Task_Assignments
1033: ( p_api_version_number => 1.0
1034: ,p_commit => FND_API.G_FALSE
1035: ,p_init_msg_list => FND_API.G_FALSE
1036: ,p_pm_product_code => p_pm_product_code
1037: ,p_pm_project_reference => p_pm_project_reference
1038: ,p_pa_project_id => p_pa_project_id
1031: --dbms_output.put_line('calling create task assignment');
1032: Create_Task_Assignments
1033: ( p_api_version_number => 1.0
1034: ,p_commit => FND_API.G_FALSE
1035: ,p_init_msg_list => FND_API.G_FALSE
1036: ,p_pm_product_code => p_pm_product_code
1037: ,p_pm_project_reference => p_pm_project_reference
1038: ,p_pa_project_id => p_pa_project_id
1039: ,p_pa_structure_version_id => p_pa_structure_version_id
1042: ,x_msg_count => l_msg_count
1043: ,x_msg_data => l_msg_data
1044: ,x_return_status => l_return_status
1045: );
1046: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1047:
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049:
1050: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1044: ,x_return_status => l_return_status
1045: );
1046: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1047:
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049:
1050: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1051:
1052: RAISE FND_API.G_EXC_ERROR;
1046: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1047:
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049:
1050: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1051:
1052: RAISE FND_API.G_EXC_ERROR;
1053:
1054: END IF;
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049:
1050: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1051:
1052: RAISE FND_API.G_EXC_ERROR;
1053:
1054: END IF;
1055:
1056: END IF;
1060:
1061: --dbms_output.put_line('calling create task assignment periods');
1062: Pa_Task_Assignments_Pvt.Create_Task_Assignment_Periods
1063: ( p_api_version_number => 1.0
1064: ,p_commit => FND_API.G_FALSE
1065: ,p_init_msg_list => FND_API.G_FALSE
1066: ,p_pm_product_code => p_pm_product_code
1067: ,p_pm_project_reference => p_pm_project_reference
1068: ,p_pa_project_id => p_pa_project_id
1061: --dbms_output.put_line('calling create task assignment periods');
1062: Pa_Task_Assignments_Pvt.Create_Task_Assignment_Periods
1063: ( p_api_version_number => 1.0
1064: ,p_commit => FND_API.G_FALSE
1065: ,p_init_msg_list => FND_API.G_FALSE
1066: ,p_pm_product_code => p_pm_product_code
1067: ,p_pm_project_reference => p_pm_project_reference
1068: ,p_pa_project_id => p_pa_project_id
1069: ,p_pa_structure_version_id => p_pa_structure_version_id
1072: ,x_msg_count => l_msg_count
1073: ,x_msg_data => l_msg_data
1074: ,x_return_status => l_return_status
1075: );
1076: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1077:
1078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1079:
1080: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1074: ,x_return_status => l_return_status
1075: );
1076: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1077:
1078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1079:
1080: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1081:
1082: RAISE FND_API.G_EXC_ERROR;
1076: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1077:
1078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1079:
1080: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1081:
1082: RAISE FND_API.G_EXC_ERROR;
1083:
1084: END IF;
1078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1079:
1080: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1081:
1082: RAISE FND_API.G_EXC_ERROR;
1083:
1084: END IF;
1085:
1086: END IF;
1086: END IF;
1087:
1088:
1089:
1090: IF FND_API.to_boolean( p_commit ) THEN
1091: COMMIT;
1092: END IF;
1093:
1094:
1093:
1094:
1095: EXCEPTION
1096:
1097: WHEN FND_API.G_EXC_ERROR
1098: THEN
1099: ROLLBACK TO EXECUTE_CREATE_TASK_ASGMTS;
1100:
1101: x_return_status := FND_API.G_RET_STS_ERROR;
1097: WHEN FND_API.G_EXC_ERROR
1098: THEN
1099: ROLLBACK TO EXECUTE_CREATE_TASK_ASGMTS;
1100:
1101: x_return_status := FND_API.G_RET_STS_ERROR;
1102: IF P_DEBUG_MODE = 'Y' THEN
1103: PA_DEBUG.write_log (x_module => G_PKG_NAME
1104: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
1105: ,x_log_level => 5);
1107: FND_MSG_PUB.Count_And_Get
1108: ( p_count => x_msg_count ,
1109: p_data => x_msg_data );
1110:
1111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1112: THEN
1113: ROLLBACK TO EXECUTE_CREATE_TASK_ASGMTS;
1114:
1115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1112: THEN
1113: ROLLBACK TO EXECUTE_CREATE_TASK_ASGMTS;
1114:
1115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1116: IF P_DEBUG_MODE = 'Y' THEN
1117: PA_DEBUG.write_log (x_module => G_PKG_NAME
1118: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
1119: ,x_log_level => 5);
1124:
1125: WHEN OTHERS THEN
1126: ROLLBACK TO EXECUTE_CREATE_TASK_ASGMTS;
1127:
1128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1129: IF P_DEBUG_MODE = 'Y' THEN
1130: PA_DEBUG.write_log (x_module => G_PKG_NAME
1131: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
1132: ,x_log_level => 5);
1147:
1148:
1149: PROCEDURE Execute_Update_Task_Asgmts
1150: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1151: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1152: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1153: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1154: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1155: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1148:
1149: PROCEDURE Execute_Update_Task_Asgmts
1150: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1151: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1152: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1153: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1154: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1155: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1156: ,p_pa_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1175: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1176: pa_debug.g_err_stage:='Entered ' || L_FuncProc;
1177: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
1178: END IF;
1179: x_return_status := FND_API.G_RET_STS_SUCCESS;
1180: -- Standard begin of API savepoint
1181:
1182: SAVEPOINT EXECUTE_UPDATE_TASK_ASGMTS;
1183:
1182: SAVEPOINT EXECUTE_UPDATE_TASK_ASGMTS;
1183:
1184: -- Standard call to check for call compatibility.
1185:
1186: IF NOT FND_API.Compatible_API_Call ( 1.0, --g_api_version_number ,
1187: p_api_version_number,
1188: l_api_name,
1189: G_PKG_NAME )
1190: THEN
1187: p_api_version_number,
1188: l_api_name,
1189: G_PKG_NAME )
1190: THEN
1191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1192: END IF;
1193:
1194:
1195: -- Initialize the message table if requested.
1193:
1194:
1195: -- Initialize the message table if requested.
1196:
1197: IF FND_API.TO_BOOLEAN( p_init_msg_list )
1198: THEN
1199: FND_MSG_PUB.initialize;
1200: END IF;
1201:
1202:
1203:
1204: -- Set API return status to success
1205:
1206: x_return_status := FND_API.G_RET_STS_SUCCESS;
1207:
1208: IF nvl(g_task_asgmts_tbl_count, 0) > 0 THEN
1209:
1210: UPDATE_Task_Assignments
1208: IF nvl(g_task_asgmts_tbl_count, 0) > 0 THEN
1209:
1210: UPDATE_Task_Assignments
1211: ( p_api_version_number => 1.0
1212: ,p_commit => FND_API.G_FALSE
1213: ,p_init_msg_list => FND_API.G_FALSE
1214: ,p_pm_product_code => p_pm_product_code
1215: ,p_pm_project_reference => p_pm_project_reference
1216: ,p_pa_project_id => p_pa_project_id
1209:
1210: UPDATE_Task_Assignments
1211: ( p_api_version_number => 1.0
1212: ,p_commit => FND_API.G_FALSE
1213: ,p_init_msg_list => FND_API.G_FALSE
1214: ,p_pm_product_code => p_pm_product_code
1215: ,p_pm_project_reference => p_pm_project_reference
1216: ,p_pa_project_id => p_pa_project_id
1217: ,p_pa_structure_version_id => p_pa_structure_version_id
1220: ,x_msg_count => l_msg_count
1221: ,x_msg_data => l_msg_data
1222: ,x_return_status => l_return_status
1223: );
1224: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1225:
1226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1227:
1228: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1222: ,x_return_status => l_return_status
1223: );
1224: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1225:
1226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1227:
1228: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1229:
1230: RAISE FND_API.G_EXC_ERROR;
1224: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1225:
1226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1227:
1228: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1229:
1230: RAISE FND_API.G_EXC_ERROR;
1231:
1232: END IF;
1226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1227:
1228: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1229:
1230: RAISE FND_API.G_EXC_ERROR;
1231:
1232: END IF;
1233:
1234: END IF;
1236: IF nvl(g_asgmts_periods_tbl_count,0) > 0 THEN
1237:
1238: Pa_Task_Assignments_Pvt.Create_Task_Assignment_Periods
1239: (p_api_version_number => 1.0
1240: ,p_commit => FND_API.G_FALSE
1241: ,p_init_msg_list => FND_API.G_FALSE
1242: ,p_pm_product_code => p_pm_product_code
1243: ,p_pm_project_reference => p_pm_project_reference
1244: ,p_pa_project_id => p_pa_project_id
1237:
1238: Pa_Task_Assignments_Pvt.Create_Task_Assignment_Periods
1239: (p_api_version_number => 1.0
1240: ,p_commit => FND_API.G_FALSE
1241: ,p_init_msg_list => FND_API.G_FALSE
1242: ,p_pm_product_code => p_pm_product_code
1243: ,p_pm_project_reference => p_pm_project_reference
1244: ,p_pa_project_id => p_pa_project_id
1245: ,p_pa_structure_version_id => p_pa_structure_version_id
1249: ,x_msg_data => l_msg_data
1250: ,x_return_status => l_return_status
1251: );
1252:
1253: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1254:
1255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1256:
1257: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1251: );
1252:
1253: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1254:
1255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1256:
1257: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1258:
1259: RAISE FND_API.G_EXC_ERROR;
1253: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1254:
1255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1256:
1257: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1258:
1259: RAISE FND_API.G_EXC_ERROR;
1260:
1261: END IF;
1255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1256:
1257: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1258:
1259: RAISE FND_API.G_EXC_ERROR;
1260:
1261: END IF;
1262: END IF;
1263:
1263:
1264:
1265: --assign appropriate values to outgoing parameters
1266:
1267: IF FND_API.to_boolean( p_commit ) THEN
1268: COMMIT;
1269: END IF;
1270:
1271:
1270:
1271:
1272: EXCEPTION
1273:
1274: WHEN FND_API.G_EXC_ERROR
1275: THEN
1276: ROLLBACK TO EXECUTE_UPDATE_TASK_ASGMTS;
1277:
1278: x_return_status := FND_API.G_RET_STS_ERROR;
1274: WHEN FND_API.G_EXC_ERROR
1275: THEN
1276: ROLLBACK TO EXECUTE_UPDATE_TASK_ASGMTS;
1277:
1278: x_return_status := FND_API.G_RET_STS_ERROR;
1279:
1280: FND_MSG_PUB.Count_And_Get
1281: ( p_count => x_msg_count ,
1282: p_data => x_msg_data );
1280: FND_MSG_PUB.Count_And_Get
1281: ( p_count => x_msg_count ,
1282: p_data => x_msg_data );
1283:
1284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1285: THEN
1286: ROLLBACK TO EXECUTE_UPDATE_TASK_ASGMTS;
1287:
1288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1285: THEN
1286: ROLLBACK TO EXECUTE_UPDATE_TASK_ASGMTS;
1287:
1288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1289: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1290: THEN
1291: FND_MSG_PUB.add_exc_msg
1292: ( p_pkg_name => G_PKG_NAME
1299:
1300: WHEN OTHERS THEN
1301: ROLLBACK TO EXECUTE_UPDATE_TASK_ASGMTS;
1302:
1303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1304:
1305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1306: THEN
1307: FND_MSG_PUB.add_exc_msg
1318:
1319:
1320: PROCEDURE Create_Task_Assignments
1321: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1322: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1323: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1324: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1325: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1326: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1319:
1320: PROCEDURE Create_Task_Assignments
1321: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1322: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1323: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1324: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1325: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1326: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1327: ,p_pa_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1555: SAVEPOINT add_task_asgmts_pub;
1556:
1557: -- Standard call to check for call compatibility.
1558:
1559: IF NOT FND_API.Compatible_API_Call ( 1.0, --pa_project_pub.g_api_version_number ,
1560: p_api_version_number ,
1561: l_api_name ,
1562: G_PKG_NAME )
1563: THEN
1561: l_api_name ,
1562: G_PKG_NAME )
1563: THEN
1564:
1565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1566:
1567: END IF;
1568:
1569: --dbms_output.put_line('Fnd Api is compatible:');
1565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1566:
1567: END IF;
1568:
1569: --dbms_output.put_line('Fnd Api is compatible:');
1570:
1571: -- Initialize the message table if requested.
1572:
1573: IF FND_API.TO_BOOLEAN( p_init_msg_list )
1569: --dbms_output.put_line('Fnd Api is compatible:');
1570:
1571: -- Initialize the message table if requested.
1572:
1573: IF FND_API.TO_BOOLEAN( p_init_msg_list )
1574: THEN
1575:
1576: FND_MSG_PUB.initialize;
1577:
1578: END IF;
1579:
1580: -- Set API return status to success
1581:
1582: x_return_status := FND_API.G_RET_STS_SUCCESS;
1583:
1584: -- Initialize the message table if requested.
1585: -- pm_product_code is mandatory
1586:
1605: ,p_attribute3 => ''
1606: ,p_attribute4 => ''
1607: ,p_attribute5 => '');
1608: END IF;
1609: RAISE FND_API.G_EXC_ERROR;
1610:
1611: END IF;
1612:
1613: --dbms_output.put_line('Product Code is checked:');
1641: , p_out_project_id => l_project_id
1642: , p_return_status => l_return_status
1643: );
1644:
1645: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1646:
1647: --dbms_output.put_line('Project_id not successful ');
1648: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1649: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
1648: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1649: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
1650: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
1651: END IF;
1652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1653:
1654: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1655:
1656: --dbms_output.put_line('Project_id conv. not successful ');
1650: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
1651: END IF;
1652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1653:
1654: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1655:
1656: --dbms_output.put_line('Project_id conv. not successful ');
1657: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1658: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
1657: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1658: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
1659: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
1660: END IF;
1661: RAISE FND_API.G_EXC_ERROR;
1662:
1663: END IF;
1664: END IF;
1665:
1696: p_msg_data => l_msg_data,
1697: p_return_status => l_return_status,
1698: p_function_allowed => l_function_allowed);
1699:
1700: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1701: THEN
1702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1703:
1704: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1698: p_function_allowed => l_function_allowed);
1699:
1700: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1701: THEN
1702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1703:
1704: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1705: THEN
1706: RAISE FND_API.G_EXC_ERROR;
1700: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1701: THEN
1702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1703:
1704: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1705: THEN
1706: RAISE FND_API.G_EXC_ERROR;
1707: END IF;
1708:
1702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1703:
1704: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1705: THEN
1706: RAISE FND_API.G_EXC_ERROR;
1707: END IF;
1708:
1709: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1710: pa_debug.g_err_stage:=' PA_PM_ADD_TASK_ASSIGNMENT function check successful.' || L_FuncProc;
1721: ,p_attribute2 => ''
1722: ,p_attribute3 => ''
1723: ,p_attribute4 => ''
1724: ,p_attribute5 => '');
1725: RAISE FND_API.G_EXC_ERROR;
1726: END IF;
1727: --dbms_output.put_line('PA_FUNCTION_SECURITY_ENFORCED function check successful.');
1728: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1729: pa_debug.g_err_stage:=' PA_FUNCTION_SECURITY_ENFORCED function check successful.' || L_FuncProc;
1754: ,p_attribute2 => ''
1755: ,p_attribute3 => ''
1756: ,p_attribute4 => ''
1757: ,p_attribute5 => '');
1758: RAISE FND_API.G_EXC_ERROR;
1759: END IF;
1760:
1761: --dbms_output.put_line('pa_security.allow_query or update successful..');
1762: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1781: ,p_attribute3 => ''
1782: ,p_attribute4 => ''
1783: ,p_attribute5 => '');
1784: END IF;
1785: RAISE FND_API.G_EXC_ERROR;
1786: END IF;
1787: exception when others then
1788: null;
1789: end;
1827: ,p_attribute3 => ''
1828: ,p_attribute4 => ''
1829: ,p_attribute5 => '');
1830: END IF;
1831: RAISE FND_API.G_EXC_ERROR;
1832: END IF;
1833:
1834: -- DHI ER: allowing multiple user to update task assignment
1835: -- Removed logic to lock version.
1836: -- pa_task_assignments_pvt.lock_version(l_project_id, l_struct_elem_version_id);
1837:
1838: -- Bug 3940853: Raise locking error return from structure API
1839: IF FND_MSG_PUB.count_msg > 0 THEN
1840: x_return_status := FND_API.G_RET_STS_ERROR;
1841: RAISE FND_API.G_EXC_ERROR;
1842: END IF;
1843:
1844: IF 'N' = pa_task_assignment_utils.check_edit_task_ok
1837:
1838: -- Bug 3940853: Raise locking error return from structure API
1839: IF FND_MSG_PUB.count_msg > 0 THEN
1840: x_return_status := FND_API.G_RET_STS_ERROR;
1841: RAISE FND_API.G_EXC_ERROR;
1842: END IF;
1843:
1844: IF 'N' = pa_task_assignment_utils.check_edit_task_ok
1845: ( P_PROJECT_ID => l_project_id,
1849: --PA_UTILS.ADD_MESSAGE
1850: -- (p_app_short_name => 'PA',
1851: -- p_msg_name => 'PA_UPDATE_PUB_VER_ERR'
1852: -- );
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854: RAISE FND_API.G_EXC_ERROR;
1855: END IF;
1856:
1857: --dbms_output.put_line(' check edit successful' );
1850: -- (p_app_short_name => 'PA',
1851: -- p_msg_name => 'PA_UPDATE_PUB_VER_ERR'
1852: -- );
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854: RAISE FND_API.G_EXC_ERROR;
1855: END IF;
1856:
1857: --dbms_output.put_line(' check edit successful' );
1858: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
1876: (p_app_short_name => 'PA',
1877: p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH'
1878: );
1879: END IF;
1880: x_return_status := FND_API.G_RET_STS_ERROR;
1881: RAISE FND_API.G_EXC_ERROR;
1882:
1883: END IF;
1884:
1877: p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH'
1878: );
1879: END IF;
1880: x_return_status := FND_API.G_RET_STS_ERROR;
1881: RAISE FND_API.G_EXC_ERROR;
1882:
1883: END IF;
1884:
1885: -- Check if the resource list is None for the workplan
1895: PA_UTILS.ADD_MESSAGE
1896: (p_app_short_name => 'PA',
1897: p_msg_name => 'PA_RES_LIST_NONE_ERR'
1898: );
1899: x_return_status := FND_API.G_RET_STS_ERROR;
1900: RAISE FND_API.G_EXC_ERROR;
1901: END IF;
1902:
1903: --dbms_output.put_line(' budget version id: ' || l_budget_version_id );
1896: (p_app_short_name => 'PA',
1897: p_msg_name => 'PA_RES_LIST_NONE_ERR'
1898: );
1899: x_return_status := FND_API.G_RET_STS_ERROR;
1900: RAISE FND_API.G_EXC_ERROR;
1901: END IF;
1902:
1903: --dbms_output.put_line(' budget version id: ' || l_budget_version_id );
1904:
2065: p_msg_name => 'PA_TASK_REQUIRED'
2066: );
2067: END IF;
2068:
2069: RAISE FND_API.G_EXC_ERROR;
2070: END IF;
2071:
2072: l_task_elem_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_struct_elem_version_id
2073: ,p_task_id => l_d_task_id);
2099: p_msg_name => 'PA_TASK_REQUIRED'
2100: );
2101: END IF;
2102:
2103: RAISE FND_API.G_EXC_ERROR;
2104: END IF;
2105:
2106:
2107:
2122: p_msg_name => 'PA_TASK_VERSION_REQUIRED'
2123: );
2124: END IF;
2125:
2126: RAISE FND_API.G_EXC_ERROR;
2127:
2128: END IF;
2129:
2130: --dbms_output.put_line('task elem version id ' || l_task_elem_version_id );
2162: PA_UTILS.ADD_MESSAGE
2163: (p_app_short_name => 'PA',
2164: p_msg_name => 'PA_INVALID_RES_LIST_MEM_ID'
2165: );
2166: x_return_status := FND_API.G_RET_STS_ERROR;
2167: RAISE FND_API.G_EXC_ERROR;
2168: END IF;
2169: END IF;
2170:
2163: (p_app_short_name => 'PA',
2164: p_msg_name => 'PA_INVALID_RES_LIST_MEM_ID'
2165: );
2166: x_return_status := FND_API.G_RET_STS_ERROR;
2167: RAISE FND_API.G_EXC_ERROR;
2168: END IF;
2169: END IF;
2170:
2171: PA_PLANNING_RESOURCE_UTILS.check_list_member_on_list(
2179: x_msg_count => x_msg_count,
2180: x_msg_data => x_msg_data ) ;
2181:
2182: IF l_valid_member_flag = 'N' THEN
2183: x_return_status := FND_API.G_RET_STS_ERROR;
2184: RAISE FND_API.G_EXC_ERROR;
2185: END IF;
2186:
2187: IF p_task_assignments_in(i).start_date IS NOT NULL and
2180: x_msg_data => x_msg_data ) ;
2181:
2182: IF l_valid_member_flag = 'N' THEN
2183: x_return_status := FND_API.G_RET_STS_ERROR;
2184: RAISE FND_API.G_EXC_ERROR;
2185: END IF;
2186:
2187: IF p_task_assignments_in(i).start_date IS NOT NULL and
2188: p_task_assignments_in(i).start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE and
2195: (p_app_short_name => 'PA',
2196: p_msg_name => 'PA_INVALID_DATES'
2197: );
2198:
2199: x_return_status := FND_API.G_RET_STS_ERROR;
2200: RAISE FND_API.G_EXC_ERROR;
2201: END IF;
2202:
2203: END IF;
2196: p_msg_name => 'PA_INVALID_DATES'
2197: );
2198:
2199: x_return_status := FND_API.G_RET_STS_ERROR;
2200: RAISE FND_API.G_EXC_ERROR;
2201: END IF;
2202:
2203: END IF;
2204:
2212: (p_app_short_name => 'PA',
2213: p_msg_name => 'PA_PM_TASK_ASGMT_REF_REQ'
2214: );
2215: END IF;
2216: x_return_status := FND_API.G_RET_STS_ERROR;
2217: RAISE FND_API.G_EXC_ERROR;
2218:
2219: END IF;
2220:
2213: p_msg_name => 'PA_PM_TASK_ASGMT_REF_REQ'
2214: );
2215: END IF;
2216: x_return_status := FND_API.G_RET_STS_ERROR;
2217: RAISE FND_API.G_EXC_ERROR;
2218:
2219: END IF;
2220:
2221: --dbms_output.put_line('pm_task_asgmt_reference is NULL/G_MISS..check passed');
2233: );
2234: END IF;
2235: -- Bug 3937017 Moved Close cursor
2236: CLOSE C_Reference_Check;
2237: x_return_status := FND_API.G_RET_STS_ERROR;
2238: RAISE FND_API.G_EXC_ERROR;
2239: END IF;
2240: Close C_Reference_Check;
2241: --dbms_output.put_line('pm_task_asgmt_reference is EXISTING check passed');
2234: END IF;
2235: -- Bug 3937017 Moved Close cursor
2236: CLOSE C_Reference_Check;
2237: x_return_status := FND_API.G_RET_STS_ERROR;
2238: RAISE FND_API.G_EXC_ERROR;
2239: END IF;
2240: Close C_Reference_Check;
2241: --dbms_output.put_line('pm_task_asgmt_reference is EXISTING check passed');
2242:
2280: /* Bug Fix 5505113
2281: As per the B n F team request started overriding the miss num with NULL.
2282:
2283: */
2284: IF l_raw_cost_tbl(k_index) = FND_API.G_MISS_NUM THEN
2285: l_raw_cost_tbl(k_index) := NULL;
2286: END IF;
2287:
2288: IF l_burdened_cost_tbl(k_index) = FND_API.G_MISS_NUM THEN
2284: IF l_raw_cost_tbl(k_index) = FND_API.G_MISS_NUM THEN
2285: l_raw_cost_tbl(k_index) := NULL;
2286: END IF;
2287:
2288: IF l_burdened_cost_tbl(k_index) = FND_API.G_MISS_NUM THEN
2289: l_burdened_cost_tbl(k_index) := NULL;
2290: END IF;
2291:
2292: END IF;
2294: /* Bug Fix 5505113
2295: As per the B n F team request started overriding the miss num with NULL.
2296:
2297: */
2298: IF l_quantity_tbl(k_index) = FND_API.G_MISS_NUM THEN
2299: l_quantity_tbl(k_index) := NULL;
2300: END IF;
2301:
2302: END IF;
2353: );
2354: END IF;
2355: -- Bug 3937017 Moved Close cursor
2356: CLOSE c_unique_res_check;
2357: x_return_status := FND_API.G_RET_STS_ERROR;
2358: RAISE FND_API.G_EXC_ERROR;
2359: END IF;
2360: Close c_unique_res_check;
2361:
2354: END IF;
2355: -- Bug 3937017 Moved Close cursor
2356: CLOSE c_unique_res_check;
2357: x_return_status := FND_API.G_RET_STS_ERROR;
2358: RAISE FND_API.G_EXC_ERROR;
2359: END IF;
2360: Close c_unique_res_check;
2361:
2362: -- Commented for Bug 3940284 by rishukla
2677: pa_debug.g_err_stage:='Return status after add planning transactions.' ||x_return_status;
2678: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
2679: END IF;
2680:
2681: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2683: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2684: RAISE FND_API.G_EXC_ERROR;
2685: END IF;
2678: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
2679: END IF;
2680:
2681: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2683: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2684: RAISE FND_API.G_EXC_ERROR;
2685: END IF;
2686:
2679: END IF;
2680:
2681: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2683: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2684: RAISE FND_API.G_EXC_ERROR;
2685: END IF;
2686:
2687: END IF; --k_index for add planning transactions...
2680:
2681: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2683: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2684: RAISE FND_API.G_EXC_ERROR;
2685: END IF;
2686:
2687: END IF; --k_index for add planning transactions...
2688:
2738:
2739: --dbms_output.put_line('End of Create Task Assignments:');
2740:
2741:
2742: IF FND_API.to_boolean( p_commit ) THEN
2743: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
2744: pa_debug.g_err_stage:='COMMIT done in Create Task Assignments';
2745: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
2746: END IF;
2748: END IF;
2749:
2750: EXCEPTION
2751:
2752: WHEN FND_API.G_EXC_ERROR
2753: THEN
2754: ROLLBACK TO add_task_asgmts_pub;
2755: IF P_DEBUG_MODE = 'Y' THEN
2756: PA_DEBUG.write_log (x_module => G_PKG_NAME
2756: PA_DEBUG.write_log (x_module => G_PKG_NAME
2757: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
2758: ,x_log_level => 5);
2759: END IF;
2760: x_return_status := FND_API.G_RET_STS_ERROR;
2761:
2762: FND_MSG_PUB.Count_And_Get
2763: ( p_count => x_msg_count ,
2764: p_data => x_msg_data );
2762: FND_MSG_PUB.Count_And_Get
2763: ( p_count => x_msg_count ,
2764: p_data => x_msg_data );
2765:
2766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2767: THEN
2768: ROLLBACK TO add_task_asgmts_pub;
2769:
2770: IF P_DEBUG_MODE = 'Y' THEN
2771: PA_DEBUG.write_log (x_module => G_PKG_NAME
2772: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
2773: ,x_log_level => 5);
2774: END IF;
2775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2776:
2777: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2778: THEN
2779: FND_MSG_PUB.add_exc_msg
2797: PA_DEBUG.write_log (x_module => G_PKG_NAME
2798: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
2799: ,x_log_level => 5);
2800: END IF;
2801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2802:
2803: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2804: THEN
2805: FND_MSG_PUB.add_exc_msg
2817:
2818:
2819: PROCEDURE Create_Task_Assignment_Periods
2820: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2821: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2822: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2823: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2824: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2825: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2818:
2819: PROCEDURE Create_Task_Assignment_Periods
2820: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2821: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2822: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2823: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2824: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2825: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2826: ,p_pa_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2867: SAVEPOINT CREATE_TASK_ASGMT_PERIODS;
2868:
2869: -- Standard call to check for call compatibility.
2870:
2871: IF NOT FND_API.Compatible_API_Call ( 1.0, --g_api_version_number ,
2872: p_api_version_number,
2873: l_api_name,
2874: G_PKG_NAME )
2875: THEN
2872: p_api_version_number,
2873: l_api_name,
2874: G_PKG_NAME )
2875: THEN
2876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2877: END IF;
2878:
2879:
2880: -- Initialize the message table if requested.
2878:
2879:
2880: -- Initialize the message table if requested.
2881:
2882: IF FND_API.TO_BOOLEAN( p_init_msg_list )
2883: THEN
2884: FND_MSG_PUB.initialize;
2885: END IF;
2886:
2884: FND_MSG_PUB.initialize;
2885: END IF;
2886:
2887: -- Set API return status to success
2888: x_return_status := FND_API.G_RET_STS_SUCCESS;
2889:
2890: -- Added for bug 5469303
2891: IF p_pa_structure_version_id IS NOT NULL AND (p_pa_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
2892: l_struct_elem_version_id := p_pa_structure_version_id;
2905: ,p_attribute3 => ''
2906: ,p_attribute4 => ''
2907: ,p_attribute5 => '');
2908: END IF;
2909: RAISE FND_API.G_EXC_ERROR;
2910: END IF;
2911:
2912: OPEN C_Get_Budget_Version_Id(l_struct_elem_version_id);
2913: FETCH C_Get_Budget_Version_Id INTO l_budget_version_id;
2918: PA_UTILS.ADD_MESSAGE (p_app_short_name => 'PA',
2919: p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH'
2920: );
2921: END IF;
2922: x_return_status := FND_API.G_RET_STS_ERROR;
2923: RAISE FND_API.G_EXC_ERROR;
2924: END IF;
2925:
2926: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
2919: p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH'
2920: );
2921: END IF;
2922: x_return_status := FND_API.G_RET_STS_ERROR;
2923: RAISE FND_API.G_EXC_ERROR;
2924: END IF;
2925:
2926: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
2927: pa_debug.g_err_stage:=' budget version id: ' || l_budget_version_id ;
2944: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
2945:
2946: Create_Task_Assignments
2947: ( p_api_version_number => 1.0
2948: ,p_commit => FND_API.G_FALSE
2949: ,p_init_msg_list => FND_API.G_FALSE
2950: ,p_pm_product_code => p_pm_product_code
2951: ,p_pm_project_reference => p_pm_project_reference
2952: ,p_pa_project_id => p_pa_project_id
2945:
2946: Create_Task_Assignments
2947: ( p_api_version_number => 1.0
2948: ,p_commit => FND_API.G_FALSE
2949: ,p_init_msg_list => FND_API.G_FALSE
2950: ,p_pm_product_code => p_pm_product_code
2951: ,p_pm_project_reference => p_pm_project_reference
2952: ,p_pa_project_id => p_pa_project_id
2953: ,p_pa_structure_version_id => p_pa_structure_version_id
2962: g_periodic_mode := null;
2963: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := null;
2964:
2965: --dbms_output.put_line('After Create_Task_Assignments:return status: ' || l_return_status);
2966: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2967:
2968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2969:
2970: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2964:
2965: --dbms_output.put_line('After Create_Task_Assignments:return status: ' || l_return_status);
2966: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2967:
2968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2969:
2970: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2971:
2972: RAISE FND_API.G_EXC_ERROR;
2966: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2967:
2968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2969:
2970: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2971:
2972: RAISE FND_API.G_EXC_ERROR;
2973:
2974: END IF;
2968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2969:
2970: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2971:
2972: RAISE FND_API.G_EXC_ERROR;
2973:
2974: END IF;
2975:
2976: END IF;
2983: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
2984:
2985: Pa_Task_Assignments_pvt.Create_Task_Assignment_Periods
2986: ( p_api_version_number => 1.0
2987: ,p_commit => FND_API.G_FALSE
2988: ,p_init_msg_list => FND_API.G_FALSE
2989: ,p_pm_product_code => p_pm_product_code
2990: ,p_pm_project_reference => p_pm_project_reference
2991: ,p_pa_project_id => p_pa_project_id
2984:
2985: Pa_Task_Assignments_pvt.Create_Task_Assignment_Periods
2986: ( p_api_version_number => 1.0
2987: ,p_commit => FND_API.G_FALSE
2988: ,p_init_msg_list => FND_API.G_FALSE
2989: ,p_pm_product_code => p_pm_product_code
2990: ,p_pm_project_reference => p_pm_project_reference
2991: ,p_pa_project_id => p_pa_project_id
2992: ,p_pa_structure_version_id => p_pa_structure_version_id
2999:
3000: -- Bug 4200146
3001: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := null;
3002:
3003: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3004:
3005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3006:
3007: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3001: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := null;
3002:
3003: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3004:
3005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3006:
3007: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3008:
3009: RAISE FND_API.G_EXC_ERROR;
3003: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3004:
3005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3006:
3007: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3008:
3009: RAISE FND_API.G_EXC_ERROR;
3010:
3011: END IF;
3005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3006:
3007: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3008:
3009: RAISE FND_API.G_EXC_ERROR;
3010:
3011: END IF;
3012:
3013: END IF;
3018: x_msg_code => l_msg_code,
3019: x_return_status => l_return_status);
3020:
3021:
3022: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3024: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3025: RAISE FND_API.G_EXC_ERROR;
3026: END IF;
3019: x_return_status => l_return_status);
3020:
3021:
3022: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3024: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3025: RAISE FND_API.G_EXC_ERROR;
3026: END IF;
3027:
3020:
3021:
3022: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3024: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3025: RAISE FND_API.G_EXC_ERROR;
3026: END IF;
3027:
3028: END IF;
3021:
3022: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3024: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3025: RAISE FND_API.G_EXC_ERROR;
3026: END IF;
3027:
3028: END IF;
3029:
3026: END IF;
3027:
3028: END IF;
3029:
3030: IF FND_API.to_boolean( p_commit ) THEN
3031: COMMIT;
3032: END IF;
3033: --dbms_output.put_line('End of Create_Task_Assignment_Periods return status: ' || l_return_status);
3034:
3033: --dbms_output.put_line('End of Create_Task_Assignment_Periods return status: ' || l_return_status);
3034:
3035: EXCEPTION
3036:
3037: WHEN FND_API.G_EXC_ERROR
3038: THEN
3039: ROLLBACK TO CREATE_TASK_ASGMT_PERIODS;
3040:
3041: x_return_status := FND_API.G_RET_STS_ERROR;
3037: WHEN FND_API.G_EXC_ERROR
3038: THEN
3039: ROLLBACK TO CREATE_TASK_ASGMT_PERIODS;
3040:
3041: x_return_status := FND_API.G_RET_STS_ERROR;
3042: IF P_DEBUG_MODE = 'Y' THEN
3043: PA_DEBUG.write_log (x_module => G_PKG_NAME
3044: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
3045: ,x_log_level => 5);
3047: FND_MSG_PUB.Count_And_Get
3048: ( p_count => x_msg_count ,
3049: p_data => x_msg_data );
3050:
3051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3052: THEN
3053: ROLLBACK TO CREATE_TASK_ASGMT_PERIODS;
3054:
3055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3052: THEN
3053: ROLLBACK TO CREATE_TASK_ASGMT_PERIODS;
3054:
3055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3056: IF P_DEBUG_MODE = 'Y' THEN
3057: PA_DEBUG.write_log (x_module => G_PKG_NAME
3058: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
3059: ,x_log_level => 5);
3068: -- Bug 4200146
3069: g_periodic_mode := null;
3070: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := null;
3071:
3072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3073: IF P_DEBUG_MODE = 'Y' THEN
3074: PA_DEBUG.write_log (x_module => G_PKG_NAME
3075: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
3076: ,x_log_level => 5);
3091:
3092:
3093: PROCEDURE Update_Task_Assignment_Periods
3094: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3095: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3096: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3097: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3098: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3099: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3092:
3093: PROCEDURE Update_Task_Assignment_Periods
3094: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3095: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3096: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3097: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3098: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3099: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3100: ,p_pa_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3141: SAVEPOINT UPDATE_TASK_ASGMT_PERIODS;
3142:
3143: -- Standard call to check for call compatibility.
3144:
3145: IF NOT FND_API.Compatible_API_Call ( 1.0, --g_api_version_number ,
3146: p_api_version_number,
3147: l_api_name,
3148: G_PKG_NAME )
3149: THEN
3146: p_api_version_number,
3147: l_api_name,
3148: G_PKG_NAME )
3149: THEN
3150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3151: END IF;
3152:
3153: -- Initialize the message table if requested.
3154:
3151: END IF;
3152:
3153: -- Initialize the message table if requested.
3154:
3155: IF FND_API.TO_BOOLEAN( p_init_msg_list )
3156: THEN
3157: FND_MSG_PUB.initialize;
3158: END IF;
3159:
3160:
3161:
3162: -- Set API return status to success
3163:
3164: x_return_status := FND_API.G_RET_STS_SUCCESS;
3165:
3166: -- Added for bug 5469303
3167: IF p_pa_structure_version_id IS NOT NULL AND (p_pa_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
3168: l_struct_elem_version_id := p_pa_structure_version_id;
3181: ,p_attribute3 => ''
3182: ,p_attribute4 => ''
3183: ,p_attribute5 => '');
3184: END IF;
3185: RAISE FND_API.G_EXC_ERROR;
3186: END IF;
3187:
3188:
3189: OPEN C_Get_Budget_Version_Id(l_struct_elem_version_id);
3195: PA_UTILS.ADD_MESSAGE (p_app_short_name => 'PA',
3196: p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH'
3197: );
3198: END IF;
3199: x_return_status := FND_API.G_RET_STS_ERROR;
3200: RAISE FND_API.G_EXC_ERROR;
3201:
3202: END IF;
3203:
3196: p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH'
3197: );
3198: END IF;
3199: x_return_status := FND_API.G_RET_STS_ERROR;
3200: RAISE FND_API.G_EXC_ERROR;
3201:
3202: END IF;
3203:
3204: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
3221: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
3222:
3223: Update_Task_Assignments
3224: ( p_api_version_number => 1.0
3225: ,p_commit => FND_API.G_FALSE
3226: ,p_init_msg_list => FND_API.G_FALSE
3227: ,p_pm_product_code => p_pm_product_code
3228: ,p_pm_project_reference => p_pm_project_reference
3229: ,p_pa_project_id => p_pa_project_id
3222:
3223: Update_Task_Assignments
3224: ( p_api_version_number => 1.0
3225: ,p_commit => FND_API.G_FALSE
3226: ,p_init_msg_list => FND_API.G_FALSE
3227: ,p_pm_product_code => p_pm_product_code
3228: ,p_pm_project_reference => p_pm_project_reference
3229: ,p_pa_project_id => p_pa_project_id
3230: ,p_pa_structure_version_id => p_pa_structure_version_id
3238: -- Bug 4200146
3239: g_periodic_mode := null;
3240: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := null;
3241:
3242: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3243:
3244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3245:
3246: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3240: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := null;
3241:
3242: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3243:
3244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3245:
3246: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3247:
3248: RAISE FND_API.G_EXC_ERROR;
3242: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3243:
3244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3245:
3246: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3247:
3248: RAISE FND_API.G_EXC_ERROR;
3249:
3250: END IF;
3244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3245:
3246: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3247:
3248: RAISE FND_API.G_EXC_ERROR;
3249:
3250: END IF;
3251:
3252: END IF;
3259: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
3260:
3261: Pa_Task_Assignments_pvt.Create_Task_Assignment_Periods
3262: ( p_api_version_number => 1.0
3263: ,p_commit => FND_API.G_FALSE
3264: ,p_init_msg_list => FND_API.G_FALSE
3265: ,p_pm_product_code => p_pm_product_code
3266: ,p_pm_project_reference => p_pm_project_reference
3267: ,p_pa_project_id => p_pa_project_id
3260:
3261: Pa_Task_Assignments_pvt.Create_Task_Assignment_Periods
3262: ( p_api_version_number => 1.0
3263: ,p_commit => FND_API.G_FALSE
3264: ,p_init_msg_list => FND_API.G_FALSE
3265: ,p_pm_product_code => p_pm_product_code
3266: ,p_pm_project_reference => p_pm_project_reference
3267: ,p_pa_project_id => p_pa_project_id
3268: ,p_pa_structure_version_id => p_pa_structure_version_id
3275:
3276: -- Bug 4200146
3277: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := null;
3278:
3279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3280:
3281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3282:
3283: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3277: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := null;
3278:
3279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3280:
3281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3282:
3283: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3284:
3285: RAISE FND_API.G_EXC_ERROR;
3279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3280:
3281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3282:
3283: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3284:
3285: RAISE FND_API.G_EXC_ERROR;
3286:
3287: END IF;
3281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3282:
3283: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3284:
3285: RAISE FND_API.G_EXC_ERROR;
3286:
3287: END IF;
3288:
3289: END IF;
3294: x_msg_code => l_msg_code,
3295: x_return_status => l_return_status);
3296:
3297:
3298: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3300: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3301: RAISE FND_API.G_EXC_ERROR;
3302: END IF;
3295: x_return_status => l_return_status);
3296:
3297:
3298: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3300: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3301: RAISE FND_API.G_EXC_ERROR;
3302: END IF;
3303:
3296:
3297:
3298: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3300: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3301: RAISE FND_API.G_EXC_ERROR;
3302: END IF;
3303:
3304: END IF;
3297:
3298: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3300: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3301: RAISE FND_API.G_EXC_ERROR;
3302: END IF;
3303:
3304: END IF;
3305:
3304: END IF;
3305:
3306:
3307:
3308: IF FND_API.to_boolean( p_commit ) THEN
3309: COMMIT;
3310: END IF;
3311:
3312:
3311:
3312:
3313: EXCEPTION
3314:
3315: WHEN FND_API.G_EXC_ERROR
3316: THEN
3317: ROLLBACK TO UPDATE_TASK_ASGMT_PERIODS;
3318:
3319: x_return_status := FND_API.G_RET_STS_ERROR;
3315: WHEN FND_API.G_EXC_ERROR
3316: THEN
3317: ROLLBACK TO UPDATE_TASK_ASGMT_PERIODS;
3318:
3319: x_return_status := FND_API.G_RET_STS_ERROR;
3320: IF P_DEBUG_MODE = 'Y' THEN
3321: PA_DEBUG.write_log (x_module => G_PKG_NAME
3322: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
3323: ,x_log_level => 5);
3325: FND_MSG_PUB.Count_And_Get
3326: ( p_count => x_msg_count ,
3327: p_data => x_msg_data );
3328:
3329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3330: THEN
3331: ROLLBACK TO UPDATE_TASK_ASGMT_PERIODS;
3332:
3333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3330: THEN
3331: ROLLBACK TO UPDATE_TASK_ASGMT_PERIODS;
3332:
3333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3334: IF P_DEBUG_MODE = 'Y' THEN
3335: PA_DEBUG.write_log (x_module => G_PKG_NAME
3336: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
3337: ,x_log_level => 5);
3346: -- Bug 4200146: Reset the masks
3347: g_periodic_mode := null;
3348: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := null;
3349:
3350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3351: IF P_DEBUG_MODE = 'Y' THEN
3352: PA_DEBUG.write_log (x_module => G_PKG_NAME
3353: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
3354: ,x_log_level => 5);
3368:
3369:
3370: PROCEDURE Delete_Task_Assignments
3371: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3372: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3373: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3374: --Either project reference or project id is required
3375: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3376: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3369:
3370: PROCEDURE Delete_Task_Assignments
3371: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3372: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3373: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3374: --Either project reference or project id is required
3375: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3376: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3377: --Structure version id is required
3410: SAVEPOINT Delete_Task_Assignments;
3411:
3412: -- Standard call to check for call compatibility.
3413:
3414: IF NOT FND_API.Compatible_API_Call ( 1.0, --g_api_version_number ,
3415: p_api_version_number,
3416: l_api_name,
3417: G_PKG_NAME )
3418: THEN
3415: p_api_version_number,
3416: l_api_name,
3417: G_PKG_NAME )
3418: THEN
3419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3420: END IF;
3421:
3422:
3423: -- Initialize the message table if requested.
3421:
3422:
3423: -- Initialize the message table if requested.
3424:
3425: IF FND_API.TO_BOOLEAN( p_init_msg_list )
3426: THEN
3427: FND_MSG_PUB.initialize;
3428: END IF;
3429:
3430:
3431:
3432: -- Set API return status to success
3433:
3434: x_return_status := FND_API.G_RET_STS_SUCCESS;
3435:
3436:
3437: IF nvl(p_task_assignments_in.COUNT, 0) > 0 THEN
3438:
3445: END LOOP;
3446: --dbms_output.put_line('From Delete_Task_Assignments calling Update_Task_Assignments' );
3447: Update_Task_Assignments
3448: ( p_api_version_number => 1.0
3449: ,p_commit => FND_API.G_FALSE
3450: ,p_init_msg_list => FND_API.G_FALSE
3451: ,p_pm_product_code => l_pm_product_code
3452: ,p_pm_project_reference => p_pm_project_reference
3453: ,p_pa_project_id => p_pa_project_id
3446: --dbms_output.put_line('From Delete_Task_Assignments calling Update_Task_Assignments' );
3447: Update_Task_Assignments
3448: ( p_api_version_number => 1.0
3449: ,p_commit => FND_API.G_FALSE
3450: ,p_init_msg_list => FND_API.G_FALSE
3451: ,p_pm_product_code => l_pm_product_code
3452: ,p_pm_project_reference => p_pm_project_reference
3453: ,p_pa_project_id => p_pa_project_id
3454: ,p_pa_structure_version_id => p_pa_structure_version_id
3458: ,x_msg_data => l_msg_data
3459: ,x_return_status => l_return_status
3460: );
3461:
3462: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3463:
3464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3465:
3466: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3460: );
3461:
3462: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3463:
3464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3465:
3466: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3467:
3468: RAISE FND_API.G_EXC_ERROR;
3462: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3463:
3464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3465:
3466: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3467:
3468: RAISE FND_API.G_EXC_ERROR;
3469:
3470: END IF;
3464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3465:
3466: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3467:
3468: RAISE FND_API.G_EXC_ERROR;
3469:
3470: END IF;
3471:
3472: END IF;
3471:
3472: END IF;
3473:
3474:
3475: IF FND_API.to_boolean( p_commit ) THEN
3476: COMMIT;
3477: END IF;
3478:
3479: EXCEPTION
3477: END IF;
3478:
3479: EXCEPTION
3480:
3481: WHEN FND_API.G_EXC_ERROR
3482: THEN
3483: ROLLBACK TO Delete_Task_Assignments;
3484:
3485: x_return_status := FND_API.G_RET_STS_ERROR;
3481: WHEN FND_API.G_EXC_ERROR
3482: THEN
3483: ROLLBACK TO Delete_Task_Assignments;
3484:
3485: x_return_status := FND_API.G_RET_STS_ERROR;
3486: IF P_DEBUG_MODE = 'Y' THEN
3487: PA_DEBUG.write_log (x_module => G_PKG_NAME
3488: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
3489: ,x_log_level => 5);
3491: FND_MSG_PUB.Count_And_Get
3492: ( p_count => x_msg_count ,
3493: p_data => x_msg_data );
3494:
3495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3496: THEN
3497: ROLLBACK TO Delete_Task_Assignments;
3498:
3499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3496: THEN
3497: ROLLBACK TO Delete_Task_Assignments;
3498:
3499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3500: IF P_DEBUG_MODE = 'Y' THEN
3501: PA_DEBUG.write_log (x_module => G_PKG_NAME
3502: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
3503: ,x_log_level => 5);
3508:
3509: WHEN OTHERS THEN
3510: ROLLBACK TO Delete_Task_Assignments;
3511:
3512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3513: IF P_DEBUG_MODE = 'Y' THEN
3514: PA_DEBUG.write_log (x_module => G_PKG_NAME
3515: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
3516: ,x_log_level => 5);
3531:
3532:
3533: PROCEDURE Update_Task_Assignments
3534: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3535: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3536: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3537: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3538: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3539: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3532:
3533: PROCEDURE Update_Task_Assignments
3534: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3535: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3536: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3537: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3538: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3539: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3540: ,p_pa_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3963: SAVEPOINT UPDATE_task_asgmts_pub;
3964:
3965: -- Standard call to check for call compatibility.
3966:
3967: IF NOT FND_API.Compatible_API_Call ( 1.0, --pa_project_pub.g_api_version_number ,
3968: p_api_version_number ,
3969: l_api_name ,
3970: G_PKG_NAME )
3971: THEN
3969: l_api_name ,
3970: G_PKG_NAME )
3971: THEN
3972:
3973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3974:
3975: END IF;
3976:
3977: -- Initialize the message table if requested.
3975: END IF;
3976:
3977: -- Initialize the message table if requested.
3978:
3979: IF FND_API.TO_BOOLEAN( p_init_msg_list )
3980: THEN
3981:
3982: FND_MSG_PUB.initialize;
3983:
3986: --dbms_output.put_line('Update Task Asgmts.: API Comp. checked.');
3987:
3988: -- Set API return status to success
3989:
3990: x_return_status := FND_API.G_RET_STS_SUCCESS;
3991:
3992: -- Initialize the message table if requested.
3993: -- pm_product_code is mandatory
3994:
4013: ,p_attribute3 => ''
4014: ,p_attribute4 => ''
4015: ,p_attribute5 => '');
4016: END IF;
4017: RAISE FND_API.G_EXC_ERROR;
4018:
4019: END IF;
4020:
4021: --dbms_output.put_line('Update Task Asgmts.: Product Code checked.');
4058: , p_out_project_id => l_project_id
4059: , p_return_status => l_return_status
4060: );
4061:
4062: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4063:
4064: --dbms_output.put_line('Project_id not successful ');
4065: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4066: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
4065: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4066: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
4067: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
4068: END IF;
4069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4070:
4071: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4072:
4073: --dbms_output.put_line('Project_id conv. not successful ');
4067: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
4068: END IF;
4069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4070:
4071: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4072:
4073: --dbms_output.put_line('Project_id conv. not successful ');
4074: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4075: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
4074: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4075: pa_debug.g_err_stage:=' Project ref to id check not successful.' || L_FuncProc;
4076: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
4077: END IF;
4078: RAISE FND_API.G_EXC_ERROR;
4079:
4080: END IF;
4081: END IF;
4082:
4111: p_msg_data => l_msg_data,
4112: p_return_status => l_return_status,
4113: p_function_allowed => l_function_allowed);
4114:
4115: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4116: THEN
4117: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4118:
4119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4113: p_function_allowed => l_function_allowed);
4114:
4115: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4116: THEN
4117: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4118:
4119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4120: THEN
4121: RAISE FND_API.G_EXC_ERROR;
4115: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4116: THEN
4117: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4118:
4119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4120: THEN
4121: RAISE FND_API.G_EXC_ERROR;
4122: END IF;
4123:
4117: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4118:
4119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4120: THEN
4121: RAISE FND_API.G_EXC_ERROR;
4122: END IF;
4123:
4124: IF l_function_allowed = 'N' THEN
4125: pa_interface_utils_pub.map_new_amg_msg
4131: ,p_attribute2 => ''
4132: ,p_attribute3 => ''
4133: ,p_attribute4 => ''
4134: ,p_attribute5 => '');
4135: x_return_status := FND_API.G_RET_STS_ERROR;
4136: RAISE FND_API.G_EXC_ERROR;
4137: END IF;
4138:
4139: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4132: ,p_attribute3 => ''
4133: ,p_attribute4 => ''
4134: ,p_attribute5 => '');
4135: x_return_status := FND_API.G_RET_STS_ERROR;
4136: RAISE FND_API.G_EXC_ERROR;
4137: END IF;
4138:
4139: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4140: THEN
4135: x_return_status := FND_API.G_RET_STS_ERROR;
4136: RAISE FND_API.G_EXC_ERROR;
4137: END IF;
4138:
4139: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4140: THEN
4141:
4142: FND_MSG_PUB.initialize;
4143:
4147: --dbms_output.put_line('Update Task Asgmts.: Function Security checked.');
4148:
4149: -- Set API return status to success
4150:
4151: x_return_status := FND_API.G_RET_STS_SUCCESS;
4152:
4153:
4154: -- Now verify whether project security allows the user to update
4155: -- the project
4173: ,p_attribute2 => ''
4174: ,p_attribute3 => ''
4175: ,p_attribute4 => ''
4176: ,p_attribute5 => '');
4177: x_return_status := FND_API.G_RET_STS_ERROR;
4178: RAISE FND_API.G_EXC_ERROR;
4179: END IF;
4180:
4181: --dbms_output.put_line('Update Task Asgmts.: Project Security checked for: ' || l_project_id);
4174: ,p_attribute3 => ''
4175: ,p_attribute4 => ''
4176: ,p_attribute5 => '');
4177: x_return_status := FND_API.G_RET_STS_ERROR;
4178: RAISE FND_API.G_EXC_ERROR;
4179: END IF;
4180:
4181: --dbms_output.put_line('Update Task Asgmts.: Project Security checked for: ' || l_project_id);
4182:
4201: ,p_attribute3 => ''
4202: ,p_attribute4 => ''
4203: ,p_attribute5 => '');
4204: END IF;
4205: RAISE FND_API.G_EXC_ERROR;
4206: END IF;
4207:
4208: --dbms_output.put_line('PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS IS Fine..');
4209: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4242: ,p_attribute3 => ''
4243: ,p_attribute4 => ''
4244: ,p_attribute5 => '');
4245: END IF;
4246: RAISE FND_API.G_EXC_ERROR;
4247: END IF;
4248:
4249:
4250: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4257: -- pa_task_assignments_pvt.lock_version(l_project_id, l_struct_elem_version_id);
4258:
4259: -- Bug 3940853: Raise locking error return from structure API
4260: IF FND_MSG_PUB.count_msg > 0 THEN
4261: x_return_status := FND_API.G_RET_STS_ERROR;
4262: RAISE FND_API.G_EXC_ERROR;
4263: END IF;
4264:
4265:
4258:
4259: -- Bug 3940853: Raise locking error return from structure API
4260: IF FND_MSG_PUB.count_msg > 0 THEN
4261: x_return_status := FND_API.G_RET_STS_ERROR;
4262: RAISE FND_API.G_EXC_ERROR;
4263: END IF;
4264:
4265:
4266:
4276: --PA_UTILS.ADD_MESSAGE
4277: -- (p_app_short_name => 'PA',
4278: -- p_msg_name => 'PA_UPDATE_PUB_VER_ERR'
4279: -- );
4280: x_return_status := FND_API.G_RET_STS_ERROR;
4281: RAISE FND_API.G_EXC_ERROR;
4282: END IF;
4283:
4284: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4277: -- (p_app_short_name => 'PA',
4278: -- p_msg_name => 'PA_UPDATE_PUB_VER_ERR'
4279: -- );
4280: x_return_status := FND_API.G_RET_STS_ERROR;
4281: RAISE FND_API.G_EXC_ERROR;
4282: END IF;
4283:
4284: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4285: pa_debug.g_err_stage:='Check edit task done';
4297: (p_app_short_name => 'PA',
4298: p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH'
4299: );
4300: END IF;
4301: x_return_status := FND_API.G_RET_STS_ERROR;
4302: RAISE FND_API.G_EXC_ERROR;
4303:
4304: END IF;
4305:
4298: p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH'
4299: );
4300: END IF;
4301: x_return_status := FND_API.G_RET_STS_ERROR;
4302: RAISE FND_API.G_EXC_ERROR;
4303:
4304: END IF;
4305:
4306: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4356: PA_UTILS.ADD_MESSAGE
4357: (p_app_short_name => 'PA',
4358: p_msg_name => 'PA_RES_LIST_NONE_ERR'
4359: );
4360: x_return_status := FND_API.G_RET_STS_ERROR;
4361: RAISE FND_API.G_EXC_ERROR;
4362: END IF;
4363: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4364: pa_debug.g_err_stage:='l_count'|| l_count;
4357: (p_app_short_name => 'PA',
4358: p_msg_name => 'PA_RES_LIST_NONE_ERR'
4359: );
4360: x_return_status := FND_API.G_RET_STS_ERROR;
4361: RAISE FND_API.G_EXC_ERROR;
4362: END IF;
4363: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4364: pa_debug.g_err_stage:='l_count'|| l_count;
4365: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
4460: p_msg_name => 'PA_TASK_REQUIRED'
4461: );
4462: END IF;
4463:
4464: RAISE FND_API.G_EXC_ERROR;
4465: END IF;
4466:
4467:
4468:
4502: p_msg_name => 'PA_TASK_REQUIRED'
4503: );
4504: END IF;
4505:
4506: RAISE FND_API.G_EXC_ERROR;
4507: END IF;
4508:
4509:
4510:
4527: (p_app_short_name => 'PA',
4528: p_msg_name => 'PA_TASK_VERSION_REQUIRED'
4529: );
4530:
4531: RAISE FND_API.G_EXC_ERROR;
4532: END IF;
4533: END IF;
4534:
4535:
4616: x_msg_count => x_msg_count,
4617: x_msg_data => x_msg_data ) ;
4618:
4619: IF l_valid_member_flag = 'N' THEN
4620: x_return_status := FND_API.G_RET_STS_ERROR;
4621: RAISE FND_API.G_EXC_ERROR;
4622: END IF;
4623:
4624: ELSIF p_task_assignments_in(i).pa_task_assignment_id IS NULL AND
4617: x_msg_data => x_msg_data ) ;
4618:
4619: IF l_valid_member_flag = 'N' THEN
4620: x_return_status := FND_API.G_RET_STS_ERROR;
4621: RAISE FND_API.G_EXC_ERROR;
4622: END IF;
4623:
4624: ELSIF p_task_assignments_in(i).pa_task_assignment_id IS NULL AND
4625: p_task_assignments_in(i).p_context <> 'D' AND
4630: PA_UTILS.ADD_MESSAGE
4631: (p_app_short_name => 'PA',
4632: p_msg_name => 'PA_INVALID_RES_LIST_MEM_ID'
4633: );
4634: x_return_status := FND_API.G_RET_STS_ERROR;
4635: RAISE FND_API.G_EXC_ERROR;
4636: END IF;
4637: END IF;
4638:
4631: (p_app_short_name => 'PA',
4632: p_msg_name => 'PA_INVALID_RES_LIST_MEM_ID'
4633: );
4634: x_return_status := FND_API.G_RET_STS_ERROR;
4635: RAISE FND_API.G_EXC_ERROR;
4636: END IF;
4637: END IF;
4638:
4639: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4652: (p_app_short_name => 'PA',
4653: p_msg_name => 'PA_INVALID_DATES'
4654: );
4655:
4656: x_return_status := FND_API.G_RET_STS_ERROR;
4657: RAISE FND_API.G_EXC_ERROR;
4658: END IF;
4659:
4660: END IF;
4653: p_msg_name => 'PA_INVALID_DATES'
4654: );
4655:
4656: x_return_status := FND_API.G_RET_STS_ERROR;
4657: RAISE FND_API.G_EXC_ERROR;
4658: END IF;
4659:
4660: END IF;
4661:
4668: (p_app_short_name => 'PA',
4669: p_msg_name => 'PA_PM_TASK_ASGMT_REF_REQ'
4670: );
4671: END IF;
4672: x_return_status := FND_API.G_RET_STS_ERROR;
4673: RAISE FND_API.G_EXC_ERROR;
4674:
4675: END IF;
4676:
4669: p_msg_name => 'PA_PM_TASK_ASGMT_REF_REQ'
4670: );
4671: END IF;
4672: x_return_status := FND_API.G_RET_STS_ERROR;
4673: RAISE FND_API.G_EXC_ERROR;
4674:
4675: END IF;
4676:
4677: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4694: ,p_attribute3 => ''
4695: ,p_attribute4 => ''
4696: ,p_attribute5 => '');
4697: END IF;
4698: RAISE FND_API.G_EXC_ERROR;
4699: x_return_status := FND_API.G_RET_STS_SUCCESS;
4700:
4701: END IF;
4702:
4695: ,p_attribute4 => ''
4696: ,p_attribute5 => '');
4697: END IF;
4698: RAISE FND_API.G_EXC_ERROR;
4699: x_return_status := FND_API.G_RET_STS_SUCCESS;
4700:
4701: END IF;
4702:
4703:
4731: ,p_attribute4 => ''
4732: ,p_attribute5 => '');
4733: END IF;
4734: CLOSE C_currency_exists; --Bug 3937017
4735: RAISE FND_API.G_EXC_ERROR;
4736: END IF;
4737: CLOSE C_currency_exists;
4738:
4739: END IF;
4806: (p_app_short_name => 'PA',
4807: p_msg_name => 'PA_WEIGHTING_NOT_POSITIVE'
4808: );
4809:
4810: x_return_status := FND_API.G_RET_STS_ERROR;
4811: RAISE FND_API.G_EXC_ERROR;
4812: END IF;
4813:
4814: END IF;
4807: p_msg_name => 'PA_WEIGHTING_NOT_POSITIVE'
4808: );
4809:
4810: x_return_status := FND_API.G_RET_STS_ERROR;
4811: RAISE FND_API.G_EXC_ERROR;
4812: END IF;
4813:
4814: END IF;
4815:
4864: ,p_attribute3 => ''
4865: ,p_attribute4 => ''
4866: ,p_attribute5 => '');
4867: END IF;
4868: RAISE FND_API.G_EXC_ERROR;
4869: END IF;
4870:
4871: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
4872: pa_debug.g_err_stage:='Cost Type check passed.';
5008: l_raw_cost_tbl(u_index) := pa_task_assignments_pvt.pfnum(p_task_assignments_in(i).planned_total_raw_cost) ;
5009: l_burdened_cost_tbl(u_index) := pa_task_assignments_pvt.pfnum(p_task_assignments_in(i).planned_total_bur_cost) ;
5010: /* Bug Fix 5505113
5011: */
5012: IF l_raw_cost_tbl(u_index) = FND_API.G_MISS_NUM THEN
5013: l_raw_cost_tbl(u_index) := NULL;
5014: END IF;
5015:
5016: IF l_burdened_cost_tbl(u_index) = FND_API.G_MISS_NUM THEN
5012: IF l_raw_cost_tbl(u_index) = FND_API.G_MISS_NUM THEN
5013: l_raw_cost_tbl(u_index) := NULL;
5014: END IF;
5015:
5016: IF l_burdened_cost_tbl(u_index) = FND_API.G_MISS_NUM THEN
5017: l_burdened_cost_tbl(u_index) := NULL;
5018: END IF;
5019:
5020: END IF;
5020: END IF;
5021: l_quantity_tbl(u_index) := pa_task_assignments_pvt.pfnum(p_task_assignments_in(i).planned_quantity) ;
5022: /* Bug Fix 5505113
5023: */
5024: IF l_quantity_tbl(u_index) = FND_API.G_MISS_NUM THEN
5025: l_quantity_tbl(u_index) := NULL;
5026: END IF;
5027:
5028: END IF;
5092:
5093: l_burd_cost_rate_override_tbl(u_index) := pa_task_assignments_pvt.pfnum(p_task_assignments_in(i).burd_cost_rate_override);
5094: /* Bug Fix 5505113
5095: */
5096: IF l_raw_cost_rate_override_tbl(u_index) = FND_API.G_MISS_NUM THEN
5097: l_raw_cost_rate_override_tbl(u_index) := NULL;
5098: END IF;
5099:
5100: IF l_burd_cost_rate_override_tbl(u_index) = FND_API.G_MISS_NUM THEN
5096: IF l_raw_cost_rate_override_tbl(u_index) = FND_API.G_MISS_NUM THEN
5097: l_raw_cost_rate_override_tbl(u_index) := NULL;
5098: END IF;
5099:
5100: IF l_burd_cost_rate_override_tbl(u_index) = FND_API.G_MISS_NUM THEN
5101: l_burd_cost_rate_override_tbl(u_index) := NULL;
5102: END IF;
5103:
5104: elsif C_Res_Asgmt_Data_Rec.rate_based_flag = 'N' AND C_Workplan_Costs_rec.enabled_flag = 'Y' THEN
5106:
5107: l_burd_cost_rate_override_tbl(u_index) := pa_task_assignments_pvt.pfnum(p_task_assignments_in(i).burd_cost_rate_override);
5108: /* Bug Fix 5505113
5109: */
5110: IF l_burd_cost_rate_override_tbl(u_index) = FND_API.G_MISS_NUM THEN
5111: l_burd_cost_rate_override_tbl(u_index) := NULL;
5112: END IF;
5113:
5114: end if;
5239: -- Bug 4246109: Should pass in supplier to update_planning_transaction
5240: l_supplier_id_tbl(u_index) := pa_task_assignments_pvt.pfnum(C_Res_Asgmt_Data_Rec.supplier_id);
5241:
5242: -- Bug 4528392:
5243: IF l_supplier_id_tbl(u_index) IS NOT NULL and l_supplier_id_tbl(u_index) <> FND_API.G_MISS_NUM THEN
5244: l_supplier_name_tbl(u_index) := pa_task_assignments_pvt.pfchar(pa_planning_resource_utils.ret_supplier_name(l_supplier_id_tbl(u_index)));
5245: ELSIF l_supplier_id_tbl(u_index) IS NULL THEN
5246: l_supplier_name_tbl(u_index) := NULL;
5247: ELSE
5244: l_supplier_name_tbl(u_index) := pa_task_assignments_pvt.pfchar(pa_planning_resource_utils.ret_supplier_name(l_supplier_id_tbl(u_index)));
5245: ELSIF l_supplier_id_tbl(u_index) IS NULL THEN
5246: l_supplier_name_tbl(u_index) := NULL;
5247: ELSE
5248: l_supplier_name_tbl(u_index) := FND_API.G_MISS_CHAR;
5249: END IF;
5250: -- End of Bug 4528392:
5251:
5252: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
5284: p_msg_name => 'PA_DUPLICATE_TA_REF'
5285: );
5286: END IF;
5287: CLOSE C_Reference_Check;--Bug 3937017
5288: x_return_status := FND_API.G_RET_STS_ERROR;
5289: RAISE FND_API.G_EXC_ERROR;
5290: END IF;
5291: Close C_Reference_Check;
5292: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
5285: );
5286: END IF;
5287: CLOSE C_Reference_Check;--Bug 3937017
5288: x_return_status := FND_API.G_RET_STS_ERROR;
5289: RAISE FND_API.G_EXC_ERROR;
5290: END IF;
5291: Close C_Reference_Check;
5292: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
5293: pa_debug.g_err_stage:='pm_task_asgmt_reference is EXISTING check passed';
5382: lc_raw_cost_tbl(c_index) := pa_task_assignments_pvt.pfnum(p_task_assignments_in(i).planned_total_raw_cost) ;
5383: lc_burdened_cost_tbl(c_index) := pa_task_assignments_pvt.pfnum(p_task_assignments_in(i).planned_total_bur_cost) ;
5384: /* Bug Fix 5505113
5385: */
5386: IF lc_raw_cost_tbl(c_index) = FND_API.G_MISS_NUM THEN
5387: lc_raw_cost_tbl(c_index) := NULL;
5388: END IF;
5389:
5390: IF lc_burdened_cost_tbl(c_index) = FND_API.G_MISS_NUM THEN
5386: IF lc_raw_cost_tbl(c_index) = FND_API.G_MISS_NUM THEN
5387: lc_raw_cost_tbl(c_index) := NULL;
5388: END IF;
5389:
5390: IF lc_burdened_cost_tbl(c_index) = FND_API.G_MISS_NUM THEN
5391: lc_burdened_cost_tbl(c_index) := NULL;
5392: END IF;
5393:
5394: END IF;
5395:
5396: lc_quantity_tbl(c_index) := pa_task_assignments_pvt.pfnum(p_task_assignments_in(i).planned_quantity);
5397: /* Bug Fix 5505113
5398: */
5399: IF lc_quantity_tbl(c_index) = FND_API.G_MISS_NUM THEN
5400: lc_quantity_tbl(c_index) := NULL;
5401: END IF;
5402:
5403: END IF;
5688: pa_debug.g_err_stage:='After Calling add planning transactions:ret. status' || x_return_status;
5689: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
5690: END IF;
5691:
5692: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5694: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5695: RAISE FND_API.G_EXC_ERROR;
5696: END IF;
5689: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
5690: END IF;
5691:
5692: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5694: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5695: RAISE FND_API.G_EXC_ERROR;
5696: END IF;
5697:
5690: END IF;
5691:
5692: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5694: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5695: RAISE FND_API.G_EXC_ERROR;
5696: END IF;
5697:
5698: END IF; -- IF c_index > 0 THEN
5691:
5692: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5694: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5695: RAISE FND_API.G_EXC_ERROR;
5696: END IF;
5697:
5698: END IF; -- IF c_index > 0 THEN
5699:
5759: pa_debug.g_err_stage:='After Calling delete planning transactions:ret. status' || x_return_status;
5760: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
5761: END IF;
5762:
5763: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5765: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5766: RAISE FND_API.G_EXC_ERROR;
5767: END IF;
5760: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
5761: END IF;
5762:
5763: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5765: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5766: RAISE FND_API.G_EXC_ERROR;
5767: END IF;
5768: END IF;
5761: END IF;
5762:
5763: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5765: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5766: RAISE FND_API.G_EXC_ERROR;
5767: END IF;
5768: END IF;
5769:
5762:
5763: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5765: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5766: RAISE FND_API.G_EXC_ERROR;
5767: END IF;
5768: END IF;
5769:
5770:
5919: pa_debug.g_err_stage:='Return status after update planning transactions.' ||x_return_status;
5920: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
5921: END IF;
5922:
5923: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5925: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5926: RAISE FND_API.G_EXC_ERROR;
5927: END IF;
5920: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
5921: END IF;
5922:
5923: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5925: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5926: RAISE FND_API.G_EXC_ERROR;
5927: END IF;
5928: END IF;
5921: END IF;
5922:
5923: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5925: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5926: RAISE FND_API.G_EXC_ERROR;
5927: END IF;
5928: END IF;
5929:
5922:
5923: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5925: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5926: RAISE FND_API.G_EXC_ERROR;
5927: END IF;
5928: END IF;
5929:
5930:
5980: x_msg_code => l_msg_code,
5981: x_return_status => l_return_status);
5982:
5983:
5984: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5986: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5987: RAISE FND_API.G_EXC_ERROR;
5988: END IF;
5981: x_return_status => l_return_status);
5982:
5983:
5984: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5986: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5987: RAISE FND_API.G_EXC_ERROR;
5988: END IF;
5989:
5982:
5983:
5984: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5986: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5987: RAISE FND_API.G_EXC_ERROR;
5988: END IF;
5989:
5990: END IF;
5983:
5984: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5986: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5987: RAISE FND_API.G_EXC_ERROR;
5988: END IF;
5989:
5990: END IF;
5991:
5988: END IF;
5989:
5990: END IF;
5991:
5992: IF FND_API.to_boolean( p_commit ) THEN
5993: IF P_DEBUG_MODE = 'Y' AND (li_curr_level <= 3) THEN
5994: pa_debug.g_err_stage:='COMMIT done in Update Task Assignments';
5995: pa_debug.write(G_PKG_NAME ,pa_debug.g_err_stage,3);
5996: END IF;
6003:
6004:
6005: EXCEPTION
6006:
6007: WHEN FND_API.G_EXC_ERROR
6008: THEN
6009: ROLLBACK TO UPDATE_task_asgmts_pub;
6010:
6011:
6008: THEN
6009: ROLLBACK TO UPDATE_task_asgmts_pub;
6010:
6011:
6012: x_return_status := FND_API.G_RET_STS_ERROR;
6013: IF P_DEBUG_MODE = 'Y' THEN
6014: PA_DEBUG.write_log (x_module => G_PKG_NAME
6015: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
6016: ,x_log_level => 5);
6019: FND_MSG_PUB.Count_And_Get
6020: ( p_count => x_msg_count ,
6021: p_data => x_msg_data );
6022:
6023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6024: THEN
6025: ROLLBACK TO UPDATE_task_asgmts_pub;
6026:
6027:
6024: THEN
6025: ROLLBACK TO UPDATE_task_asgmts_pub;
6026:
6027:
6028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6029: IF P_DEBUG_MODE = 'Y' THEN
6030: PA_DEBUG.write_log (x_module => G_PKG_NAME
6031: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
6032: ,x_log_level => 5);
6047:
6048: -- Bug 4200146: Reset the mask.
6049: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := null;
6050:
6051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6052: IF P_DEBUG_MODE = 'Y' THEN
6053: PA_DEBUG.write_log (x_module => G_PKG_NAME
6054: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
6055: ,x_log_level => 5);
6073:
6074:
6075: PROCEDURE Fetch_Task_Assignments
6076: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
6077: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6078: ,p_task_asgmt_index IN pa_num_1000_num := pa_num_1000_num(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
6079: ,p_pm_task_asgmt_reference OUT NOCOPY pa_vc_1000_30
6080: ,p_pa_task_assignment_id OUT NOCOPY pa_num_1000_num
6081: ,p_pm_task_reference OUT NOCOPY pa_vc_1000_30
6121: SAVEPOINT fetch_task_assignments_pub;
6122:
6123: -- Standard call to check for call compatibility.
6124:
6125: IF NOT FND_API.Compatible_API_Call ( 1.0, --g_api_version_number ,
6126: p_api_version_number ,
6127: l_api_name ,
6128: G_PKG_NAME )
6129: THEN
6127: l_api_name ,
6128: G_PKG_NAME )
6129: THEN
6130:
6131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6132:
6133: END IF;
6134:
6135: -- Initialize the message table if requested.
6133: END IF;
6134:
6135: -- Initialize the message table if requested.
6136:
6137: IF FND_API.TO_BOOLEAN( p_init_msg_list )
6138: THEN
6139: FND_MSG_PUB.initialize;
6140: END IF;
6141:
6140: END IF;
6141:
6142: -- Set API return status to success
6143:
6144: x_return_status := FND_API.G_RET_STS_SUCCESS;
6145:
6146: -- Check Task index value, when they don't provide an index we will error out
6147: FOR i in 1..p_task_asgmt_index.COUNT LOOP
6148:
6167: ,p_attribute4 => ''
6168: ,p_attribute5 => '');
6169: END IF;
6170:
6171: x_return_status := FND_API.G_RET_STS_ERROR;
6172: RAISE FND_API.G_EXC_ERROR;
6173:
6174: END IF;
6175:
6168: ,p_attribute5 => '');
6169: END IF;
6170:
6171: x_return_status := FND_API.G_RET_STS_ERROR;
6172: RAISE FND_API.G_EXC_ERROR;
6173:
6174: END IF;
6175:
6176: IF g_task_asgmts_out_tbl.exists(p_task_asgmt_index(i)) AND
6240: END LOOP;
6241:
6242: EXCEPTION
6243:
6244: WHEN FND_API.G_EXC_ERROR
6245: THEN
6246: ROLLBACK TO fetch_task_assignments_pub;
6247:
6248: x_return_status := FND_API.G_RET_STS_ERROR;
6244: WHEN FND_API.G_EXC_ERROR
6245: THEN
6246: ROLLBACK TO fetch_task_assignments_pub;
6247:
6248: x_return_status := FND_API.G_RET_STS_ERROR;
6249: IF P_DEBUG_MODE = 'Y' THEN
6250: PA_DEBUG.write_log (x_module => G_PKG_NAME
6251: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
6252: ,x_log_level => 5);
6251: ,x_msg => 'Expected Error:' || L_FuncProc || SQLERRM
6252: ,x_log_level => 5);
6253: END IF;
6254:
6255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6256: THEN
6257: ROLLBACK TO fetch_task_assignments_pub;
6258:
6259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6256: THEN
6257: ROLLBACK TO fetch_task_assignments_pub;
6258:
6259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6260: IF P_DEBUG_MODE = 'Y' THEN
6261: PA_DEBUG.write_log (x_module => G_PKG_NAME
6262: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
6263: ,x_log_level => 5);
6266:
6267: WHEN OTHERS THEN
6268: ROLLBACK TO fetch_task_assignments_pub;
6269:
6270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6271: IF P_DEBUG_MODE = 'Y' THEN
6272: PA_DEBUG.write_log (x_module => G_PKG_NAME
6273: ,x_msg => 'Unexpected Error:' || L_FuncProc || SQLERRM
6274: ,x_log_level => 5);
6415: l_struct_ver_id NUMBER;
6416:
6417: BEGIN
6418:
6419: x_return_status := FND_API.G_RET_STS_SUCCESS;
6420:
6421: -- Bug 3872176 get project information
6422: OPEN l_project_id_csr;
6423: FETCH l_project_id_csr INTO l_dummy, l_template_flag, l_version_enabled_flag;
6441: ,p_attribute4 => ''
6442: ,p_attribute5 => '');
6443: END IF;
6444:
6445: RAISE FND_API.G_EXC_ERROR;
6446: END IF;
6447:
6448: ELSE
6449:
6460: ,p_attribute4 => ''
6461: ,p_attribute5 => '');
6462: END IF;
6463:
6464: RAISE FND_API.G_EXC_ERROR;
6465:
6466: END IF;
6467:
6468: IF p_pa_structure_version_id IS NOT NULL AND
6523: ,p_attribute3 => ''
6524: ,p_attribute4 => ''
6525: ,p_attribute5 => '');
6526: END IF;
6527: RAISE FND_API.G_EXC_ERROR;
6528: END IF;
6529:
6530: IF p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
6531: AND p_pa_task_id IS NOT NULL
6557: ,p_attribute5 => '');
6558: END IF;
6559:
6560:
6561: RAISE FND_API.G_EXC_ERROR;
6562: END IF;
6563:
6564: --p_out_task_id := p_pa_task_id; --JRAJ.
6565: END IF; --IF p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
6597: ,p_attribute5 => '');
6598: END IF;
6599:
6600: CLOSE l_task_asgmt_id_csr;
6601: RAISE FND_API.G_EXC_ERROR;
6602: END IF;
6603:
6604: CLOSE l_task_asgmt_id_csr;
6605:
6649: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Task Assignment Reference');
6650: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_task_asgmt_reference);
6651: FND_MSG_PUB.add;
6652:
6653: RAISE FND_API.G_EXC_ERROR;
6654:
6655: END IF;
6656:
6657: ELSE
6687: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Task Assignment Reference');
6688: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_task_asgmt_reference);
6689: FND_MSG_PUB.add;
6690:
6691: RAISE FND_API.G_EXC_ERROR;
6692:
6693: END IF;
6694: ELSE
6695: x_pa_task_assignment_id := l_task_asgmt_id ; --JRAJ.
6714: ,p_attribute4 => ''
6715: ,p_attribute5 => '');
6716: END IF;
6717:
6718: RAISE FND_API.G_EXC_ERROR;
6719:
6720: END IF; -- If p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
6721: --dbms_output.put_line('l_task_asgmt_id'||l_task_asgmt_id);
6722: EXCEPTION
6720: END IF; -- If p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
6721: --dbms_output.put_line('l_task_asgmt_id'||l_task_asgmt_id);
6722: EXCEPTION
6723:
6724: WHEN FND_API.G_EXC_ERROR
6725: THEN
6726:
6727:
6728: x_return_status := FND_API.G_RET_STS_ERROR;
6724: WHEN FND_API.G_EXC_ERROR
6725: THEN
6726:
6727:
6728: x_return_status := FND_API.G_RET_STS_ERROR;
6729:
6730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6731: THEN
6732:
6726:
6727:
6728: x_return_status := FND_API.G_RET_STS_ERROR;
6729:
6730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6731: THEN
6732:
6733:
6734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6731: THEN
6732:
6733:
6734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6735:
6736: WHEN OTHERS THEN
6737:
6738:
6735:
6736: WHEN OTHERS THEN
6737:
6738:
6739: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6740:
6741: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6742: THEN
6743: FND_MSG_PUB.add_exc_msg