[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;
2095: END IF;
2096: --end FPM bug 3301192
2097:
2098: --Check if there is any error.
2099: l_msg_count := FND_MSG_PUB.count_msg;
2100: -- IF p_calling_module = 'PA_UPD_WBS_ATTR_UN' THEN Commented for Bug 6372780
2101: IF l_msg_count > l_msg_count_int THEN
2102: x_msg_count := l_msg_count;
2103: IF x_msg_count = 1 THEN
2226: WHEN FND_API.G_EXC_ERROR THEN
2227: IF (p_commit = FND_API.G_TRUE) THEN
2228: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2229: END IF;
2230: x_msg_count := FND_MSG_PUB.count_msg;
2231: x_return_status := FND_API.G_RET_STS_ERROR;
2232: WHEN OTHERS THEN
2233: IF (p_commit = FND_API.G_TRUE) THEN
2234: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2233: IF (p_commit = FND_API.G_TRUE) THEN
2234: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2235: END IF;
2236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2237: x_msg_count := FND_MSG_PUB.count_msg;
2238: --put message
2239: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2240: p_procedure_name => 'Update_Structure_Version_Attr',
2241: p_error_text => SUBSTRB(SQLERRM,1,240));
2235: END IF;
2236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2237: x_msg_count := FND_MSG_PUB.count_msg;
2238: --put message
2239: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2240: p_procedure_name => 'Update_Structure_Version_Attr',
2241: p_error_text => SUBSTRB(SQLERRM,1,240));
2242: RAISE;
2243: END Update_Structure_Version_Attr;
2401: raise;
2402: END;
2403: END IF;
2404:
2405: l_msg_count := FND_MSG_PUB.count_msg;
2406: if l_msg_count > 0 then
2407: x_msg_count := l_msg_count;
2408: if x_msg_count = 1 then
2409: x_msg_data := l_msg_data;
2432: if p_commit = FND_API.G_TRUE then
2433: rollback to delete_structure_pvt;
2434: end if;
2435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2436: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2437: p_procedure_name => 'Delete_Structure',
2438: p_error_text => SUBSTRB(SQLERRM,1,240));
2439: raise;
2440: END Delete_Structure;
2558: END;
2559: END IF;
2560:
2561:
2562: l_msg_count := FND_MSG_PUB.count_msg;
2563: if l_msg_count > 0 then
2564: x_msg_count := l_msg_count;
2565: if x_msg_count = 1 then
2566: x_msg_data := l_msg_data;
2595: ,x_Msg_data => x_msg_data
2596: );
2597: EXCEPTION
2598: WHEN OTHERS THEN
2599: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2600: p_procedure_name => 'Delete_Structure_Version',
2601: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_budget_versions:'||SQLERRM,1,240));
2602: RAISE FND_API.G_EXC_ERROR;
2603: END;
2615: ,x_Msg_data => x_msg_data
2616: );
2617: EXCEPTION
2618: WHEN OTHERS THEN
2619: fnd_msg_pub.add_exc_msg(
2620: p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2621: p_procedure_name => 'Delete_Structure_Version',
2622: p_error_text => SUBSTRB('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
2623: RAISE FND_API.G_EXC_ERROR;
2695: if p_commit = FND_API.G_TRUE then
2696: rollback to delete_structure_version_pvt;
2697: end if;
2698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2699: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2700: p_procedure_name => 'Delete_Structure_Version',
2701: p_error_text => SUBSTRB(SQLERRM,1,240));
2702: raise;
2703: END DELETE_STRUCTURE_VERSION;
2830: raise;
2831: END;
2832: END IF;
2833:
2834: l_msg_count := FND_MSG_PUB.count_msg;
2835: if l_msg_count > 0 then
2836: x_msg_count := l_msg_count;
2837: if x_msg_count = 1 then
2838: x_msg_data := l_msg_data;
2886: if p_commit = FND_API.G_TRUE then
2887: rollback to delete_structure_ver_attr_pvt;
2888: end if;
2889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2890: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2891: p_procedure_name => 'Delete_Structure',
2892: p_error_text => SUBSTRB(SQLERRM,1,240));
2893: raise;
2894: END Delete_Structure_Version_Attr;
3398: -- x_msg_count => l_msg_count,
3399: -- x_msg_data => l_msg_data);
3400: --
3401: -- if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
3402: -- x_msg_count := FND_MSG_PUB.count_msg;
3403: -- if x_msg_count = 1 then
3404: -- x_msg_data := l_msg_data;
3405: -- end if;
3406: -- raise FND_API.G_EXC_ERROR;
3604: IF (p_debug_mode = 'Y') THEN
3605: pa_debug.debug('create structure version =>'||l_new_struct_ver_id);
3606: END IF;
3607:
3608: l_msg_count := FND_MSG_PUB.count_msg;
3609: if l_msg_count > 0 then
3610: x_msg_count := l_msg_count;
3611: if x_msg_count = 1 then
3612: x_msg_data := l_msg_data;
3632: -- ,x_msg_count => l_msg_count
3633: -- ,x_msg_data => l_msg_data
3634: -- );
3635: --
3636: -- l_msg_count := FND_MSG_PUB.count_msg;
3637: -- if l_msg_count > 0 then
3638: -- x_msg_count := l_msg_count;
3639: -- if x_msg_count = 1 then
3640: -- x_msg_data := l_msg_data;
3719: -- pa_debug.debug('update incoming links for struct =>'||l_return_status);
3720: -- END IF;
3721: --
3722: -- --Check error
3723: -- l_msg_count := FND_MSG_PUB.count_msg;
3724: -- if (l_msg_count > 0) then
3725: -- x_msg_count := l_msg_count;
3726: -- if x_msg_count = 1 then
3727: -- x_msg_data := l_msg_data;
3824: -- pa_debug.debug('update outgoing links for struct =>'||l_return_status);
3825: -- END IF;
3826: -- END IF;
3827: -- --Check error
3828: -- l_msg_count := FND_MSG_PUB.count_msg;
3829: -- if (l_msg_count > 0) then
3830: -- x_msg_count := l_msg_count;
3831: -- if x_msg_count = 1 then
3832: -- x_msg_data := l_msg_data;
4110: --dbms_output.put_line('new task version id = '||l_task_version_id);
4111:
4112: -- error_msg('done create_task_version '||l_msg_count||', '||l_msg_data);
4113: --Check if there is any error.
4114: l_msg_count := FND_MSG_PUB.count_msg;
4115: IF l_msg_count > 0 THEN
4116: x_msg_count := l_msg_count;
4117: IF x_msg_count = 1 THEN
4118: x_msg_data := l_msg_data;
4148: -- );
4149: -- error_msg('update latest published links');
4150:
4151: --Check if there is any error.
4152: -- l_msg_count := FND_MSG_PUB.count_msg;
4153: -- IF l_msg_count > 0 THEN
4154: -- x_msg_count := l_msg_count;
4155: -- IF x_msg_count = 1 THEN
4156: -- x_msg_data := l_msg_data;
4224: -- CLOSE get_task_version_info;
4225: -- END IF;
4226: --
4227: -- --Check error
4228: -- l_msg_count := FND_MSG_PUB.count_msg;
4229: -- if (l_msg_count > 0) then
4230: -- x_msg_count := l_msg_count;
4231: -- if x_msg_count = 1 then
4232: -- x_msg_data := l_msg_data;
4322: --
4323: -- END IF;
4324: --
4325: --Check error
4326: -- l_msg_count := FND_MSG_PUB.count_msg;
4327: -- if (l_msg_count > 0) then
4328: -- x_msg_count := l_msg_count;
4329: -- if x_msg_count = 1 then
4330: -- x_msg_data := l_msg_data;
4447: ,X_SOURCE_OBJECT_TYPE => 'PA_PROJECTS'
4448: );
4449:
4450: --Check if there is any error.
4451: l_msg_count := FND_MSG_PUB.count_msg;
4452: IF l_msg_count > 0 THEN
4453: x_msg_count := l_msg_count;
4454: IF x_msg_count = 1 THEN
4455: x_msg_data := l_msg_data;
4498: ,x_msg_data => l_msg_data
4499: );
4500:
4501: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
4502: x_msg_count := FND_MSG_PUB.count_msg;
4503: if x_msg_count = 1 then
4504: x_msg_data := l_msg_data;
4505: end if;
4506: raise FND_API.G_EXC_ERROR;
4604: );
4605:
4606:
4607: --Check if there is any error.
4608: l_msg_count := FND_MSG_PUB.count_msg;
4609: IF l_msg_count > 0 THEN
4610: x_msg_count := l_msg_count;
4611: IF x_msg_count = 1 THEN
4612: x_msg_data := l_msg_data;
4958: x_return_status => X_Return_Status,
4959: x_msg_count => X_Msg_Count,
4960: x_msg_data => X_Msg_Data);
4961: IF (X_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4962: x_msg_count := FND_MSG_PUB.count_msg;
4963: IF x_msg_count = 1 then
4964: pa_interface_utils_pub.get_messages
4965: (p_encoded => FND_API.G_TRUE,
4966: p_msg_index => 1,
5026: ,x_msg_count => l_msg_count
5027: ,x_msg_data => l_msg_data );
5028:
5029:
5030: l_msg_count := FND_MSG_PUB.count_msg;
5031: if (l_msg_count > 0) then
5032: x_msg_count := l_msg_count;
5033: if x_msg_count = 1 then
5034: x_msg_data := l_msg_data;
5069: RAISE FND_API.G_EXC_ERROR;
5070: END IF;
5071: EXCEPTION
5072: WHEN OTHERS THEN
5073: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5074: p_procedure_name => 'PUBLISH_STRUCTURE',
5075: p_error_text => SUBSTRB('PA_PROJ_STRUC_MAPPING_PUB.COPY_MAPPING:'||SQLERRM,1,240));
5076: RAISE FND_API.G_EXC_ERROR;
5077: END;
5113: ,x_Msg_data => x_msg_data
5114: );
5115: EXCEPTION
5116: WHEN OTHERS THEN
5117: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5118: p_procedure_name => 'PUBLISH_STRUCTURE',
5119: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
5120: RAISE FND_API.G_EXC_ERROR;
5121: END;
5139: ,x_return_status => x_return_status
5140: );
5141: EXCEPTION
5142: WHEN OTHERS THEN
5143: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5144: p_procedure_name => 'PUBLISH_STRUCTURE',
5145: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_missing_unplanned_asgmts:'||SQLERRM,1,240));
5146: RAISE FND_API.G_EXC_ERROR;
5147: END;
5160: x_return_status => l_return_status,
5161: x_msg_count => l_msg_count,
5162: x_msg_data => l_msg_data);
5163:
5164: l_msg_count := FND_MSG_PUB.count_msg;
5165: if (l_msg_count > 0) then
5166: x_msg_count := l_msg_count;
5167: if x_msg_count = 1 then
5168: x_msg_data := l_msg_data;
5252: -- PA_UTILS.ADD_MESSAGE('PA',l_i_msg_data(i));
5253: -- END LOOP;
5254: -- END IF;
5255:
5256: l_msg_count := FND_MSG_PUB.count_msg;
5257: if l_msg_count > 0 then
5258: x_msg_count := l_msg_count;
5259: if x_msg_count = 1 then
5260: -- x_msg_data := l_msg_data;
5295: END IF;
5296:
5297:
5298: --Check if there is any error.
5299: l_msg_count := FND_MSG_PUB.count_msg;
5300: IF l_msg_count > 0 THEN
5301: x_msg_count := l_msg_count;
5302: IF x_msg_count = 1 THEN
5303: x_msg_data := l_msg_data;
5342: ,x_msg_count => l_msg_count
5343: ,x_msg_data => l_msg_data );
5344:
5345: --Check if there is any error.
5346: l_msg_count := FND_MSG_PUB.count_msg;
5347: IF l_msg_count > 0 THEN
5348: x_msg_count := l_msg_count;
5349: IF x_msg_count = 1 THEN
5350: x_msg_data := l_msg_data;
5372: x_msg_data => l_msg_data
5373: );
5374:
5375: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5376: x_msg_count := FND_MSG_PUB.count_msg;
5377: if x_msg_count = 1 then
5378: x_msg_data := l_msg_data;
5379: end if;
5380: raise FND_API.G_EXC_ERROR;
5450: ,x_msg_data => l_msg_data
5451: );
5452:
5453: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5454: x_msg_count := FND_MSG_PUB.count_msg;
5455: if x_msg_count = 1 then
5456: x_msg_data := l_msg_data;
5457: end if;
5458: raise FND_API.G_EXC_ERROR;
5481: x_msg_count => l_msg_count,
5482: x_msg_data => l_msg_data
5483: );
5484: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5485: x_msg_count := FND_MSG_PUB.count_msg;
5486: if x_msg_count = 1 then
5487: x_msg_data := l_msg_data;
5488: end if;
5489: raise FND_API.G_EXC_ERROR;
5506: x_msg_count => l_msg_count,
5507: x_msg_data => l_msg_data
5508: );
5509: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5510: x_msg_count := FND_MSG_PUB.count_msg;
5511: if x_msg_count = 1 then
5512: x_msg_data := l_msg_data;
5513: end if;
5514: raise FND_API.G_EXC_ERROR;
5527: ,x_msg_data => x_msg_data
5528: );
5529:
5530: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
5531: x_msg_count := FND_MSG_PUB.count_msg;
5532: if x_msg_count = 1 then
5533: x_msg_data := l_msg_data;
5534: end if;
5535: raise FND_API.G_EXC_ERROR;
5548: ,x_msg_data => x_msg_data
5549: );
5550:
5551: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
5552: x_msg_count := FND_MSG_PUB.count_msg;
5553: if x_msg_count = 1 then
5554: x_msg_data := l_msg_data;
5555: end if;
5556: raise FND_API.G_EXC_ERROR;
5587: ,x_msg_data => l_msg_data
5588: );
5589:
5590: --Check if there is any error.
5591: l_msg_count := FND_MSG_PUB.count_msg;
5592:
5593: IF l_debug_mode = 'Y' THEN
5594: 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);
5595: END IF;
5625: x_msg_data => l_msg_data
5626: );
5627:
5628: --Check if there is any error.
5629: l_msg_count := FND_MSG_PUB.count_msg;
5630: IF l_msg_count > 0 THEN
5631: x_msg_count := l_msg_count;
5632: IF x_msg_count = 1 THEN
5633: x_msg_data := l_msg_data;
5661: ,x_msg_data => x_msg_data
5662: );
5663: EXCEPTION
5664: WHEN OTHERS THEN
5665: fnd_msg_pub.add_exc_msg(p_pkg_name =>
5666: 'PA_PROJECT_STRUCTURE_PVT1',
5667: p_procedure_name => 'publish_structure',
5668: p_error_text => SUBSTRB('Call PA_PROGRESS_PUB.COPY_PROGRESS_ACT_ETC:'||SQLERRM,1,120));
5669: RAISE FND_API.G_EXC_ERROR;
5669: RAISE FND_API.G_EXC_ERROR;
5670: END;
5671:
5672: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5673: x_msg_count := FND_MSG_PUB.count_msg;
5674: IF x_msg_count = 1 THEN
5675: x_msg_data := l_msg_data;
5676: END IF;
5677: raise FND_API.G_EXC_ERROR;
5700: ,x_msg_data => x_msg_data
5701: );
5702: EXCEPTION
5703: WHEN OTHERS THEN
5704: fnd_msg_pub.add_exc_msg(p_pkg_name =>
5705: 'PA_PROJECT_STRUCTURE_PVT1',
5706: p_procedure_name => 'publish_structure',
5707: p_error_text => SUBSTRB('Call pa_progress_pub.populate_pji_tab_for_plan:'||SQLERRM,1,120));
5708: RAISE FND_API.G_EXC_ERROR;
5708: RAISE FND_API.G_EXC_ERROR;
5709: END;
5710:
5711: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5712: x_msg_count := FND_MSG_PUB.count_msg;
5713: IF x_msg_count = 1 THEN
5714: x_msg_data := l_msg_data;
5715: END IF;
5716: raise FND_API.G_EXC_ERROR;
5733: ,x_msg_count => x_msg_count
5734: ,x_msg_data => x_msg_data);
5735: EXCEPTION
5736: WHEN OTHERS THEN
5737: fnd_msg_pub.add_exc_msg(p_pkg_name =>
5738: 'PA_PROJECT_STRUCTURE_PVT1',
5739: p_procedure_name => 'publish_structure',
5740: p_error_text => SUBSTRB('Call PA_PROGRESS_PUB.ROLLUP_PROGRESS_PVT:'||SQLERRM,1,120));
5741: RAISE FND_API.G_EXC_ERROR;
5742: END;
5743:
5744:
5745: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5746: x_msg_count := FND_MSG_PUB.count_msg;
5747: IF x_msg_count = 1 THEN
5748: x_msg_data := l_msg_data;
5749: END IF;
5750: raise FND_API.G_EXC_ERROR;
5770: ,x_msg_count => x_msg_count
5771: ,x_msg_data => x_msg_data);
5772: EXCEPTION
5773: WHEN OTHERS THEN
5774: fnd_msg_pub.add_exc_msg(p_pkg_name =>
5775: 'PA_PROJECT_STRUCTURE_PVT1',
5776: p_procedure_name => 'publish_structure',
5777: p_error_text => SUBSTRB('Call PA_PROGRESS_UTILS.clear_prog_outdated_flag:'||SQLERRM,1,120));
5778: RAISE FND_API.G_EXC_ERROR;
5779: END;
5780:
5781:
5782: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5783: x_msg_count := FND_MSG_PUB.count_msg;
5784: IF x_msg_count = 1 THEN
5785: x_msg_data := l_msg_data;
5786: END IF;
5787: raise FND_API.G_EXC_ERROR;
5805:
5806: x_return_status := FND_API.G_RET_STS_SUCCESS;
5807:
5808: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5809: x_msg_count := FND_MSG_PUB.count_msg;
5810: if x_msg_count = 1 then
5811: x_msg_data := l_msg_data;
5812: end if;
5813: raise FND_API.G_EXC_ERROR;
5825: --need to rollback because generate error page performs a commit
5826: rollback;
5827: end if;
5828: --get errors
5829: FOR i IN 1..FND_MSG_PUB.COUNT_MSG LOOP
5830: FND_MSG_PUB.GET(p_encoded=>'F',
5831: p_data=>l_messages(i),
5832: p_msg_index_out => l_msg_index_out);
5833: END LOOP;
5826: rollback;
5827: end if;
5828: --get errors
5829: FOR i IN 1..FND_MSG_PUB.COUNT_MSG LOOP
5830: FND_MSG_PUB.GET(p_encoded=>'F',
5831: p_data=>l_messages(i),
5832: p_msg_index_out => l_msg_index_out);
5833: END LOOP;
5834:
5841: x_msg_count => l_msg_count,
5842: x_msg_data => l_msg_data
5843: );
5844:
5845: x_msg_count := FND_MSG_PUB.count_msg;
5846: x_return_status := FND_API.G_RET_STS_ERROR;
5847: when FND_API.G_EXC_UNEXPECTED_ERROR then
5848: if p_commit = FND_API.G_TRUE then
5849: rollback to publish_structure_pvt;
5848: if p_commit = FND_API.G_TRUE then
5849: rollback to publish_structure_pvt;
5850: end if;
5851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5852: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5853: p_procedure_name => 'PUBLISH_STRUCTURE',
5854: p_error_text => SUBSTRB(SQLERRM,1,240));
5855: when OTHERS then
5856: if p_commit = FND_API.G_TRUE then
5856: if p_commit = FND_API.G_TRUE then
5857: rollback to publish_structure_pvt;
5858: end if;
5859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5860: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5861: p_procedure_name => 'PUBLISH_STRUCTURE',
5862: p_error_text => SUBSTRB(SQLERRM,1,240));
5863: raise;
5864: END Publish_Structure;
6132: --dbms_output.put_line('b, Close get_from_id');
6133: CLOSE get_from_id;
6134:
6135:
6136: l_msg_count := FND_MSG_PUB.count_msg;
6137: if (l_msg_count > 0) then
6138: x_msg_count := l_msg_count;
6139: if x_msg_count = 1 then
6140: x_msg_data := l_msg_data;
6146: when FND_API.G_EXC_ERROR then
6147: if p_commit = FND_API.G_TRUE then
6148: rollback to update_latest_pub_links_pvt;
6149: end if;
6150: x_msg_count := FND_MSG_PUB.count_msg;
6151: x_return_status := FND_API.G_RET_STS_ERROR;
6152: when FND_API.G_EXC_UNEXPECTED_ERROR then
6153: if p_commit = FND_API.G_TRUE then
6154: rollback to update_latest_pub_links_pvt;
6153: if p_commit = FND_API.G_TRUE then
6154: rollback to update_latest_pub_links_pvt;
6155: end if;
6156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6157: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
6158: p_procedure_name => 'UPDATE_LATEST_PUB_LINKS',
6159: p_error_text => SUBSTRB(SQLERRM,1,240));
6160: when OTHERS then
6161: if p_commit = FND_API.G_TRUE then
6161: if p_commit = FND_API.G_TRUE then
6162: rollback to update_latest_pub_links_pvt;
6163: end if;
6164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6165: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
6166: p_procedure_name => 'UPDATE_LATEST_PUB_LINKS',
6167: p_error_text => SUBSTRB(SQLERRM,1,240));
6168: raise;
6169: END UPDATE_LATEST_PUB_LINKS;
6372: END IF;
6373:
6374:
6375: --Check if there is any error.
6376: l_msg_count := FND_MSG_PUB.count_msg;
6377: IF l_msg_count > 0 THEN
6378: x_msg_count := l_msg_count;
6379: IF x_msg_count = 1 THEN
6380: x_msg_data := l_msg_data;
6413: pa_debug.debug('l_pev_structure_id: ' || l_pev_structure_id);
6414: END IF;
6415:
6416: --Check if there is any error.
6417: l_msg_count := FND_MSG_PUB.count_msg;
6418: IF l_msg_count > 0 THEN
6419: x_msg_count := l_msg_count;
6420: IF x_msg_count = 1 THEN
6421: x_msg_data := l_msg_data;
6507: pa_debug.debug('l_new_obj_rel_id: ' || l_new_obj_rel_id);
6508: END IF;
6509: END IF;
6510: --Check error
6511: l_msg_count := FND_MSG_PUB.count_msg;
6512: if (l_msg_count > 0) then
6513: x_msg_count := l_msg_count;
6514: if x_msg_count = 1 then
6515: x_msg_data := l_msg_data;
6614: pa_debug.debug('l_pev_schedule_id: ' || l_pev_schedule_id);
6615: END IF;
6616:
6617: --Check if there is any error.
6618: l_msg_count := FND_MSG_PUB.count_msg;
6619: IF l_msg_count > 0 THEN
6620: x_msg_count := l_msg_count;
6621: IF x_msg_count = 1 THEN
6622: x_msg_data := l_msg_data;
6710: pa_debug.debug('l_msg_count: ' || l_msg_count);
6711: END IF;
6712:
6713: --Check if there is any error.
6714: l_msg_count := FND_MSG_PUB.count_msg;
6715: IF l_msg_count > 0 THEN
6716: x_msg_count := l_msg_count;
6717: IF x_msg_count = 1 THEN
6718: x_msg_data := l_msg_data;
6825: pa_debug.debug('l_pev_schedule_id: ' || l_pev_schedule_id);
6826: END IF;
6827:
6828: --Check if there is any error.
6829: l_msg_count := FND_MSG_PUB.count_msg;
6830: IF l_msg_count > 0 THEN
6831: x_msg_count := l_msg_count;
6832: IF x_msg_count = 1 THEN
6833: x_msg_data := l_msg_data;
6962:
6963: END IF;
6964:
6965: --Check error
6966: l_msg_count := FND_MSG_PUB.count_msg;
6967: if (l_msg_count > 0) then
6968: x_msg_count := l_msg_count;
6969: if x_msg_count = 1 then
6970: x_msg_data := l_msg_data;
7003: if p_commit = FND_API.G_TRUE then
7004: rollback to copy_structure_version_pvt;
7005: end if;
7006: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7007: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
7008: p_procedure_name => 'COPY_STRUCTURE_VERSION',
7009: p_error_text => SUBSTRB(SQLERRM,1,240));
7010: when OTHERS then
7011: if p_commit = FND_API.G_TRUE then
7011: if p_commit = FND_API.G_TRUE then
7012: rollback to copy_structure_version_pvt;
7013: end if;
7014: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7015: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
7016: p_procedure_name => 'COPY_STRUCTURE_VERSION',
7017: p_error_text => SUBSTRB(SQLERRM,1,240));
7018: raise;
7019: END COPY_STRUCTURE_VERSION;
7613: -- ,x_msg_count => l_msg_count
7614: -- ,x_msg_data => l_msg_data );
7615:
7616: -- --Check if there is any error.
7617: -- l_msg_count := FND_MSG_PUB.count_msg;
7618: -- IF l_msg_count > 0 THEN
7619: -- x_msg_count := l_msg_count;
7620: -- IF x_msg_count = 1 THEN
7621: -- x_msg_data := l_msg_data;
7634: -- ,x_msg_count => l_msg_count
7635: -- ,x_msg_data => l_msg_data );
7636:
7637: -- --Check if there is any error.
7638: -- l_msg_count := FND_MSG_PUB.count_msg;
7639: -- IF l_msg_count > 0 THEN
7640: -- x_msg_count := l_msg_count;
7641: -- IF x_msg_count = 1 THEN
7642: -- x_msg_data := l_msg_data;
7663: -- ,x_msg_count => l_msg_count
7664: -- ,x_msg_data => l_msg_data );
7665:
7666: -- --Check if there is any error.
7667: -- l_msg_count := FND_MSG_PUB.count_msg;
7668: -- IF l_msg_count > 0 THEN
7669: -- x_msg_count := l_msg_count;
7670: -- IF x_msg_count = 1 THEN
7671: -- x_msg_data := l_msg_data;
7686: -- ,x_msg_count => l_msg_count
7687: -- ,x_msg_data => l_msg_data );
7688:
7689: -- --Check if there is any error.
7690: -- l_msg_count := FND_MSG_PUB.count_msg;
7691: -- IF l_msg_count > 0 THEN
7692: -- x_msg_count := l_msg_count;
7693: -- IF x_msg_count = 1 THEN
7694: -- x_msg_data := l_msg_data;
7750: pa_debug.debug('done: '||l_return_status);
7751: END IF;
7752:
7753: --Check if there is any error.
7754: l_msg_count := FND_MSG_PUB.count_msg;
7755: IF l_msg_count > 0 THEN
7756: x_msg_count := l_msg_count;
7757: IF x_msg_count = 1 THEN
7758: x_msg_data := l_msg_data;
7784: ,x_msg_count => l_msg_count
7785: ,x_msg_data => l_msg_data);
7786:
7787: --Check if there is any error.
7788: l_msg_count := FND_MSG_PUB.count_msg;
7789: IF l_msg_count > 0 THEN
7790: x_msg_count := l_msg_count;
7791: IF x_msg_count = 1 THEN
7792: x_msg_data := l_msg_data;
7861: ,x_msg_count => l_msg_count
7862: ,x_msg_data => l_msg_data );
7863:
7864: --Check if there is any error.
7865: l_msg_count := FND_MSG_PUB.count_msg;
7866: IF l_msg_count > 0 THEN
7867: x_msg_count := l_msg_count;
7868: IF x_msg_count = 1 THEN
7869: x_msg_data := l_msg_data;
7936: ,x_msg_count => l_msg_count
7937: ,x_msg_data => l_msg_data );
7938:
7939: --Check if there is any error.
7940: l_msg_count := FND_MSG_PUB.count_msg;
7941: IF l_msg_count > 0 THEN
7942: x_msg_count := l_msg_count;
7943: IF x_msg_count = 1 THEN
7944: x_msg_data := l_msg_data;
8126:
8127: t_equiv_elem_ver_id(l_task_versions_rec.element_version_id) := l_task_version_id;
8128:
8129: --Check if there is any error.
8130: l_msg_count := FND_MSG_PUB.count_msg;
8131: IF l_msg_count > 0 THEN
8132: x_msg_count := l_msg_count;
8133: IF x_msg_count = 1 THEN
8134: x_msg_data := l_msg_data;
8203: ,x_msg_data => l_msg_data );
8204: -- end xxlu changes
8205:
8206: --Check if there is any error.
8207: l_msg_count := FND_MSG_PUB.count_msg;
8208: IF l_msg_count > 0 THEN
8209: x_msg_count := l_msg_count;
8210: IF x_msg_count = 1 THEN
8211: x_msg_data := l_msg_data;
8242: ,x_return_status => l_return_status
8243: ,x_msg_count => l_msg_count
8244: ,x_msg_data => l_msg_data
8245: );
8246: l_msg_count := FND_MSG_PUB.count_msg;
8247: IF l_msg_count > 0 THEN
8248: x_msg_count := l_msg_count;
8249: IF x_msg_count = 1 THEN
8250: x_msg_data := l_msg_data;
8305: ,x_msg_count => l_msg_count
8306: ,x_msg_data => l_msg_data );
8307:
8308: --Check if there is any error.
8309: l_msg_count := FND_MSG_PUB.count_msg;
8310: IF l_msg_count > 0 THEN
8311: x_msg_count := l_msg_count;
8312: IF x_msg_count = 1 THEN
8313: x_msg_data := l_msg_data;
8375: if p_commit = FND_API.G_TRUE then
8376: rollback to copy_structure_pvt;
8377: end if;
8378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8379: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8380: p_procedure_name => 'COPY_STRUCTURE',
8381: p_error_text => SUBSTRB(SQLERRM,1,240));
8382: when OTHERS then
8383: if p_commit = FND_API.G_TRUE then
8383: if p_commit = FND_API.G_TRUE then
8384: rollback to copy_structure_pvt;
8385: end if;
8386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8387: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8388: p_procedure_name => 'COPY_STRUCTURE',
8389: p_error_text => SUBSTRB(SQLERRM,1,240));
8390: raise;
8391: END COPY_STRUCTURE;
8478: ,x_msg_count => l_msg_count
8479: ,x_msg_data => l_msg_data );
8480:
8481: --Check if there is any error.
8482: l_msg_count := FND_MSG_PUB.count_msg;
8483: IF l_msg_count > 0 THEN
8484: x_msg_count := l_msg_count;
8485: IF x_msg_count = 1 THEN
8486: x_msg_data := l_msg_data;
8514: ,x_msg_count => l_msg_count
8515: ,x_msg_data => l_msg_data );
8516:
8517: --Check if there is any error.
8518: l_msg_count := FND_MSG_PUB.count_msg;
8519: IF l_msg_count > 0 THEN
8520: x_msg_count := l_msg_count;
8521: IF x_msg_count = 1 THEN
8522: x_msg_data := l_msg_data;
8545: if p_commit = FND_API.G_TRUE then
8546: rollback to baseline_structure_pvt;
8547: end if;
8548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8549: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8550: p_procedure_name => 'BASELINE_STRUCTURE_VERSION',
8551: p_error_text => SUBSTRB(SQLERRM,1,240));
8552: when OTHERS then
8553: if p_commit = FND_API.G_TRUE then
8553: if p_commit = FND_API.G_TRUE then
8554: rollback to baseline_structure_pvt;
8555: end if;
8556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8557: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8558: p_procedure_name => 'BASELINE_STRUCTURE_VERSION',
8559: p_error_text => SUBSTRB(SQLERRM,1,240));
8560: raise;
8561: END BASELINE_STRUCTURE_VERSION;
8662:
8663: x_structure_id := l_struc_id;
8664:
8665: --Check if there is any error.
8666: l_msg_count := FND_MSG_PUB.count_msg;
8667: IF l_msg_count > 0 THEN
8668: x_msg_count := l_msg_count;
8669: IF x_msg_count = 1 THEN
8670: x_msg_data := l_msg_data;
8687:
8688: x_structure_version_id := l_struc_ver_id;
8689:
8690: --Check if there is any error.
8691: l_msg_count := FND_MSG_PUB.count_msg;
8692: IF l_msg_count > 0 THEN
8693: x_msg_count := l_msg_count;
8694: IF x_msg_count = 1 THEN
8695: x_msg_data := l_msg_data;
8708: x_pev_structure_id => l_struc_ver_attr_id
8709: );
8710:
8711: --Check if there is any error.
8712: l_msg_count := FND_MSG_PUB.count_msg;
8713: IF l_msg_count > 0 THEN
8714: x_msg_count := l_msg_count;
8715: IF x_msg_count = 1 THEN
8716: x_msg_data := l_msg_data;
8729: ,x_msg_data => l_msg_data
8730: );
8731:
8732: --Check if there is any error.
8733: l_msg_count := FND_MSG_PUB.count_msg;
8734: IF l_msg_count > 0 THEN
8735: x_msg_count := l_msg_count;
8736: IF x_msg_count = 1 THEN
8737: x_msg_data := l_msg_data;
8755: if p_commit = FND_API.G_TRUE then
8756: rollback to split_workplan;
8757: end if;
8758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8759: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8760: p_procedure_name => 'SPLIT_WORKPLAN',
8761: p_error_text => SUBSTRB(SQLERRM,1,240));
8762: when OTHERS then
8763: if p_commit = FND_API.G_TRUE then
8763: if p_commit = FND_API.G_TRUE then
8764: rollback to split_workplan;
8765: end if;
8766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8767: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8768: p_procedure_name => 'SPLIT_WORKPLAN',
8769: p_error_text => SUBSTRB(SQLERRM,1,240));
8770: raise;
8771: END SPLIT_WORKPLAN;
8953: END IF;
8954: --end bug 3840509
8955:
8956: --Check if there is any error.
8957: l_msg_count := FND_MSG_PUB.count_msg;
8958: IF l_msg_count > 0 THEN
8959: x_msg_count := l_msg_count;
8960: IF x_msg_count = 1 THEN
8961: x_msg_data := l_msg_data;
9078: WHEN FND_API.G_EXC_ERROR THEN
9079: IF (p_commit = FND_API.G_TRUE) THEN
9080: ROLLBACK to SUBMIT_WP_PRIVATE;
9081: END IF;
9082: x_msg_count := FND_MSG_PUB.count_msg;
9083: x_return_status := FND_API.G_RET_STS_ERROR;
9084: WHEN OTHERS THEN
9085: IF (p_commit = FND_API.G_TRUE) THEN
9086: ROLLBACK to SUBMIT_WP_PRIVATE;
9085: IF (p_commit = FND_API.G_TRUE) THEN
9086: ROLLBACK to SUBMIT_WP_PRIVATE;
9087: END IF;
9088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9089: x_msg_count := FND_MSG_PUB.count_msg;
9090: --put message
9091: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9092: p_procedure_name => 'Submit_Workplan',
9093: p_error_text => SUBSTRB(SQLERRM,1,240));
9087: END IF;
9088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9089: x_msg_count := FND_MSG_PUB.count_msg;
9090: --put message
9091: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9092: p_procedure_name => 'Submit_Workplan',
9093: p_error_text => SUBSTRB(SQLERRM,1,240));
9094: RAISE;
9095: END SUBMIT_WORKPLAN;
9179: raise;
9180: end if;
9181: END;
9182:
9183: l_msg_count := FND_MSG_PUB.count_msg;
9184: if l_msg_count > 0 then
9185: x_msg_count := l_msg_count;
9186: if x_msg_count = 1 then
9187: x_msg_data := l_msg_data;
9261: CLOSE get_start_wf;
9262:
9263: EXCEPTION
9264: WHEN FND_API.G_EXC_ERROR THEN
9265: x_msg_count := FND_MSG_PUB.count_msg;
9266: x_return_status := FND_API.G_RET_STS_ERROR;
9267: WHEN OTHERS THEN
9268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9269: x_msg_count := FND_MSG_PUB.count_msg;
9265: x_msg_count := FND_MSG_PUB.count_msg;
9266: x_return_status := FND_API.G_RET_STS_ERROR;
9267: WHEN OTHERS THEN
9268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9269: x_msg_count := FND_MSG_PUB.count_msg;
9270: --put message
9271: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9272: p_procedure_name => 'Change_Workplan_Status',
9273: p_error_text => SUBSTRB(SQLERRM,1,240));
9267: WHEN OTHERS THEN
9268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9269: x_msg_count := FND_MSG_PUB.count_msg;
9270: --put message
9271: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9272: p_procedure_name => 'Change_Workplan_Status',
9273: p_error_text => SUBSTRB(SQLERRM,1,240));
9274: RAISE;
9275: END CHANGE_WORKPLAN_STATUS;
9342: ,x_msg_data => l_msg_data
9343: );
9344:
9345: --Check if there is any error.
9346: l_msg_count := FND_MSG_PUB.count_msg;
9347: IF l_msg_count > 0 THEN
9348: x_msg_count := l_msg_count;
9349: IF x_msg_count = 1 THEN
9350: x_msg_data := l_msg_data;
9371: -- IF (l_approve_req = 'Y') THEN
9372: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
9373: -- ,p_msg_name => 'PA_PR_CANCEL_WORKFLOW_INV');
9374: -- x_return_status := FND_API.G_RET_STS_ERROR;
9375: -- x_msg_count := FND_MSG_PUB.count_msg;
9376: -- if x_msg_count = 1 then
9377: -- x_msg_data := 'PA_PR_CANCEL_WORKFLOW_INV';
9378: -- end if;
9379: -- raise FND_API.G_EXC_ERROR;
9395: IF (l_approve_req = 'Y') THEN
9396: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
9397: ,p_msg_name => 'PA_PR_CANCEL_WORKFLOW_INV');
9398: x_return_status := FND_API.G_RET_STS_ERROR;
9399: x_msg_count := FND_MSG_PUB.count_msg;
9400: if x_msg_count = 1 then
9401: x_msg_data := 'PA_PR_CANCEL_WORKFLOW_INV';
9402: end if;
9403: raise FND_API.G_EXC_ERROR;
9409: WHEN FND_API.G_EXC_ERROR THEN
9410: IF (p_commit = FND_API.G_TRUE) THEN
9411: ROLLBACK to rework_workplan_pvt;
9412: END IF;
9413: x_msg_count := FND_MSG_PUB.count_msg;
9414: x_return_status := FND_API.G_RET_STS_ERROR;
9415: WHEN OTHERS THEN
9416: IF (p_commit = FND_API.G_TRUE) THEN
9417: ROLLBACK to rework_workplan_pvt;
9416: IF (p_commit = FND_API.G_TRUE) THEN
9417: ROLLBACK to rework_workplan_pvt;
9418: END IF;
9419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9420: x_msg_count := FND_MSG_PUB.count_msg;
9421: --put message
9422: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9423: p_procedure_name => 'rework_Workplan',
9424: p_error_text => SUBSTRB(SQLERRM,1,240));
9418: END IF;
9419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9420: x_msg_count := FND_MSG_PUB.count_msg;
9421: --put message
9422: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9423: p_procedure_name => 'rework_Workplan',
9424: p_error_text => SUBSTRB(SQLERRM,1,240));
9425: RAISE;
9426: END rework_workplan;
9742: ,x_msg_count => l_msg_count
9743: ,x_msg_data => l_msg_data );
9744:
9745: --Check if there is any error.
9746: l_msg_count := FND_MSG_PUB.count_msg;
9747: IF l_msg_count > 0 THEN
9748: x_msg_count := l_msg_count;
9749: IF x_msg_count = 1 THEN
9750: x_msg_data := l_msg_data;
9760: ,x_msg_count => l_msg_count
9761: ,x_msg_data => l_msg_data );
9762:
9763: --Check if there is any error.
9764: l_msg_count := FND_MSG_PUB.count_msg;
9765: IF l_msg_count > 0 THEN
9766: x_msg_count := l_msg_count;
9767: IF x_msg_count = 1 THEN
9768: x_msg_data := l_msg_data;
9780: ,x_msg_data => l_msg_data
9781: );
9782:
9783: --Check if there is any error.
9784: l_msg_count := FND_MSG_PUB.count_msg;
9785: IF l_msg_count > 0 THEN
9786: x_msg_count := l_msg_count;
9787: IF x_msg_count = 1 THEN
9788: x_msg_data := l_msg_data;
9822: ,x_msg_count => l_msg_count
9823: ,x_msg_data => l_msg_data );
9824:
9825: --Check if there is any error.
9826: l_msg_count := FND_MSG_PUB.count_msg;
9827: IF l_msg_count > 0 THEN
9828: x_msg_count := l_msg_count;
9829: IF x_msg_count = 1 THEN
9830: x_msg_data := l_msg_data;
9912: );
9913: ----end changes
9914:
9915: --Check if there is any error.
9916: l_msg_count := FND_MSG_PUB.count_msg;
9917: IF l_msg_count > 0 THEN
9918: x_msg_count := l_msg_count;
9919: IF x_msg_count = 1 THEN
9920: x_msg_data := l_msg_data;
9952: ,x_msg_data => l_msg_data
9953: );
9954:
9955: --Check if there is any error.
9956: l_msg_count := FND_MSG_PUB.count_msg;
9957: IF l_msg_count > 0 THEN
9958: x_msg_count := l_msg_count;
9959: IF x_msg_count = 1 THEN
9960: x_msg_data := l_msg_data;
9972: ,x_msg_data => l_msg_data
9973: );
9974:
9975: --Check if there is any error.
9976: l_msg_count := FND_MSG_PUB.count_msg;
9977: IF l_msg_count > 0 THEN
9978: x_msg_count := l_msg_count;
9979: IF x_msg_count = 1 THEN
9980: x_msg_data := l_msg_data;
10072: );
10073: ----end changes
10074:
10075: --Check if there is any error.
10076: l_msg_count := FND_MSG_PUB.count_msg;
10077: IF l_msg_count > 0 THEN
10078: x_msg_count := l_msg_count;
10079: IF x_msg_count = 1 THEN
10080: x_msg_data := l_msg_data;
10184:
10185: ----end changes
10186:
10187: --Check if there is any error.
10188: l_msg_count := FND_MSG_PUB.count_msg;
10189: IF l_msg_count > 0 THEN
10190: x_msg_count := l_msg_count;
10191: IF x_msg_count = 1 THEN
10192: x_msg_data := l_msg_data;
10253: ,x_msg_data => l_msg_data
10254: );
10255:
10256: --Check if there is any error.
10257: l_msg_count := FND_MSG_PUB.count_msg;
10258: IF l_msg_count > 0 THEN
10259: x_msg_count := l_msg_count;
10260: IF x_msg_count = 1 THEN
10261: x_msg_data := l_msg_data;
10283: ,x_msg_data => x_msg_data
10284: );
10285:
10286: --Check if there is any error.
10287: l_msg_count := FND_MSG_PUB.count_msg;
10288: IF l_msg_count > 0 THEN
10289: x_msg_count := l_msg_count;
10290: IF x_msg_count = 1 THEN
10291: x_msg_data := l_msg_data;
10310: x_msg_count => l_msg_count,
10311: x_msg_data => l_msg_data
10312: );
10313: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
10314: x_msg_count := FND_MSG_PUB.count_msg;
10315: if x_msg_count = 1 then
10316: x_msg_data := l_msg_data;
10317: end if;
10318: raise FND_API.G_EXC_ERROR;
10424:
10425: -- Bug 2790703 End
10426:
10427: --Check if there is any error.
10428: l_msg_count := FND_MSG_PUB.count_msg;
10429: IF l_msg_count > 0 THEN
10430: x_msg_count := l_msg_count;
10431: IF x_msg_count = 1 THEN
10432: x_msg_data := l_msg_data;
10507: x_msg_count => l_msg_count,
10508: x_msg_data => l_msg_data);
10509:
10510: --Check if there is any error.
10511: l_msg_count := FND_MSG_PUB.count_msg;
10512: IF l_msg_count > 0 THEN
10513: x_msg_count := l_msg_count;
10514: IF x_msg_count = 1 THEN
10515: x_msg_data := l_msg_data;
10604: );
10605: ----end changes
10606:
10607: --Check if there is any error.
10608: l_msg_count := FND_MSG_PUB.count_msg;
10609: IF l_msg_count > 0 THEN
10610: x_msg_count := l_msg_count;
10611: IF x_msg_count = 1 THEN
10612: x_msg_data := l_msg_data;
10644: ,x_msg_data => l_msg_data
10645: );
10646:
10647: --Check if there is any error.
10648: l_msg_count := FND_MSG_PUB.count_msg;
10649: IF l_msg_count > 0 THEN
10650: x_msg_count := l_msg_count;
10651: IF x_msg_count = 1 THEN
10652: x_msg_data := l_msg_data;
10664: ,x_msg_data => x_msg_data
10665: );
10666:
10667: --Check if there is any error.
10668: l_msg_count := FND_MSG_PUB.count_msg;
10669: IF l_msg_count > 0 THEN
10670: x_msg_count := l_msg_count;
10671: IF x_msg_count = 1 THEN
10672: x_msg_data := l_msg_data;
10765: ,x_msg_count => l_msg_count
10766: ,x_msg_data => l_msg_data );
10767:
10768: --Check if there is any error.
10769: l_msg_count := FND_MSG_PUB.count_msg;
10770: IF l_msg_count > 0 THEN
10771: x_msg_count := l_msg_count;
10772: IF x_msg_count = 1 THEN
10773: x_msg_data := l_msg_data;
10783: ,x_msg_count => l_msg_count
10784: ,x_msg_data => l_msg_data );
10785:
10786: --Check if there is any error.
10787: l_msg_count := FND_MSG_PUB.count_msg;
10788: IF l_msg_count > 0 THEN
10789: x_msg_count := l_msg_count;
10790: IF x_msg_count = 1 THEN
10791: x_msg_data := l_msg_data;
10803: ,x_msg_data => l_msg_data
10804: );
10805:
10806: --Check if there is any error.
10807: l_msg_count := FND_MSG_PUB.count_msg;
10808: IF l_msg_count > 0 THEN
10809: x_msg_count := l_msg_count;
10810: IF x_msg_count = 1 THEN
10811: x_msg_data := l_msg_data;
10883: ,x_msg_count => l_msg_count
10884: ,x_msg_data => l_msg_data );
10885:
10886: --Check if there is any error.
10887: l_msg_count := FND_MSG_PUB.count_msg;
10888: IF l_msg_count > 0 THEN
10889: x_msg_count := l_msg_count;
10890: IF x_msg_count = 1 THEN
10891: x_msg_data := l_msg_data;
10909: WHEN FND_API.G_EXC_ERROR THEN
10910: IF (p_commit = FND_API.G_TRUE) THEN
10911: ROLLBACK to update_struc_setup_attr_pvt;
10912: END IF;
10913: x_msg_count := FND_MSG_PUB.count_msg;
10914: x_return_status := FND_API.G_RET_STS_ERROR;
10915: WHEN OTHERS THEN
10916: IF (p_commit = FND_API.G_TRUE) THEN
10917: ROLLBACK to update_struc_setup_attr_pvt;
10916: IF (p_commit = FND_API.G_TRUE) THEN
10917: ROLLBACK to update_struc_setup_attr_pvt;
10918: END IF;
10919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10920: x_msg_count := FND_MSG_PUB.count_msg;
10921: --put message
10922: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
10923: p_procedure_name => 'update_structures_setup_attr',
10924: p_error_text => SUBSTRB(SQLERRM,1,240));
10918: END IF;
10919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10920: x_msg_count := FND_MSG_PUB.count_msg;
10921: --put message
10922: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
10923: p_procedure_name => 'update_structures_setup_attr',
10924: p_error_text => SUBSTRB(SQLERRM,1,240));
10925: RAISE;
10926: END update_structures_setup_old;
11082: x_msg_count => l_msg_count,
11083: x_msg_data => l_msg_data
11084: );
11085: --Check if there is any error.
11086: l_msg_count := FND_MSG_PUB.count_msg;
11087: IF l_msg_count > 0 THEN
11088: x_msg_count := l_msg_count;
11089: IF x_msg_count = 1 THEN
11090: x_msg_data := l_msg_data;
11110: x_msg_data => l_msg_data
11111: );
11112:
11113: --Check if there is any error.
11114: l_msg_count := FND_MSG_PUB.count_msg;
11115: IF l_msg_count > 0 THEN
11116: x_msg_count := l_msg_count;
11117: IF x_msg_count = 1 THEN
11118: x_msg_data := l_msg_data;
11185: ,x_msg_data => l_msg_data
11186: );
11187:
11188: --Check if there is any error.
11189: l_msg_count := FND_MSG_PUB.count_msg;
11190: IF l_msg_count > 0 THEN
11191: x_msg_count := l_msg_count;
11192: IF x_msg_count = 1 THEN
11193: x_msg_data := l_msg_data;
11229: x_msg_count => l_msg_count,
11230: x_msg_data => l_msg_data);
11231:
11232: --Check if there is any error.
11233: l_msg_count := FND_MSG_PUB.count_msg;
11234: IF l_msg_count > 0 THEN
11235: x_msg_count := l_msg_count;
11236: IF x_msg_count = 1 THEN
11237: x_msg_data := l_msg_data;
11254: WHEN FND_API.G_EXC_ERROR THEN
11255: IF (p_commit = FND_API.G_TRUE) THEN
11256: ROLLBACK to update_wp_versioning_pvt;
11257: END IF;
11258: x_msg_count := FND_MSG_PUB.count_msg;
11259: x_return_status := FND_API.G_RET_STS_ERROR;
11260: WHEN OTHERS THEN
11261: IF (p_commit = FND_API.G_TRUE) THEN
11262: ROLLBACK to update_wp_versioning_pvt;
11261: IF (p_commit = FND_API.G_TRUE) THEN
11262: ROLLBACK to update_wp_versioning_pvt;
11263: END IF;
11264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11265: x_msg_count := FND_MSG_PUB.count_msg;
11266: --put message
11267: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11268: p_procedure_name => 'update_workplan_versioning',
11269: p_error_text => SUBSTRB(SQLERRM,1,240));
11263: END IF;
11264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11265: x_msg_count := FND_MSG_PUB.count_msg;
11266: --put message
11267: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11268: p_procedure_name => 'update_workplan_versioning',
11269: p_error_text => SUBSTRB(SQLERRM,1,240));
11270: RAISE;
11271: END update_workplan_versioning;
11403: ,x_msg_data => l_msg_data
11404: );
11405:
11406: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11407: x_msg_count := FND_MSG_PUB.count_msg;
11408: if x_msg_count = 1 then
11409: x_msg_data := l_msg_data;
11410: end if;
11411: raise FND_API.G_EXC_ERROR;
11434: ,x_msg_data => l_msg_data
11435: );
11436:
11437: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11438: x_msg_count := FND_MSG_PUB.count_msg;
11439: if x_msg_count = 1 then
11440: x_msg_data := l_msg_data;
11441: end if;
11442: raise FND_API.G_EXC_ERROR;
11464: ,x_msg_data => l_msg_data
11465: );
11466:
11467: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11468: x_msg_count := FND_MSG_PUB.count_msg;
11469: if x_msg_count = 1 then
11470: x_msg_data := l_msg_data;
11471: end if;
11472: raise FND_API.G_EXC_ERROR;
11508: ,x_msg_data => l_msg_data
11509: );
11510:
11511: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11512: x_msg_count := FND_MSG_PUB.count_msg;
11513: if x_msg_count = 1 then
11514: x_msg_data := l_msg_data;
11515: end if;
11516: raise FND_API.G_EXC_ERROR;
11553: ,x_msg_data => l_msg_data
11554: );
11555:
11556: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11557: x_msg_count := FND_MSG_PUB.count_msg;
11558: if x_msg_count = 1 then
11559: x_msg_data := l_msg_data;
11560: end if;
11561: raise FND_API.G_EXC_ERROR;
11570: ,x_msg_data => l_msg_data
11571: );
11572:
11573: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11574: x_msg_count := FND_MSG_PUB.count_msg;
11575: if x_msg_count = 1 then
11576: x_msg_data := l_msg_data;
11577: end if;
11578: raise FND_API.G_EXC_ERROR;
11592: WHEN FND_API.G_EXC_ERROR THEN
11593: IF (p_commit = FND_API.G_TRUE) THEN
11594: ROLLBACK to update_wp_calendar;
11595: END IF;
11596: x_msg_count := FND_MSG_PUB.count_msg;
11597: x_return_status := FND_API.G_RET_STS_ERROR;
11598: WHEN OTHERS THEN
11599: IF (p_commit = FND_API.G_TRUE) THEN
11600: ROLLBACK to update_wp_calendar;
11599: IF (p_commit = FND_API.G_TRUE) THEN
11600: ROLLBACK to update_wp_calendar;
11601: END IF;
11602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11603: x_msg_count := FND_MSG_PUB.count_msg;
11604: --put message
11605: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11606: p_procedure_name => 'Update_wp_calendar',
11607: p_error_text => SUBSTRB(SQLERRM,1,240));
11601: END IF;
11602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11603: x_msg_count := FND_MSG_PUB.count_msg;
11604: --put message
11605: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11606: p_procedure_name => 'Update_wp_calendar',
11607: p_error_text => SUBSTRB(SQLERRM,1,240));
11608: RAISE;
11609: END update_wp_calendar;
11668: IF (p_commit = FND_API.G_TRUE) THEN
11669: ROLLBACK to update_all_wp_calendar;
11670: END IF;
11671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11672: x_msg_count := FND_MSG_PUB.count_msg;
11673: --put message
11674: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11675: p_procedure_name => 'Update_all_wp_calendar',
11676: p_error_text => SUBSTRB(SQLERRM,1,240));
11670: END IF;
11671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11672: x_msg_count := FND_MSG_PUB.count_msg;
11673: --put message
11674: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11675: p_procedure_name => 'Update_all_wp_calendar',
11676: p_error_text => SUBSTRB(SQLERRM,1,240));
11677: RAISE;
11678: END UPDATE_ALL_WP_CALENDAR;
11765: ,x_msg_data => l_msg_data
11766: );
11767:
11768: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11769: x_msg_count := FND_MSG_PUB.count_msg;
11770: if x_msg_count = 1 then
11771: x_msg_data := l_msg_data;
11772: end if;
11773: raise FND_API.G_EXC_ERROR;
11797: ,x_msg_data => l_msg_data
11798: );
11799:
11800: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11801: x_msg_count := FND_MSG_PUB.count_msg;
11802: if x_msg_count = 1 then
11803: x_msg_data := l_msg_data;
11804: end if;
11805: raise FND_API.G_EXC_ERROR;
11828: ,x_msg_data => l_msg_data
11829: );
11830:
11831: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11832: x_msg_count := FND_MSG_PUB.count_msg;
11833: if x_msg_count = 1 then
11834: x_msg_data := l_msg_data;
11835: end if;
11836: raise FND_API.G_EXC_ERROR;
11853: WHEN FND_API.G_EXC_ERROR THEN
11854: IF (p_commit = FND_API.G_TRUE) THEN
11855: ROLLBACK to RECALC_STRUC_VER_DURATION;
11856: END IF;
11857: x_msg_count := FND_MSG_PUB.count_msg;
11858: x_return_status := FND_API.G_RET_STS_ERROR;
11859: WHEN OTHERS THEN
11860: IF (p_commit = FND_API.G_TRUE) THEN
11861: ROLLBACK to RECALC_STRUC_VER_DURATION;
11860: IF (p_commit = FND_API.G_TRUE) THEN
11861: ROLLBACK to RECALC_STRUC_VER_DURATION;
11862: END IF;
11863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11864: x_msg_count := FND_MSG_PUB.count_msg;
11865: --put message
11866: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11867: p_procedure_name => 'RECALC_STRUC_VER_DURATION',
11868: p_error_text => SUBSTRB(SQLERRM,1,240));
11862: END IF;
11863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11864: x_msg_count := FND_MSG_PUB.count_msg;
11865: --put message
11866: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11867: p_procedure_name => 'RECALC_STRUC_VER_DURATION',
11868: p_error_text => SUBSTRB(SQLERRM,1,240));
11869: RAISE;
11870: END RECALC_STRUC_VER_DURATION;
12011: x_msg_count => l_msg_count,
12012: x_msg_data => l_msg_data);
12013:
12014: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12015: x_msg_count := FND_MSG_PUB.count_msg;
12016: IF x_msg_count = 1 then
12017: pa_interface_utils_pub.get_messages
12018: (p_encoded => FND_API.G_TRUE,
12019: p_msg_index => 1,
12048: END IF;
12049:
12050: --check for errors.
12051: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12052: x_msg_count := FND_MSG_PUB.count_msg;
12053: IF x_msg_count = 1 then
12054: pa_interface_utils_pub.get_messages
12055: (p_encoded => FND_API.G_TRUE,
12056: p_msg_index => 1,
12075: x_return_status => l_return_status,
12076: x_msg_count => l_msg_count,
12077: x_msg_data => l_msg_data);
12078: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12079: x_msg_count := FND_MSG_PUB.count_msg;
12080: IF x_msg_count = 1 then
12081: pa_interface_utils_pub.get_messages
12082: (p_encoded => FND_API.G_TRUE,
12083: p_msg_index => 1,
12105: x_msg_count => l_msg_count,
12106: x_msg_data => l_msg_data);
12107:
12108: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12109: x_msg_count := FND_MSG_PUB.count_msg;
12110: IF x_msg_count = 1 then
12111: pa_interface_utils_pub.get_messages
12112: (p_encoded => FND_API.G_TRUE,
12113: p_msg_index => 1,
12148: );
12149:
12150: --Check error
12151: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12152: x_msg_count := FND_MSG_PUB.count_msg;
12153: IF x_msg_count = 1 then
12154: pa_interface_utils_pub.get_messages
12155: (p_encoded => FND_API.G_TRUE,
12156: p_msg_index => 1,
12173: );
12174:
12175: --Check error
12176: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12177: x_msg_count := FND_MSG_PUB.count_msg;
12178: IF x_msg_count = 1 then
12179: pa_interface_utils_pub.get_messages
12180: (p_encoded => FND_API.G_TRUE,
12181: p_msg_index => 1,
12203: CLOSE is_last_version;
12204:
12205: --Check error
12206: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12207: x_msg_count := FND_MSG_PUB.count_msg;
12208: IF x_msg_count = 1 then
12209: pa_interface_utils_pub.get_messages
12210: (p_encoded => FND_API.G_TRUE,
12211: p_msg_index => 1,
12226: when FND_API.G_EXC_ERROR then
12227: if p_commit = FND_API.G_TRUE then
12228: rollback to delete_struc_ver_wo_val;
12229: end if;
12230: x_msg_count := FND_MSG_PUB.count_msg;
12231: x_return_status := FND_API.G_RET_STS_ERROR;
12232: when FND_API.G_EXC_UNEXPECTED_ERROR then
12233: if p_commit = FND_API.G_TRUE then
12234: rollback to delete_struc_ver_wo_val;
12233: if p_commit = FND_API.G_TRUE then
12234: rollback to delete_struc_ver_wo_val;
12235: end if;
12236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12237: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12238: p_procedure_name => 'Delete_Struc_Ver_Wo_Val',
12239: p_error_text => SUBSTRB(SQLERRM,1,240));
12240: when OTHERS then
12241: if p_commit = FND_API.G_TRUE then
12241: if p_commit = FND_API.G_TRUE then
12242: rollback to delete_struc_ver_wo_val;
12243: end if;
12244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12245: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12246: p_procedure_name => 'Delete_Struc_Ver_Wo_Val',
12247: p_error_text => SUBSTRB(SQLERRM,1,240));
12248: raise;
12249: END DELETE_STRUC_VER_WO_VAL;
12648:
12649: EXCEPTION
12650: when FND_API.G_EXC_ERROR then
12651: ROLLBACK;
12652: x_msg_count := FND_MSG_PUB.count_msg;
12653: x_return_status := FND_API.G_RET_STS_ERROR;
12654: when OTHERS then
12655: ROLLBACK;
12656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12653: x_return_status := FND_API.G_RET_STS_ERROR;
12654: when OTHERS then
12655: ROLLBACK;
12656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12657: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12658: p_procedure_name => 'Generate_Error_Page',
12659: p_error_text => SUBSTRB(SQLERRM,1,240));
12660: raise;
12661: END Generate_Error_Page;
12844:
12845: EXCEPTION
12846: WHEN OTHERS THEN
12847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12848: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12849: p_procedure_name => 'RECALC_FIN_TASK_WEIGHTS',
12850: p_error_text => SUBSTRB(SQLERRM,1,240));
12851: END RECALC_FIN_TASK_WEIGHTS;
12852:
13097: END IF;
13098:
13099:
13100: --Check if there is any error.
13101: l_msg_count := FND_MSG_PUB.count_msg;
13102: IF l_msg_count > 0 THEN
13103: x_msg_count := l_msg_count;
13104: IF x_msg_count = 1 THEN
13105: x_msg_data := l_msg_data;
13138: pa_debug.debug('l_pev_structure_id: ' || l_pev_structure_id);
13139: END IF;
13140:
13141: --Check if there is any error.
13142: l_msg_count := FND_MSG_PUB.count_msg;
13143: IF l_msg_count > 0 THEN
13144: x_msg_count := l_msg_count;
13145: IF x_msg_count = 1 THEN
13146: x_msg_data := l_msg_data;
13223: pa_debug.debug('l_pev_schedule_id: ' || l_pev_schedule_id);
13224: END IF;
13225:
13226: --Check if there is any error.
13227: l_msg_count := FND_MSG_PUB.count_msg;
13228: IF l_msg_count > 0 THEN
13229: x_msg_count := l_msg_count;
13230: IF x_msg_count = 1 THEN
13231: x_msg_data := l_msg_data;
13585: x_return_status => X_Return_Status,
13586: x_msg_count => X_Msg_Count,
13587: x_msg_data => X_Msg_Data);
13588: IF (X_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
13589: x_msg_count := FND_MSG_PUB.count_msg;
13590: IF x_msg_count = 1 then
13591: pa_interface_utils_pub.get_messages
13592: (p_encoded => FND_API.G_TRUE,
13593: p_msg_index => 1,
13619: RAISE FND_API.G_EXC_ERROR;
13620: END IF;
13621: EXCEPTION
13622: WHEN OTHERS THEN
13623: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13624: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
13625: p_error_text => SUBSTRB('PA_PROJ_STRUC_MAPPING_PUB.copy_mapping:'||SQLERRM,1,240));
13626: RAISE FND_API.G_EXC_ERROR;
13627: END;
13658: ,x_Msg_data => x_msg_data
13659: );
13660: EXCEPTION
13661: WHEN OTHERS THEN
13662: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13663: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
13664: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
13665: RAISE FND_API.G_EXC_ERROR;
13666: END;
13705: if p_commit = FND_API.G_TRUE then
13706: rollback to copy_structure_version_pvt_blk;
13707: end if;
13708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13709: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13710: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
13711: p_error_text => SUBSTRB(SQLERRM,1,240));
13712: when OTHERS then
13713: if p_commit = FND_API.G_TRUE then
13713: if p_commit = FND_API.G_TRUE then
13714: rollback to copy_structure_version_pvt_blk;
13715: end if;
13716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13717: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13718: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
13719: p_error_text => SUBSTRB(SQLERRM,1,240));
13720: raise;
13721: END COPY_STRUCTURE_VERSION_BULK;
13781: x_return_status := l_return_status;
13782: EXCEPTION
13783: WHEN OTHERS THEN
13784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13785: x_msg_count := FND_MSG_PUB.count_msg;
13786: --put message
13787: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13788: p_procedure_name => 'update_sch_dirty_flag',
13789: p_error_text => SUBSTRB(SQLERRM,1,240));
13783: WHEN OTHERS THEN
13784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13785: x_msg_count := FND_MSG_PUB.count_msg;
13786: --put message
13787: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13788: p_procedure_name => 'update_sch_dirty_flag',
13789: p_error_text => SUBSTRB(SQLERRM,1,240));
13790: RAISE;
13791: END update_sch_dirty_flag;
14284: ,x_msg_count => l_msg_count
14285: ,x_msg_data => l_msg_data);
14286:
14287: --Check if there is any error.
14288: l_msg_count := FND_MSG_PUB.count_msg;
14289: IF l_msg_count > 0 THEN
14290: x_msg_count := l_msg_count;
14291: IF x_msg_count = 1 THEN
14292: x_msg_data := l_msg_data;
14303: ,x_msg_count => l_msg_count
14304: ,x_msg_data => l_msg_data);
14305:
14306: --Check if there is any error.
14307: l_msg_count := FND_MSG_PUB.count_msg;
14308: IF l_msg_count > 0 THEN
14309: x_msg_count := l_msg_count;
14310: IF x_msg_count = 1 THEN
14311: x_msg_data := l_msg_data;
14322: ,x_msg_count => l_msg_count
14323: ,x_msg_data => l_msg_data );
14324:
14325: --Check if there is any error.
14326: l_msg_count := FND_MSG_PUB.count_msg;
14327: IF l_msg_count > 0 THEN
14328: x_msg_count := l_msg_count;
14329: IF x_msg_count = 1 THEN
14330: x_msg_data := l_msg_data;
14361: ,x_msg_count => l_msg_count
14362: ,x_msg_data => l_msg_data );
14363:
14364: --Check if there is any error.
14365: l_msg_count := FND_MSG_PUB.count_msg;
14366: IF l_msg_count > 0 THEN
14367: x_msg_count := l_msg_count;
14368: IF x_msg_count = 1 THEN
14369: x_msg_data := l_msg_data;
14385: ,x_msg_count => l_msg_count
14386: ,x_msg_data => l_msg_data );
14387:
14388: --Check if there is any error.
14389: l_msg_count := FND_MSG_PUB.count_msg;
14390: IF l_msg_count > 0 THEN
14391: x_msg_count := l_msg_count;
14392: IF x_msg_count = 1 THEN
14393: x_msg_data := l_msg_data;
14403: ,x_msg_count => l_msg_count
14404: ,x_msg_data => l_msg_data );
14405:
14406: --Check if there is any error.
14407: l_msg_count := FND_MSG_PUB.count_msg;
14408: IF l_msg_count > 0 THEN
14409: x_msg_count := l_msg_count;
14410: IF x_msg_count = 1 THEN
14411: x_msg_data := l_msg_data;
14422: ,x_msg_count => l_msg_count
14423: ,x_msg_data => l_msg_data);
14424:
14425: --Check if there is any error.
14426: l_msg_count := FND_MSG_PUB.count_msg;
14427: IF l_msg_count > 0 THEN
14428: x_msg_count := l_msg_count;
14429: IF x_msg_count = 1 THEN
14430: x_msg_data := l_msg_data;
14461: ,x_msg_count => l_msg_count
14462: ,x_msg_data => l_msg_data );
14463:
14464: --Check if there is any error.
14465: l_msg_count := FND_MSG_PUB.count_msg;
14466: IF l_msg_count > 0 THEN
14467: x_msg_count := l_msg_count;
14468: IF x_msg_count = 1 THEN
14469: x_msg_data := l_msg_data;
14485: ,x_msg_count => l_msg_count
14486: ,x_msg_data => l_msg_data );
14487:
14488: --Check if there is any error.
14489: l_msg_count := FND_MSG_PUB.count_msg;
14490: IF l_msg_count > 0 THEN
14491: x_msg_count := l_msg_count;
14492: IF x_msg_count = 1 THEN
14493: x_msg_data := l_msg_data;
14503: ,x_msg_count => l_msg_count
14504: ,x_msg_data => l_msg_data );
14505:
14506: --Check if there is any error.
14507: l_msg_count := FND_MSG_PUB.count_msg;
14508: IF l_msg_count > 0 THEN
14509: x_msg_count := l_msg_count;
14510: IF x_msg_count = 1 THEN
14511: x_msg_data := l_msg_data;
14522: ,x_msg_count => l_msg_count
14523: ,x_msg_data => l_msg_data);
14524:
14525: --Check if there is any error.
14526: l_msg_count := FND_MSG_PUB.count_msg;
14527: IF l_msg_count > 0 THEN
14528: x_msg_count := l_msg_count;
14529: IF x_msg_count = 1 THEN
14530: x_msg_data := l_msg_data;
14561: ,x_msg_count => l_msg_count
14562: ,x_msg_data => l_msg_data );
14563:
14564: --Check if there is any error.
14565: l_msg_count := FND_MSG_PUB.count_msg;
14566: IF l_msg_count > 0 THEN
14567: x_msg_count := l_msg_count;
14568: IF x_msg_count = 1 THEN
14569: x_msg_data := l_msg_data;
14646: ,x_msg_count => l_msg_count
14647: ,x_msg_data => l_msg_data);
14648:
14649: --Check if there is any error.
14650: l_msg_count := FND_MSG_PUB.count_msg;
14651: IF l_msg_count > 0 THEN
14652: x_msg_count := l_msg_count;
14653: IF x_msg_count = 1 THEN
14654: x_msg_data := l_msg_data;
14665: ,x_msg_count => l_msg_count
14666: ,x_msg_data => l_msg_data);
14667:
14668: --Check if there is any error.
14669: l_msg_count := FND_MSG_PUB.count_msg;
14670: IF l_msg_count > 0 THEN
14671: x_msg_count := l_msg_count;
14672: IF x_msg_count = 1 THEN
14673: x_msg_data := l_msg_data;
14684: ,x_msg_count => l_msg_count
14685: ,x_msg_data => l_msg_data );
14686:
14687: --Check if there is any error.
14688: l_msg_count := FND_MSG_PUB.count_msg;
14689: IF l_msg_count > 0 THEN
14690: x_msg_count := l_msg_count;
14691: IF x_msg_count = 1 THEN
14692: x_msg_data := l_msg_data;
14723: ,x_msg_count => l_msg_count
14724: ,x_msg_data => l_msg_data );
14725:
14726: --Check if there is any error.
14727: l_msg_count := FND_MSG_PUB.count_msg;
14728: IF l_msg_count > 0 THEN
14729: x_msg_count := l_msg_count;
14730: IF x_msg_count = 1 THEN
14731: x_msg_data := l_msg_data;
14745: ,x_msg_count => l_msg_count
14746: ,x_msg_data => l_msg_data );
14747:
14748: --Check if there is any error.
14749: l_msg_count := FND_MSG_PUB.count_msg;
14750: IF l_msg_count > 0 THEN
14751: x_msg_count := l_msg_count;
14752: IF x_msg_count = 1 THEN
14753: x_msg_data := l_msg_data;
14763: ,x_msg_count => l_msg_count
14764: ,x_msg_data => l_msg_data );
14765:
14766: --Check if there is any error.
14767: l_msg_count := FND_MSG_PUB.count_msg;
14768: IF l_msg_count > 0 THEN
14769: x_msg_count := l_msg_count;
14770: IF x_msg_count = 1 THEN
14771: x_msg_data := l_msg_data;
14782: ,x_msg_count => l_msg_count
14783: ,x_msg_data => l_msg_data);
14784:
14785: --Check if there is any error.
14786: l_msg_count := FND_MSG_PUB.count_msg;
14787: IF l_msg_count > 0 THEN
14788: x_msg_count := l_msg_count;
14789: IF x_msg_count = 1 THEN
14790: x_msg_data := l_msg_data;
14821: ,x_msg_count => l_msg_count
14822: ,x_msg_data => l_msg_data );
14823:
14824: --Check if there is any error.
14825: l_msg_count := FND_MSG_PUB.count_msg;
14826: IF l_msg_count > 0 THEN
14827: x_msg_count := l_msg_count;
14828: IF x_msg_count = 1 THEN
14829: x_msg_data := l_msg_data;
14851: ,x_msg_count => l_msg_count
14852: ,x_msg_data => l_msg_data);
14853:
14854: --Check if there is any error.
14855: l_msg_count := FND_MSG_PUB.count_msg;
14856: IF l_msg_count > 0 THEN
14857: x_msg_count := l_msg_count;
14858: IF x_msg_count = 1 THEN
14859: x_msg_data := l_msg_data;
14874: ,x_msg_count => l_msg_count
14875: ,x_msg_data => l_msg_data);
14876:
14877: --Check if there is any error.
14878: l_msg_count := FND_MSG_PUB.count_msg;
14879: IF l_msg_count > 0 THEN
14880: x_msg_count := l_msg_count;
14881: IF x_msg_count = 1 THEN
14882: x_msg_data := l_msg_data;
14896: ,x_msg_count => l_msg_count
14897: ,x_msg_data => l_msg_data );
14898:
14899: --Check if there is any error.
14900: l_msg_count := FND_MSG_PUB.count_msg;
14901: IF l_msg_count > 0 THEN
14902: x_msg_count := l_msg_count;
14903: IF x_msg_count = 1 THEN
14904: x_msg_data := l_msg_data;
14914: ,x_msg_count => l_msg_count
14915: ,x_msg_data => l_msg_data );
14916:
14917: --Check if there is any error.
14918: l_msg_count := FND_MSG_PUB.count_msg;
14919: IF l_msg_count > 0 THEN
14920: x_msg_count := l_msg_count;
14921: IF x_msg_count = 1 THEN
14922: x_msg_data := l_msg_data;
14933: ,x_msg_count => l_msg_count
14934: ,x_msg_data => l_msg_data);
14935:
14936: --Check if there is any error.
14937: l_msg_count := FND_MSG_PUB.count_msg;
14938: IF l_msg_count > 0 THEN
14939: x_msg_count := l_msg_count;
14940: IF x_msg_count = 1 THEN
14941: x_msg_data := l_msg_data;
14972: ,x_msg_count => l_msg_count
14973: ,x_msg_data => l_msg_data );
14974:
14975: --Check if there is any error.
14976: l_msg_count := FND_MSG_PUB.count_msg;
14977: IF l_msg_count > 0 THEN
14978: x_msg_count := l_msg_count;
14979: IF x_msg_count = 1 THEN
14980: x_msg_data := l_msg_data;
15031: ,x_msg_count => x_msg_count
15032: ,x_msg_data => x_msg_data);
15033:
15034: --Check if there is any error.
15035: l_msg_count := FND_MSG_PUB.count_msg;
15036: IF l_msg_count > 0 THEN
15037: x_msg_count := l_msg_count;
15038: IF x_msg_count = 1 THEN
15039: x_msg_data := l_msg_data;
15057: ,x_msg_count => x_msg_count
15058: ,x_Msg_data => x_msg_data);
15059: EXCEPTION
15060: WHEN OTHERS THEN
15061: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
15062: p_procedure_name => 'update_structures_setup_attr',
15063: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
15064: RAISE FND_API.G_EXC_ERROR;
15065: END;
15063: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
15064: RAISE FND_API.G_EXC_ERROR;
15065: END;
15066: --Check if there is any error.
15067: l_msg_count := FND_MSG_PUB.count_msg;
15068: IF l_msg_count > 0 THEN
15069: x_msg_count := l_msg_count;
15070: IF x_msg_count = 1 THEN
15071: x_msg_data := l_msg_data;
15138: x_msg_count => l_msg_count,
15139: x_msg_data => l_msg_data);
15140:
15141: --Check if there is any error.
15142: l_msg_count := FND_MSG_PUB.count_msg;
15143: IF l_msg_count > 0 THEN
15144: x_msg_count := l_msg_count;
15145: IF x_msg_count = 1 THEN
15146: x_msg_data := l_msg_data;
15184: , x_msg_count => l_msg_count
15185: , x_msg_data => l_msg_data
15186: , x_return_status => l_return_status);
15187:
15188: l_msg_count := FND_MSG_PUB.count_msg;
15189: IF l_msg_count > 0 THEN
15190: x_msg_count := l_msg_count;
15191: IF x_msg_count = 1 THEN
15192: x_msg_data := l_msg_data;
15276: ,x_msg_count => l_msg_count
15277: ,x_msg_data => l_msg_data );
15278:
15279: --Check if there is any error.
15280: l_msg_count := FND_MSG_PUB.count_msg;
15281: IF l_msg_count > 0 THEN
15282: x_msg_count := l_msg_count;
15283: IF x_msg_count = 1 THEN
15284: x_msg_data := l_msg_data;
15294: ,x_msg_count => l_msg_count
15295: ,x_msg_data => l_msg_data );
15296:
15297: --Check if there is any error.
15298: l_msg_count := FND_MSG_PUB.count_msg;
15299: IF l_msg_count > 0 THEN
15300: x_msg_count := l_msg_count;
15301: IF x_msg_count = 1 THEN
15302: x_msg_data := l_msg_data;
15313: ,x_msg_count => l_msg_count
15314: ,x_msg_data => l_msg_data);
15315:
15316: --Check if there is any error.
15317: l_msg_count := FND_MSG_PUB.count_msg;
15318: IF l_msg_count > 0 THEN
15319: x_msg_count := l_msg_count;
15320: IF x_msg_count = 1 THEN
15321: x_msg_data := l_msg_data;
15352: ,x_msg_count => l_msg_count
15353: ,x_msg_data => l_msg_data );
15354:
15355: --Check if there is any error.
15356: l_msg_count := FND_MSG_PUB.count_msg;
15357: IF l_msg_count > 0 THEN
15358: x_msg_count := l_msg_count;
15359: IF x_msg_count = 1 THEN
15360: x_msg_data := l_msg_data;
15428: ,x_msg_count => l_msg_count
15429: ,x_msg_data => l_msg_data);
15430:
15431: --Check if there is any error.
15432: l_msg_count := FND_MSG_PUB.count_msg;
15433: IF l_msg_count > 0 THEN
15434: x_msg_count := l_msg_count;
15435: IF x_msg_count = 1 THEN
15436: x_msg_data := l_msg_data;
15457: ,x_msg_count => l_msg_count
15458: ,x_msg_data => l_msg_data);
15459:
15460: --Check if there is any error.
15461: l_msg_count := FND_MSG_PUB.count_msg;
15462: IF l_msg_count > 0 THEN
15463: x_msg_count := l_msg_count;
15464: IF x_msg_count = 1 THEN
15465: x_msg_data := l_msg_data;
15476: ,x_msg_count => l_msg_count
15477: ,x_msg_data => l_msg_data);
15478:
15479: --Check if there is any error.
15480: l_msg_count := FND_MSG_PUB.count_msg;
15481: IF l_msg_count > 0 THEN
15482: x_msg_count := l_msg_count;
15483: IF x_msg_count = 1 THEN
15484: x_msg_data := l_msg_data;
15495: ,x_msg_count => l_msg_count
15496: ,x_msg_data => l_msg_data );
15497:
15498: --Check if there is any error.
15499: l_msg_count := FND_MSG_PUB.count_msg;
15500: IF l_msg_count > 0 THEN
15501: x_msg_count := l_msg_count;
15502: IF x_msg_count = 1 THEN
15503: x_msg_data := l_msg_data;
15534: ,x_msg_count => l_msg_count
15535: ,x_msg_data => l_msg_data );
15536:
15537: --Check if there is any error.
15538: l_msg_count := FND_MSG_PUB.count_msg;
15539: IF l_msg_count > 0 THEN
15540: x_msg_count := l_msg_count;
15541: IF x_msg_count = 1 THEN
15542: x_msg_data := l_msg_data;
15635: ,x_msg_count => l_msg_count
15636: ,x_msg_data => l_msg_data
15637: );
15638:
15639: l_msg_count := FND_MSG_PUB.count_msg;
15640: IF l_msg_count > 0 THEN
15641: x_msg_count := l_msg_count;
15642: IF x_msg_count = 1 THEN
15643: x_msg_data := l_msg_data;
15677: ,x_msg_count => l_msg_count
15678: ,x_msg_data => l_msg_data);
15679:
15680: --Check if there is any error.
15681: l_msg_count := FND_MSG_PUB.count_msg;
15682: IF l_msg_count > 0 THEN
15683: x_msg_count := l_msg_count;
15684: IF x_msg_count = 1 THEN
15685: x_msg_data := l_msg_data;
15763: ,x_msg_count => l_msg_count
15764: ,x_msg_data => l_msg_data);
15765:
15766: --Check if there is any error.
15767: l_msg_count := FND_MSG_PUB.count_msg;
15768: IF l_msg_count > 0 THEN
15769: x_msg_count := l_msg_count;
15770: IF x_msg_count = 1 THEN
15771: x_msg_data := l_msg_data;
15782: ,x_msg_count => l_msg_count
15783: ,x_msg_data => l_msg_data);
15784:
15785: --Check if there is any error.
15786: l_msg_count := FND_MSG_PUB.count_msg;
15787: IF l_msg_count > 0 THEN
15788: x_msg_count := l_msg_count;
15789: IF x_msg_count = 1 THEN
15790: x_msg_data := l_msg_data;
15801: ,x_msg_count => l_msg_count
15802: ,x_msg_data => l_msg_data );
15803:
15804: --Check if there is any error.
15805: l_msg_count := FND_MSG_PUB.count_msg;
15806: IF l_msg_count > 0 THEN
15807: x_msg_count := l_msg_count;
15808: IF x_msg_count = 1 THEN
15809: x_msg_data := l_msg_data;
15840: ,x_msg_count => l_msg_count
15841: ,x_msg_data => l_msg_data );
15842:
15843: --Check if there is any error.
15844: l_msg_count := FND_MSG_PUB.count_msg;
15845: IF l_msg_count > 0 THEN
15846: x_msg_count := l_msg_count;
15847: IF x_msg_count = 1 THEN
15848: x_msg_data := l_msg_data;
15943: x_msg_data => x_msg_data
15944: );
15945: EXCEPTION
15946: WHEN OTHERS THEN
15947: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
15948: p_procedure_name => 'update_structures_setup_attr',
15949: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_options :'||SQLERRM,1,240));
15950: RAISE FND_API.G_EXC_ERROR;
15951: END;
15948: p_procedure_name => 'update_structures_setup_attr',
15949: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_options :'||SQLERRM,1,240));
15950: RAISE FND_API.G_EXC_ERROR;
15951: END;
15952: l_msg_count := FND_MSG_PUB.count_msg;
15953: IF l_msg_count > 0 THEN
15954: x_msg_count := l_msg_count;
15955: IF x_msg_count = 1 THEN
15956: x_msg_data := l_msg_data;
16004: ,x_return_status => l_return_status
16005: ,x_msg_count => l_msg_count
16006: ,x_msg_data => l_msg_data);
16007: --Check if there is any error.
16008: l_msg_count := FND_MSG_PUB.count_msg;
16009: IF l_msg_count > 0 THEN
16010: x_msg_count := l_msg_count;
16011: IF x_msg_count = 1 THEN
16012: x_msg_data := l_msg_data;
16029: ,x_msg_data => l_msg_data
16030: );
16031:
16032: --Check if there is any error.
16033: l_msg_count := FND_MSG_PUB.count_msg;
16034: IF l_msg_count > 0 THEN
16035: x_msg_count := l_msg_count;
16036: IF x_msg_count = 1 THEN
16037: x_msg_data := l_msg_data;
16134: x_msg_data=>l_msg_data);
16135: */
16136:
16137: --Check if there is any error.
16138: l_msg_count := FND_MSG_PUB.count_msg;
16139: IF l_msg_count > 0 THEN
16140: x_msg_count := l_msg_count;
16141: IF x_msg_count = 1 THEN
16142: x_msg_data := l_msg_data;
16175: ,x_msg_count => l_msg_count
16176: ,x_msg_data => l_msg_data );
16177:
16178: --Check if there is any error.
16179: l_msg_count := FND_MSG_PUB.count_msg;
16180: IF l_msg_count > 0 THEN
16181: x_msg_count := l_msg_count;
16182: IF x_msg_count = 1 THEN
16183: x_msg_data := l_msg_data;
16194: ,x_msg_count => l_msg_count
16195: ,x_msg_data => l_msg_data );
16196:
16197: --Check if there is any error.
16198: l_msg_count := FND_MSG_PUB.count_msg;
16199: IF l_msg_count > 0 THEN
16200: x_msg_count := l_msg_count;
16201: IF x_msg_count = 1 THEN
16202: x_msg_data := l_msg_data;
16213: ,x_msg_count => l_msg_count
16214: ,x_msg_data => l_msg_data);
16215:
16216: --Check if there is any error.
16217: l_msg_count := FND_MSG_PUB.count_msg;
16218: IF l_msg_count > 0 THEN
16219: x_msg_count := l_msg_count;
16220: IF x_msg_count = 1 THEN
16221: x_msg_data := l_msg_data;
16252: ,x_msg_count => l_msg_count
16253: ,x_msg_data => l_msg_data );
16254:
16255: --Check if there is any error.
16256: l_msg_count := FND_MSG_PUB.count_msg;
16257: IF l_msg_count > 0 THEN
16258: x_msg_count := l_msg_count;
16259: IF x_msg_count = 1 THEN
16260: x_msg_data := l_msg_data;
16287: ,x_msg_count => l_msg_count
16288: ,x_msg_data => l_msg_data);
16289:
16290: --Check if there is any error.
16291: l_msg_count := FND_MSG_PUB.count_msg;
16292: IF l_msg_count > 0 THEN
16293: x_msg_count := l_msg_count;
16294: IF x_msg_count = 1 THEN
16295: x_msg_data := l_msg_data;
16312: ,x_msg_count => l_msg_count
16313: ,x_msg_data => l_msg_data);
16314:
16315: --Check if there is any error.
16316: l_msg_count := FND_MSG_PUB.count_msg;
16317: IF l_msg_count > 0 THEN
16318: x_msg_count := l_msg_count;
16319: IF x_msg_count = 1 THEN
16320: x_msg_data := l_msg_data;
16372: ,x_msg_count => l_msg_count
16373: ,x_msg_data => l_msg_data);
16374:
16375: --Check if there is any error.
16376: l_msg_count := FND_MSG_PUB.count_msg;
16377: IF l_msg_count > 0 THEN
16378: x_msg_count := l_msg_count;
16379: IF x_msg_count = 1 THEN
16380: x_msg_data := l_msg_data;
16478: x_msg_data => x_msg_data
16479: );
16480: EXCEPTION
16481: WHEN OTHERS THEN
16482: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
16483: p_procedure_name => 'update_structures_setup_attr',
16484: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_option:'||SQLERRM,1,240));
16485: RAISE FND_API.G_EXC_ERROR;
16486: END;
16483: p_procedure_name => 'update_structures_setup_attr',
16484: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_option:'||SQLERRM,1,240));
16485: RAISE FND_API.G_EXC_ERROR;
16486: END;
16487: l_msg_count := FND_MSG_PUB.count_msg;
16488: IF l_msg_count > 0 THEN
16489: x_msg_count := l_msg_count;
16490: IF x_msg_count = 1 THEN
16491: x_msg_data := l_msg_data;
16539: ,x_return_status => l_return_status
16540: ,x_msg_count => l_msg_count
16541: ,x_msg_data => l_msg_data);
16542: --Check if there is any error.
16543: l_msg_count := FND_MSG_PUB.count_msg;
16544: IF l_msg_count > 0 THEN
16545: x_msg_count := l_msg_count;
16546: IF x_msg_count = 1 THEN
16547: x_msg_data := l_msg_data;
16564: ,x_msg_data => l_msg_data
16565: );
16566:
16567: --Check if there is any error.
16568: l_msg_count := FND_MSG_PUB.count_msg;
16569: IF l_msg_count > 0 THEN
16570: x_msg_count := l_msg_count;
16571: IF x_msg_count = 1 THEN
16572: x_msg_data := l_msg_data;
16600: x_msg_count=>l_msg_count,
16601: x_msg_data=>l_msg_data);
16602:
16603: --Check if there is any error.
16604: l_msg_count := FND_MSG_PUB.count_msg;
16605: IF l_msg_count > 0 THEN
16606: x_msg_count := l_msg_count;
16607: IF x_msg_count = 1 THEN
16608: x_msg_data := l_msg_data;
16640: ,x_msg_count => l_msg_count
16641: ,x_msg_data => l_msg_data );
16642:
16643: --Check if there is any error.
16644: l_msg_count := FND_MSG_PUB.count_msg;
16645: IF l_msg_count > 0 THEN
16646: x_msg_count := l_msg_count;
16647: IF x_msg_count = 1 THEN
16648: x_msg_data := l_msg_data;
16658: ,x_msg_count => l_msg_count
16659: ,x_msg_data => l_msg_data );
16660:
16661: --Check if there is any error.
16662: l_msg_count := FND_MSG_PUB.count_msg;
16663: IF l_msg_count > 0 THEN
16664: x_msg_count := l_msg_count;
16665: IF x_msg_count = 1 THEN
16666: x_msg_data := l_msg_data;
16677: ,x_msg_count => l_msg_count
16678: ,x_msg_data => l_msg_data);
16679:
16680: --Check if there is any error.
16681: l_msg_count := FND_MSG_PUB.count_msg;
16682: IF l_msg_count > 0 THEN
16683: x_msg_count := l_msg_count;
16684: IF x_msg_count = 1 THEN
16685: x_msg_data := l_msg_data;
16716: ,x_msg_count => l_msg_count
16717: ,x_msg_data => l_msg_data );
16718:
16719: --Check if there is any error.
16720: l_msg_count := FND_MSG_PUB.count_msg;
16721: IF l_msg_count > 0 THEN
16722: x_msg_count := l_msg_count;
16723: IF x_msg_count = 1 THEN
16724: x_msg_data := l_msg_data;
16752: ,x_msg_count => l_msg_count
16753: ,x_msg_data => l_msg_data);
16754:
16755: --Check if there is any error.
16756: l_msg_count := FND_MSG_PUB.count_msg;
16757: IF l_msg_count > 0 THEN
16758: x_msg_count := l_msg_count;
16759: IF x_msg_count = 1 THEN
16760: x_msg_data := l_msg_data;
16777: ,x_msg_count => l_msg_count
16778: ,x_msg_data => l_msg_data);
16779:
16780: --Check if there is any error.
16781: l_msg_count := FND_MSG_PUB.count_msg;
16782: IF l_msg_count > 0 THEN
16783: x_msg_count := l_msg_count;
16784: IF x_msg_count = 1 THEN
16785: x_msg_data := l_msg_data;
16811: ,x_msg_count => l_msg_count
16812: ,x_msg_data => l_msg_data);
16813:
16814: --Check if there is any error.
16815: l_msg_count := FND_MSG_PUB.count_msg;
16816: IF l_msg_count > 0 THEN
16817: x_msg_count := l_msg_count;
16818: IF x_msg_count = 1 THEN
16819: x_msg_data := l_msg_data;
16875: ,x_msg_count => l_msg_count
16876: ,x_msg_data => l_msg_data);
16877:
16878: --Check if there is any error.
16879: l_msg_count := FND_MSG_PUB.count_msg;
16880: IF l_msg_count > 0 THEN
16881: x_msg_count := l_msg_count;
16882: IF x_msg_count = 1 THEN
16883: x_msg_data := l_msg_data;
16898: ,x_msg_count => l_msg_count
16899: ,x_msg_data => l_msg_data);
16900:
16901: --Check if there is any error.
16902: l_msg_count := FND_MSG_PUB.count_msg;
16903: IF l_msg_count > 0 THEN
16904: x_msg_count := l_msg_count;
16905: IF x_msg_count = 1 THEN
16906: x_msg_data := l_msg_data;
16971: ,x_msg_data => l_msg_data
16972: );
16973:
16974: --Check if there is any error.
16975: l_msg_count := FND_MSG_PUB.count_msg;
16976: IF l_msg_count > 0 THEN
16977: x_msg_count := l_msg_count;
16978: IF x_msg_count = 1 THEN
16979: x_msg_data := l_msg_data;
17047: ,x_msg_count => x_msg_count
17048: ,x_Msg_data => x_msg_data);
17049: EXCEPTION
17050: WHEN OTHERS THEN
17051: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
17052: p_procedure_name => 'update_structures_setup_attr',
17053: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
17054: RAISE FND_API.G_EXC_ERROR;
17055: END;
17053: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
17054: RAISE FND_API.G_EXC_ERROR;
17055: END;
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;
17127: x_msg_count => l_msg_count,
17128: x_msg_data => l_msg_data);
17129:
17130: --Check if there is any error.
17131: l_msg_count := FND_MSG_PUB.count_msg;
17132: IF l_msg_count > 0 THEN
17133: x_msg_count := l_msg_count;
17134: IF x_msg_count = 1 THEN
17135: x_msg_data := l_msg_data;
17138: END IF;
17139: END IF;
17140:
17141: --Check if there is any error.
17142: l_msg_count := FND_MSG_PUB.count_msg;
17143: IF l_msg_count > 0 THEN
17144: x_msg_count := l_msg_count;
17145: IF x_msg_count = 1 THEN
17146: x_msg_data := l_msg_data;
17196: ,x_msg_count => l_msg_count
17197: ,x_msg_data => l_msg_data);
17198:
17199: --Check if there is any error.
17200: l_msg_count := FND_MSG_PUB.count_msg;
17201: IF l_msg_count > 0 THEN
17202: x_msg_count := l_msg_count;
17203: IF x_msg_count = 1 THEN
17204: x_msg_data := l_msg_data;
17269: ,x_msg_count => l_msg_count
17270: ,x_msg_data => l_msg_data);
17271:
17272: --Check if there is any error.
17273: l_msg_count := FND_MSG_PUB.count_msg;
17274: IF l_msg_count > 0 THEN
17275: x_msg_count := l_msg_count;
17276: IF x_msg_count = 1 THEN
17277: x_msg_data := l_msg_data;
17292: ,x_msg_count => l_msg_count
17293: ,x_msg_data => l_msg_data);
17294:
17295: --Check if there is any error.
17296: l_msg_count := FND_MSG_PUB.count_msg;
17297: IF l_msg_count > 0 THEN
17298: x_msg_count := l_msg_count;
17299: IF x_msg_count = 1 THEN
17300: x_msg_data := l_msg_data;
17363: ,x_msg_data => l_msg_data
17364: );
17365:
17366: --Check if there is any error.
17367: l_msg_count := FND_MSG_PUB.count_msg;
17368: IF l_msg_count > 0 THEN
17369: x_msg_count := l_msg_count;
17370: IF x_msg_count = 1 THEN
17371: x_msg_data := l_msg_data;
17438: ,x_msg_count => x_msg_count
17439: ,x_Msg_data => x_msg_data);
17440: EXCEPTION
17441: WHEN OTHERS THEN
17442: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
17443: p_procedure_name => 'update_structures_setup_attr',
17444: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
17445: RAISE FND_API.G_EXC_ERROR;
17446: END;
17444: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
17445: RAISE FND_API.G_EXC_ERROR;
17446: END;
17447: --Check if there is any error.
17448: l_msg_count := FND_MSG_PUB.count_msg;
17449: IF l_msg_count > 0 THEN
17450: x_msg_count := l_msg_count;
17451: IF x_msg_count = 1 THEN
17452: x_msg_data := l_msg_data;
17519: x_msg_count => l_msg_count,
17520: x_msg_data => l_msg_data);
17521:
17522: --Check if there is any error.
17523: l_msg_count := FND_MSG_PUB.count_msg;
17524: IF l_msg_count > 0 THEN
17525: x_msg_count := l_msg_count;
17526: IF x_msg_count = 1 THEN
17527: x_msg_data := l_msg_data;
17530: END IF;
17531: END IF;
17532:
17533: --Check if there is any error.
17534: l_msg_count := FND_MSG_PUB.count_msg;
17535: IF l_msg_count > 0 THEN
17536: x_msg_count := l_msg_count;
17537: IF x_msg_count = 1 THEN
17538: x_msg_data := l_msg_data;
17600: ,x_msg_count => l_msg_count
17601: ,x_msg_data => l_msg_data );
17602:
17603: --Check if there is any error.
17604: l_msg_count := FND_MSG_PUB.count_msg;
17605: IF l_msg_count > 0 THEN
17606: x_msg_count := l_msg_count;
17607: IF x_msg_count = 1 THEN
17608: x_msg_data := l_msg_data;
17635: ,x_msg_count => l_msg_count
17636: ,x_msg_data => l_msg_data );
17637:
17638: --Check if there is any error.
17639: l_msg_count := FND_MSG_PUB.count_msg;
17640: IF l_msg_count > 0 THEN
17641: x_msg_count := l_msg_count;
17642: IF x_msg_count = 1 THEN
17643: x_msg_data := l_msg_data;
17653: ,x_msg_count => l_msg_count
17654: ,x_msg_data => l_msg_data );
17655:
17656: --Check if there is any error.
17657: l_msg_count := FND_MSG_PUB.count_msg;
17658: IF l_msg_count > 0 THEN
17659: x_msg_count := l_msg_count;
17660: IF x_msg_count = 1 THEN
17661: x_msg_data := l_msg_data;
17672: ,x_msg_count => l_msg_count
17673: ,x_msg_data => l_msg_data);
17674:
17675: --Check if there is any error.
17676: l_msg_count := FND_MSG_PUB.count_msg;
17677: IF l_msg_count > 0 THEN
17678: x_msg_count := l_msg_count;
17679: IF x_msg_count = 1 THEN
17680: x_msg_data := l_msg_data;
17711: ,x_msg_count => l_msg_count
17712: ,x_msg_data => l_msg_data );
17713:
17714: --Check if there is any error.
17715: l_msg_count := FND_MSG_PUB.count_msg;
17716: IF l_msg_count > 0 THEN
17717: x_msg_count := l_msg_count;
17718: IF x_msg_count = 1 THEN
17719: x_msg_data := l_msg_data;
17786: WHEN FND_API.G_EXC_ERROR THEN
17787: IF (p_commit = FND_API.G_TRUE) THEN
17788: ROLLBACK to update_struc_setup_attr_pvt;
17789: END IF;
17790: x_msg_count := FND_MSG_PUB.count_msg;
17791: x_return_status := FND_API.G_RET_STS_ERROR;
17792: WHEN OTHERS THEN
17793: IF (p_commit = FND_API.G_TRUE) THEN
17794: ROLLBACK to update_struc_setup_attr_pvt;
17793: IF (p_commit = FND_API.G_TRUE) THEN
17794: ROLLBACK to update_struc_setup_attr_pvt;
17795: END IF;
17796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17797: x_msg_count := FND_MSG_PUB.count_msg;
17798: --put message
17799: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
17800: p_procedure_name => 'update_structures_setup_attr',
17801: p_error_text => SUBSTRB(SQLERRM,1,240));
17795: END IF;
17796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17797: x_msg_count := FND_MSG_PUB.count_msg;
17798: --put message
17799: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
17800: p_procedure_name => 'update_structures_setup_attr',
17801: p_error_text => SUBSTRB(SQLERRM,1,240));
17802: RAISE;
17803: END update_structures_setup_attr;