[Home] [Help]
214: END IF;
215: close get_split_flag;
216:
217: --Check if there is any error.
218: l_msg_count := FND_MSG_PUB.count_msg;
219: IF l_msg_count > 0 THEN
220: x_msg_count := l_msg_count;
221: IF x_msg_count = 1 THEN
222: x_msg_data := l_msg_data;
322: l_structure_description := p_structure_description;
323: END IF;
324:
325: --Check if there is any error.
326: l_msg_count := FND_MSG_PUB.count_msg;
327: IF l_msg_count > 0 THEN
328: x_msg_count := l_msg_count;
329: IF x_msg_count = 1 THEN
330: x_msg_data := l_msg_data;
541: WHEN FND_API.G_EXC_ERROR THEN
542: IF (p_commit = FND_API.G_TRUE) THEN
543: ROLLBACK to CREATE_STRUC_PRIVATE;
544: END IF;
545: x_msg_count := FND_MSG_PUB.count_msg;
546: x_return_status := FND_API.G_RET_STS_ERROR;
547: WHEN OTHERS THEN
548: IF (p_commit = FND_API.G_TRUE) THEN
549: ROLLBACK to CREATE_STRUC_PRIVATE;
548: IF (p_commit = FND_API.G_TRUE) THEN
549: ROLLBACK to CREATE_STRUC_PRIVATE;
550: END IF;
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: x_msg_count := FND_MSG_PUB.count_msg;
553: --put message
554: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
555: p_procedure_name => 'Create_Structure',
556: p_error_text => SUBSTRB(SQLERRM,1,240));
550: END IF;
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: x_msg_count := FND_MSG_PUB.count_msg;
553: --put message
554: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
555: p_procedure_name => 'Create_Structure',
556: p_error_text => SUBSTRB(SQLERRM,1,240));
557: RAISE;
558: END CREATE_STRUCTURE;
741: l_attribute15 := p_attribute15;
742: END IF;
743:
744: --Check if there is any error.
745: l_msg_count := FND_MSG_PUB.count_msg;
746: IF l_msg_count > 0 THEN
747: x_msg_count := l_msg_count;
748: IF x_msg_count = 1 THEN
749: x_msg_data := l_msg_data;
822: ,x_Msg_data => x_msg_data
823: );
824: EXCEPTION
825: WHEN OTHERS THEN
826: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
827: p_procedure_name => 'CREATE_STRUCTURE_VERSION',
828: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
829: RAISE FND_API.G_EXC_ERROR;
830: END;
844: WHEN FND_API.G_EXC_ERROR THEN
845: if p_commit = FND_API.G_TRUE THEN
846: rollback to CREATE_STRUC_VER_PVT;
847: end if;
848: x_msg_count := FND_MSG_PUB.count_msg;
849: x_return_status := FND_API.G_RET_STS_ERROR;
850: WHEN NO_DATA_FOUND THEN
851: if p_commit = FND_API.G_TRUE THEN
852: rollback to CREATE_STRUC_VER_PVT;
857: if p_commit = FND_API.G_TRUE THEN
858: rollback to CREATE_STRUC_VER_PVT;
859: end if;
860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
861: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
862: p_procedure_name => 'CREATE_STRUCTURE_VERSION',
863: p_error_text => SUBSTRB(SQLERRM,1,240));
864: RAISE;
865: END CREATE_STRUCTURE_VERSION;
1084: x_msg_count => l_msg_count,
1085: x_msg_data => l_msg_data);
1086:
1087: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1088: x_msg_count := FND_MSG_PUB.count_msg;
1089: if x_msg_count = 1 then
1090: x_msg_data := l_msg_data;
1091: end if;
1092: raise FND_API.G_EXC_ERROR;
1168: x_msg_count => l_msg_count,
1169: x_msg_data => l_msg_data);
1170:
1171: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1172: x_msg_count := FND_MSG_PUB.count_msg;
1173: if x_msg_count = 1 then
1174: x_msg_data := l_msg_data;
1175: end if;
1176: raise FND_API.G_EXC_ERROR;
1216: l_status_code := 'STRUCTURE_WORKING';
1217: END IF;
1218:
1219: --Check if there is any error.
1220: l_msg_count := FND_MSG_PUB.count_msg;
1221: IF l_msg_count > 0 THEN
1222: x_msg_count := l_msg_count;
1223: IF x_msg_count = 1 THEN
1224: x_msg_data := l_msg_data;
1298: x_msg_count => l_msg_count,
1299: x_msg_data => l_msg_data
1300: );
1301: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1302: x_msg_count := FND_MSG_PUB.count_msg;
1303: if x_msg_count = 1 then
1304: x_msg_data := l_msg_data;
1305: end if;
1306: raise FND_API.G_EXC_ERROR;
1319: WHEN FND_API.G_EXC_ERROR THEN
1320: if p_commit = FND_API.G_TRUE THEN
1321: rollback to CREATE_STRUC_VER_ATTR_PVT;
1322: end if;
1323: x_msg_count := FND_MSG_PUB.count_msg;
1324: x_return_status := FND_API.G_RET_STS_ERROR;
1325: WHEN NO_DATA_FOUND THEN
1326: if p_commit = FND_API.G_TRUE THEN
1327: rollback to CREATE_STRUC_VER_ATTR_PVT;
1331: if p_commit = FND_API.G_TRUE THEN
1332: rollback to CREATE_STRUC_VER_ATTR_PVT;
1333: end if;
1334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1335: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
1336: p_procedure_name => 'CREATE_STRUCTURE_VERSION_ATTR',
1337: p_error_text => SUBSTRB(SQLERRM,1,240));
1338: RAISE;
1339: END CREATE_STRUCTURE_VERSION_ATTR;
1513: CLOSE get_struc;
1514:
1515:
1516: --Check if there is any error.
1517: l_msg_count := FND_MSG_PUB.count_msg;
1518: IF l_msg_count > 0 THEN
1519: x_msg_count := l_msg_count;
1520: IF x_msg_count = 1 THEN
1521: x_msg_data := l_msg_data;
1598: l_attribute15 := p_attribute15;
1599: END IF;
1600:
1601: --Check if there is any error.
1602: l_msg_count := FND_MSG_PUB.count_msg;
1603: IF l_msg_count > 0 THEN
1604: x_msg_count := l_msg_count;
1605: IF x_msg_count = 1 THEN
1606: x_msg_data := l_msg_data;
1674: if p_commit = FND_API.G_TRUE then
1675: rollback to update_structure_pvt;
1676: end if;
1677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1678: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
1679: p_procedure_name => 'UPDATE_STRUCTURE',
1680: p_error_text => SUBSTRB(SQLERRM,1,240));
1681: RAISE;
1682: END update_structure;
1846:
1847: -- End Fix For Bug # 4297556.
1848:
1849: BEGIN
1850: l_msg_count_int := FND_MSG_PUB.count_msg; /*Bug#6414944*/
1851: IF (p_debug_mode = 'Y') THEN
1852: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURE_VERSION_ATTR begin');
1853: END IF;
1854:
1931: raise;
1932: end if;
1933: END;
1934:
1935: x_msg_count := FND_MSG_PUB.count_msg;
1936: if x_msg_count > 0 then
1937: x_msg_data := l_msg_data;
1938: raise FND_API.G_EXC_ERROR;
1939: end if;
1978: x_msg_count => l_msg_count,
1979: x_msg_data => l_msg_data);
1980:
1981: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1982: x_msg_count := FND_MSG_PUB.count_msg;
1983: if x_msg_count = 1 then
1984: x_msg_data := l_msg_data;
1985: end if;
1986: raise FND_API.G_EXC_ERROR;
2114: END IF;
2115: --end FPM bug 3301192
2116:
2117: --Check if there is any error.
2118: l_msg_count := FND_MSG_PUB.count_msg;
2119: -- IF p_calling_module = 'PA_UPD_WBS_ATTR_UN' THEN Commented for Bug 6372780
2120: IF l_msg_count > l_msg_count_int THEN
2121: x_msg_count := l_msg_count;
2122: IF x_msg_count = 1 THEN
2245: WHEN FND_API.G_EXC_ERROR THEN
2246: IF (p_commit = FND_API.G_TRUE) THEN
2247: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2248: END IF;
2249: x_msg_count := FND_MSG_PUB.count_msg;
2250: x_return_status := FND_API.G_RET_STS_ERROR;
2251: WHEN OTHERS THEN
2252: IF (p_commit = FND_API.G_TRUE) THEN
2253: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2252: IF (p_commit = FND_API.G_TRUE) THEN
2253: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2254: END IF;
2255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2256: x_msg_count := FND_MSG_PUB.count_msg;
2257: --put message
2258: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2259: p_procedure_name => 'Update_Structure_Version_Attr',
2260: p_error_text => SUBSTRB(SQLERRM,1,240));
2254: END IF;
2255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2256: x_msg_count := FND_MSG_PUB.count_msg;
2257: --put message
2258: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2259: p_procedure_name => 'Update_Structure_Version_Attr',
2260: p_error_text => SUBSTRB(SQLERRM,1,240));
2261: RAISE;
2262: END Update_Structure_Version_Attr;
2420: raise;
2421: END;
2422: END IF;
2423:
2424: l_msg_count := FND_MSG_PUB.count_msg;
2425: if l_msg_count > 0 then
2426: x_msg_count := l_msg_count;
2427: if x_msg_count = 1 then
2428: x_msg_data := l_msg_data;
2451: if p_commit = FND_API.G_TRUE then
2452: rollback to delete_structure_pvt;
2453: end if;
2454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2455: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2456: p_procedure_name => 'Delete_Structure',
2457: p_error_text => SUBSTRB(SQLERRM,1,240));
2458: raise;
2459: END Delete_Structure;
2577: END;
2578: END IF;
2579:
2580:
2581: l_msg_count := FND_MSG_PUB.count_msg;
2582: if l_msg_count > 0 then
2583: x_msg_count := l_msg_count;
2584: if x_msg_count = 1 then
2585: x_msg_data := l_msg_data;
2614: ,x_Msg_data => x_msg_data
2615: );
2616: EXCEPTION
2617: WHEN OTHERS THEN
2618: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2619: p_procedure_name => 'Delete_Structure_Version',
2620: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_budget_versions:'||SQLERRM,1,240));
2621: RAISE FND_API.G_EXC_ERROR;
2622: END;
2634: ,x_Msg_data => x_msg_data
2635: );
2636: EXCEPTION
2637: WHEN OTHERS THEN
2638: fnd_msg_pub.add_exc_msg(
2639: p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2640: p_procedure_name => 'Delete_Structure_Version',
2641: p_error_text => SUBSTRB('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
2642: RAISE FND_API.G_EXC_ERROR;
2714: if p_commit = FND_API.G_TRUE then
2715: rollback to delete_structure_version_pvt;
2716: end if;
2717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2718: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2719: p_procedure_name => 'Delete_Structure_Version',
2720: p_error_text => SUBSTRB(SQLERRM,1,240));
2721: raise;
2722: END DELETE_STRUCTURE_VERSION;
2849: raise;
2850: END;
2851: END IF;
2852:
2853: l_msg_count := FND_MSG_PUB.count_msg;
2854: if l_msg_count > 0 then
2855: x_msg_count := l_msg_count;
2856: if x_msg_count = 1 then
2857: x_msg_data := l_msg_data;
2916: if p_commit = FND_API.G_TRUE then
2917: rollback to delete_structure_ver_attr_pvt;
2918: end if;
2919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2920: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2921: p_procedure_name => 'Delete_Structure',
2922: p_error_text => SUBSTRB(SQLERRM,1,240));
2923: raise;
2924: END Delete_Structure_Version_Attr;
3458: -- x_msg_count => l_msg_count,
3459: -- x_msg_data => l_msg_data);
3460: --
3461: -- if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
3462: -- x_msg_count := FND_MSG_PUB.count_msg;
3463: -- if x_msg_count = 1 then
3464: -- x_msg_data := l_msg_data;
3465: -- end if;
3466: -- raise FND_API.G_EXC_ERROR;
3664: IF (p_debug_mode = 'Y') THEN
3665: pa_debug.debug('create structure version =>'||l_new_struct_ver_id);
3666: END IF;
3667:
3668: l_msg_count := FND_MSG_PUB.count_msg;
3669: if l_msg_count > 0 then
3670: x_msg_count := l_msg_count;
3671: if x_msg_count = 1 then
3672: x_msg_data := l_msg_data;
3692: -- ,x_msg_count => l_msg_count
3693: -- ,x_msg_data => l_msg_data
3694: -- );
3695: --
3696: -- l_msg_count := FND_MSG_PUB.count_msg;
3697: -- if l_msg_count > 0 then
3698: -- x_msg_count := l_msg_count;
3699: -- if x_msg_count = 1 then
3700: -- x_msg_data := l_msg_data;
3779: -- pa_debug.debug('update incoming links for struct =>'||l_return_status);
3780: -- END IF;
3781: --
3782: -- --Check error
3783: -- l_msg_count := FND_MSG_PUB.count_msg;
3784: -- if (l_msg_count > 0) then
3785: -- x_msg_count := l_msg_count;
3786: -- if x_msg_count = 1 then
3787: -- x_msg_data := l_msg_data;
3884: -- pa_debug.debug('update outgoing links for struct =>'||l_return_status);
3885: -- END IF;
3886: -- END IF;
3887: -- --Check error
3888: -- l_msg_count := FND_MSG_PUB.count_msg;
3889: -- if (l_msg_count > 0) then
3890: -- x_msg_count := l_msg_count;
3891: -- if x_msg_count = 1 then
3892: -- x_msg_data := l_msg_data;
4170: --dbms_output.put_line('new task version id = '||l_task_version_id);
4171:
4172: -- error_msg('done create_task_version '||l_msg_count||', '||l_msg_data);
4173: --Check if there is any error.
4174: l_msg_count := FND_MSG_PUB.count_msg;
4175: IF l_msg_count > 0 THEN
4176: x_msg_count := l_msg_count;
4177: IF x_msg_count = 1 THEN
4178: x_msg_data := l_msg_data;
4208: -- );
4209: -- error_msg('update latest published links');
4210:
4211: --Check if there is any error.
4212: -- l_msg_count := FND_MSG_PUB.count_msg;
4213: -- IF l_msg_count > 0 THEN
4214: -- x_msg_count := l_msg_count;
4215: -- IF x_msg_count = 1 THEN
4216: -- x_msg_data := l_msg_data;
4284: -- CLOSE get_task_version_info;
4285: -- END IF;
4286: --
4287: -- --Check error
4288: -- l_msg_count := FND_MSG_PUB.count_msg;
4289: -- if (l_msg_count > 0) then
4290: -- x_msg_count := l_msg_count;
4291: -- if x_msg_count = 1 then
4292: -- x_msg_data := l_msg_data;
4382: --
4383: -- END IF;
4384: --
4385: --Check error
4386: -- l_msg_count := FND_MSG_PUB.count_msg;
4387: -- if (l_msg_count > 0) then
4388: -- x_msg_count := l_msg_count;
4389: -- if x_msg_count = 1 then
4390: -- x_msg_data := l_msg_data;
4507: ,X_SOURCE_OBJECT_TYPE => 'PA_PROJECTS'
4508: );
4509:
4510: --Check if there is any error.
4511: l_msg_count := FND_MSG_PUB.count_msg;
4512: IF l_msg_count > 0 THEN
4513: x_msg_count := l_msg_count;
4514: IF x_msg_count = 1 THEN
4515: x_msg_data := l_msg_data;
4558: ,x_msg_data => l_msg_data
4559: );
4560:
4561: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
4562: x_msg_count := FND_MSG_PUB.count_msg;
4563: if x_msg_count = 1 then
4564: x_msg_data := l_msg_data;
4565: end if;
4566: raise FND_API.G_EXC_ERROR;
4664: );
4665:
4666:
4667: --Check if there is any error.
4668: l_msg_count := FND_MSG_PUB.count_msg;
4669: IF l_msg_count > 0 THEN
4670: x_msg_count := l_msg_count;
4671: IF x_msg_count = 1 THEN
4672: x_msg_data := l_msg_data;
5018: x_return_status => X_Return_Status,
5019: x_msg_count => X_Msg_Count,
5020: x_msg_data => X_Msg_Data);
5021: IF (X_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
5022: x_msg_count := FND_MSG_PUB.count_msg;
5023: IF x_msg_count = 1 then
5024: pa_interface_utils_pub.get_messages
5025: (p_encoded => FND_API.G_TRUE,
5026: p_msg_index => 1,
5086: ,x_msg_count => l_msg_count
5087: ,x_msg_data => l_msg_data );
5088:
5089:
5090: l_msg_count := FND_MSG_PUB.count_msg;
5091: if (l_msg_count > 0) then
5092: x_msg_count := l_msg_count;
5093: if x_msg_count = 1 then
5094: x_msg_data := l_msg_data;
5129: RAISE FND_API.G_EXC_ERROR;
5130: END IF;
5131: EXCEPTION
5132: WHEN OTHERS THEN
5133: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5134: p_procedure_name => 'PUBLISH_STRUCTURE',
5135: p_error_text => SUBSTRB('PA_PROJ_STRUC_MAPPING_PUB.COPY_MAPPING:'||SQLERRM,1,240));
5136: RAISE FND_API.G_EXC_ERROR;
5137: END;
5173: ,x_Msg_data => x_msg_data
5174: );
5175: EXCEPTION
5176: WHEN OTHERS THEN
5177: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5178: p_procedure_name => 'PUBLISH_STRUCTURE',
5179: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
5180: RAISE FND_API.G_EXC_ERROR;
5181: END;
5199: ,x_return_status => x_return_status
5200: );
5201: EXCEPTION
5202: WHEN OTHERS THEN
5203: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5204: p_procedure_name => 'PUBLISH_STRUCTURE',
5205: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_missing_unplanned_asgmts:'||SQLERRM,1,240));
5206: RAISE FND_API.G_EXC_ERROR;
5207: END;
5220: x_return_status => l_return_status,
5221: x_msg_count => l_msg_count,
5222: x_msg_data => l_msg_data);
5223:
5224: l_msg_count := FND_MSG_PUB.count_msg;
5225: if (l_msg_count > 0) then
5226: x_msg_count := l_msg_count;
5227: if x_msg_count = 1 then
5228: x_msg_data := l_msg_data;
5312: -- PA_UTILS.ADD_MESSAGE('PA',l_i_msg_data(i));
5313: -- END LOOP;
5314: -- END IF;
5315:
5316: l_msg_count := FND_MSG_PUB.count_msg;
5317: if l_msg_count > 0 then
5318: x_msg_count := l_msg_count;
5319: if x_msg_count = 1 then
5320: -- x_msg_data := l_msg_data;
5355: END IF;
5356:
5357:
5358: --Check if there is any error.
5359: l_msg_count := FND_MSG_PUB.count_msg;
5360: IF l_msg_count > 0 THEN
5361: x_msg_count := l_msg_count;
5362: IF x_msg_count = 1 THEN
5363: x_msg_data := l_msg_data;
5402: ,x_msg_count => l_msg_count
5403: ,x_msg_data => l_msg_data );
5404:
5405: --Check if there is any error.
5406: l_msg_count := FND_MSG_PUB.count_msg;
5407: IF l_msg_count > 0 THEN
5408: x_msg_count := l_msg_count;
5409: IF x_msg_count = 1 THEN
5410: x_msg_data := l_msg_data;
5432: x_msg_data => l_msg_data
5433: );
5434:
5435: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5436: x_msg_count := FND_MSG_PUB.count_msg;
5437: if x_msg_count = 1 then
5438: x_msg_data := l_msg_data;
5439: end if;
5440: raise FND_API.G_EXC_ERROR;
5510: ,x_msg_data => l_msg_data
5511: );
5512:
5513: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5514: x_msg_count := FND_MSG_PUB.count_msg;
5515: if x_msg_count = 1 then
5516: x_msg_data := l_msg_data;
5517: end if;
5518: raise FND_API.G_EXC_ERROR;
5541: x_msg_count => l_msg_count,
5542: x_msg_data => l_msg_data
5543: );
5544: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5545: x_msg_count := FND_MSG_PUB.count_msg;
5546: if x_msg_count = 1 then
5547: x_msg_data := l_msg_data;
5548: end if;
5549: raise FND_API.G_EXC_ERROR;
5566: x_msg_count => l_msg_count,
5567: x_msg_data => l_msg_data
5568: );
5569: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5570: x_msg_count := FND_MSG_PUB.count_msg;
5571: if x_msg_count = 1 then
5572: x_msg_data := l_msg_data;
5573: end if;
5574: raise FND_API.G_EXC_ERROR;
5587: ,x_msg_data => x_msg_data
5588: );
5589:
5590: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
5591: x_msg_count := FND_MSG_PUB.count_msg;
5592: if x_msg_count = 1 then
5593: x_msg_data := l_msg_data;
5594: end if;
5595: raise FND_API.G_EXC_ERROR;
5608: ,x_msg_data => x_msg_data
5609: );
5610:
5611: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
5612: x_msg_count := FND_MSG_PUB.count_msg;
5613: if x_msg_count = 1 then
5614: x_msg_data := l_msg_data;
5615: end if;
5616: raise FND_API.G_EXC_ERROR;
5647: ,x_msg_data => l_msg_data
5648: );
5649:
5650: --Check if there is any error.
5651: l_msg_count := FND_MSG_PUB.count_msg;
5652:
5653: IF l_debug_mode = 'Y' THEN
5654: pa_debug.write('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE', 'After calling PROJECT_STRUCTURE_PVT1.Delete_Struc_Ver_wo_val l_return_status='||l_return_status||' l_msg_count='||l_msg_count, 3);
5655: END IF;
5685: x_msg_data => l_msg_data
5686: );
5687:
5688: --Check if there is any error.
5689: l_msg_count := FND_MSG_PUB.count_msg;
5690: IF l_msg_count > 0 THEN
5691: x_msg_count := l_msg_count;
5692: IF x_msg_count = 1 THEN
5693: x_msg_data := l_msg_data;
5721: ,x_msg_data => x_msg_data
5722: );
5723: EXCEPTION
5724: WHEN OTHERS THEN
5725: fnd_msg_pub.add_exc_msg(p_pkg_name =>
5726: 'PA_PROJECT_STRUCTURE_PVT1',
5727: p_procedure_name => 'publish_structure',
5728: p_error_text => SUBSTRB('Call PA_PROGRESS_PUB.COPY_PROGRESS_ACT_ETC:'||SQLERRM,1,120));
5729: RAISE FND_API.G_EXC_ERROR;
5729: RAISE FND_API.G_EXC_ERROR;
5730: END;
5731:
5732: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5733: x_msg_count := FND_MSG_PUB.count_msg;
5734: IF x_msg_count = 1 THEN
5735: x_msg_data := l_msg_data;
5736: END IF;
5737: raise FND_API.G_EXC_ERROR;
5760: ,x_msg_data => x_msg_data
5761: );
5762: EXCEPTION
5763: WHEN OTHERS THEN
5764: fnd_msg_pub.add_exc_msg(p_pkg_name =>
5765: 'PA_PROJECT_STRUCTURE_PVT1',
5766: p_procedure_name => 'publish_structure',
5767: p_error_text => SUBSTRB('Call pa_progress_pub.populate_pji_tab_for_plan:'||SQLERRM,1,120));
5768: RAISE FND_API.G_EXC_ERROR;
5768: RAISE FND_API.G_EXC_ERROR;
5769: END;
5770:
5771: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5772: x_msg_count := FND_MSG_PUB.count_msg;
5773: IF x_msg_count = 1 THEN
5774: x_msg_data := l_msg_data;
5775: END IF;
5776: raise FND_API.G_EXC_ERROR;
5793: ,x_msg_count => x_msg_count
5794: ,x_msg_data => x_msg_data);
5795: EXCEPTION
5796: WHEN OTHERS THEN
5797: fnd_msg_pub.add_exc_msg(p_pkg_name =>
5798: 'PA_PROJECT_STRUCTURE_PVT1',
5799: p_procedure_name => 'publish_structure',
5800: p_error_text => SUBSTRB('Call PA_PROGRESS_PUB.ROLLUP_PROGRESS_PVT:'||SQLERRM,1,120));
5801: RAISE FND_API.G_EXC_ERROR;
5802: END;
5803:
5804:
5805: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5806: x_msg_count := FND_MSG_PUB.count_msg;
5807: IF x_msg_count = 1 THEN
5808: x_msg_data := l_msg_data;
5809: END IF;
5810: raise FND_API.G_EXC_ERROR;
5830: ,x_msg_count => x_msg_count
5831: ,x_msg_data => x_msg_data);
5832: EXCEPTION
5833: WHEN OTHERS THEN
5834: fnd_msg_pub.add_exc_msg(p_pkg_name =>
5835: 'PA_PROJECT_STRUCTURE_PVT1',
5836: p_procedure_name => 'publish_structure',
5837: p_error_text => SUBSTRB('Call PA_PROGRESS_UTILS.clear_prog_outdated_flag:'||SQLERRM,1,120));
5838: RAISE FND_API.G_EXC_ERROR;
5839: END;
5840:
5841:
5842: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5843: x_msg_count := FND_MSG_PUB.count_msg;
5844: IF x_msg_count = 1 THEN
5845: x_msg_data := l_msg_data;
5846: END IF;
5847: raise FND_API.G_EXC_ERROR;
5865:
5866: x_return_status := FND_API.G_RET_STS_SUCCESS;
5867:
5868: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5869: x_msg_count := FND_MSG_PUB.count_msg;
5870: if x_msg_count = 1 then
5871: x_msg_data := l_msg_data;
5872: end if;
5873: raise FND_API.G_EXC_ERROR;
5885: --need to rollback because generate error page performs a commit
5886: rollback;
5887: end if;
5888: --get errors
5889: FOR i IN 1..FND_MSG_PUB.COUNT_MSG LOOP
5890: FND_MSG_PUB.GET(p_encoded=>'F',
5891: p_data=>l_messages(i),
5892: p_msg_index_out => l_msg_index_out);
5893: END LOOP;
5886: rollback;
5887: end if;
5888: --get errors
5889: FOR i IN 1..FND_MSG_PUB.COUNT_MSG LOOP
5890: FND_MSG_PUB.GET(p_encoded=>'F',
5891: p_data=>l_messages(i),
5892: p_msg_index_out => l_msg_index_out);
5893: END LOOP;
5894:
5901: x_msg_count => l_msg_count,
5902: x_msg_data => l_msg_data
5903: );
5904:
5905: x_msg_count := FND_MSG_PUB.count_msg;
5906: x_return_status := FND_API.G_RET_STS_ERROR;
5907: when FND_API.G_EXC_UNEXPECTED_ERROR then
5908: if p_commit = FND_API.G_TRUE then
5909: rollback to publish_structure_pvt;
5908: if p_commit = FND_API.G_TRUE then
5909: rollback to publish_structure_pvt;
5910: end if;
5911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5912: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5913: p_procedure_name => 'PUBLISH_STRUCTURE',
5914: p_error_text => SUBSTRB(SQLERRM,1,240));
5915: when OTHERS then
5916: if p_commit = FND_API.G_TRUE then
5916: if p_commit = FND_API.G_TRUE then
5917: rollback to publish_structure_pvt;
5918: end if;
5919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5920: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5921: p_procedure_name => 'PUBLISH_STRUCTURE',
5922: p_error_text => SUBSTRB(SQLERRM,1,240));
5923: raise;
5924: END Publish_Structure;
6192: --dbms_output.put_line('b, Close get_from_id');
6193: CLOSE get_from_id;
6194:
6195:
6196: l_msg_count := FND_MSG_PUB.count_msg;
6197: if (l_msg_count > 0) then
6198: x_msg_count := l_msg_count;
6199: if x_msg_count = 1 then
6200: x_msg_data := l_msg_data;
6206: when FND_API.G_EXC_ERROR then
6207: if p_commit = FND_API.G_TRUE then
6208: rollback to update_latest_pub_links_pvt;
6209: end if;
6210: x_msg_count := FND_MSG_PUB.count_msg;
6211: x_return_status := FND_API.G_RET_STS_ERROR;
6212: when FND_API.G_EXC_UNEXPECTED_ERROR then
6213: if p_commit = FND_API.G_TRUE then
6214: rollback to update_latest_pub_links_pvt;
6213: if p_commit = FND_API.G_TRUE then
6214: rollback to update_latest_pub_links_pvt;
6215: end if;
6216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6217: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
6218: p_procedure_name => 'UPDATE_LATEST_PUB_LINKS',
6219: p_error_text => SUBSTRB(SQLERRM,1,240));
6220: when OTHERS then
6221: if p_commit = FND_API.G_TRUE then
6221: if p_commit = FND_API.G_TRUE then
6222: rollback to update_latest_pub_links_pvt;
6223: end if;
6224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6225: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
6226: p_procedure_name => 'UPDATE_LATEST_PUB_LINKS',
6227: p_error_text => SUBSTRB(SQLERRM,1,240));
6228: raise;
6229: END UPDATE_LATEST_PUB_LINKS;
6432: END IF;
6433:
6434:
6435: --Check if there is any error.
6436: l_msg_count := FND_MSG_PUB.count_msg;
6437: IF l_msg_count > 0 THEN
6438: x_msg_count := l_msg_count;
6439: IF x_msg_count = 1 THEN
6440: x_msg_data := l_msg_data;
6473: pa_debug.debug('l_pev_structure_id: ' || l_pev_structure_id);
6474: END IF;
6475:
6476: --Check if there is any error.
6477: l_msg_count := FND_MSG_PUB.count_msg;
6478: IF l_msg_count > 0 THEN
6479: x_msg_count := l_msg_count;
6480: IF x_msg_count = 1 THEN
6481: x_msg_data := l_msg_data;
6567: pa_debug.debug('l_new_obj_rel_id: ' || l_new_obj_rel_id);
6568: END IF;
6569: END IF;
6570: --Check error
6571: l_msg_count := FND_MSG_PUB.count_msg;
6572: if (l_msg_count > 0) then
6573: x_msg_count := l_msg_count;
6574: if x_msg_count = 1 then
6575: x_msg_data := l_msg_data;
6674: pa_debug.debug('l_pev_schedule_id: ' || l_pev_schedule_id);
6675: END IF;
6676:
6677: --Check if there is any error.
6678: l_msg_count := FND_MSG_PUB.count_msg;
6679: IF l_msg_count > 0 THEN
6680: x_msg_count := l_msg_count;
6681: IF x_msg_count = 1 THEN
6682: x_msg_data := l_msg_data;
6770: pa_debug.debug('l_msg_count: ' || l_msg_count);
6771: END IF;
6772:
6773: --Check if there is any error.
6774: l_msg_count := FND_MSG_PUB.count_msg;
6775: IF l_msg_count > 0 THEN
6776: x_msg_count := l_msg_count;
6777: IF x_msg_count = 1 THEN
6778: x_msg_data := l_msg_data;
6885: pa_debug.debug('l_pev_schedule_id: ' || l_pev_schedule_id);
6886: END IF;
6887:
6888: --Check if there is any error.
6889: l_msg_count := FND_MSG_PUB.count_msg;
6890: IF l_msg_count > 0 THEN
6891: x_msg_count := l_msg_count;
6892: IF x_msg_count = 1 THEN
6893: x_msg_data := l_msg_data;
7022:
7023: END IF;
7024:
7025: --Check error
7026: l_msg_count := FND_MSG_PUB.count_msg;
7027: if (l_msg_count > 0) then
7028: x_msg_count := l_msg_count;
7029: if x_msg_count = 1 then
7030: x_msg_data := l_msg_data;
7063: if p_commit = FND_API.G_TRUE then
7064: rollback to copy_structure_version_pvt;
7065: end if;
7066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7067: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
7068: p_procedure_name => 'COPY_STRUCTURE_VERSION',
7069: p_error_text => SUBSTRB(SQLERRM,1,240));
7070: when OTHERS then
7071: if p_commit = FND_API.G_TRUE then
7071: if p_commit = FND_API.G_TRUE then
7072: rollback to copy_structure_version_pvt;
7073: end if;
7074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7075: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
7076: p_procedure_name => 'COPY_STRUCTURE_VERSION',
7077: p_error_text => SUBSTRB(SQLERRM,1,240));
7078: raise;
7079: END COPY_STRUCTURE_VERSION;
7673: -- ,x_msg_count => l_msg_count
7674: -- ,x_msg_data => l_msg_data );
7675:
7676: -- --Check if there is any error.
7677: -- l_msg_count := FND_MSG_PUB.count_msg;
7678: -- IF l_msg_count > 0 THEN
7679: -- x_msg_count := l_msg_count;
7680: -- IF x_msg_count = 1 THEN
7681: -- x_msg_data := l_msg_data;
7694: -- ,x_msg_count => l_msg_count
7695: -- ,x_msg_data => l_msg_data );
7696:
7697: -- --Check if there is any error.
7698: -- l_msg_count := FND_MSG_PUB.count_msg;
7699: -- IF l_msg_count > 0 THEN
7700: -- x_msg_count := l_msg_count;
7701: -- IF x_msg_count = 1 THEN
7702: -- x_msg_data := l_msg_data;
7723: -- ,x_msg_count => l_msg_count
7724: -- ,x_msg_data => l_msg_data );
7725:
7726: -- --Check if there is any error.
7727: -- l_msg_count := FND_MSG_PUB.count_msg;
7728: -- IF l_msg_count > 0 THEN
7729: -- x_msg_count := l_msg_count;
7730: -- IF x_msg_count = 1 THEN
7731: -- x_msg_data := l_msg_data;
7746: -- ,x_msg_count => l_msg_count
7747: -- ,x_msg_data => l_msg_data );
7748:
7749: -- --Check if there is any error.
7750: -- l_msg_count := FND_MSG_PUB.count_msg;
7751: -- IF l_msg_count > 0 THEN
7752: -- x_msg_count := l_msg_count;
7753: -- IF x_msg_count = 1 THEN
7754: -- x_msg_data := l_msg_data;
7810: pa_debug.debug('done: '||l_return_status);
7811: END IF;
7812:
7813: --Check if there is any error.
7814: l_msg_count := FND_MSG_PUB.count_msg;
7815: IF l_msg_count > 0 THEN
7816: x_msg_count := l_msg_count;
7817: IF x_msg_count = 1 THEN
7818: x_msg_data := l_msg_data;
7844: ,x_msg_count => l_msg_count
7845: ,x_msg_data => l_msg_data);
7846:
7847: --Check if there is any error.
7848: l_msg_count := FND_MSG_PUB.count_msg;
7849: IF l_msg_count > 0 THEN
7850: x_msg_count := l_msg_count;
7851: IF x_msg_count = 1 THEN
7852: x_msg_data := l_msg_data;
7921: ,x_msg_count => l_msg_count
7922: ,x_msg_data => l_msg_data );
7923:
7924: --Check if there is any error.
7925: l_msg_count := FND_MSG_PUB.count_msg;
7926: IF l_msg_count > 0 THEN
7927: x_msg_count := l_msg_count;
7928: IF x_msg_count = 1 THEN
7929: x_msg_data := l_msg_data;
7996: ,x_msg_count => l_msg_count
7997: ,x_msg_data => l_msg_data );
7998:
7999: --Check if there is any error.
8000: l_msg_count := FND_MSG_PUB.count_msg;
8001: IF l_msg_count > 0 THEN
8002: x_msg_count := l_msg_count;
8003: IF x_msg_count = 1 THEN
8004: x_msg_data := l_msg_data;
8186:
8187: t_equiv_elem_ver_id(l_task_versions_rec.element_version_id) := l_task_version_id;
8188:
8189: --Check if there is any error.
8190: l_msg_count := FND_MSG_PUB.count_msg;
8191: IF l_msg_count > 0 THEN
8192: x_msg_count := l_msg_count;
8193: IF x_msg_count = 1 THEN
8194: x_msg_data := l_msg_data;
8263: ,x_msg_data => l_msg_data );
8264: -- end xxlu changes
8265:
8266: --Check if there is any error.
8267: l_msg_count := FND_MSG_PUB.count_msg;
8268: IF l_msg_count > 0 THEN
8269: x_msg_count := l_msg_count;
8270: IF x_msg_count = 1 THEN
8271: x_msg_data := l_msg_data;
8302: ,x_return_status => l_return_status
8303: ,x_msg_count => l_msg_count
8304: ,x_msg_data => l_msg_data
8305: );
8306: l_msg_count := FND_MSG_PUB.count_msg;
8307: IF l_msg_count > 0 THEN
8308: x_msg_count := l_msg_count;
8309: IF x_msg_count = 1 THEN
8310: x_msg_data := l_msg_data;
8365: ,x_msg_count => l_msg_count
8366: ,x_msg_data => l_msg_data );
8367:
8368: --Check if there is any error.
8369: l_msg_count := FND_MSG_PUB.count_msg;
8370: IF l_msg_count > 0 THEN
8371: x_msg_count := l_msg_count;
8372: IF x_msg_count = 1 THEN
8373: x_msg_data := l_msg_data;
8435: if p_commit = FND_API.G_TRUE then
8436: rollback to copy_structure_pvt;
8437: end if;
8438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8439: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8440: p_procedure_name => 'COPY_STRUCTURE',
8441: p_error_text => SUBSTRB(SQLERRM,1,240));
8442: when OTHERS then
8443: if p_commit = FND_API.G_TRUE then
8443: if p_commit = FND_API.G_TRUE then
8444: rollback to copy_structure_pvt;
8445: end if;
8446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8447: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8448: p_procedure_name => 'COPY_STRUCTURE',
8449: p_error_text => SUBSTRB(SQLERRM,1,240));
8450: raise;
8451: END COPY_STRUCTURE;
8668: if p_commit = FND_API.G_TRUE then
8669: ROLLBACK TO refresh_structure_ver;
8670: end if;
8671:
8672: FND_MSG_PUB.Count_And_Get
8673: ( p_count => x_msg_count ,
8674: p_data => x_msg_data );
8675: when OTHERS then
8676: if p_commit = FND_API.G_TRUE then
8676: if p_commit = FND_API.G_TRUE then
8677: rollback to refresh_structure_ver;
8678: end if;
8679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8680: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8681: p_procedure_name => 'REFRESH_STRUCTURE_VERSION',
8682: p_error_text => SUBSTRB(SQLERRM,1,240));
8683: raise;
8684: END REFRESH_STRUCTURE_VERSION;
8831: ,x_msg_count => l_msg_count
8832: ,x_msg_data => l_msg_data );
8833:
8834: --Check if there is any error.
8835: l_msg_count := FND_MSG_PUB.count_msg;
8836: IF l_msg_count > 0 THEN
8837: x_msg_count := l_msg_count;
8838: IF x_msg_count = 1 THEN
8839: x_msg_data := l_msg_data;
8890: ,x_msg_count => l_msg_count
8891: ,x_msg_data => l_msg_data );
8892:
8893: --Check if there is any error.
8894: l_msg_count := FND_MSG_PUB.count_msg;
8895: IF l_msg_count > 0 THEN
8896: x_msg_count := l_msg_count;
8897: IF x_msg_count = 1 THEN
8898: x_msg_data := l_msg_data;
8917: if p_commit = FND_API.G_TRUE then
8918: rollback to baseline_structure_pvt;
8919: end if;
8920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8921: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8922: p_procedure_name => 'BASELINE_STRUCTURE_VERSION',
8923: p_error_text => SUBSTRB(SQLERRM,1,240));
8924: when OTHERS then
8925: if p_commit = FND_API.G_TRUE then
8925: if p_commit = FND_API.G_TRUE then
8926: rollback to baseline_structure_pvt;
8927: end if;
8928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8929: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8930: p_procedure_name => 'BASELINE_STRUCTURE_VERSION',
8931: p_error_text => SUBSTRB(SQLERRM,1,240));
8932: raise;
8933: END BASELINE_STRUCTURE_VERSION;
9034:
9035: x_structure_id := l_struc_id;
9036:
9037: --Check if there is any error.
9038: l_msg_count := FND_MSG_PUB.count_msg;
9039: IF l_msg_count > 0 THEN
9040: x_msg_count := l_msg_count;
9041: IF x_msg_count = 1 THEN
9042: x_msg_data := l_msg_data;
9059:
9060: x_structure_version_id := l_struc_ver_id;
9061:
9062: --Check if there is any error.
9063: l_msg_count := FND_MSG_PUB.count_msg;
9064: IF l_msg_count > 0 THEN
9065: x_msg_count := l_msg_count;
9066: IF x_msg_count = 1 THEN
9067: x_msg_data := l_msg_data;
9080: x_pev_structure_id => l_struc_ver_attr_id
9081: );
9082:
9083: --Check if there is any error.
9084: l_msg_count := FND_MSG_PUB.count_msg;
9085: IF l_msg_count > 0 THEN
9086: x_msg_count := l_msg_count;
9087: IF x_msg_count = 1 THEN
9088: x_msg_data := l_msg_data;
9101: ,x_msg_data => l_msg_data
9102: );
9103:
9104: --Check if there is any error.
9105: l_msg_count := FND_MSG_PUB.count_msg;
9106: IF l_msg_count > 0 THEN
9107: x_msg_count := l_msg_count;
9108: IF x_msg_count = 1 THEN
9109: x_msg_data := l_msg_data;
9127: if p_commit = FND_API.G_TRUE then
9128: rollback to split_workplan;
9129: end if;
9130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9131: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9132: p_procedure_name => 'SPLIT_WORKPLAN',
9133: p_error_text => SUBSTRB(SQLERRM,1,240));
9134: when OTHERS then
9135: if p_commit = FND_API.G_TRUE then
9135: if p_commit = FND_API.G_TRUE then
9136: rollback to split_workplan;
9137: end if;
9138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9139: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9140: p_procedure_name => 'SPLIT_WORKPLAN',
9141: p_error_text => SUBSTRB(SQLERRM,1,240));
9142: raise;
9143: END SPLIT_WORKPLAN;
9325: END IF;
9326: --end bug 3840509
9327:
9328: --Check if there is any error.
9329: l_msg_count := FND_MSG_PUB.count_msg;
9330: IF l_msg_count > 0 THEN
9331: x_msg_count := l_msg_count;
9332: IF x_msg_count = 1 THEN
9333: x_msg_data := l_msg_data;
9450: WHEN FND_API.G_EXC_ERROR THEN
9451: IF (p_commit = FND_API.G_TRUE) THEN
9452: ROLLBACK to SUBMIT_WP_PRIVATE;
9453: END IF;
9454: x_msg_count := FND_MSG_PUB.count_msg;
9455: x_return_status := FND_API.G_RET_STS_ERROR;
9456: WHEN OTHERS THEN
9457: IF (p_commit = FND_API.G_TRUE) THEN
9458: ROLLBACK to SUBMIT_WP_PRIVATE;
9457: IF (p_commit = FND_API.G_TRUE) THEN
9458: ROLLBACK to SUBMIT_WP_PRIVATE;
9459: END IF;
9460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9461: x_msg_count := FND_MSG_PUB.count_msg;
9462: --put message
9463: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9464: p_procedure_name => 'Submit_Workplan',
9465: p_error_text => SUBSTRB(SQLERRM,1,240));
9459: END IF;
9460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9461: x_msg_count := FND_MSG_PUB.count_msg;
9462: --put message
9463: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9464: p_procedure_name => 'Submit_Workplan',
9465: p_error_text => SUBSTRB(SQLERRM,1,240));
9466: RAISE;
9467: END SUBMIT_WORKPLAN;
9551: raise;
9552: end if;
9553: END;
9554:
9555: l_msg_count := FND_MSG_PUB.count_msg;
9556: if l_msg_count > 0 then
9557: x_msg_count := l_msg_count;
9558: if x_msg_count = 1 then
9559: x_msg_data := l_msg_data;
9633: CLOSE get_start_wf;
9634:
9635: EXCEPTION
9636: WHEN FND_API.G_EXC_ERROR THEN
9637: x_msg_count := FND_MSG_PUB.count_msg;
9638: x_return_status := FND_API.G_RET_STS_ERROR;
9639: WHEN OTHERS THEN
9640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9641: x_msg_count := FND_MSG_PUB.count_msg;
9637: x_msg_count := FND_MSG_PUB.count_msg;
9638: x_return_status := FND_API.G_RET_STS_ERROR;
9639: WHEN OTHERS THEN
9640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9641: x_msg_count := FND_MSG_PUB.count_msg;
9642: --put message
9643: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9644: p_procedure_name => 'Change_Workplan_Status',
9645: p_error_text => SUBSTRB(SQLERRM,1,240));
9639: WHEN OTHERS THEN
9640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9641: x_msg_count := FND_MSG_PUB.count_msg;
9642: --put message
9643: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9644: p_procedure_name => 'Change_Workplan_Status',
9645: p_error_text => SUBSTRB(SQLERRM,1,240));
9646: RAISE;
9647: END CHANGE_WORKPLAN_STATUS;
9714: ,x_msg_data => l_msg_data
9715: );
9716:
9717: --Check if there is any error.
9718: l_msg_count := FND_MSG_PUB.count_msg;
9719: IF l_msg_count > 0 THEN
9720: x_msg_count := l_msg_count;
9721: IF x_msg_count = 1 THEN
9722: x_msg_data := l_msg_data;
9743: -- IF (l_approve_req = 'Y') THEN
9744: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
9745: -- ,p_msg_name => 'PA_PR_CANCEL_WORKFLOW_INV');
9746: -- x_return_status := FND_API.G_RET_STS_ERROR;
9747: -- x_msg_count := FND_MSG_PUB.count_msg;
9748: -- if x_msg_count = 1 then
9749: -- x_msg_data := 'PA_PR_CANCEL_WORKFLOW_INV';
9750: -- end if;
9751: -- raise FND_API.G_EXC_ERROR;
9767: IF (l_approve_req = 'Y') THEN
9768: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
9769: ,p_msg_name => 'PA_PR_CANCEL_WORKFLOW_INV');
9770: x_return_status := FND_API.G_RET_STS_ERROR;
9771: x_msg_count := FND_MSG_PUB.count_msg;
9772: if x_msg_count = 1 then
9773: x_msg_data := 'PA_PR_CANCEL_WORKFLOW_INV';
9774: end if;
9775: raise FND_API.G_EXC_ERROR;
9781: WHEN FND_API.G_EXC_ERROR THEN
9782: IF (p_commit = FND_API.G_TRUE) THEN
9783: ROLLBACK to rework_workplan_pvt;
9784: END IF;
9785: x_msg_count := FND_MSG_PUB.count_msg;
9786: x_return_status := FND_API.G_RET_STS_ERROR;
9787: WHEN OTHERS THEN
9788: IF (p_commit = FND_API.G_TRUE) THEN
9789: ROLLBACK to rework_workplan_pvt;
9788: IF (p_commit = FND_API.G_TRUE) THEN
9789: ROLLBACK to rework_workplan_pvt;
9790: END IF;
9791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9792: x_msg_count := FND_MSG_PUB.count_msg;
9793: --put message
9794: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9795: p_procedure_name => 'rework_Workplan',
9796: p_error_text => SUBSTRB(SQLERRM,1,240));
9790: END IF;
9791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9792: x_msg_count := FND_MSG_PUB.count_msg;
9793: --put message
9794: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9795: p_procedure_name => 'rework_Workplan',
9796: p_error_text => SUBSTRB(SQLERRM,1,240));
9797: RAISE;
9798: END rework_workplan;
10114: ,x_msg_count => l_msg_count
10115: ,x_msg_data => l_msg_data );
10116:
10117: --Check if there is any error.
10118: l_msg_count := FND_MSG_PUB.count_msg;
10119: IF l_msg_count > 0 THEN
10120: x_msg_count := l_msg_count;
10121: IF x_msg_count = 1 THEN
10122: x_msg_data := l_msg_data;
10132: ,x_msg_count => l_msg_count
10133: ,x_msg_data => l_msg_data );
10134:
10135: --Check if there is any error.
10136: l_msg_count := FND_MSG_PUB.count_msg;
10137: IF l_msg_count > 0 THEN
10138: x_msg_count := l_msg_count;
10139: IF x_msg_count = 1 THEN
10140: x_msg_data := l_msg_data;
10152: ,x_msg_data => l_msg_data
10153: );
10154:
10155: --Check if there is any error.
10156: l_msg_count := FND_MSG_PUB.count_msg;
10157: IF l_msg_count > 0 THEN
10158: x_msg_count := l_msg_count;
10159: IF x_msg_count = 1 THEN
10160: x_msg_data := l_msg_data;
10194: ,x_msg_count => l_msg_count
10195: ,x_msg_data => l_msg_data );
10196:
10197: --Check if there is any error.
10198: l_msg_count := FND_MSG_PUB.count_msg;
10199: IF l_msg_count > 0 THEN
10200: x_msg_count := l_msg_count;
10201: IF x_msg_count = 1 THEN
10202: x_msg_data := l_msg_data;
10284: );
10285: ----end changes
10286:
10287: --Check if there is any error.
10288: l_msg_count := FND_MSG_PUB.count_msg;
10289: IF l_msg_count > 0 THEN
10290: x_msg_count := l_msg_count;
10291: IF x_msg_count = 1 THEN
10292: x_msg_data := l_msg_data;
10324: ,x_msg_data => l_msg_data
10325: );
10326:
10327: --Check if there is any error.
10328: l_msg_count := FND_MSG_PUB.count_msg;
10329: IF l_msg_count > 0 THEN
10330: x_msg_count := l_msg_count;
10331: IF x_msg_count = 1 THEN
10332: x_msg_data := l_msg_data;
10344: ,x_msg_data => l_msg_data
10345: );
10346:
10347: --Check if there is any error.
10348: l_msg_count := FND_MSG_PUB.count_msg;
10349: IF l_msg_count > 0 THEN
10350: x_msg_count := l_msg_count;
10351: IF x_msg_count = 1 THEN
10352: x_msg_data := l_msg_data;
10444: );
10445: ----end changes
10446:
10447: --Check if there is any error.
10448: l_msg_count := FND_MSG_PUB.count_msg;
10449: IF l_msg_count > 0 THEN
10450: x_msg_count := l_msg_count;
10451: IF x_msg_count = 1 THEN
10452: x_msg_data := l_msg_data;
10556:
10557: ----end changes
10558:
10559: --Check if there is any error.
10560: l_msg_count := FND_MSG_PUB.count_msg;
10561: IF l_msg_count > 0 THEN
10562: x_msg_count := l_msg_count;
10563: IF x_msg_count = 1 THEN
10564: x_msg_data := l_msg_data;
10625: ,x_msg_data => l_msg_data
10626: );
10627:
10628: --Check if there is any error.
10629: l_msg_count := FND_MSG_PUB.count_msg;
10630: IF l_msg_count > 0 THEN
10631: x_msg_count := l_msg_count;
10632: IF x_msg_count = 1 THEN
10633: x_msg_data := l_msg_data;
10655: ,x_msg_data => x_msg_data
10656: );
10657:
10658: --Check if there is any error.
10659: l_msg_count := FND_MSG_PUB.count_msg;
10660: IF l_msg_count > 0 THEN
10661: x_msg_count := l_msg_count;
10662: IF x_msg_count = 1 THEN
10663: x_msg_data := l_msg_data;
10682: x_msg_count => l_msg_count,
10683: x_msg_data => l_msg_data
10684: );
10685: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
10686: x_msg_count := FND_MSG_PUB.count_msg;
10687: if x_msg_count = 1 then
10688: x_msg_data := l_msg_data;
10689: end if;
10690: raise FND_API.G_EXC_ERROR;
10796:
10797: -- Bug 2790703 End
10798:
10799: --Check if there is any error.
10800: l_msg_count := FND_MSG_PUB.count_msg;
10801: IF l_msg_count > 0 THEN
10802: x_msg_count := l_msg_count;
10803: IF x_msg_count = 1 THEN
10804: x_msg_data := l_msg_data;
10879: x_msg_count => l_msg_count,
10880: x_msg_data => l_msg_data);
10881:
10882: --Check if there is any error.
10883: l_msg_count := FND_MSG_PUB.count_msg;
10884: IF l_msg_count > 0 THEN
10885: x_msg_count := l_msg_count;
10886: IF x_msg_count = 1 THEN
10887: x_msg_data := l_msg_data;
10976: );
10977: ----end changes
10978:
10979: --Check if there is any error.
10980: l_msg_count := FND_MSG_PUB.count_msg;
10981: IF l_msg_count > 0 THEN
10982: x_msg_count := l_msg_count;
10983: IF x_msg_count = 1 THEN
10984: x_msg_data := l_msg_data;
11016: ,x_msg_data => l_msg_data
11017: );
11018:
11019: --Check if there is any error.
11020: l_msg_count := FND_MSG_PUB.count_msg;
11021: IF l_msg_count > 0 THEN
11022: x_msg_count := l_msg_count;
11023: IF x_msg_count = 1 THEN
11024: x_msg_data := l_msg_data;
11036: ,x_msg_data => x_msg_data
11037: );
11038:
11039: --Check if there is any error.
11040: l_msg_count := FND_MSG_PUB.count_msg;
11041: IF l_msg_count > 0 THEN
11042: x_msg_count := l_msg_count;
11043: IF x_msg_count = 1 THEN
11044: x_msg_data := l_msg_data;
11137: ,x_msg_count => l_msg_count
11138: ,x_msg_data => l_msg_data );
11139:
11140: --Check if there is any error.
11141: l_msg_count := FND_MSG_PUB.count_msg;
11142: IF l_msg_count > 0 THEN
11143: x_msg_count := l_msg_count;
11144: IF x_msg_count = 1 THEN
11145: x_msg_data := l_msg_data;
11155: ,x_msg_count => l_msg_count
11156: ,x_msg_data => l_msg_data );
11157:
11158: --Check if there is any error.
11159: l_msg_count := FND_MSG_PUB.count_msg;
11160: IF l_msg_count > 0 THEN
11161: x_msg_count := l_msg_count;
11162: IF x_msg_count = 1 THEN
11163: x_msg_data := l_msg_data;
11175: ,x_msg_data => l_msg_data
11176: );
11177:
11178: --Check if there is any error.
11179: l_msg_count := FND_MSG_PUB.count_msg;
11180: IF l_msg_count > 0 THEN
11181: x_msg_count := l_msg_count;
11182: IF x_msg_count = 1 THEN
11183: x_msg_data := l_msg_data;
11255: ,x_msg_count => l_msg_count
11256: ,x_msg_data => l_msg_data );
11257:
11258: --Check if there is any error.
11259: l_msg_count := FND_MSG_PUB.count_msg;
11260: IF l_msg_count > 0 THEN
11261: x_msg_count := l_msg_count;
11262: IF x_msg_count = 1 THEN
11263: x_msg_data := l_msg_data;
11281: WHEN FND_API.G_EXC_ERROR THEN
11282: IF (p_commit = FND_API.G_TRUE) THEN
11283: ROLLBACK to update_struc_setup_attr_pvt;
11284: END IF;
11285: x_msg_count := FND_MSG_PUB.count_msg;
11286: x_return_status := FND_API.G_RET_STS_ERROR;
11287: WHEN OTHERS THEN
11288: IF (p_commit = FND_API.G_TRUE) THEN
11289: ROLLBACK to update_struc_setup_attr_pvt;
11288: IF (p_commit = FND_API.G_TRUE) THEN
11289: ROLLBACK to update_struc_setup_attr_pvt;
11290: END IF;
11291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11292: x_msg_count := FND_MSG_PUB.count_msg;
11293: --put message
11294: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11295: p_procedure_name => 'update_structures_setup_attr',
11296: p_error_text => SUBSTRB(SQLERRM,1,240));
11290: END IF;
11291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11292: x_msg_count := FND_MSG_PUB.count_msg;
11293: --put message
11294: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11295: p_procedure_name => 'update_structures_setup_attr',
11296: p_error_text => SUBSTRB(SQLERRM,1,240));
11297: RAISE;
11298: END update_structures_setup_old;
11454: x_msg_count => l_msg_count,
11455: x_msg_data => l_msg_data
11456: );
11457: --Check if there is any error.
11458: l_msg_count := FND_MSG_PUB.count_msg;
11459: IF l_msg_count > 0 THEN
11460: x_msg_count := l_msg_count;
11461: IF x_msg_count = 1 THEN
11462: x_msg_data := l_msg_data;
11482: x_msg_data => l_msg_data
11483: );
11484:
11485: --Check if there is any error.
11486: l_msg_count := FND_MSG_PUB.count_msg;
11487: IF l_msg_count > 0 THEN
11488: x_msg_count := l_msg_count;
11489: IF x_msg_count = 1 THEN
11490: x_msg_data := l_msg_data;
11557: ,x_msg_data => l_msg_data
11558: );
11559:
11560: --Check if there is any error.
11561: l_msg_count := FND_MSG_PUB.count_msg;
11562: IF l_msg_count > 0 THEN
11563: x_msg_count := l_msg_count;
11564: IF x_msg_count = 1 THEN
11565: x_msg_data := l_msg_data;
11601: x_msg_count => l_msg_count,
11602: x_msg_data => l_msg_data);
11603:
11604: --Check if there is any error.
11605: l_msg_count := FND_MSG_PUB.count_msg;
11606: IF l_msg_count > 0 THEN
11607: x_msg_count := l_msg_count;
11608: IF x_msg_count = 1 THEN
11609: x_msg_data := l_msg_data;
11626: WHEN FND_API.G_EXC_ERROR THEN
11627: IF (p_commit = FND_API.G_TRUE) THEN
11628: ROLLBACK to update_wp_versioning_pvt;
11629: END IF;
11630: x_msg_count := FND_MSG_PUB.count_msg;
11631: x_return_status := FND_API.G_RET_STS_ERROR;
11632: WHEN OTHERS THEN
11633: IF (p_commit = FND_API.G_TRUE) THEN
11634: ROLLBACK to update_wp_versioning_pvt;
11633: IF (p_commit = FND_API.G_TRUE) THEN
11634: ROLLBACK to update_wp_versioning_pvt;
11635: END IF;
11636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11637: x_msg_count := FND_MSG_PUB.count_msg;
11638: --put message
11639: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11640: p_procedure_name => 'update_workplan_versioning',
11641: p_error_text => SUBSTRB(SQLERRM,1,240));
11635: END IF;
11636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11637: x_msg_count := FND_MSG_PUB.count_msg;
11638: --put message
11639: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11640: p_procedure_name => 'update_workplan_versioning',
11641: p_error_text => SUBSTRB(SQLERRM,1,240));
11642: RAISE;
11643: END update_workplan_versioning;
11775: ,x_msg_data => l_msg_data
11776: );
11777:
11778: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11779: x_msg_count := FND_MSG_PUB.count_msg;
11780: if x_msg_count = 1 then
11781: x_msg_data := l_msg_data;
11782: end if;
11783: raise FND_API.G_EXC_ERROR;
11806: ,x_msg_data => l_msg_data
11807: );
11808:
11809: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11810: x_msg_count := FND_MSG_PUB.count_msg;
11811: if x_msg_count = 1 then
11812: x_msg_data := l_msg_data;
11813: end if;
11814: raise FND_API.G_EXC_ERROR;
11836: ,x_msg_data => l_msg_data
11837: );
11838:
11839: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11840: x_msg_count := FND_MSG_PUB.count_msg;
11841: if x_msg_count = 1 then
11842: x_msg_data := l_msg_data;
11843: end if;
11844: raise FND_API.G_EXC_ERROR;
11880: ,x_msg_data => l_msg_data
11881: );
11882:
11883: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11884: x_msg_count := FND_MSG_PUB.count_msg;
11885: if x_msg_count = 1 then
11886: x_msg_data := l_msg_data;
11887: end if;
11888: raise FND_API.G_EXC_ERROR;
11925: ,x_msg_data => l_msg_data
11926: );
11927:
11928: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11929: x_msg_count := FND_MSG_PUB.count_msg;
11930: if x_msg_count = 1 then
11931: x_msg_data := l_msg_data;
11932: end if;
11933: raise FND_API.G_EXC_ERROR;
11942: ,x_msg_data => l_msg_data
11943: );
11944:
11945: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11946: x_msg_count := FND_MSG_PUB.count_msg;
11947: if x_msg_count = 1 then
11948: x_msg_data := l_msg_data;
11949: end if;
11950: raise FND_API.G_EXC_ERROR;
11964: WHEN FND_API.G_EXC_ERROR THEN
11965: IF (p_commit = FND_API.G_TRUE) THEN
11966: ROLLBACK to update_wp_calendar;
11967: END IF;
11968: x_msg_count := FND_MSG_PUB.count_msg;
11969: x_return_status := FND_API.G_RET_STS_ERROR;
11970: WHEN OTHERS THEN
11971: IF (p_commit = FND_API.G_TRUE) THEN
11972: ROLLBACK to update_wp_calendar;
11971: IF (p_commit = FND_API.G_TRUE) THEN
11972: ROLLBACK to update_wp_calendar;
11973: END IF;
11974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11975: x_msg_count := FND_MSG_PUB.count_msg;
11976: --put message
11977: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11978: p_procedure_name => 'Update_wp_calendar',
11979: p_error_text => SUBSTRB(SQLERRM,1,240));
11973: END IF;
11974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11975: x_msg_count := FND_MSG_PUB.count_msg;
11976: --put message
11977: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11978: p_procedure_name => 'Update_wp_calendar',
11979: p_error_text => SUBSTRB(SQLERRM,1,240));
11980: RAISE;
11981: END update_wp_calendar;
12040: IF (p_commit = FND_API.G_TRUE) THEN
12041: ROLLBACK to update_all_wp_calendar;
12042: END IF;
12043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12044: x_msg_count := FND_MSG_PUB.count_msg;
12045: --put message
12046: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12047: p_procedure_name => 'Update_all_wp_calendar',
12048: p_error_text => SUBSTRB(SQLERRM,1,240));
12042: END IF;
12043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12044: x_msg_count := FND_MSG_PUB.count_msg;
12045: --put message
12046: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12047: p_procedure_name => 'Update_all_wp_calendar',
12048: p_error_text => SUBSTRB(SQLERRM,1,240));
12049: RAISE;
12050: END UPDATE_ALL_WP_CALENDAR;
12137: ,x_msg_data => l_msg_data
12138: );
12139:
12140: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
12141: x_msg_count := FND_MSG_PUB.count_msg;
12142: if x_msg_count = 1 then
12143: x_msg_data := l_msg_data;
12144: end if;
12145: raise FND_API.G_EXC_ERROR;
12169: ,x_msg_data => l_msg_data
12170: );
12171:
12172: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
12173: x_msg_count := FND_MSG_PUB.count_msg;
12174: if x_msg_count = 1 then
12175: x_msg_data := l_msg_data;
12176: end if;
12177: raise FND_API.G_EXC_ERROR;
12200: ,x_msg_data => l_msg_data
12201: );
12202:
12203: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
12204: x_msg_count := FND_MSG_PUB.count_msg;
12205: if x_msg_count = 1 then
12206: x_msg_data := l_msg_data;
12207: end if;
12208: raise FND_API.G_EXC_ERROR;
12225: WHEN FND_API.G_EXC_ERROR THEN
12226: IF (p_commit = FND_API.G_TRUE) THEN
12227: ROLLBACK to RECALC_STRUC_VER_DURATION;
12228: END IF;
12229: x_msg_count := FND_MSG_PUB.count_msg;
12230: x_return_status := FND_API.G_RET_STS_ERROR;
12231: WHEN OTHERS THEN
12232: IF (p_commit = FND_API.G_TRUE) THEN
12233: ROLLBACK to RECALC_STRUC_VER_DURATION;
12232: IF (p_commit = FND_API.G_TRUE) THEN
12233: ROLLBACK to RECALC_STRUC_VER_DURATION;
12234: END IF;
12235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12236: x_msg_count := FND_MSG_PUB.count_msg;
12237: --put message
12238: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12239: p_procedure_name => 'RECALC_STRUC_VER_DURATION',
12240: p_error_text => SUBSTRB(SQLERRM,1,240));
12234: END IF;
12235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12236: x_msg_count := FND_MSG_PUB.count_msg;
12237: --put message
12238: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12239: p_procedure_name => 'RECALC_STRUC_VER_DURATION',
12240: p_error_text => SUBSTRB(SQLERRM,1,240));
12241: RAISE;
12242: END RECALC_STRUC_VER_DURATION;
12383: x_msg_count => l_msg_count,
12384: x_msg_data => l_msg_data);
12385:
12386: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12387: x_msg_count := FND_MSG_PUB.count_msg;
12388: IF x_msg_count = 1 then
12389: pa_interface_utils_pub.get_messages
12390: (p_encoded => FND_API.G_TRUE,
12391: p_msg_index => 1,
12420: END IF;
12421:
12422: --check for errors.
12423: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12424: x_msg_count := FND_MSG_PUB.count_msg;
12425: IF x_msg_count = 1 then
12426: pa_interface_utils_pub.get_messages
12427: (p_encoded => FND_API.G_TRUE,
12428: p_msg_index => 1,
12447: x_return_status => l_return_status,
12448: x_msg_count => l_msg_count,
12449: x_msg_data => l_msg_data);
12450: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12451: x_msg_count := FND_MSG_PUB.count_msg;
12452: IF x_msg_count = 1 then
12453: pa_interface_utils_pub.get_messages
12454: (p_encoded => FND_API.G_TRUE,
12455: p_msg_index => 1,
12477: x_msg_count => l_msg_count,
12478: x_msg_data => l_msg_data);
12479:
12480: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12481: x_msg_count := FND_MSG_PUB.count_msg;
12482: IF x_msg_count = 1 then
12483: pa_interface_utils_pub.get_messages
12484: (p_encoded => FND_API.G_TRUE,
12485: p_msg_index => 1,
12520: );
12521:
12522: --Check error
12523: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12524: x_msg_count := FND_MSG_PUB.count_msg;
12525: IF x_msg_count = 1 then
12526: pa_interface_utils_pub.get_messages
12527: (p_encoded => FND_API.G_TRUE,
12528: p_msg_index => 1,
12545: );
12546:
12547: --Check error
12548: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12549: x_msg_count := FND_MSG_PUB.count_msg;
12550: IF x_msg_count = 1 then
12551: pa_interface_utils_pub.get_messages
12552: (p_encoded => FND_API.G_TRUE,
12553: p_msg_index => 1,
12575: CLOSE is_last_version;
12576:
12577: --Check error
12578: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12579: x_msg_count := FND_MSG_PUB.count_msg;
12580: IF x_msg_count = 1 then
12581: pa_interface_utils_pub.get_messages
12582: (p_encoded => FND_API.G_TRUE,
12583: p_msg_index => 1,
12598: when FND_API.G_EXC_ERROR then
12599: if p_commit = FND_API.G_TRUE then
12600: rollback to delete_struc_ver_wo_val;
12601: end if;
12602: x_msg_count := FND_MSG_PUB.count_msg;
12603: x_return_status := FND_API.G_RET_STS_ERROR;
12604: when FND_API.G_EXC_UNEXPECTED_ERROR then
12605: if p_commit = FND_API.G_TRUE then
12606: rollback to delete_struc_ver_wo_val;
12605: if p_commit = FND_API.G_TRUE then
12606: rollback to delete_struc_ver_wo_val;
12607: end if;
12608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12609: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12610: p_procedure_name => 'Delete_Struc_Ver_Wo_Val',
12611: p_error_text => SUBSTRB(SQLERRM,1,240));
12612: when OTHERS then
12613: if p_commit = FND_API.G_TRUE then
12613: if p_commit = FND_API.G_TRUE then
12614: rollback to delete_struc_ver_wo_val;
12615: end if;
12616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12617: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12618: p_procedure_name => 'Delete_Struc_Ver_Wo_Val',
12619: p_error_text => SUBSTRB(SQLERRM,1,240));
12620: raise;
12621: END DELETE_STRUC_VER_WO_VAL;
13020:
13021: EXCEPTION
13022: when FND_API.G_EXC_ERROR then
13023: ROLLBACK;
13024: x_msg_count := FND_MSG_PUB.count_msg;
13025: x_return_status := FND_API.G_RET_STS_ERROR;
13026: when OTHERS then
13027: ROLLBACK;
13028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13025: x_return_status := FND_API.G_RET_STS_ERROR;
13026: when OTHERS then
13027: ROLLBACK;
13028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13029: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13030: p_procedure_name => 'Generate_Error_Page',
13031: p_error_text => SUBSTRB(SQLERRM,1,240));
13032: raise;
13033: END Generate_Error_Page;
13216:
13217: EXCEPTION
13218: WHEN OTHERS THEN
13219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13220: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13221: p_procedure_name => 'RECALC_FIN_TASK_WEIGHTS',
13222: p_error_text => SUBSTRB(SQLERRM,1,240));
13223: END RECALC_FIN_TASK_WEIGHTS;
13224:
13469: END IF;
13470:
13471:
13472: --Check if there is any error.
13473: l_msg_count := FND_MSG_PUB.count_msg;
13474: IF l_msg_count > 0 THEN
13475: x_msg_count := l_msg_count;
13476: IF x_msg_count = 1 THEN
13477: x_msg_data := l_msg_data;
13510: pa_debug.debug('l_pev_structure_id: ' || l_pev_structure_id);
13511: END IF;
13512:
13513: --Check if there is any error.
13514: l_msg_count := FND_MSG_PUB.count_msg;
13515: IF l_msg_count > 0 THEN
13516: x_msg_count := l_msg_count;
13517: IF x_msg_count = 1 THEN
13518: x_msg_data := l_msg_data;
13595: pa_debug.debug('l_pev_schedule_id: ' || l_pev_schedule_id);
13596: END IF;
13597:
13598: --Check if there is any error.
13599: l_msg_count := FND_MSG_PUB.count_msg;
13600: IF l_msg_count > 0 THEN
13601: x_msg_count := l_msg_count;
13602: IF x_msg_count = 1 THEN
13603: x_msg_data := l_msg_data;
13957: x_return_status => X_Return_Status,
13958: x_msg_count => X_Msg_Count,
13959: x_msg_data => X_Msg_Data);
13960: IF (X_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
13961: x_msg_count := FND_MSG_PUB.count_msg;
13962: IF x_msg_count = 1 then
13963: pa_interface_utils_pub.get_messages
13964: (p_encoded => FND_API.G_TRUE,
13965: p_msg_index => 1,
13991: RAISE FND_API.G_EXC_ERROR;
13992: END IF;
13993: EXCEPTION
13994: WHEN OTHERS THEN
13995: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13996: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
13997: p_error_text => SUBSTRB('PA_PROJ_STRUC_MAPPING_PUB.copy_mapping:'||SQLERRM,1,240));
13998: RAISE FND_API.G_EXC_ERROR;
13999: END;
14030: ,x_Msg_data => x_msg_data
14031: );
14032: EXCEPTION
14033: WHEN OTHERS THEN
14034: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
14035: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
14036: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
14037: RAISE FND_API.G_EXC_ERROR;
14038: END;
14077: if p_commit = FND_API.G_TRUE then
14078: rollback to copy_structure_version_pvt_blk;
14079: end if;
14080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14081: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
14082: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
14083: p_error_text => SUBSTRB(SQLERRM,1,240));
14084: when OTHERS then
14085: if p_commit = FND_API.G_TRUE then
14085: if p_commit = FND_API.G_TRUE then
14086: rollback to copy_structure_version_pvt_blk;
14087: end if;
14088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14089: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
14090: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
14091: p_error_text => SUBSTRB(SQLERRM,1,240));
14092: raise;
14093: END COPY_STRUCTURE_VERSION_BULK;
14153: x_return_status := l_return_status;
14154: EXCEPTION
14155: WHEN OTHERS THEN
14156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14157: x_msg_count := FND_MSG_PUB.count_msg;
14158: --put message
14159: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
14160: p_procedure_name => 'update_sch_dirty_flag',
14161: p_error_text => SUBSTRB(SQLERRM,1,240));
14155: WHEN OTHERS THEN
14156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14157: x_msg_count := FND_MSG_PUB.count_msg;
14158: --put message
14159: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
14160: p_procedure_name => 'update_sch_dirty_flag',
14161: p_error_text => SUBSTRB(SQLERRM,1,240));
14162: RAISE;
14163: END update_sch_dirty_flag;
14660: ,x_msg_count => l_msg_count
14661: ,x_msg_data => l_msg_data);
14662:
14663: --Check if there is any error.
14664: l_msg_count := FND_MSG_PUB.count_msg;
14665: IF l_msg_count > 0 THEN
14666: x_msg_count := l_msg_count;
14667: IF x_msg_count = 1 THEN
14668: x_msg_data := l_msg_data;
14679: ,x_msg_count => l_msg_count
14680: ,x_msg_data => l_msg_data);
14681:
14682: --Check if there is any error.
14683: l_msg_count := FND_MSG_PUB.count_msg;
14684: IF l_msg_count > 0 THEN
14685: x_msg_count := l_msg_count;
14686: IF x_msg_count = 1 THEN
14687: x_msg_data := l_msg_data;
14698: ,x_msg_count => l_msg_count
14699: ,x_msg_data => l_msg_data );
14700:
14701: --Check if there is any error.
14702: l_msg_count := FND_MSG_PUB.count_msg;
14703: IF l_msg_count > 0 THEN
14704: x_msg_count := l_msg_count;
14705: IF x_msg_count = 1 THEN
14706: x_msg_data := l_msg_data;
14737: ,x_msg_count => l_msg_count
14738: ,x_msg_data => l_msg_data );
14739:
14740: --Check if there is any error.
14741: l_msg_count := FND_MSG_PUB.count_msg;
14742: IF l_msg_count > 0 THEN
14743: x_msg_count := l_msg_count;
14744: IF x_msg_count = 1 THEN
14745: x_msg_data := l_msg_data;
14761: ,x_msg_count => l_msg_count
14762: ,x_msg_data => l_msg_data );
14763:
14764: --Check if there is any error.
14765: l_msg_count := FND_MSG_PUB.count_msg;
14766: IF l_msg_count > 0 THEN
14767: x_msg_count := l_msg_count;
14768: IF x_msg_count = 1 THEN
14769: x_msg_data := l_msg_data;
14779: ,x_msg_count => l_msg_count
14780: ,x_msg_data => l_msg_data );
14781:
14782: --Check if there is any error.
14783: l_msg_count := FND_MSG_PUB.count_msg;
14784: IF l_msg_count > 0 THEN
14785: x_msg_count := l_msg_count;
14786: IF x_msg_count = 1 THEN
14787: x_msg_data := l_msg_data;
14798: ,x_msg_count => l_msg_count
14799: ,x_msg_data => l_msg_data);
14800:
14801: --Check if there is any error.
14802: l_msg_count := FND_MSG_PUB.count_msg;
14803: IF l_msg_count > 0 THEN
14804: x_msg_count := l_msg_count;
14805: IF x_msg_count = 1 THEN
14806: x_msg_data := l_msg_data;
14837: ,x_msg_count => l_msg_count
14838: ,x_msg_data => l_msg_data );
14839:
14840: --Check if there is any error.
14841: l_msg_count := FND_MSG_PUB.count_msg;
14842: IF l_msg_count > 0 THEN
14843: x_msg_count := l_msg_count;
14844: IF x_msg_count = 1 THEN
14845: x_msg_data := l_msg_data;
14861: ,x_msg_count => l_msg_count
14862: ,x_msg_data => l_msg_data );
14863:
14864: --Check if there is any error.
14865: l_msg_count := FND_MSG_PUB.count_msg;
14866: IF l_msg_count > 0 THEN
14867: x_msg_count := l_msg_count;
14868: IF x_msg_count = 1 THEN
14869: x_msg_data := l_msg_data;
14879: ,x_msg_count => l_msg_count
14880: ,x_msg_data => l_msg_data );
14881:
14882: --Check if there is any error.
14883: l_msg_count := FND_MSG_PUB.count_msg;
14884: IF l_msg_count > 0 THEN
14885: x_msg_count := l_msg_count;
14886: IF x_msg_count = 1 THEN
14887: x_msg_data := l_msg_data;
14898: ,x_msg_count => l_msg_count
14899: ,x_msg_data => l_msg_data);
14900:
14901: --Check if there is any error.
14902: l_msg_count := FND_MSG_PUB.count_msg;
14903: IF l_msg_count > 0 THEN
14904: x_msg_count := l_msg_count;
14905: IF x_msg_count = 1 THEN
14906: x_msg_data := l_msg_data;
14937: ,x_msg_count => l_msg_count
14938: ,x_msg_data => l_msg_data );
14939:
14940: --Check if there is any error.
14941: l_msg_count := FND_MSG_PUB.count_msg;
14942: IF l_msg_count > 0 THEN
14943: x_msg_count := l_msg_count;
14944: IF x_msg_count = 1 THEN
14945: x_msg_data := l_msg_data;
15022: ,x_msg_count => l_msg_count
15023: ,x_msg_data => l_msg_data);
15024:
15025: --Check if there is any error.
15026: l_msg_count := FND_MSG_PUB.count_msg;
15027: IF l_msg_count > 0 THEN
15028: x_msg_count := l_msg_count;
15029: IF x_msg_count = 1 THEN
15030: x_msg_data := l_msg_data;
15041: ,x_msg_count => l_msg_count
15042: ,x_msg_data => l_msg_data);
15043:
15044: --Check if there is any error.
15045: l_msg_count := FND_MSG_PUB.count_msg;
15046: IF l_msg_count > 0 THEN
15047: x_msg_count := l_msg_count;
15048: IF x_msg_count = 1 THEN
15049: x_msg_data := l_msg_data;
15060: ,x_msg_count => l_msg_count
15061: ,x_msg_data => l_msg_data );
15062:
15063: --Check if there is any error.
15064: l_msg_count := FND_MSG_PUB.count_msg;
15065: IF l_msg_count > 0 THEN
15066: x_msg_count := l_msg_count;
15067: IF x_msg_count = 1 THEN
15068: x_msg_data := l_msg_data;
15099: ,x_msg_count => l_msg_count
15100: ,x_msg_data => l_msg_data );
15101:
15102: --Check if there is any error.
15103: l_msg_count := FND_MSG_PUB.count_msg;
15104: IF l_msg_count > 0 THEN
15105: x_msg_count := l_msg_count;
15106: IF x_msg_count = 1 THEN
15107: x_msg_data := l_msg_data;
15121: ,x_msg_count => l_msg_count
15122: ,x_msg_data => l_msg_data );
15123:
15124: --Check if there is any error.
15125: l_msg_count := FND_MSG_PUB.count_msg;
15126: IF l_msg_count > 0 THEN
15127: x_msg_count := l_msg_count;
15128: IF x_msg_count = 1 THEN
15129: x_msg_data := l_msg_data;
15139: ,x_msg_count => l_msg_count
15140: ,x_msg_data => l_msg_data );
15141:
15142: --Check if there is any error.
15143: l_msg_count := FND_MSG_PUB.count_msg;
15144: IF l_msg_count > 0 THEN
15145: x_msg_count := l_msg_count;
15146: IF x_msg_count = 1 THEN
15147: x_msg_data := l_msg_data;
15158: ,x_msg_count => l_msg_count
15159: ,x_msg_data => l_msg_data);
15160:
15161: --Check if there is any error.
15162: l_msg_count := FND_MSG_PUB.count_msg;
15163: IF l_msg_count > 0 THEN
15164: x_msg_count := l_msg_count;
15165: IF x_msg_count = 1 THEN
15166: x_msg_data := l_msg_data;
15197: ,x_msg_count => l_msg_count
15198: ,x_msg_data => l_msg_data );
15199:
15200: --Check if there is any error.
15201: l_msg_count := FND_MSG_PUB.count_msg;
15202: IF l_msg_count > 0 THEN
15203: x_msg_count := l_msg_count;
15204: IF x_msg_count = 1 THEN
15205: x_msg_data := l_msg_data;
15227: ,x_msg_count => l_msg_count
15228: ,x_msg_data => l_msg_data);
15229:
15230: --Check if there is any error.
15231: l_msg_count := FND_MSG_PUB.count_msg;
15232: IF l_msg_count > 0 THEN
15233: x_msg_count := l_msg_count;
15234: IF x_msg_count = 1 THEN
15235: x_msg_data := l_msg_data;
15250: ,x_msg_count => l_msg_count
15251: ,x_msg_data => l_msg_data);
15252:
15253: --Check if there is any error.
15254: l_msg_count := FND_MSG_PUB.count_msg;
15255: IF l_msg_count > 0 THEN
15256: x_msg_count := l_msg_count;
15257: IF x_msg_count = 1 THEN
15258: x_msg_data := l_msg_data;
15272: ,x_msg_count => l_msg_count
15273: ,x_msg_data => l_msg_data );
15274:
15275: --Check if there is any error.
15276: l_msg_count := FND_MSG_PUB.count_msg;
15277: IF l_msg_count > 0 THEN
15278: x_msg_count := l_msg_count;
15279: IF x_msg_count = 1 THEN
15280: x_msg_data := l_msg_data;
15290: ,x_msg_count => l_msg_count
15291: ,x_msg_data => l_msg_data );
15292:
15293: --Check if there is any error.
15294: l_msg_count := FND_MSG_PUB.count_msg;
15295: IF l_msg_count > 0 THEN
15296: x_msg_count := l_msg_count;
15297: IF x_msg_count = 1 THEN
15298: x_msg_data := l_msg_data;
15309: ,x_msg_count => l_msg_count
15310: ,x_msg_data => l_msg_data);
15311:
15312: --Check if there is any error.
15313: l_msg_count := FND_MSG_PUB.count_msg;
15314: IF l_msg_count > 0 THEN
15315: x_msg_count := l_msg_count;
15316: IF x_msg_count = 1 THEN
15317: x_msg_data := l_msg_data;
15348: ,x_msg_count => l_msg_count
15349: ,x_msg_data => l_msg_data );
15350:
15351: --Check if there is any error.
15352: l_msg_count := FND_MSG_PUB.count_msg;
15353: IF l_msg_count > 0 THEN
15354: x_msg_count := l_msg_count;
15355: IF x_msg_count = 1 THEN
15356: x_msg_data := l_msg_data;
15407: ,x_msg_count => x_msg_count
15408: ,x_msg_data => x_msg_data);
15409:
15410: --Check if there is any error.
15411: l_msg_count := FND_MSG_PUB.count_msg;
15412: IF l_msg_count > 0 THEN
15413: x_msg_count := l_msg_count;
15414: IF x_msg_count = 1 THEN
15415: x_msg_data := l_msg_data;
15433: ,x_msg_count => x_msg_count
15434: ,x_Msg_data => x_msg_data);
15435: EXCEPTION
15436: WHEN OTHERS THEN
15437: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
15438: p_procedure_name => 'update_structures_setup_attr',
15439: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
15440: RAISE FND_API.G_EXC_ERROR;
15441: END;
15439: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
15440: RAISE FND_API.G_EXC_ERROR;
15441: END;
15442: --Check if there is any error.
15443: l_msg_count := FND_MSG_PUB.count_msg;
15444: IF l_msg_count > 0 THEN
15445: x_msg_count := l_msg_count;
15446: IF x_msg_count = 1 THEN
15447: x_msg_data := l_msg_data;
15514: x_msg_count => l_msg_count,
15515: x_msg_data => l_msg_data);
15516:
15517: --Check if there is any error.
15518: l_msg_count := FND_MSG_PUB.count_msg;
15519: IF l_msg_count > 0 THEN
15520: x_msg_count := l_msg_count;
15521: IF x_msg_count = 1 THEN
15522: x_msg_data := l_msg_data;
15560: , x_msg_count => l_msg_count
15561: , x_msg_data => l_msg_data
15562: , x_return_status => l_return_status);
15563:
15564: l_msg_count := FND_MSG_PUB.count_msg;
15565: IF l_msg_count > 0 THEN
15566: x_msg_count := l_msg_count;
15567: IF x_msg_count = 1 THEN
15568: x_msg_data := l_msg_data;
15652: ,x_msg_count => l_msg_count
15653: ,x_msg_data => l_msg_data );
15654:
15655: --Check if there is any error.
15656: l_msg_count := FND_MSG_PUB.count_msg;
15657: IF l_msg_count > 0 THEN
15658: x_msg_count := l_msg_count;
15659: IF x_msg_count = 1 THEN
15660: x_msg_data := l_msg_data;
15670: ,x_msg_count => l_msg_count
15671: ,x_msg_data => l_msg_data );
15672:
15673: --Check if there is any error.
15674: l_msg_count := FND_MSG_PUB.count_msg;
15675: IF l_msg_count > 0 THEN
15676: x_msg_count := l_msg_count;
15677: IF x_msg_count = 1 THEN
15678: x_msg_data := l_msg_data;
15689: ,x_msg_count => l_msg_count
15690: ,x_msg_data => l_msg_data);
15691:
15692: --Check if there is any error.
15693: l_msg_count := FND_MSG_PUB.count_msg;
15694: IF l_msg_count > 0 THEN
15695: x_msg_count := l_msg_count;
15696: IF x_msg_count = 1 THEN
15697: x_msg_data := l_msg_data;
15728: ,x_msg_count => l_msg_count
15729: ,x_msg_data => l_msg_data );
15730:
15731: --Check if there is any error.
15732: l_msg_count := FND_MSG_PUB.count_msg;
15733: IF l_msg_count > 0 THEN
15734: x_msg_count := l_msg_count;
15735: IF x_msg_count = 1 THEN
15736: x_msg_data := l_msg_data;
15804: ,x_msg_count => l_msg_count
15805: ,x_msg_data => l_msg_data);
15806:
15807: --Check if there is any error.
15808: l_msg_count := FND_MSG_PUB.count_msg;
15809: IF l_msg_count > 0 THEN
15810: x_msg_count := l_msg_count;
15811: IF x_msg_count = 1 THEN
15812: x_msg_data := l_msg_data;
15833: ,x_msg_count => l_msg_count
15834: ,x_msg_data => l_msg_data);
15835:
15836: --Check if there is any error.
15837: l_msg_count := FND_MSG_PUB.count_msg;
15838: IF l_msg_count > 0 THEN
15839: x_msg_count := l_msg_count;
15840: IF x_msg_count = 1 THEN
15841: x_msg_data := l_msg_data;
15852: ,x_msg_count => l_msg_count
15853: ,x_msg_data => l_msg_data);
15854:
15855: --Check if there is any error.
15856: l_msg_count := FND_MSG_PUB.count_msg;
15857: IF l_msg_count > 0 THEN
15858: x_msg_count := l_msg_count;
15859: IF x_msg_count = 1 THEN
15860: x_msg_data := l_msg_data;
15871: ,x_msg_count => l_msg_count
15872: ,x_msg_data => l_msg_data );
15873:
15874: --Check if there is any error.
15875: l_msg_count := FND_MSG_PUB.count_msg;
15876: IF l_msg_count > 0 THEN
15877: x_msg_count := l_msg_count;
15878: IF x_msg_count = 1 THEN
15879: x_msg_data := l_msg_data;
15910: ,x_msg_count => l_msg_count
15911: ,x_msg_data => l_msg_data );
15912:
15913: --Check if there is any error.
15914: l_msg_count := FND_MSG_PUB.count_msg;
15915: IF l_msg_count > 0 THEN
15916: x_msg_count := l_msg_count;
15917: IF x_msg_count = 1 THEN
15918: x_msg_data := l_msg_data;
16011: ,x_msg_count => l_msg_count
16012: ,x_msg_data => l_msg_data
16013: );
16014:
16015: l_msg_count := FND_MSG_PUB.count_msg;
16016: IF l_msg_count > 0 THEN
16017: x_msg_count := l_msg_count;
16018: IF x_msg_count = 1 THEN
16019: x_msg_data := l_msg_data;
16053: ,x_msg_count => l_msg_count
16054: ,x_msg_data => l_msg_data);
16055:
16056: --Check if there is any error.
16057: l_msg_count := FND_MSG_PUB.count_msg;
16058: IF l_msg_count > 0 THEN
16059: x_msg_count := l_msg_count;
16060: IF x_msg_count = 1 THEN
16061: x_msg_data := l_msg_data;
16139: ,x_msg_count => l_msg_count
16140: ,x_msg_data => l_msg_data);
16141:
16142: --Check if there is any error.
16143: l_msg_count := FND_MSG_PUB.count_msg;
16144: IF l_msg_count > 0 THEN
16145: x_msg_count := l_msg_count;
16146: IF x_msg_count = 1 THEN
16147: x_msg_data := l_msg_data;
16158: ,x_msg_count => l_msg_count
16159: ,x_msg_data => l_msg_data);
16160:
16161: --Check if there is any error.
16162: l_msg_count := FND_MSG_PUB.count_msg;
16163: IF l_msg_count > 0 THEN
16164: x_msg_count := l_msg_count;
16165: IF x_msg_count = 1 THEN
16166: x_msg_data := l_msg_data;
16177: ,x_msg_count => l_msg_count
16178: ,x_msg_data => l_msg_data );
16179:
16180: --Check if there is any error.
16181: l_msg_count := FND_MSG_PUB.count_msg;
16182: IF l_msg_count > 0 THEN
16183: x_msg_count := l_msg_count;
16184: IF x_msg_count = 1 THEN
16185: x_msg_data := l_msg_data;
16216: ,x_msg_count => l_msg_count
16217: ,x_msg_data => l_msg_data );
16218:
16219: --Check if there is any error.
16220: l_msg_count := FND_MSG_PUB.count_msg;
16221: IF l_msg_count > 0 THEN
16222: x_msg_count := l_msg_count;
16223: IF x_msg_count = 1 THEN
16224: x_msg_data := l_msg_data;
16319: x_msg_data => x_msg_data
16320: );
16321: EXCEPTION
16322: WHEN OTHERS THEN
16323: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
16324: p_procedure_name => 'update_structures_setup_attr',
16325: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_options :'||SQLERRM,1,240));
16326: RAISE FND_API.G_EXC_ERROR;
16327: END;
16324: p_procedure_name => 'update_structures_setup_attr',
16325: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_options :'||SQLERRM,1,240));
16326: RAISE FND_API.G_EXC_ERROR;
16327: END;
16328: l_msg_count := FND_MSG_PUB.count_msg;
16329: IF l_msg_count > 0 THEN
16330: x_msg_count := l_msg_count;
16331: IF x_msg_count = 1 THEN
16332: x_msg_data := l_msg_data;
16380: ,x_return_status => l_return_status
16381: ,x_msg_count => l_msg_count
16382: ,x_msg_data => l_msg_data);
16383: --Check if there is any error.
16384: l_msg_count := FND_MSG_PUB.count_msg;
16385: IF l_msg_count > 0 THEN
16386: x_msg_count := l_msg_count;
16387: IF x_msg_count = 1 THEN
16388: x_msg_data := l_msg_data;
16405: ,x_msg_data => l_msg_data
16406: );
16407:
16408: --Check if there is any error.
16409: l_msg_count := FND_MSG_PUB.count_msg;
16410: IF l_msg_count > 0 THEN
16411: x_msg_count := l_msg_count;
16412: IF x_msg_count = 1 THEN
16413: x_msg_data := l_msg_data;
16510: x_msg_data=>l_msg_data);
16511: */
16512:
16513: --Check if there is any error.
16514: l_msg_count := FND_MSG_PUB.count_msg;
16515: IF l_msg_count > 0 THEN
16516: x_msg_count := l_msg_count;
16517: IF x_msg_count = 1 THEN
16518: x_msg_data := l_msg_data;
16551: ,x_msg_count => l_msg_count
16552: ,x_msg_data => l_msg_data );
16553:
16554: --Check if there is any error.
16555: l_msg_count := FND_MSG_PUB.count_msg;
16556: IF l_msg_count > 0 THEN
16557: x_msg_count := l_msg_count;
16558: IF x_msg_count = 1 THEN
16559: x_msg_data := l_msg_data;
16570: ,x_msg_count => l_msg_count
16571: ,x_msg_data => l_msg_data );
16572:
16573: --Check if there is any error.
16574: l_msg_count := FND_MSG_PUB.count_msg;
16575: IF l_msg_count > 0 THEN
16576: x_msg_count := l_msg_count;
16577: IF x_msg_count = 1 THEN
16578: x_msg_data := l_msg_data;
16589: ,x_msg_count => l_msg_count
16590: ,x_msg_data => l_msg_data);
16591:
16592: --Check if there is any error.
16593: l_msg_count := FND_MSG_PUB.count_msg;
16594: IF l_msg_count > 0 THEN
16595: x_msg_count := l_msg_count;
16596: IF x_msg_count = 1 THEN
16597: x_msg_data := l_msg_data;
16628: ,x_msg_count => l_msg_count
16629: ,x_msg_data => l_msg_data );
16630:
16631: --Check if there is any error.
16632: l_msg_count := FND_MSG_PUB.count_msg;
16633: IF l_msg_count > 0 THEN
16634: x_msg_count := l_msg_count;
16635: IF x_msg_count = 1 THEN
16636: x_msg_data := l_msg_data;
16663: ,x_msg_count => l_msg_count
16664: ,x_msg_data => l_msg_data);
16665:
16666: --Check if there is any error.
16667: l_msg_count := FND_MSG_PUB.count_msg;
16668: IF l_msg_count > 0 THEN
16669: x_msg_count := l_msg_count;
16670: IF x_msg_count = 1 THEN
16671: x_msg_data := l_msg_data;
16688: ,x_msg_count => l_msg_count
16689: ,x_msg_data => l_msg_data);
16690:
16691: --Check if there is any error.
16692: l_msg_count := FND_MSG_PUB.count_msg;
16693: IF l_msg_count > 0 THEN
16694: x_msg_count := l_msg_count;
16695: IF x_msg_count = 1 THEN
16696: x_msg_data := l_msg_data;
16748: ,x_msg_count => l_msg_count
16749: ,x_msg_data => l_msg_data);
16750:
16751: --Check if there is any error.
16752: l_msg_count := FND_MSG_PUB.count_msg;
16753: IF l_msg_count > 0 THEN
16754: x_msg_count := l_msg_count;
16755: IF x_msg_count = 1 THEN
16756: x_msg_data := l_msg_data;
16854: x_msg_data => x_msg_data
16855: );
16856: EXCEPTION
16857: WHEN OTHERS THEN
16858: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
16859: p_procedure_name => 'update_structures_setup_attr',
16860: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_option:'||SQLERRM,1,240));
16861: RAISE FND_API.G_EXC_ERROR;
16862: END;
16859: p_procedure_name => 'update_structures_setup_attr',
16860: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_option:'||SQLERRM,1,240));
16861: RAISE FND_API.G_EXC_ERROR;
16862: END;
16863: l_msg_count := FND_MSG_PUB.count_msg;
16864: IF l_msg_count > 0 THEN
16865: x_msg_count := l_msg_count;
16866: IF x_msg_count = 1 THEN
16867: x_msg_data := l_msg_data;
16915: ,x_return_status => l_return_status
16916: ,x_msg_count => l_msg_count
16917: ,x_msg_data => l_msg_data);
16918: --Check if there is any error.
16919: l_msg_count := FND_MSG_PUB.count_msg;
16920: IF l_msg_count > 0 THEN
16921: x_msg_count := l_msg_count;
16922: IF x_msg_count = 1 THEN
16923: x_msg_data := l_msg_data;
16940: ,x_msg_data => l_msg_data
16941: );
16942:
16943: --Check if there is any error.
16944: l_msg_count := FND_MSG_PUB.count_msg;
16945: IF l_msg_count > 0 THEN
16946: x_msg_count := l_msg_count;
16947: IF x_msg_count = 1 THEN
16948: x_msg_data := l_msg_data;
16976: x_msg_count=>l_msg_count,
16977: x_msg_data=>l_msg_data);
16978:
16979: --Check if there is any error.
16980: l_msg_count := FND_MSG_PUB.count_msg;
16981: IF l_msg_count > 0 THEN
16982: x_msg_count := l_msg_count;
16983: IF x_msg_count = 1 THEN
16984: x_msg_data := l_msg_data;
17016: ,x_msg_count => l_msg_count
17017: ,x_msg_data => l_msg_data );
17018:
17019: --Check if there is any error.
17020: l_msg_count := FND_MSG_PUB.count_msg;
17021: IF l_msg_count > 0 THEN
17022: x_msg_count := l_msg_count;
17023: IF x_msg_count = 1 THEN
17024: x_msg_data := l_msg_data;
17034: ,x_msg_count => l_msg_count
17035: ,x_msg_data => l_msg_data );
17036:
17037: --Check if there is any error.
17038: l_msg_count := FND_MSG_PUB.count_msg;
17039: IF l_msg_count > 0 THEN
17040: x_msg_count := l_msg_count;
17041: IF x_msg_count = 1 THEN
17042: x_msg_data := l_msg_data;
17053: ,x_msg_count => l_msg_count
17054: ,x_msg_data => l_msg_data);
17055:
17056: --Check if there is any error.
17057: l_msg_count := FND_MSG_PUB.count_msg;
17058: IF l_msg_count > 0 THEN
17059: x_msg_count := l_msg_count;
17060: IF x_msg_count = 1 THEN
17061: x_msg_data := l_msg_data;
17092: ,x_msg_count => l_msg_count
17093: ,x_msg_data => l_msg_data );
17094:
17095: --Check if there is any error.
17096: l_msg_count := FND_MSG_PUB.count_msg;
17097: IF l_msg_count > 0 THEN
17098: x_msg_count := l_msg_count;
17099: IF x_msg_count = 1 THEN
17100: x_msg_data := l_msg_data;
17128: ,x_msg_count => l_msg_count
17129: ,x_msg_data => l_msg_data);
17130:
17131: --Check if there is any error.
17132: l_msg_count := FND_MSG_PUB.count_msg;
17133: IF l_msg_count > 0 THEN
17134: x_msg_count := l_msg_count;
17135: IF x_msg_count = 1 THEN
17136: x_msg_data := l_msg_data;
17153: ,x_msg_count => l_msg_count
17154: ,x_msg_data => l_msg_data);
17155:
17156: --Check if there is any error.
17157: l_msg_count := FND_MSG_PUB.count_msg;
17158: IF l_msg_count > 0 THEN
17159: x_msg_count := l_msg_count;
17160: IF x_msg_count = 1 THEN
17161: x_msg_data := l_msg_data;
17187: ,x_msg_count => l_msg_count
17188: ,x_msg_data => l_msg_data);
17189:
17190: --Check if there is any error.
17191: l_msg_count := FND_MSG_PUB.count_msg;
17192: IF l_msg_count > 0 THEN
17193: x_msg_count := l_msg_count;
17194: IF x_msg_count = 1 THEN
17195: x_msg_data := l_msg_data;
17251: ,x_msg_count => l_msg_count
17252: ,x_msg_data => l_msg_data);
17253:
17254: --Check if there is any error.
17255: l_msg_count := FND_MSG_PUB.count_msg;
17256: IF l_msg_count > 0 THEN
17257: x_msg_count := l_msg_count;
17258: IF x_msg_count = 1 THEN
17259: x_msg_data := l_msg_data;
17274: ,x_msg_count => l_msg_count
17275: ,x_msg_data => l_msg_data);
17276:
17277: --Check if there is any error.
17278: l_msg_count := FND_MSG_PUB.count_msg;
17279: IF l_msg_count > 0 THEN
17280: x_msg_count := l_msg_count;
17281: IF x_msg_count = 1 THEN
17282: x_msg_data := l_msg_data;
17347: ,x_msg_data => l_msg_data
17348: );
17349:
17350: --Check if there is any error.
17351: l_msg_count := FND_MSG_PUB.count_msg;
17352: IF l_msg_count > 0 THEN
17353: x_msg_count := l_msg_count;
17354: IF x_msg_count = 1 THEN
17355: x_msg_data := l_msg_data;
17423: ,x_msg_count => x_msg_count
17424: ,x_Msg_data => x_msg_data);
17425: EXCEPTION
17426: WHEN OTHERS THEN
17427: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
17428: p_procedure_name => 'update_structures_setup_attr',
17429: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
17430: RAISE FND_API.G_EXC_ERROR;
17431: END;
17429: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
17430: RAISE FND_API.G_EXC_ERROR;
17431: END;
17432: --Check if there is any error.
17433: l_msg_count := FND_MSG_PUB.count_msg;
17434: IF l_msg_count > 0 THEN
17435: x_msg_count := l_msg_count;
17436: IF x_msg_count = 1 THEN
17437: x_msg_data := l_msg_data;
17503: x_msg_count => l_msg_count,
17504: x_msg_data => l_msg_data);
17505:
17506: --Check if there is any error.
17507: l_msg_count := FND_MSG_PUB.count_msg;
17508: IF l_msg_count > 0 THEN
17509: x_msg_count := l_msg_count;
17510: IF x_msg_count = 1 THEN
17511: x_msg_data := l_msg_data;
17514: END IF;
17515: END IF;
17516:
17517: --Check if there is any error.
17518: l_msg_count := FND_MSG_PUB.count_msg;
17519: IF l_msg_count > 0 THEN
17520: x_msg_count := l_msg_count;
17521: IF x_msg_count = 1 THEN
17522: x_msg_data := l_msg_data;
17572: ,x_msg_count => l_msg_count
17573: ,x_msg_data => l_msg_data);
17574:
17575: --Check if there is any error.
17576: l_msg_count := FND_MSG_PUB.count_msg;
17577: IF l_msg_count > 0 THEN
17578: x_msg_count := l_msg_count;
17579: IF x_msg_count = 1 THEN
17580: x_msg_data := l_msg_data;
17645: ,x_msg_count => l_msg_count
17646: ,x_msg_data => l_msg_data);
17647:
17648: --Check if there is any error.
17649: l_msg_count := FND_MSG_PUB.count_msg;
17650: IF l_msg_count > 0 THEN
17651: x_msg_count := l_msg_count;
17652: IF x_msg_count = 1 THEN
17653: x_msg_data := l_msg_data;
17668: ,x_msg_count => l_msg_count
17669: ,x_msg_data => l_msg_data);
17670:
17671: --Check if there is any error.
17672: l_msg_count := FND_MSG_PUB.count_msg;
17673: IF l_msg_count > 0 THEN
17674: x_msg_count := l_msg_count;
17675: IF x_msg_count = 1 THEN
17676: x_msg_data := l_msg_data;
17739: ,x_msg_data => l_msg_data
17740: );
17741:
17742: --Check if there is any error.
17743: l_msg_count := FND_MSG_PUB.count_msg;
17744: IF l_msg_count > 0 THEN
17745: x_msg_count := l_msg_count;
17746: IF x_msg_count = 1 THEN
17747: x_msg_data := l_msg_data;
17814: ,x_msg_count => x_msg_count
17815: ,x_Msg_data => x_msg_data);
17816: EXCEPTION
17817: WHEN OTHERS THEN
17818: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
17819: p_procedure_name => 'update_structures_setup_attr',
17820: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
17821: RAISE FND_API.G_EXC_ERROR;
17822: END;
17820: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
17821: RAISE FND_API.G_EXC_ERROR;
17822: END;
17823: --Check if there is any error.
17824: l_msg_count := FND_MSG_PUB.count_msg;
17825: IF l_msg_count > 0 THEN
17826: x_msg_count := l_msg_count;
17827: IF x_msg_count = 1 THEN
17828: x_msg_data := l_msg_data;
17895: x_msg_count => l_msg_count,
17896: x_msg_data => l_msg_data);
17897:
17898: --Check if there is any error.
17899: l_msg_count := FND_MSG_PUB.count_msg;
17900: IF l_msg_count > 0 THEN
17901: x_msg_count := l_msg_count;
17902: IF x_msg_count = 1 THEN
17903: x_msg_data := l_msg_data;
17906: END IF;
17907: END IF;
17908:
17909: --Check if there is any error.
17910: l_msg_count := FND_MSG_PUB.count_msg;
17911: IF l_msg_count > 0 THEN
17912: x_msg_count := l_msg_count;
17913: IF x_msg_count = 1 THEN
17914: x_msg_data := l_msg_data;
17976: ,x_msg_count => l_msg_count
17977: ,x_msg_data => l_msg_data );
17978:
17979: --Check if there is any error.
17980: l_msg_count := FND_MSG_PUB.count_msg;
17981: IF l_msg_count > 0 THEN
17982: x_msg_count := l_msg_count;
17983: IF x_msg_count = 1 THEN
17984: x_msg_data := l_msg_data;
18011: ,x_msg_count => l_msg_count
18012: ,x_msg_data => l_msg_data );
18013:
18014: --Check if there is any error.
18015: l_msg_count := FND_MSG_PUB.count_msg;
18016: IF l_msg_count > 0 THEN
18017: x_msg_count := l_msg_count;
18018: IF x_msg_count = 1 THEN
18019: x_msg_data := l_msg_data;
18029: ,x_msg_count => l_msg_count
18030: ,x_msg_data => l_msg_data );
18031:
18032: --Check if there is any error.
18033: l_msg_count := FND_MSG_PUB.count_msg;
18034: IF l_msg_count > 0 THEN
18035: x_msg_count := l_msg_count;
18036: IF x_msg_count = 1 THEN
18037: x_msg_data := l_msg_data;
18048: ,x_msg_count => l_msg_count
18049: ,x_msg_data => l_msg_data);
18050:
18051: --Check if there is any error.
18052: l_msg_count := FND_MSG_PUB.count_msg;
18053: IF l_msg_count > 0 THEN
18054: x_msg_count := l_msg_count;
18055: IF x_msg_count = 1 THEN
18056: x_msg_data := l_msg_data;
18087: ,x_msg_count => l_msg_count
18088: ,x_msg_data => l_msg_data );
18089:
18090: --Check if there is any error.
18091: l_msg_count := FND_MSG_PUB.count_msg;
18092: IF l_msg_count > 0 THEN
18093: x_msg_count := l_msg_count;
18094: IF x_msg_count = 1 THEN
18095: x_msg_data := l_msg_data;
18164: WHEN FND_API.G_EXC_ERROR THEN
18165: IF (p_commit = FND_API.G_TRUE) THEN
18166: ROLLBACK to update_struc_setup_attr_pvt;
18167: END IF;
18168: x_msg_count := FND_MSG_PUB.count_msg;
18169: x_return_status := FND_API.G_RET_STS_ERROR;
18170: WHEN OTHERS THEN
18171: IF (p_commit = FND_API.G_TRUE) THEN
18172: ROLLBACK to update_struc_setup_attr_pvt;
18171: IF (p_commit = FND_API.G_TRUE) THEN
18172: ROLLBACK to update_struc_setup_attr_pvt;
18173: END IF;
18174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18175: x_msg_count := FND_MSG_PUB.count_msg;
18176: --put message
18177: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
18178: p_procedure_name => 'update_structures_setup_attr',
18179: p_error_text => SUBSTRB(SQLERRM,1,240));
18173: END IF;
18174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18175: x_msg_count := FND_MSG_PUB.count_msg;
18176: --put message
18177: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
18178: p_procedure_name => 'update_structures_setup_attr',
18179: p_error_text => SUBSTRB(SQLERRM,1,240));
18180: RAISE;
18181: END update_structures_setup_attr;