[Home] [Help]
243: /*
244: --dbms_output.put_line('task number');
245: IF p_task_number IS NULL
246: THEN
247: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
248: p_msg_name => 'PA_PS_TASK_NUMBER_NULL');
249: raise FND_API.G_EXC_ERROR;
250: END IF;
251:
251:
252: --dbms_output.put_line('task name');
253: IF p_task_name IS NULL
254: THEN
255: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
256: p_msg_name => 'PA_PS_TASK_NAME_NULL');
257: raise FND_API.G_EXC_ERROR;
258: END IF;
259:
267: ,p_structure_id => p_parent_structure_id
268: ,p_object_type => 'PA_TASKS'
269: ) = 'N'
270: THEN
271: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
272: p_msg_name => 'PA_PS_TASK_NOT_NUM_UNIQ');
273: raise FND_API.G_EXC_ERROR;
274:
275: END IF;
307: P_ERROR_CODE => l_err_code,
308: P_ERROR_STACK => l_err_stack,
309: P_ERROR_STAGE => l_err_stage );
310: IF l_err_code <> 0 THEN
311: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
312: p_msg_name => l_err_stage);
313: END IF;
314: IF l_add_task_allowed = 'N' THEN
315: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
311: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
312: p_msg_name => l_err_stage);
313: END IF;
314: IF l_add_task_allowed = 'N' THEN
315: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
316: p_msg_name => 'PA_PR_PM_CANNOT_ADDTASK');
317: raise FND_API.G_EXC_ERROR;
318: END IF;
319: END IF;
344: x_task_mgr_id => l_task_manager_id,
345: x_return_status => l_return_status,
346: x_error_msg_code => l_error_msg_code);
347: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
348: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
349: p_msg_name => l_error_msg_code);
350: END IF;
351: END IF; --End Name-Id Conversion
352: END IF;
370: x_return_status => l_return_status,
371: x_error_msg_code => l_error_msg_code);
372: --dbms_output.put_line( 'l_error_msg_code '||l_error_msg_code );
373: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
374: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
375: p_msg_name => l_error_msg_code);
376: END IF;
377: --dbms_output.put_line( 'Task manager id '||l_task_manager_id||'flag '||PA_STARTUP.G_Check_ID_Flag );
378: END IF; --End Name-Id Conversion
408: END IF;
409: -- added for Bug: 4537865
410:
411: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
412: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
413: p_msg_name => l_error_msg_code);
414: END IF;
415: END IF; --End Name-Id Conversion
416: ELSE
452: ,x_error_message_code => l_error_msg_code
453: );
454:
455: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
456: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
457: p_msg_name => l_error_msg_code);
458: END IF;
459: END IF;
460:
463: -- if it is not valid or not effective , throw error message
464:
465: IF ( p_TYPE_ID IS NOT NULL AND p_TYPE_ID <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM ) THEN
466: IF ('N' = PA_TASK_TYPE_UTILS.check_tk_type_effective(p_TYPE_ID)) THEN
467: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_EFF_TASK_TYPE_ERR');
468: l_return_status := FND_API.G_RET_STS_ERROR;
469: END IF;
470: END IF;
471:
957:
958: IF (p_carrying_out_org_id IS NULL)
959: THEN /*We should not check for MISS_NUM In case of AMG/FORMS - Review Comment Incorporated :3940203 */
960:
961: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
962: p_msg_name => 'PA_PS_TASK_NAME_NUM_ERR',
963: p_token1 => 'TASK_NAME',
964: p_value1 => p_task_name,
965: p_token2 => 'TASK_NUMBER',
969: RAISE FND_API.G_EXC_ERROR ;
970: END IF;
971:
972: ELSE -- This is case of Self Service
973: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
974: p_msg_name => 'PA_PS_TASK_NAME_NUM_ERR',
975: p_token1 => 'TASK_NAME',
976: p_value1 => p_task_name,
977: p_token2 => 'TASK_NUMBER',
1021: P_ERROR_STACK => l_err_stack,
1022: P_ERROR_STAGE => l_err_stage );
1023:
1024: IF l_err_code <> 0 THEN
1025: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1026: p_msg_name => l_err_stage);
1027: END IF;
1028:
1029: OPEN cur_task_attr;
1032:
1033: -- Check Update Task number
1034: IF ( l_task_number <> p_task_number ) THEN
1035: IF l_update_task_num_allowed = 'N' THEN
1036: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1037: p_msg_name => 'PA_PR_PM_NO_CHG_TASK_NUM');
1038: raise FND_API.G_EXC_ERROR;
1039: END IF;
1040: END IF;
1041:
1042: -- Check Update Task Name
1043: IF ( l_task_name <> p_task_name ) THEN
1044: IF l_update_task_name_allowed = 'N' THEN
1045: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1046: p_msg_name => 'PA_PR_PM_NO_CHG_TASK_NAME');
1047: raise FND_API.G_EXC_ERROR;
1048: END IF;
1049: END IF;
1064: ( l_trans_start_date is not null and p_transaction_start_date is null) OR
1065: ( l_trans_finish_date is null and p_transaction_finish_date is not null) OR
1066: ( l_trans_finish_date is not null and p_transaction_finish_date is null) THEN
1067: IF l_update_task_dates_allowed = 'N' THEN
1068: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1069: p_msg_name => 'PA_PR_PM_NO_CHG_TASK_DATES');
1070: raise FND_API.G_EXC_ERROR;
1071: END IF;
1072: END IF;
1077: IF (l_task_description is not null and p_task_description is not null and l_task_description <> p_task_description ) OR
1078: (l_task_description is null and p_task_description is not null) OR
1079: (l_task_description is not null and p_task_description is null) THEN
1080: IF l_update_task_desc_allowed = 'N' THEN
1081: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1082: p_msg_name => 'PA_PR_PM_NO_CHG_TASK_DESC');
1083: raise FND_API.G_EXC_ERROR;
1084: END IF;
1085: END IF;
1088: IF (l_organization_name is not null and p_carrying_out_org_name is not null and l_organization_name <> p_carrying_out_org_name ) OR
1089: (l_organization_name is null and p_carrying_out_org_name is not null) OR
1090: (l_organization_name is not null and p_carrying_out_org_name is null) THEN
1091: IF l_update_task_org_allowed = 'N' THEN
1092: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1093: p_msg_name => 'PA_PR_PM_NO_CHG_TASK_ORG');
1094: raise FND_API.G_EXC_ERROR;
1095: END IF;
1096: END IF;
1114: and record_version_number = p_record_version_number
1115: for update of record_version_number NOWAIT;
1116: EXCEPTION
1117: WHEN TIMEOUT_ON_RESOURCE THEN
1118: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1119: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
1120: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
1121: WHEN NO_DATA_FOUND THEN
1122: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1118: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1119: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
1120: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
1121: WHEN NO_DATA_FOUND THEN
1122: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1123: p_msg_name => 'PA_XC_RECORD_CHANGED');
1124: l_msg_data := 'PA_XC_RECORD_CHANGED';
1125: WHEN OTHERS THEN
1126: IF SQLCODE = -54 then
1123: p_msg_name => 'PA_XC_RECORD_CHANGED');
1124: l_msg_data := 'PA_XC_RECORD_CHANGED';
1125: WHEN OTHERS THEN
1126: IF SQLCODE = -54 then
1127: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1128: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
1129: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
1130: ELSE
1131: raise;
1141: where proj_element_id = p_task_id
1142: and record_version_number = p_record_version_number;
1143: EXCEPTION
1144: WHEN NO_DATA_FOUND THEN
1145: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1146: p_msg_name => 'PA_XC_RECORD_CHANGED');
1147: l_msg_data := 'PA_XC_RECORD_CHANGED';
1148: WHEN OTHERS THEN
1149: RAISE;
1161:
1162: --Bug 2168170
1163: IF p_task_number IS NULL
1164: THEN
1165: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1166: p_msg_name => 'PA_PS_TASK_NUMBER_NULL');
1167: raise FND_API.G_EXC_ERROR;
1168: END IF;
1169:
1168: END IF;
1169:
1170: IF p_task_name IS NULL
1171: THEN
1172: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1173: p_msg_name => 'PA_PS_TASK_NAME_NULL');
1174: raise FND_API.G_EXC_ERROR;
1175: END IF;
1176:
1212: x_task_mgr_id => l_task_manager_id,
1213: x_return_status => l_return_status,
1214: x_error_msg_code => l_error_msg_code);
1215: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1216: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1217: p_msg_name => l_error_msg_code);
1218: raise FND_API.G_EXC_ERROR; -- bug 4165509
1219: END IF;
1220: ELSE
1262: x_return_status => l_return_status,
1263: x_error_msg_code => l_error_msg_code);
1264:
1265: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1266: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1267: p_msg_name => l_error_msg_code);
1268: raise FND_API.G_EXC_ERROR; -- bug 4165509
1269: END IF;
1270:
1314: --dbms_output.put_line( 'After Id to name l_carrying_out_org_id '||l_carrying_out_org_id );
1315:
1316:
1317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1318: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1319: p_msg_name => l_error_msg_code);
1320: END IF;
1321: END IF; --End Name-Id Conversion
1322: ELSE
1358: ,x_error_message_code => l_error_msg_code
1359: );
1360:
1361: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1362: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1363: p_msg_name => l_error_msg_code);
1364: END IF;
1365:
1366:
1368:
1369: /*Bug 4089623 Lead Days Cannot be negative */
1370: IF ( nvl(p_wf_lead_days,0) < 0 )
1371: THEN
1372: PA_UTILS.add_message('PA','PA_INVALID_LEAD_DAYS');
1373: l_return_status := FND_API.G_RET_STS_ERROR;
1374: END IF;
1375:
1376: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1871: and record_version_number = p_record_version_number
1872: for update of record_version_number NOWAIT;
1873: EXCEPTION
1874: WHEN TIMEOUT_ON_RESOURCE THEN
1875: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1876: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
1877: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
1878: WHEN NO_DATA_FOUND THEN
1879: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1875: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1876: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
1877: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
1878: WHEN NO_DATA_FOUND THEN
1879: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1880: p_msg_name => 'PA_XC_RECORD_CHANGED');
1881: l_msg_data := 'PA_XC_RECORD_CHANGED';
1882: WHEN OTHERS THEN
1883: IF SQLCODE = -54 then
1880: p_msg_name => 'PA_XC_RECORD_CHANGED');
1881: l_msg_data := 'PA_XC_RECORD_CHANGED';
1882: WHEN OTHERS THEN
1883: IF SQLCODE = -54 then
1884: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1885: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
1886: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
1887: ELSE
1888: raise;
1896: where element_version_id = p_task_version_id
1897: and record_version_number = p_record_version_number;
1898: EXCEPTION
1899: WHEN NO_DATA_FOUND THEN
1900: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1901: p_msg_name => 'PA_XC_RECORD_CHANGED');
1902: l_msg_data := 'PA_XC_RECORD_CHANGED';
1903: WHEN OTHERS THEN
1904: RAISE;
2206: and record_version_number = p_record_version_number
2207: for update of record_version_number NOWAIT;
2208: EXCEPTION
2209: WHEN TIMEOUT_ON_RESOURCE THEN
2210: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2211: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
2212: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
2213: l_error_occured := 'Y' ; --Bug2929411
2214: WHEN NO_DATA_FOUND THEN
2211: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
2212: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
2213: l_error_occured := 'Y' ; --Bug2929411
2214: WHEN NO_DATA_FOUND THEN
2215: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2216: p_msg_name => 'PA_XC_RECORD_CHANGED');
2217: l_msg_data := 'PA_XC_RECORD_CHANGED';
2218: l_error_occured := 'Y' ; --Bug2929411
2219: WHEN OTHERS THEN
2217: l_msg_data := 'PA_XC_RECORD_CHANGED';
2218: l_error_occured := 'Y' ; --Bug2929411
2219: WHEN OTHERS THEN
2220: IF SQLCODE = -54 then
2221: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2222: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
2223: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
2224: l_error_occured := 'Y' ; --Bug2929411
2225: ELSE
2234: where element_version_id = p_task_version_id
2235: and record_version_number = p_record_version_number;
2236: EXCEPTION
2237: WHEN NO_DATA_FOUND THEN
2238: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2239: p_msg_name => 'PA_XC_RECORD_CHANGED');
2240: l_msg_data := 'PA_XC_RECORD_CHANGED';
2241: l_error_occured := 'Y' ; --Bug2929411
2242: WHEN OTHERS THEN
2287: P_ERROR_STACK => x_err_stack,
2288: P_ERROR_STAGE => x_err_stage );
2289:
2290: IF x_err_code <> 0 THEN
2291: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2292: p_msg_name => x_err_stage);
2293: END IF;
2294: IF l_delete_task_allowed = 'N' THEN
2295: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2291: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2292: p_msg_name => x_err_stage);
2293: END IF;
2294: IF l_delete_task_allowed = 'N' THEN
2295: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2296: p_msg_name => 'PA_PR_PM_CANNOT_DELETE');
2297: raise FND_API.G_EXC_ERROR;
2298: END IF;
2299: END IF;
2342: ,p_parent_structure_ver_id => l_structure_version_id -- 4068685
2343: ,x_return_status => l_return_status
2344: ,x_error_message_code => l_error_msg_code);
2345: IF (l_return_status <> 'S') THEN
2346: PA_UTILS.ADD_MESSAGE('PA', l_error_msg_code);
2347: l_msg_data := l_error_msg_code;
2348: RAISE FND_API.G_EXC_ERROR;
2349: END IF;
2350: END IF; -- 6023347
2356: FETCH is_linked_task INTO l_linked_task;
2357: CLOSE is_linked_task;
2358:
2359: IF l_linked_task = 'Y' THEN
2360: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2361: p_msg_name => 'PA_PS_CANT_DEL_LINKED_TASK');
2362: RAISE FND_API.G_EXC_ERROR;
2363: END IF;
2364:
3092: P_ERROR_STACK => l_err_stack,
3093: P_ERROR_STAGE => l_err_stage );
3094:
3095: IF l_err_code <> 0 THEN
3096: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3097: p_msg_name => l_err_stage);
3098: END IF;
3099: IF l_update_task_dates_allowed = 'N' THEN
3100: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3096: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3097: p_msg_name => l_err_stage);
3098: END IF;
3099: IF l_update_task_dates_allowed = 'N' THEN
3100: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3101: p_msg_name => 'PA_PR_PM_NO_CHG_TASK_DATES');
3102: raise FND_API.G_EXC_ERROR;
3103: END IF;
3104: END IF;
3117: and record_version_number = p_record_version_number
3118: for update of record_version_number NOWAIT;
3119: EXCEPTION
3120: WHEN TIMEOUT_ON_RESOURCE THEN
3121: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3122: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
3123: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
3124: WHEN NO_DATA_FOUND THEN
3125: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3121: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3122: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
3123: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
3124: WHEN NO_DATA_FOUND THEN
3125: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3126: p_msg_name => 'PA_XC_RECORD_CHANGED');
3127: l_msg_data := 'PA_XC_RECORD_CHANGED';
3128: WHEN OTHERS THEN
3129: IF SQLCODE = -54 then
3126: p_msg_name => 'PA_XC_RECORD_CHANGED');
3127: l_msg_data := 'PA_XC_RECORD_CHANGED';
3128: WHEN OTHERS THEN
3129: IF SQLCODE = -54 then
3130: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3131: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
3132: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
3133: ELSE
3134: raise;
3142: where pev_schedule_id = p_pev_schedule_id
3143: and record_version_number = p_record_version_number;
3144: EXCEPTION
3145: WHEN NO_DATA_FOUND THEN
3146: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3147: p_msg_name => 'PA_XC_RECORD_CHANGED');
3148: l_msg_data := 'PA_XC_RECORD_CHANGED';
3149: WHEN OTHERS THEN
3150: RAISE;
3954: l_cp_equipment_flag := 'N';
3955: END IF;
3956:
3957: IF ((l_same_cbs_flag = 'N')) THEN
3958: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3959: p_msg_name => 'PA_DIFF_CBS_CANNOT_COPY');
3960: raise FND_API.G_EXC_ERROR;
3961: END IF;
3962:
3974: , x_msg_data => x_msg_data
3975: , x_error_msg_code => l_error_msg_code);
3976:
3977: IF (x_return_status <> 'Y') THEN
3978: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3979: p_msg_name => l_error_msg_code);
3980: raise FND_API.G_EXC_ERROR;
3981: End If;
3982: End If;
4022: P_ERROR_STACK => l_err_stack,
4023: P_ERROR_STAGE => l_err_stage );
4024:
4025: IF l_err_code <> 0 THEN
4026: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4027: p_msg_name => l_err_stage);
4028: END IF;
4029: IF l_add_task_allowed = 'N' THEN
4030: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4026: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4027: p_msg_name => l_err_stage);
4028: END IF;
4029: IF l_add_task_allowed = 'N' THEN
4030: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4031: p_msg_name => 'PA_PR_PM_CANNOT_COPY');
4032: raise FND_API.G_EXC_ERROR;
4033: END IF;
4034: END IF;
4062: x_return_status => l_return_status,
4063: x_error_msg_code => l_error_msg_code);
4064: --dbms_output.put_line('after proj name 2 id conv: '||l_src_project_id);
4065: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4066: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4067: p_msg_name => l_error_msg_code);
4068: END IF;
4069: END IF;
4070:
4083: ,x_error_message_code => l_error_msg_code
4084: );
4085: --dbms_output.put_line('after struct name 2 id conv: '||l_src_structure_id);
4086: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4087: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4088: p_msg_name => l_error_msg_code);
4089: END IF;
4090: END IF; --End Name-Id Conversion
4091:
4106: ,x_error_message_code => l_error_msg_code
4107: );
4108: --dbms_output.put_line('after struct ver name 2 id conv: '||l_src_structure_version_id);
4109: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4110: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4111: p_msg_name => l_error_msg_code);
4112: END IF;
4113:
4114: END IF; --End Name-Id Conversion
4131: ,x_return_status => l_return_status
4132: ,x_error_msg_code => l_error_msg_code
4133: );
4134: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4135: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4136: p_msg_name => l_error_msg_code);
4137: END IF;
4138: END IF; --End Name-Id Conversion
4139:
4245: IF p_called_from_api <> 'MOVE_TASK_VERSION'
4246: THEN
4247: */
4248:
4249: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4250: p_msg_name => 'PA_PS_NOT_ENOUGH_PARAMS' );
4251: x_msg_data := 'COPY TASK : PA_PS_NOT_ENOUGH_PARAMS';
4252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4253: RAISE FND_API.G_EXC_ERROR;
4282: l_src_structure_version_id IS NOT NULL AND
4283: p_copy_option <> 'PA_ENTIRE_VERSION' ) OR
4284: ( p_copy_option NOT IN( 'PA_ENTIRE_VERSION', 'PA_TASK_ONLY', 'PA_TASK_SUBTASK' ) )
4285: THEN
4286: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4287: p_msg_name => 'PA_PS_WRONG_COPY_OPTION' );
4288: x_msg_data := 'PA_PS_WRONG_COPY_OPTION';
4289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4290: RAISE FND_API.G_EXC_ERROR;
4340: ,x_return_status => l_return_status
4341: ,x_error_message_code => l_error_msg_code);
4342:
4343: IF (l_return_status <> 'Y') THEN
4344: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4345: p_msg_name => l_error_msg_code);
4346: raise FND_API.G_EXC_ERROR;
4347: END IF;
4348: ELSE
4351: ,x_return_status => l_return_status
4352: ,x_error_message_code => l_error_msg_code
4353: );
4354: IF (l_return_status <> 'Y') THEN
4355: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4356: p_msg_name => l_error_msg_code);
4357: raise FND_API.G_EXC_ERROR;
4358: END IF;
4359: END IF;
4373: , x_msg_data => x_msg_data
4374: , x_error_msg_code => l_error_msg_code);
4375:
4376: IF (x_return_status <> 'Y') THEN
4377: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4378: p_msg_name => l_error_msg_code);
4379: raise FND_API.G_EXC_ERROR;
4380: End If;
4381: END IF;
5116: -- End of FP_M changes
5117:
5118: /* Bug2741989 -- Following message is populated in stack */
5119: IF (NOT l_src_tasks_found AND p_copy_option = 'PA_ENTIRE_VERSION')THEN
5120: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5121: p_msg_name => 'PA_CANT_COPY_EMPTY_STRUCT_VER' );
5122: x_msg_data := 'PA_CANT_COPY_EMPTY_STRUCT_VER';
5123: x_return_status := FND_API.G_RET_STS_ERROR;
5124: RAISE FND_API.G_EXC_ERROR;
5928: EXIT when get_child_ver_id%NOTFOUND;
5929: IF l_child_ver_id = p_ref_task_version_id THEN
5930: CLOSE get_child_ver_id;
5931: --add error PA_TSK_MV_BELOW_SELF
5932: PA_UTILS.ADD_MESSAGE('PA', 'PA_TSK_MV_BELOW_SELF');
5933: raise FND_API.G_EXC_ERROR;
5934: END IF;
5935: END LOOP;
5936: CLOSE get_child_ver_id;
5949: , x_error_msg_code => l_error_msg_code);
5950: --Bug No 3491045
5951: --Replaced the return status value to 'S' from 'Y'
5952: IF (x_return_status <> 'S') THEN
5953: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5954: p_msg_name => l_error_msg_code);
5955: raise FND_API.G_EXC_ERROR;
5956: End If;
5957: End If;
5992: P_ERROR_STACK => l_err_stack,
5993: P_ERROR_STAGE => l_err_stage );
5994:
5995: IF l_err_code <> 0 THEN
5996: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5997: p_msg_name => l_err_stage);
5998: END IF;
5999: IF l_update_parent_task_allowed = 'N' THEN
6000: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5996: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5997: p_msg_name => l_err_stage);
5998: END IF;
5999: IF l_update_parent_task_allowed = 'N' THEN
6000: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6001: p_msg_name => 'PA_PR_PM_NO_MOVE_TASK');
6002: raise FND_API.G_EXC_ERROR;
6003: END IF;
6004: END IF;
6019:
6020: IF ('Y' = pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(
6021: l_proj_element_id)) THEN
6022: --Indenting a task with phase. Error
6023: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_MOVE_PHASE_TASK');
6024: END IF;
6025:
6026: l_msg_count := FND_MSG_PUB.count_msg;
6027: if l_msg_count > 0 then
6091: ,x_return_status => l_return_status
6092: ,x_error_message_code => l_error_msg_code
6093: );
6094: IF (l_return_status <> 'Y') THEN
6095: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6096: p_msg_name => l_error_msg_code);
6097: raise FND_API.G_EXC_ERROR;
6098: END IF;
6099:
6121: CLOSE get_top_task_Ver_id;
6122: END IF;
6123:
6124: IF (NVL(l_new_par_ver_id, -99) <> NVL (l_old_par_ver_id, -99)) THEN
6125: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6126: p_msg_name => 'PA_CANT_CHANGE_PARENT');
6127: raise FND_API.G_EXC_ERROR;
6128: END IF;
6129: END IF;
6135: ,x_error_message_code => l_error_msg_code
6136: );
6137:
6138: IF (l_return_status <> 'Y') THEN
6139: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6140: p_msg_name => l_error_msg_code);
6141: raise FND_API.G_EXC_ERROR;
6142: END IF;
6143:
6142: END IF;
6143:
6144: --bug 4099488
6145: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(l_parent_ver_id, p_task_version_id) = 'N' THEN
6146: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6147: p_msg_name => 'PA_INV_MOV_TSK_DEP_ERR');
6148: raise FND_API.G_EXC_ERROR;
6149: END IF;
6150: --end bug 4099488
6160: FETCH get_top_task_ver_id into l_old_par_ver_id;
6161: CLOSE get_top_task_Ver_id;
6162:
6163: IF (NVL(l_new_par_ver_id, -99) <> NVL (l_old_par_ver_id, -99)) THEN
6164: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6165: p_msg_name => 'PA_CANT_CHANGE_PARENT');
6166: raise FND_API.G_EXC_ERROR;
6167: END IF;
6168: END IF;
6174: ,x_error_message_code => l_error_msg_code
6175: );
6176:
6177: IF (l_return_status <> 'Y') THEN
6178: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6179: p_msg_name => l_error_msg_code);
6180: raise FND_API.G_EXC_ERROR;
6181: END IF;
6182:
6181: END IF;
6182:
6183: --bug 4099488
6184: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(p_ref_task_version_id, p_task_version_id) = 'N' THEN
6185: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6186: p_msg_name => 'PA_INV_MOV_TSK_DEP_ERR');
6187: raise FND_API.G_EXC_ERROR;
6188: END IF;
6189: --end bug 4099488
6207: l_ref_parent_task_ver_id:=p_ref_task_version_id;
6208: END IF;
6209: --
6210: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,l_ref_parent_task_ver_id) = 'Y' THEN
6211: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6212: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
6213: RAISE FND_API.G_EXC_ERROR;
6214: END IF;
6215: --
6379: --bug 2967204
6380: --Cannot move out of the current hierarchy
6381: IF NVL( l_top_task_id, -99 ) <> NVL( l_old_top_task_id, -99 )
6382: THEN
6383: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6384: p_msg_name => 'PA_CANT_CHANGE_PARENT');
6385: raise FND_API.G_EXC_ERROR;
6386: END IF;
6387: --End bug 2967204
6950: IF (Nvl(pa_relationship_utils.check_task_has_sub_proj(l_project_id
6951: , src_proj_element_id
6952: , p_task_version_id),'N') = 'Y') THEN
6953: --deleting linked task. Error
6954: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_IND_LINKED_TASK');
6955: END IF;
6956:
6957: l_msg_count := FND_MSG_PUB.count_msg;
6958: if l_msg_count > 0 then
6983:
6984: IF ('Y' = pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(
6985: l_proj_element_id)) THEN
6986: --Indenting a task with phase. Error
6987: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_INDENT_PHASE_TASK');
6988: END IF;
6989:
6990: l_msg_count := FND_MSG_PUB.count_msg;
6991: if l_msg_count > 0 then
7018: --dbms_output.put_line( 'Indent Task Stage 3 ' );
7019:
7020:
7021: if l_display_sequence = 1 then
7022: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
7023: ,p_msg_name => 'PA_PS_CANNOT_INDENT');
7024: end if;
7025:
7026: --dbms_output.put_line( 'Indent Task Stage 4 ' );
7035: --dbms_output.put_line( 'Indent Task Stage 5 ' );
7036:
7037:
7038: if l_wbs_level > l_prev_wbs_level then
7039: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
7040: ,p_msg_name => 'PA_PS_CANNOT_INDENT');
7041: end if;
7042:
7043: l_msg_count := FND_MSG_PUB.count_msg;
7094: ,x_error_message_code => l_error_msg_code
7095: );
7096:
7097: IF (l_return_status <> 'Y') THEN
7098: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7099: p_msg_name => l_error_msg_code);
7100: raise FND_API.G_EXC_ERROR;
7101: END IF;
7102:
7111: ,x_error_message_code => l_error_msg_code
7112: );
7113:
7114: IF (l_return_status <> 'Y') THEN
7115: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7116: p_msg_name => l_error_msg_code);
7117: raise FND_API.G_EXC_ERROR;
7118: END IF;
7119: ELSE
7123: ,x_error_message_code => l_error_msg_code
7124: );
7125:
7126: IF (l_return_status <> 'Y') THEN
7127: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7128: p_msg_name => l_error_msg_code);
7129: raise FND_API.G_EXC_ERROR;
7130: END IF;
7131: END IF;
7511: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
7512: p_structure_version_id,
7513: p_task_version_id)) THEN
7514: --deleting linked task. Error
7515: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_OUTD_LINKED_TASK');
7516: END IF;
7517:
7518: l_msg_count := FND_MSG_PUB.count_msg;
7519: if l_msg_count > 0 then
7551: FROM PA_PROJ_ELEMENT_VERSIONS
7552: WHERE element_version_id = p_task_version_id;
7553:
7554: if l_wbs_level = 1 then
7555: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
7556: ,p_msg_name => 'PA_PS_CANNOT_OUTDENT');
7557: end if;
7558:
7559: l_msg_count := FND_MSG_PUB.count_msg;
7596: ,x_error_message_code => l_error_msg_code
7597: );
7598:
7599: IF (l_return_status <> 'Y') THEN
7600: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7601: p_msg_name => l_error_msg_code);
7602: raise FND_API.G_EXC_ERROR;
7603: END IF;
7604:
7611: ,x_error_message_code => l_error_msg_code
7612: );
7613:
7614: IF (l_return_status <> 'Y') THEN
7615: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7616: p_msg_name => l_error_msg_code);
7617: raise FND_API.G_EXC_ERROR;
7618: END IF;
7619: --task status changes ends
8011:
8012: savepoint create_tasks;
8013:
8014: if p_project_id is null then
8015: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
8016: ,p_msg_name => 'PA_NO_PROJECT_ID');
8017: end if;
8018:
8019: if p_ref_task_version_id is null then
8016: ,p_msg_name => 'PA_NO_PROJECT_ID');
8017: end if;
8018:
8019: if p_ref_task_version_id is null then
8020: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
8021: ,p_msg_name => 'PA_NO_TASK_VERSION_ID');
8022: end if;
8023:
8024: if p_structure_version_id is null then
8021: ,p_msg_name => 'PA_NO_TASK_VERSION_ID');
8022: end if;
8023:
8024: if p_structure_version_id is null then
8025: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
8026: ,p_msg_name => 'PA_NO_STRUCTURE_VERSION_ID');
8027: end if;
8028:
8029: l_msg_count := FND_MSG_PUB.count_msg;
8085: l_financial_flag := 'N';
8086:
8087: for i in 1..1000 LOOP
8088: if p_outline_level(i) is null AND p_task_name(i) IS NOT NULL AND p_task_number(i) IS NOT NULL then
8089: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
8090: ,p_msg_name => 'PA_PS_TSK_WBS_LVL_ERR');
8091: x_msg_count := 1;
8092: pa_interface_utils_pub.get_messages
8093: (p_encoded => FND_API.G_TRUE,
8143:
8144: --bug 3125370: add condition for reference object_type
8145: if (instr(to_char(p_outline_level(i)), '.') <> 0) OR
8146: (l_ref_obj_type = 'PA_STRUCTURES' and p_outline_level(i) = 0) then
8147: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
8148: ,p_msg_name => 'PA_PS_OUTLINE_LEVEL_INVALID');
8149:
8150: x_msg_count := 1;
8151: pa_interface_utils_pub.get_messages
8163:
8164: if l_prev_outline_level is not null then
8165: if l_outline_level > l_prev_outline_level then
8166: if (l_outline_level - l_prev_outline_level) > 1 then
8167: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
8168: ,p_msg_name => 'PA_PS_OUTLINE_LEVEL_INVALID');
8169:
8170: x_msg_count := 1;
8171: pa_interface_utils_pub.get_messages
8187: end if;
8188: else
8189: -- First task to insert
8190: if l_outline_level not in (0, 1) then
8191: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
8192: ,p_msg_name => 'PA_PS_OUTLINE_LEVEL_INVALID');
8193:
8194: x_msg_count := 1;
8195: pa_interface_utils_pub.get_messages
8234: ,x_error_message_code => l_error_msg_code
8235: );
8236:
8237: IF (l_return_status <> 'Y') THEN
8238: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8239: p_msg_name => l_error_msg_code);
8240: raise API_ERROR;
8241: END IF;
8242: ELSE
8246: ,x_error_message_code => l_error_msg_code
8247: );
8248:
8249: IF (l_return_status <> 'Y') THEN
8250: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8251: p_msg_name => l_error_msg_code);
8252: raise API_ERROR;
8253: END IF;
8254: END IF;
9794: P_ERROR_STACK => l_err_stack,
9795: P_ERROR_STAGE => l_err_stage );
9796:
9797: IF l_err_code <> 0 THEN
9798: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9799: p_msg_name => l_err_stage);
9800: END IF;
9801: IF l_update_parent_task_allowed = 'N' THEN
9802: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9798: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9799: p_msg_name => l_err_stage);
9800: END IF;
9801: IF l_update_parent_task_allowed = 'N' THEN
9802: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9803: p_msg_name => 'PA_PR_PM_NO_MOVE_TASK');
9804: raise FND_API.G_EXC_ERROR;
9805: END IF;
9806: END IF;
9830: IF (Nvl(pa_relationship_utils.check_task_has_sub_proj(p_project_id
9831: , src_proj_element_id
9832: , p_task_version_id),'N') = 'Y') THEN
9833: --deleting linked task. Error
9834: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_IND_LINKED_TASK');
9835: raise FND_API.G_EXC_ERROR;
9836: END IF;
9837: END IF;
9838:
9857:
9858: IF ('Y' = pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(
9859: src_proj_element_id)) THEN
9860: --Indenting a task with phase. Error
9861: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_INDENT_PHASE_TASK');
9862: raise FND_API.G_EXC_ERROR;
9863: END IF;
9864: END IF;
9865:
9864: END IF;
9865:
9866:
9867: IF src_seq_number = 1 then
9868: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
9869: ,p_msg_name => 'PA_PS_CANNOT_INDENT');
9870: raise FND_API.G_EXC_ERROR;
9871: END IF;
9872:
9884: AND project_id = p_project_id
9885: AND object_type = 'PA_TASKS';
9886:
9887: IF src_wbs_level > ref_wbs_level then
9888: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
9889: ,p_msg_name => 'PA_PS_CANNOT_INDENT');
9890: raise FND_API.G_EXC_ERROR;
9891: END IF;
9892:
9954: --Bug No 3475920 Smukka 25/May/04 Checking for deliverable
9955: --bug 4214825, pass the correct ref_task_version
9956: --IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,ref_elem_ver_id) = 'Y' THEN
9957: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id, l_ref_tsk_version_id) = 'Y' THEN
9958: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9959: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
9960: raise FND_API.G_EXC_ERROR;
9961: END IF;
9962:
9967: ,x_error_message_code => l_error_msg_code
9968: );
9969:
9970: IF (l_return_status <> 'Y') THEN
9971: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9972: p_msg_name => l_error_msg_code);
9973: raise FND_API.G_EXC_ERROR;
9974: END IF;
9975:
9990: FETCH get_top_task_ver_id into l_old_par_ver_id;
9991: CLOSE get_top_task_Ver_id;
9992:
9993: IF (NVL(l_new_par_ver_id, -99) <> NVL (l_old_par_ver_id, -99)) THEN
9994: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9995: p_msg_name => 'PA_CANT_CHANGE_PARENT');
9996: raise FND_API.G_EXC_ERROR;
9997: END IF;
9998: END IF;
10004: ,x_error_message_code => l_error_msg_code
10005: );
10006:
10007: IF (l_return_status <> 'Y') THEN
10008: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10009: p_msg_name => l_error_msg_code);
10010: raise FND_API.G_EXC_ERROR;
10011: END IF;
10012:
10011: END IF;
10012:
10013: --bug 4099488
10014: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(l_parent_ver_id, p_task_version_id) = 'N' THEN
10015: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10016: p_msg_name => 'PA_INV_MOV_TSK_DEP_ERR');
10017: raise FND_API.G_EXC_ERROR;
10018: END IF;
10019: --end bug 4099488
10029: FETCH get_top_task_ver_id into l_old_par_ver_id;
10030: CLOSE get_top_task_Ver_id;
10031:
10032: IF (NVL(l_new_par_ver_id, -99) <> NVL (l_old_par_ver_id, -99)) THEN
10033: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10034: p_msg_name => 'PA_CANT_CHANGE_PARENT');
10035: raise FND_API.G_EXC_ERROR;
10036: END IF;
10037: END IF;
10044: ,x_error_message_code => l_error_msg_code
10045: );
10046:
10047: IF (l_return_status <> 'Y') THEN
10048: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10049: p_msg_name => l_error_msg_code);
10050: raise FND_API.G_EXC_ERROR;
10051: END IF;
10052:
10051: END IF;
10052:
10053: --bug 4099488
10054: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(ref_elem_ver_id, p_task_version_id) = 'N' THEN
10055: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10056: p_msg_name => 'PA_INV_MOV_TSK_DEP_ERR');
10057: raise FND_API.G_EXC_ERROR;
10058: END IF;
10059: --end bug 4099488
10073: , x_msg_data => x_msg_data
10074: , x_error_msg_code => l_error_msg_code);
10075:
10076: IF (x_return_status <> 'S') THEN -- 4275757 : Changed from 'Y' to 'S'
10077: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10078: p_msg_name => l_error_msg_code);
10079: raise FND_API.G_EXC_ERROR;
10080: End If;
10081: End If;
10550: --bug 2967204
10551: --Cannot move out of the current hierarchy
10552: IF NVL( l_top_task_id, -99 ) <> NVL( l_old_top_task_id, -99 )
10553: THEN
10554: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10555: p_msg_name => 'PA_CANT_CHANGE_PARENT');
10556: raise FND_API.G_EXC_ERROR;
10557: END IF;
10558: --End bug 2967204
11333: P_ERROR_STACK => l_err_stack,
11334: P_ERROR_STAGE => l_err_stage );
11335:
11336: IF l_err_code <> 0 THEN
11337: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11338: p_msg_name => l_err_stage);
11339: END IF;
11340: IF l_update_parent_task_allowed = 'N' THEN
11341: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11337: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11338: p_msg_name => l_err_stage);
11339: END IF;
11340: IF l_update_parent_task_allowed = 'N' THEN
11341: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11342: p_msg_name => 'PA_PR_PM_NO_MOVE_TASK');
11343: raise FND_API.G_EXC_ERROR;
11344: END IF;
11345: END IF;
11352: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
11353: p_structure_version_id,
11354: p_task_version_id)) THEN
11355: --deleting linked task. Error
11356: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_OUTD_LINKED_TASK');
11357: raise FND_API.G_EXC_ERROR;
11358: END IF;
11359: END IF;
11360:
11387:
11388: -- Lifecycle Phase validation Changes should be implemented here
11389:
11390: IF src_wbs_level = 1 then
11391: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
11392: ,p_msg_name => 'PA_PS_CANNOT_OUTDENT');
11393: raise FND_API.G_EXC_ERROR;
11394: END IF;
11395:
11417: -- It will never return NO_DATA_FOUND as there will always at least one task with wbs_level-1
11418: END;
11419:
11420: IF src_wbs_level < ref_wbs_level then
11421: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
11422: ,p_msg_name => 'PA_PS_CANNOT_OUTDENT');
11423: raise FND_API.G_EXC_ERROR;
11424: END IF;
11425:
11450: IF (p_debug_mode = 'Y') THEN
11451: pa_debug.debug('ERROR !!! PA_TASK_PUB1.OUTDENT_TASK_VERSION_BULK ');
11452: END IF;
11453:
11454: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11455: p_msg_name => 'PA_PS_TASK_HAS_SUB_PROJ');
11456: raise FND_API.G_EXC_ERROR;
11457:
11458: end if;
11464: ,x_error_message_code => l_error_msg_code
11465: );
11466:
11467: IF (l_return_status <> 'Y') THEN
11468: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11469: p_msg_name => l_error_msg_code);
11470: raise FND_API.G_EXC_ERROR;
11471: END IF;
11472:
11486: FETCH get_top_task_ver_id into l_old_par_ver_id;
11487: CLOSE get_top_task_Ver_id;
11488:
11489: IF (NVL(l_new_par_ver_id, -99) <> NVL (l_old_par_ver_id, -99)) THEN
11490: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11491: p_msg_name => 'PA_CANT_CHANGE_PARENT');
11492: raise FND_API.G_EXC_ERROR;
11493: END IF;
11494: END IF;
11500: ,x_error_message_code => l_error_msg_code
11501: );
11502:
11503: IF (l_return_status <> 'Y') THEN
11504: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11505: p_msg_name => l_error_msg_code);
11506: raise FND_API.G_EXC_ERROR;
11507: END IF;
11508:
11519: , x_err_code => l_err_code
11520: , x_err_stage => l_err_stage
11521: , x_err_stack => l_err_stack);
11522: IF (l_err_code <> 0) THEN
11523: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11524: p_msg_name => substrb(l_err_stage,1,30));
11525: raise FND_API.G_EXC_ERROR;
11526: END IF;
11527: END IF;
11543: , x_error_msg_code => l_error_msg_code);
11544:
11545: -- IF (x_return_status <> 'Y') THEN --Bug 3831786 Commented
11546: IF (x_return_status <> 'S') THEN --Bug 3831786 Added
11547: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11548: p_msg_name => l_error_msg_code);
11549: raise FND_API.G_EXC_ERROR;
11550: End If;
11551: End If;
11642: FOR j IN l_element_version_id_tab.FIRST..l_element_version_id_tab.LAST LOOP
11643: --check if moving to subtask ok
11644: IF (l_element_version_id_tab(j) <> p_task_version_id) Then
11645: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id, l_element_version_id_tab(j)) = 'Y' THEN
11646: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11647: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
11648: raise FND_API.G_EXC_ERROR;
11649: END IF;
11650: END IF;
11978: CLOSE get_sub_tasks;
11979:
11980: --bug 4099488
11981: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(p_task_version_id, cur_new_child_rec.object_id_to1) = 'N' THEN
11982: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11983: p_msg_name => 'PA_INV_MOV_TSK_DEP_ERR');
11984: raise FND_API.G_EXC_ERROR;
11985: END IF;
11986: --end bug 4099488
12218: --bug 2967204
12219: --Cannot move out of the current hierarchy
12220: IF NVL( l_top_task_id, -99 ) <> NVL( l_old_top_task_id, -99 )
12221: THEN
12222: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12223: p_msg_name => 'PA_CANT_CHANGE_PARENT');
12224: raise FND_API.G_EXC_ERROR;
12225: END IF;
12226: --End bug 2967204
12780: FND_MSG_PUB.initialize;
12781:
12782: FOR k in reverse l_element_name_tbl.FIRST..l_element_name_tbl.LAST LOOP
12783:
12784: PA_UTILS.ADD_MESSAGE
12785: (p_app_short_name => 'PA',
12786: p_msg_name => 'PA_PS_TASK_NAME_NUM_ERR',
12787: p_token1 => 'TASK_NAME',
12788: p_value1 => l_element_name_tbl(k),
12996: END IF;
12997: END IF;
12998:
12999: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13000: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
13001: p_msg_name => l_error_msg_code);
13002: END IF;
13003:
13004: -- Create a new association row
13316: x_return_status := FND_API.G_RET_STS_SUCCESS;
13317: l_ret_code := has_Associations(p_task_id,p_relationship_type);
13318: IF l_ret_code = 'Y' THEN
13319: x_return_status := FND_API.G_RET_STS_ERROR;
13320: /*PA_UTILS.ADD_MESSAGE
13321: (p_app_short_name => 'PA',
13322: p_msg_name => 'PA_TASK_HAS_ASSOCIATIONS');*/ --Bug 3831786 commented
13323: x_msg_data:='PA_TASK_HAS_ASSOCIATIONS'; --Bug No 3491544 Smukka Apr 07 2004
13324: END IF;
13338: x_return_status := FND_API.G_RET_STS_SUCCESS;
13339: l_ret_code := proj_has_task_associations(p_project_id,p_relationship_type);
13340: IF l_ret_code = 'Y' THEN
13341: x_return_status := FND_API.G_RET_STS_ERROR;
13342: PA_UTILS.ADD_MESSAGE
13343: (p_app_short_name => 'PA',
13344: p_msg_name => 'PA_PROJECT_HAS_ASSOCIATIONS');
13345:
13346: END IF;
14024: -- BEGIN: Code to raise error if negative etc values or planned values are entered.
14025: IF ((p_planned_effort <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )
14026: AND (nvl(p_planned_effort,0) < 0)) THEN
14027:
14028: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
14029: ,p_msg_name => 'PA_TP_NO_NEG_PLN');
14030:
14031: x_msg_data := 'PA_TP_NO_NEG_PLN';
14032: x_return_status := 'E';
14035:
14036: IF (((p_etc_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) and (nvl(p_etc_cost,0) < 0))
14037: or ((p_etc_effort <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) and (nvl(p_etc_effort,0) < 0))) THEN
14038:
14039: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
14040: ,p_msg_name => 'PA_TP_NO_NEG_ETC');
14041:
14042: x_msg_data := 'PA_TP_NO_NEG_ETC';
14043: x_return_status := 'E';
15325: P_ERROR_STACK => l_err_stack,
15326: P_ERROR_STAGE => l_err_stage );
15327:
15328: IF l_err_code <> 0 THEN
15329: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15330: p_msg_name => l_err_stage);
15331: END IF;
15332:
15333: IF l_add_task_allowed = 'N' THEN
15330: p_msg_name => l_err_stage);
15331: END IF;
15332:
15333: IF l_add_task_allowed = 'N' THEN
15334: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15335: p_msg_name => 'PA_PR_PM_CANNOT_COPY');
15336: raise FND_API.G_EXC_ERROR;
15337: END IF;
15338:
15352: x_return_status => l_return_status,
15353: x_error_msg_code => l_error_msg_code);
15354:
15355: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15356: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15357: p_msg_name => l_error_msg_code);
15358: END IF;
15359: END IF;
15360: */
15375: ,x_error_message_code => l_error_msg_code
15376: );
15377:
15378: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15379: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15380: p_msg_name => l_error_msg_code);
15381: END IF;
15382: END IF;
15383: */
15399: ,x_error_message_code => l_error_msg_code
15400: );
15401:
15402: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15403: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15404: p_msg_name => l_error_msg_code);
15405: END IF;
15406:
15407: END IF;
15413: -- dbms_output.put_line( 'Project Id '||l_src_project_id );
15414: -- dbms_output.put_line( 'Structure Id '||l_src_structure_id );
15415: -- dbms_output.put_line( 'Structure Ver Id '||l_src_structure_version_id );
15416:
15417: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15418: p_msg_name => 'PA_PS_NOT_ENOUGH_PARAMS' );
15419: x_msg_data := ' BULK API : PA_PS_NOT_ENOUGH_PARAMS';
15420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15421: RAISE FND_API.G_EXC_ERROR;
15438:
15439: IF p_copy_option NOT IN( 'PA_ENTIRE_VERSION', 'PA_TASK_ONLY', 'PA_TASK_SUBTASK' )
15440: THEN
15441:
15442: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15443: p_msg_name => 'PA_PS_WRONG_COPY_OPTION' );
15444: x_msg_data := 'PA_PS_WRONG_COPY_OPTION';
15445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15446: RAISE FND_API.G_EXC_ERROR;
15799: P_ERROR_STACK => l_err_stack,
15800: P_ERROR_STAGE => l_err_stage );
15801:
15802: IF l_err_code <> 0 THEN
15803: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15804: p_msg_name => l_err_stage);
15805: END IF;
15806: IF l_update_parent_task_allowed = 'N' THEN
15807: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15803: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15804: p_msg_name => l_err_stage);
15805: END IF;
15806: IF l_update_parent_task_allowed = 'N' THEN
15807: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15808: p_msg_name => 'PA_PR_PM_NO_MOVE_TASK');
15809: raise FND_API.G_EXC_ERROR;
15810: END IF;
15811: End If;
16270: x_msg_count => l_msg_count,
16271: x_msg_data => l_msg_data);
16272:
16273: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
16274: PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
16275: END IF;
16276:
16277: END IF;
16278:
16287: x_msg_count => l_msg_count,
16288: x_msg_data => l_msg_data);
16289:
16290: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
16291: PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
16292: END IF;
16293:
16294: END IF;
16295:
16484: pa_debug.write(l_module_name,'After Call Check_chg_stat_cancel_ok x_return_status='||x_return_status, 3);
16485: END IF;
16486:
16487: IF (x_return_status <> 'S') THEN
16488: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16489: p_msg_name => l_error_message_code);
16490: raise FND_API.G_EXC_ERROR;
16491: END IF;
16492: IF l_debug_mode = 'Y' THEN
16779: -- Clear all previous messages from the message stack.
16780: FND_MSG_PUB.initialize;
16781:
16782: -- Populate the generic error message.
16783: PA_UTILS.ADD_MESSAGE('PA','PA_PS_GENERIC_ERROR');
16784:
16785: -- Loop through the local pl/sql error table to populate the tokenized error messages.
16786: -- Bug Fix 5920784
16787: -- Modified the following line to loop through the original task count rather than the error msg table count.
16791: -- End of Bug Fix 5920784
16792:
16793: loop
16794: if (l_task_error_tbl.exists(l)) then
16795: PA_UTILS.ADD_MESSAGE('PA','PA_PS_TOKENIZED_ERROR'
16796: ,'TASKNAME',l_task_error_tbl(l).task_name
16797: ,'TASKNUMBER',l_task_error_tbl(l).task_number
16798: ,'ERRORMSG', l_task_error_tbl(l).error_msg);
16799: end if;
17011: -- Clear all previous messages from the message stack.
17012: FND_MSG_PUB.initialize;
17013:
17014: -- Populate the generic error message.
17015: PA_UTILS.ADD_MESSAGE('PA','PA_PS_GENERIC_ERROR');
17016:
17017: -- Loop through the local pl/sql error table to populate the tokenized error messages.
17018: for l in 1..l_error_count
17019: loop
17017: -- Loop through the local pl/sql error table to populate the tokenized error messages.
17018: for l in 1..l_error_count
17019: loop
17020: if (l_task_error_tbl.exists(l)) then
17021: PA_UTILS.ADD_MESSAGE('PA','PA_PS_TOKENIZED_ERROR'
17022: ,'TASKNAME',l_task_error_tbl(l).task_name
17023: ,'TASKNUMBER',l_task_error_tbl(l).task_number
17024: ,'ERRORMSG', l_task_error_tbl(l).error_msg);
17025: end if;
17293: rollback;
17294: FND_MSG_PUB.initialize;
17295:
17296: -- Populate the generic error message.
17297: PA_UTILS.ADD_MESSAGE('PA','PA_PARENT_TASK_UNAPPROVED');
17298: x_return_status := FND_API.G_RET_STS_ERROR;
17299: x_msg_count :=0;
17300: x_msg_data := 'PA_PARENT_TASK_UNAPPROVED';
17301: