[Home] [Help]
228: END IF;
229:
230:
231: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
232: FND_MSG_PUB.initialize;
233: END IF;
234:
235: --Bug 2168170
236:
413: l_carrying_out_org_id := p_carrying_out_org_id;
414: END IF;
415:
416: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
417: x_msg_count := FND_MSG_PUB.count_msg;
418: IF x_msg_count = 1 then
419: pa_interface_utils_pub.get_messages
420: (p_encoded => FND_API.G_TRUE,
421: p_msg_index => 1,
466:
467: -- 3944597 end
468:
469: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
470: x_msg_count := FND_MSG_PUB.count_msg;
471: IF x_msg_count = 1 then
472: pa_interface_utils_pub.get_messages
473: (p_encoded => FND_API.G_TRUE,
474: p_msg_index => 1,
580: -- end xxlu changes
581: --dbms_output.put_line( 'After CREATE_TASK API ' );
582:
583: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
584: x_msg_count := FND_MSG_PUB.count_msg;
585: IF x_msg_count = 1 then
586: pa_interface_utils_pub.get_messages
587: (p_encoded => FND_API.G_TRUE,
588: p_msg_index => 1,
615: if p_commit = FND_API.G_TRUE then
616: rollback to create_task;
617: end if;
618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
619: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
620: p_procedure_name => 'CREATE_TASK',
621: p_error_text => SUBSTRB(SQLERRM,1,240));
622: when OTHERS then
623: if p_commit = FND_API.G_TRUE then
623: if p_commit = FND_API.G_TRUE then
624: rollback to create_task;
625: end if;
626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
627: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
628: p_procedure_name => 'CREATE_TASK',
629: p_error_text => SUBSTRB(SQLERRM,1,240));
630: raise;
631: END Create_Task;
902: END IF;
903:
904:
905: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
906: FND_MSG_PUB.initialize;
907: END IF;
908:
909: --Bug 3940203 avaithia <
910: -- From Forms and SelfService ,User should not be able to null out Organisation Field
1138: RAISE;
1139: END;
1140: END IF;
1141:
1142: l_msg_count := FND_MSG_PUB.count_msg;
1143:
1144: IF l_msg_count > 0 THEN
1145: x_msg_count := l_msg_count;
1146: x_return_status := 'E';
1313: l_carrying_out_org_id := p_carrying_out_org_id;
1314: END IF;
1315: --dbms_output.put_line( 'After calling Name to Id conv : Check_OrgName_Or_Id' );
1316: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1317: x_msg_count := FND_MSG_PUB.count_msg;
1318: IF x_msg_count = 1 then
1319: pa_interface_utils_pub.get_messages
1320: (p_encoded => FND_API.G_TRUE,
1321: p_msg_index => 1,
1362: l_return_status := FND_API.G_RET_STS_ERROR;
1363: END IF;
1364:
1365: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1366: x_msg_count := FND_MSG_PUB.count_msg;
1367: IF x_msg_count = 1 then
1368: pa_interface_utils_pub.get_messages
1369: (p_encoded => FND_API.G_TRUE,
1370: p_msg_index => 1,
1472:
1473: --dbms_output.put_line( 'After calling private API.' );
1474:
1475: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1476: x_msg_count := FND_MSG_PUB.count_msg;
1477: IF x_msg_count = 1 then
1478: pa_interface_utils_pub.get_messages
1479: (p_encoded => FND_API.G_TRUE,
1480: p_msg_index => 1,
1506: if p_commit = FND_API.G_TRUE then
1507: rollback to update_task;
1508: end if;
1509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1510: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
1511: p_procedure_name => 'UPDATE_TASK',
1512: p_error_text => SUBSTRB(SQLERRM,1,240));
1513: when OTHERS then
1514: if p_commit = FND_API.G_TRUE then
1514: if p_commit = FND_API.G_TRUE then
1515: rollback to update_task;
1516: end if;
1517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1518: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
1519: p_procedure_name => 'UPDATE_TASK',
1520: p_error_text => SUBSTRB(SQLERRM,1,240));
1521: raise;
1522:
1633: END IF;
1634:
1635:
1636: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1637: FND_MSG_PUB.initialize;
1638: END IF;
1639:
1640: --dbms_output.put_line( 'Before private API' );
1641:
1678:
1679: --dbms_output.put_line( 'Status after private call in public API '||x_return_status );
1680: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1681: --IF (x_return_status <> 'S' ) THEN
1682: x_msg_count := FND_MSG_PUB.count_msg;
1683: IF x_msg_count = 1 then
1684: pa_interface_utils_pub.get_messages
1685: (p_encoded => FND_API.G_TRUE,
1686: p_msg_index => 1,
1720: if p_commit = FND_API.G_TRUE then
1721: rollback to create_task_version;
1722: end if;
1723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1724: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
1725: p_procedure_name => 'CREATE_TASK_VERSION',
1726: p_error_text => SUBSTRB(SQLERRM,1,240));
1727: when OTHERS then
1728: if p_commit = FND_API.G_TRUE then
1728: if p_commit = FND_API.G_TRUE then
1729: rollback to create_task_version;
1730: end if;
1731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1732: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
1733: p_procedure_name => 'CREATE_TASK_VERSION',
1734: p_error_text => SUBSTRB(SQLERRM,1,240));
1735: raise;
1736: END Create_Task_Version;
1845: END IF;
1846:
1847:
1848: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1849: FND_MSG_PUB.initialize;
1850: END IF;
1851:
1852: --Lock row
1853: IF( p_validate_only <> FND_API.G_TRUE) THEN
1891: RAISE;
1892: END;
1893: END IF;
1894:
1895: l_msg_count := FND_MSG_PUB.count_msg;
1896: IF l_msg_count > 0 THEN
1897: x_msg_count := l_msg_count;
1898: x_return_status := 'E';
1899: RAISE FND_API.G_EXC_ERROR;
1938: ,x_msg_data => x_msg_data
1939: );
1940:
1941: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1942: x_msg_count := FND_MSG_PUB.count_msg;
1943: IF x_msg_count = 1 then
1944: pa_interface_utils_pub.get_messages
1945: (p_encoded => FND_API.G_TRUE,
1946: p_msg_index => 1,
1972: if p_commit = FND_API.G_TRUE then
1973: rollback to update_task_version;
1974: end if;
1975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1976: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
1977: p_procedure_name => 'UPDATE_TASK_VERSION',
1978: p_error_text => SUBSTRB(SQLERRM,1,240));
1979: when OTHERS then
1980: if p_commit = FND_API.G_TRUE then
1980: if p_commit = FND_API.G_TRUE then
1981: rollback to update_task_version;
1982: end if;
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1984: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
1985: p_procedure_name => 'UPDATE_TASK_VERSION',
1986: p_error_text => SUBSTRB(SQLERRM,1,240));
1987: raise;
1988: END update_task_version;
2151: END IF;
2152:
2153:
2154: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2155: FND_MSG_PUB.initialize;
2156: END IF;
2157:
2158: IF p_calling_module <> 'FORMS'
2159: THEN
2203: RAISE;
2204: END;
2205: END IF;
2206:
2207: l_msg_count := FND_MSG_PUB.count_msg;
2208:
2209: IF l_msg_count > 0 AND l_error_occured = 'Y' THEN
2210: x_msg_count := l_msg_count;
2211: x_return_status := 'E';
2355: ,x_msg_count => x_msg_count
2356: ,x_msg_data => x_msg_data);
2357:
2358: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2359: x_msg_count := FND_MSG_PUB.count_msg;
2360: IF x_msg_count = 1 then
2361: pa_interface_utils_pub.get_messages
2362: (p_encoded => FND_API.G_TRUE,
2363: p_msg_index => 1,
2416: ,x_msg_count => x_msg_count
2417: ,x_msg_data => x_msg_data);
2418:
2419: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2420: x_msg_count := FND_MSG_PUB.count_msg;
2421: IF x_msg_count = 1 then
2422: pa_interface_utils_pub.get_messages
2423: (p_encoded => FND_API.G_TRUE,
2424: p_msg_index => 1,
2465: ,x_msg_data => x_msg_data
2466: );
2467:
2468: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2469: x_msg_count := FND_MSG_PUB.count_msg;
2470: IF x_msg_count = 1 then
2471: pa_interface_utils_pub.get_messages
2472: (p_encoded => FND_API.G_TRUE,
2473: p_msg_index => 1,
2499: if p_commit = FND_API.G_TRUE then
2500: rollback to delete_task_version;
2501: end if;
2502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2503: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
2504: p_procedure_name => 'DELETE_TASK_VERSION',
2505: p_error_text => SUBSTRB(SQLERRM,1,240));
2506: when OTHERS then
2507: if p_commit = FND_API.G_TRUE then
2507: if p_commit = FND_API.G_TRUE then
2508: rollback to delete_task_version;
2509: end if;
2510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2511: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
2512: p_procedure_name => 'DELETE_TASK_VERSION',
2513: p_error_text => SUBSTRB(SQLERRM,1,240));
2514: raise;
2515: END delete_task_version;
2647: END IF;
2648:
2649:
2650: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2651: FND_MSG_PUB.initialize;
2652: END IF;
2653:
2654: PA_TASK_PVT1.Create_Schedule_Version(
2655: p_api_version => p_api_version
2712: ,x_msg_data => x_msg_data
2713: );
2714:
2715: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2716: x_msg_count := FND_MSG_PUB.count_msg;
2717: IF x_msg_count = 1 then
2718: pa_interface_utils_pub.get_messages
2719: (p_encoded => FND_API.G_TRUE,
2720: p_msg_index => 1,
2746: if p_commit = FND_API.G_TRUE then
2747: rollback to create_schedule_version;
2748: end if;
2749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2750: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
2751: p_procedure_name => 'CREATE_SCHEDULE_VERSION',
2752: p_error_text => SUBSTRB(SQLERRM,1,240));
2753: when OTHERS then
2754: if p_commit = FND_API.G_TRUE then
2754: if p_commit = FND_API.G_TRUE then
2755: rollback to create_schedule_version;
2756: end if;
2757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2758: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
2759: p_procedure_name => 'CREATE_SCHEDULE_VERSION',
2760: p_error_text => SUBSTRB(SQLERRM,1,240));
2761: raise;
2762:
2950: END IF;
2951:
2952:
2953: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2954: FND_MSG_PUB.initialize;
2955: END IF;
2956:
2957: -- Added for FP_M changes 3305199
2958:
2976: ,x_msg_data => x_msg_data
2977: );
2978:
2979: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
2980: x_msg_count := FND_MSG_PUB.count_msg;
2981: If x_msg_count = 1 then
2982: pa_interface_utils_pub.get_messages
2983: (p_encoded => FND_API.G_TRUE,
2984: p_msg_index => 1,
3100: RAISE;
3101: END;
3102: END IF;
3103:
3104: l_msg_count := FND_MSG_PUB.count_msg;
3105:
3106: IF l_msg_count > 0 THEN
3107: x_msg_count := l_msg_count;
3108: x_return_status := 'E';
3171: ,x_msg_data => x_msg_data
3172: );
3173:
3174: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3175: x_msg_count := FND_MSG_PUB.count_msg;
3176: IF x_msg_count = 1 then
3177: pa_interface_utils_pub.get_messages
3178: (p_encoded => FND_API.G_TRUE,
3179: p_msg_index => 1,
3205: if p_commit = FND_API.G_TRUE then
3206: rollback to update_schedule_version;
3207: end if;
3208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3209: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
3210: p_procedure_name => 'UPDATE_SCHEDULE_VERSION',
3211: p_error_text => SUBSTRB(SQLERRM,1,240));
3212: when OTHERS then
3213: if p_commit = FND_API.G_TRUE then
3213: if p_commit = FND_API.G_TRUE then
3214: rollback to update_schedule_version;
3215: end if;
3216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3217: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
3218: p_procedure_name => 'UPDATE_SCHEDULE_VERSION',
3219: p_error_text => SUBSTRB(SQLERRM,1,240));
3220: raise;
3221: END Update_Schedule_Version;
3770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3771: END IF;
3772:
3773: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3774: FND_MSG_PUB.initialize;
3775: END IF;
3776:
3777: --bug 4075697 copy_task
3778: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
4095: l_src_wp_type := l_wp_type;
4096: END IF;
4097:
4098: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4099: x_msg_count := FND_MSG_PUB.count_msg;
4100: IF x_msg_count = 1 then
4101: pa_interface_utils_pub.get_messages
4102: (p_encoded => FND_API.G_TRUE,
4103: p_msg_index => 1,
4614: END IF;
4615: 4201927*/
4616:
4617: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4618: x_msg_count := FND_MSG_PUB.count_msg;
4619: IF x_msg_count = 1 then
4620: pa_interface_utils_pub.get_messages
4621: (p_encoded => FND_API.G_TRUE,
4622: p_msg_index => 1,
4668: ,x_msg_data => l_msg_data
4669: );
4670:
4671: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4672: x_msg_count := FND_MSG_PUB.count_msg;
4673: IF x_msg_count = 1 then
4674: pa_interface_utils_pub.get_messages
4675: (p_encoded => FND_API.G_TRUE,
4676: p_msg_index => 1,
4791: -- end xxlu changes
4792: /*END IF; 4201927 : This Copy API not called in Move Task Version Context. */
4793:
4794: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4795: x_msg_count := FND_MSG_PUB.count_msg;
4796: IF x_msg_count = 1 then
4797: pa_interface_utils_pub.get_messages
4798: (p_encoded => FND_API.G_TRUE,
4799: p_msg_index => 1,
4918: ,x_msg_count => l_msg_count
4919: ,x_msg_data => l_msg_data );
4920:
4921: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4922: x_msg_count := FND_MSG_PUB.count_msg;
4923: IF x_msg_count = 1 then
4924: pa_interface_utils_pub.get_messages
4925: (p_encoded => FND_API.G_TRUE,
4926: p_msg_index => 1,
4948: x_msg_count => l_msg_count,
4949: x_msg_data => l_msg_data);
4950:
4951: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4952: x_msg_count := FND_MSG_PUB.count_msg;
4953: if x_msg_count = 1 then
4954: pa_interface_utils_pub.get_messages
4955: (p_encoded => FND_API.G_TRUE,
4956: p_msg_index => 1,
4978: ,x_msg_data => l_msg_data
4979: );
4980:
4981: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4982: x_msg_count := FND_MSG_PUB.count_msg;
4983: if x_msg_count = 1 then
4984: pa_interface_utils_pub.get_messages
4985: (p_encoded => FND_API.G_TRUE,
4986: p_msg_index => 1,
5023: ,x_msg_count => l_msg_count
5024: ,x_msg_data => l_msg_data);
5025:
5026: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5027: x_msg_count := FND_MSG_PUB.count_msg;
5028: if x_msg_count = 1 then
5029: pa_interface_utils_pub.get_messages
5030: (p_encoded => FND_API.G_TRUE,
5031: p_msg_index => 1,
5079: ,x_msg_data => l_msg_data
5080: );
5081: EXCEPTION
5082: WHEN OTHERS THEN
5083: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
5084: p_procedure_name => 'COPY_TASK',
5085: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.copy_planning_transactions:'||SQLERRM,1,240));
5086: RAISE FND_API.G_EXC_ERROR;
5087: END;
5087: END;
5088:
5089:
5090: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5091: x_msg_count := FND_MSG_PUB.count_msg;
5092: if x_msg_count = 1 then
5093: pa_interface_utils_pub.get_messages
5094: (p_encoded => FND_API.G_TRUE,
5095: p_msg_index => 1,
5146: );
5147: END IF;
5148: EXCEPTION
5149: WHEN OTHERS THEN
5150: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
5151: p_procedure_name => 'COPY_TASK',
5152: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
5153: RAISE FND_API.G_EXC_ERROR;
5154: END;
5153: RAISE FND_API.G_EXC_ERROR;
5154: END;
5155:
5156: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5157: x_msg_count := FND_MSG_PUB.count_msg;
5158: if x_msg_count = 1 then
5159: pa_interface_utils_pub.get_messages
5160: (p_encoded => FND_API.G_TRUE,
5161: p_msg_index => 1,
5210: ,x_msg_data => l_msg_data
5211: );
5212: EXCEPTION
5213: WHEN OTHERS THEN
5214: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
5215: p_procedure_name => 'COPY_TASK',
5216: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.copy_planning_transactions:'||SQLERRM,1,240));
5217: RAISE FND_API.G_EXC_ERROR;
5218: END;
5218: END;
5219:
5220:
5221: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5222: x_msg_count := FND_MSG_PUB.count_msg;
5223: if x_msg_count = 1 then
5224: pa_interface_utils_pub.get_messages
5225: (p_encoded => FND_API.G_TRUE,
5226: p_msg_index => 1,
5253: ,x_msg_count => l_msg_count
5254: ,x_msg_data => l_msg_data);
5255:
5256: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5257: x_msg_count := FND_MSG_PUB.count_msg;
5258: if x_msg_count = 1 then
5259: pa_interface_utils_pub.get_messages
5260: (p_encoded => FND_API.G_TRUE,
5261: p_msg_index => 1,
5293: if p_commit = FND_API.G_TRUE then
5294: rollback to Copy_Task;
5295: end if;
5296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5297: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
5298: p_procedure_name => 'COPY_TASK',
5299: p_error_text => SUBSTRB(SQLERRM,1,240));
5300: when OTHERS then
5301: if p_commit = FND_API.G_TRUE then
5301: if p_commit = FND_API.G_TRUE then
5302: rollback to Copy_Task;
5303: end if;
5304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5305: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
5306: p_procedure_name => 'COPY_TASK',
5307: p_error_text => SUBSTRB(SQLERRM,1,240));
5308: raise;
5309: END Copy_Task;
5606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5607: END IF;
5608:
5609: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5610: FND_MSG_PUB.initialize;
5611: END IF;
5612:
5613: --bug 4075697
5614: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
5747: --Indenting a task with phase. Error
5748: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_MOVE_PHASE_TASK');
5749: END IF;
5750:
5751: l_msg_count := FND_MSG_PUB.count_msg;
5752: if l_msg_count > 0 then
5753: x_msg_count := l_msg_count;
5754: if x_msg_count = 1 then
5755: pa_interface_utils_pub.get_messages
5941: x_return_status => l_return_status,
5942: x_msg_count => l_msg_count,
5943: x_msg_data => l_msg_data );
5944:
5945: x_msg_count := FND_MSG_PUB.count_msg;
5946:
5947: --dbms_output.put_line( 'Count '|| x_msg_count );
5948:
5949: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5946:
5947: --dbms_output.put_line( 'Count '|| x_msg_count );
5948:
5949: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5950: x_msg_count := FND_MSG_PUB.count_msg;
5951: IF x_msg_count = 1 then
5952: pa_interface_utils_pub.get_messages
5953: (p_encoded => FND_API.G_TRUE,
5954: p_msg_index => 1,
6049: WHERE task_id = l_task_id
6050: AND project_id = l_project_id;
6051: -- merged from 85
6052:
6053: x_msg_count := FND_MSG_PUB.count_msg;
6054:
6055: --dbms_output.put_line( 'before move task old '|| x_msg_count );
6056:
6057: PA_TASKS_MAINT_PUB.Move_Task(
6065: ,x_return_status => l_return_status
6066: ,x_msg_count => l_msg_count
6067: ,x_msg_data => l_msg_data );
6068:
6069: x_msg_count := FND_MSG_PUB.count_msg;
6070:
6071: --dbms_output.put_line( 'After move task old '|| x_msg_count );
6072:
6073:
6071: --dbms_output.put_line( 'After move task old '|| x_msg_count );
6072:
6073:
6074: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6075: x_msg_count := FND_MSG_PUB.count_msg;
6076: IF x_msg_count = 1 then
6077: pa_interface_utils_pub.get_messages
6078: (p_encoded => FND_API.G_TRUE,
6079: p_msg_index => 1,
6119: ,x_msg_data => l_msg_data
6120: );
6121:
6122: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6123: x_msg_count := FND_MSG_PUB.count_msg;
6124: IF x_msg_count = 1 then
6125: pa_interface_utils_pub.get_messages
6126: (p_encoded => FND_API.G_TRUE,
6127: p_msg_index => 1,
6150: , x_msg_count => l_msg_count
6151: );
6152:
6153: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6154: x_msg_count := FND_MSG_PUB.count_msg;
6155: IF x_msg_count = 1 then
6156: pa_interface_utils_pub.get_messages
6157: (p_encoded => FND_API.G_TRUE,
6158: p_msg_index => 1,
6230: ,x_msg_count => l_msg_count
6231: ,x_msg_data => l_msg_data);
6232:
6233: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6234: x_msg_count := FND_MSG_PUB.count_msg;
6235: if x_msg_count = 1 then
6236: pa_interface_utils_pub.get_messages
6237: (p_encoded => FND_API.G_TRUE,
6238: p_msg_index => 1,
6261: ,x_msg_count => l_msg_count
6262: ,x_msg_data => l_msg_data );
6263:
6264: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6265: x_msg_count := FND_MSG_PUB.count_msg;
6266: if x_msg_count = 1 then
6267: pa_interface_utils_pub.get_messages
6268: (p_encoded => FND_API.G_TRUE,
6269: p_msg_index => 1,
6297: ,x_msg_data => x_msg_data
6298: );
6299:
6300: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6301: x_msg_count := FND_MSG_PUB.count_msg;
6302: If x_msg_count = 1 then
6303: pa_interface_utils_pub.get_messages
6304: (p_encoded => FND_API.G_TRUE,
6305: p_msg_index => 1,
6330:
6331: /* Bug 5768425 End */
6332:
6333: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6334: x_msg_count := FND_MSG_PUB.count_msg;
6335: if x_msg_count = 1 then
6336: pa_interface_utils_pub.get_messages
6337: (p_encoded => FND_API.G_TRUE,
6338: p_msg_index => 1,
6356: ,x_msg_data => l_msg_data
6357: );
6358:
6359: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6360: x_msg_count := FND_MSG_PUB.count_msg;
6361: if x_msg_count = 1 then
6362: pa_interface_utils_pub.get_messages
6363: (p_encoded => FND_API.G_TRUE,
6364: p_msg_index => 1,
6380: ,x_msg_data => l_msg_data
6381: );
6382:
6383: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6384: x_msg_count := FND_MSG_PUB.count_msg;
6385: if x_msg_count = 1 then
6386: pa_interface_utils_pub.get_messages
6387: (p_encoded => FND_API.G_TRUE,
6388: p_msg_index => 1,
6454: );
6455: END IF;
6456: EXCEPTION
6457: WHEN OTHERS THEN
6458: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
6459: p_procedure_name => 'MOVE_TASK_VERSION',
6460: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
6461: RAISE FND_API.G_EXC_ERROR;
6462: END;
6460: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
6461: RAISE FND_API.G_EXC_ERROR;
6462: END;
6463: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6464: x_msg_count := FND_MSG_PUB.count_msg;
6465: if x_msg_count = 1 then
6466: pa_interface_utils_pub.get_messages
6467: (p_encoded => FND_API.G_TRUE,
6468: p_msg_index => 1,
6501: if p_commit = FND_API.G_TRUE then
6502: rollback to move_task_version;
6503: end if;
6504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6505: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
6506: p_procedure_name => 'MOVE_TASK_VERSION',
6507: p_error_text => SUBSTRB(SQLERRM,1,240));
6508: when OTHERS then
6509: if p_commit = FND_API.G_TRUE then
6509: if p_commit = FND_API.G_TRUE then
6510: rollback to move_task_version;
6511: end if;
6512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6513: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
6514: p_procedure_name => 'MOVE_TASK_VERSION',
6515: p_error_text => SUBSTRB(SQLERRM,1,240));
6516: raise;
6517: END Move_Task_version;
6640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6641: END IF;
6642:
6643: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
6644: FND_MSG_PUB.initialize;
6645: END IF;
6646:
6647: ----dbms_output.put_line( 'Indent Task Stage 1 ' );
6648: --hsiu
6656: --deleting linked task. Error
6657: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_IND_LINKED_TASK');
6658: END IF;
6659:
6660: l_msg_count := FND_MSG_PUB.count_msg;
6661: if l_msg_count > 0 then
6662: x_msg_count := l_msg_count;
6663: if x_msg_count = 1 then
6664: pa_interface_utils_pub.get_messages
6689: --Indenting a task with phase. Error
6690: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_INDENT_PHASE_TASK');
6691: END IF;
6692:
6693: l_msg_count := FND_MSG_PUB.count_msg;
6694: if l_msg_count > 0 then
6695: x_msg_count := l_msg_count;
6696: if x_msg_count = 1 then
6697: pa_interface_utils_pub.get_messages
6742: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
6743: ,p_msg_name => 'PA_PS_CANNOT_INDENT');
6744: end if;
6745:
6746: l_msg_count := FND_MSG_PUB.count_msg;
6747: if l_msg_count > 0 then
6748: x_msg_count := l_msg_count;
6749: if x_msg_count = 1 then
6750: pa_interface_utils_pub.get_messages
6851: --dbms_output.put_line( 'Indent Task Stage 10 ' );
6852:
6853:
6854: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6855: x_msg_count := FND_MSG_PUB.count_msg;
6856: IF x_msg_count = 1 then
6857: pa_interface_utils_pub.get_messages
6858: (p_encoded => FND_API.G_TRUE,
6859: p_msg_index => 1,
6960: END IF;
6961: CLOSE cur_struc_type;
6962:
6963: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6964: x_msg_count := FND_MSG_PUB.count_msg;
6965: IF x_msg_count = 1 then
6966: pa_interface_utils_pub.get_messages
6967: (p_encoded => FND_API.G_TRUE,
6968: p_msg_index => 1,
6988: x_msg_count => l_msg_count,
6989: x_msg_data => l_msg_data);
6990:
6991: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6992: x_msg_count := FND_MSG_PUB.count_msg;
6993: if x_msg_count = 1 then
6994: pa_interface_utils_pub.get_messages
6995: (p_encoded => FND_API.G_TRUE,
6996: p_msg_index => 1,
7014: ,x_msg_data => l_msg_data
7015: );
7016:
7017: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7018: x_msg_count := FND_MSG_PUB.count_msg;
7019: if x_msg_count = 1 then
7020: pa_interface_utils_pub.get_messages
7021: (p_encoded => FND_API.G_TRUE,
7022: p_msg_index => 1,
7054: if p_commit = FND_API.G_TRUE then
7055: rollback to indent_task_version;
7056: end if;
7057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7058: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
7059: p_procedure_name => 'INDENT_TASK_VERSION',
7060: p_error_text => SUBSTRB(SQLERRM,1,240));
7061: when OTHERS then
7062: if p_commit = FND_API.G_TRUE then
7062: if p_commit = FND_API.G_TRUE then
7063: rollback to indent_task_version;
7064: end if;
7065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7066: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
7067: p_procedure_name => 'INDENT_TASK_VERSION',
7068: p_error_text => SUBSTRB(SQLERRM,1,240));
7069: raise;
7070:
7202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7203: END IF;
7204:
7205: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
7206: FND_MSG_PUB.initialize;
7207: END IF;
7208:
7209: --hsiu
7210: --added on 08-JAN-2002
7217: --deleting linked task. Error
7218: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_OUTD_LINKED_TASK');
7219: END IF;
7220:
7221: l_msg_count := FND_MSG_PUB.count_msg;
7222: if l_msg_count > 0 then
7223: x_msg_count := l_msg_count;
7224: if x_msg_count = 1 then
7225: pa_interface_utils_pub.get_messages
7258: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
7259: ,p_msg_name => 'PA_PS_CANNOT_OUTDENT');
7260: end if;
7261:
7262: l_msg_count := FND_MSG_PUB.count_msg;
7263: if l_msg_count > 0 then
7264: x_msg_count := l_msg_count;
7265: if x_msg_count = 1 then
7266: pa_interface_utils_pub.get_messages
7334: x_msg_count => l_msg_count,
7335: x_msg_data => l_msg_data );
7336:
7337: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7338: x_msg_count := FND_MSG_PUB.count_msg;
7339: IF x_msg_count = 1 then
7340: pa_interface_utils_pub.get_messages
7341: (p_encoded => FND_API.G_TRUE,
7342: p_msg_index => 1,
7437: END IF;
7438: CLOSE cur_struc_type;
7439:
7440: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7441: x_msg_count := FND_MSG_PUB.count_msg;
7442: IF x_msg_count = 1 then
7443: pa_interface_utils_pub.get_messages
7444: (p_encoded => FND_API.G_TRUE,
7445: p_msg_index => 1,
7472: x_msg_count => l_msg_count,
7473: x_msg_data => l_msg_data);
7474:
7475: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7476: x_msg_count := FND_MSG_PUB.count_msg;
7477: if x_msg_count = 1 then
7478: pa_interface_utils_pub.get_messages
7479: (p_encoded => FND_API.G_TRUE,
7480: p_msg_index => 1,
7498: ,x_msg_data => l_msg_data
7499: );
7500:
7501: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7502: x_msg_count := FND_MSG_PUB.count_msg;
7503: if x_msg_count = 1 then
7504: pa_interface_utils_pub.get_messages
7505: (p_encoded => FND_API.G_TRUE,
7506: p_msg_index => 1,
7538: if p_commit = FND_API.G_TRUE then
7539: rollback to outdent_task_version;
7540: end if;
7541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7542: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
7543: p_procedure_name => 'OUTDENT_TASK_VERSION',
7544: p_error_text => SUBSTRB(SQLERRM,1,240));
7545: when OTHERS then
7546: if p_commit = FND_API.G_TRUE then
7546: if p_commit = FND_API.G_TRUE then
7547: rollback to outdent_task_version;
7548: end if;
7549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7550: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
7551: p_procedure_name => 'OUTDENT_TASK_VERSION',
7552: p_error_text => SUBSTRB(SQLERRM,1,240));
7553: raise;
7554: END Outdent_Task_Version;
7709:
7710: BEGIN
7711:
7712: --Clear Error Messages.
7713: FND_MSG_PUB.initialize;
7714:
7715: savepoint create_tasks;
7716:
7717: if p_project_id is null then
7728: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
7729: ,p_msg_name => 'PA_NO_STRUCTURE_VERSION_ID');
7730: end if;
7731:
7732: l_msg_count := FND_MSG_PUB.count_msg;
7733: if l_msg_count > 0 then
7734: x_msg_count := l_msg_count;
7735: if x_msg_count = 1 then
7736: pa_interface_utils_pub.get_messages
7999: ,x_msg_count => l_msg_count
8000: ,x_msg_data => l_msg_data);
8001:
8002: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8003: x_msg_count := FND_MSG_PUB.count_msg;
8004: if x_msg_count = 1 then
8005: pa_interface_utils_pub.get_messages
8006: (p_encoded => FND_API.G_TRUE,
8007: p_msg_index => 1,
8039: ,x_msg_count => l_msg_count
8040: ,x_msg_data => l_msg_data);
8041:
8042: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8043: x_msg_count := FND_MSG_PUB.count_msg;
8044: if x_msg_count = 1 then
8045: pa_interface_utils_pub.get_messages
8046: (p_encoded => FND_API.G_TRUE,
8047: p_msg_index => 1,
8073: ,x_msg_count => l_msg_count
8074: ,x_msg_data => l_msg_data );
8075:
8076: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8077: x_msg_count := FND_MSG_PUB.count_msg;
8078: if x_msg_count = 1 then
8079: pa_interface_utils_pub.get_messages
8080: (p_encoded => FND_API.G_TRUE,
8081: p_msg_index => 1,
8144: ,x_msg_count => l_msg_count
8145: ,x_msg_data => l_msg_data);
8146:
8147: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8148: x_msg_count := FND_MSG_PUB.count_msg;
8149: if x_msg_count = 1 then
8150: pa_interface_utils_pub.get_messages
8151: (p_encoded => FND_API.G_TRUE,
8152: p_msg_index => 1,
8170: ,x_msg_data => l_msg_data
8171: );
8172:
8173: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8174: x_msg_count := FND_MSG_PUB.count_msg;
8175: if x_msg_count = 1 then
8176: pa_interface_utils_pub.get_messages
8177: (p_encoded => FND_API.G_TRUE,
8178: p_msg_index => 1,
8201: ,x_msg_count => l_msg_count
8202: ,x_msg_data => l_msg_data );
8203:
8204: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8205: x_msg_count := FND_MSG_PUB.count_msg;
8206: if x_msg_count = 1 then
8207: pa_interface_utils_pub.get_messages
8208: (p_encoded => FND_API.G_TRUE,
8209: p_msg_index => 1,
8248: x_msg_data => l_msg_data
8249: );
8250:
8251: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8252: x_msg_count := FND_MSG_PUB.count_msg;
8253: if x_msg_count = 1 then
8254: pa_interface_utils_pub.get_messages
8255: (p_encoded => FND_API.G_TRUE,
8256: p_msg_index => 1,
8300: );
8301: END IF;
8302: EXCEPTION
8303: WHEN OTHERS THEN
8304: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCTURE_TASK_PUB',
8305: p_procedure_name => 'CREATE_TASKS',
8306: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
8307: RAISE API_ERROR;
8308: END;
8306: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
8307: RAISE API_ERROR;
8308: END;
8309: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8310: x_msg_count := FND_MSG_PUB.count_msg;
8311: if x_msg_count = 1 then
8312: pa_interface_utils_pub.get_messages
8313: (p_encoded => FND_API.G_TRUE,
8314: p_msg_index => 1,
8336: x_msg_count => l_msg_count,
8337: x_msg_data => l_msg_data);
8338:
8339: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8340: x_msg_count := FND_MSG_PUB.count_msg;
8341: if x_msg_count = 1 then
8342: pa_interface_utils_pub.get_messages
8343: (p_encoded => FND_API.G_TRUE,
8344: p_msg_index => 1,
8380: ,x_msg_count => l_msg_count
8381: ,x_msg_data => l_msg_data );
8382:
8383: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8384: x_msg_count := FND_MSG_PUB.count_msg;
8385: if x_msg_count = 1 then
8386: pa_interface_utils_pub.get_messages
8387: (p_encoded => FND_API.G_TRUE,
8388: p_msg_index => 1,
8405: x_return_status := FND_API.G_RET_STS_ERROR;
8406: WHEN OTHERS THEN
8407: rollback to create_tasks;
8408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8409: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCTURE_TASK_PUB',
8410: p_procedure_name => 'CREATE_TASKS',
8411: p_error_text => SUBSTRB(SQLERRM,1,240));
8412: raise;
8413: END CREATE_TASKS;
8966: x_return_status := FND_API.G_RET_STS_SUCCESS;
8967: EXCEPTION
8968: WHEN OTHERS THEN
8969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8970: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
8971: p_procedure_name => 'CALC_TASK_WEIGHTS',
8972: p_error_text => SUBSTRB(SQLERRM,1,240));
8973: IF l_debug_mode = 'Y' THEN
8974: pa_debug.reset_curr_function;
9033: savepoint update_task_weighting;
9034: END IF;
9035:
9036: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
9037: FND_MSG_PUB.initialize;
9038: END IF;
9039:
9040: PA_TASK_PVT1.Update_Task_Weighting(
9041: p_object_relationship_id => p_object_relationship_id
9056: if p_commit = FND_API.G_TRUE then
9057: rollback to update_task_weighting;
9058: end if;
9059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9060: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
9061: p_procedure_name => 'UPDATE_TASK_WEIGHTING',
9062: p_error_text => SUBSTRB(SQLERRM,1,240));
9063: when OTHERS then
9064: if p_commit = FND_API.G_TRUE then
9064: if p_commit = FND_API.G_TRUE then
9065: rollback to update_task_weighting;
9066: end if;
9067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9068: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
9069: p_procedure_name => 'UPDATE_TASK_WEIGHTING',
9070: p_error_text => SUBSTRB(SQLERRM,1,240));
9071: raise;
9072:
9386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9387: END IF;
9388:
9389: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
9390: FND_MSG_PUB.initialize;
9391: END IF;
9392:
9393: --bug 4075697
9394: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
10020: );
10021:
10022:
10023: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10024: x_msg_count := FND_MSG_PUB.count_msg;
10025: IF x_msg_count = 1 then
10026: pa_interface_utils_pub.get_messages
10027: (p_encoded => FND_API.G_TRUE,
10028: p_msg_index => 1,
10042: ,x_msg_count => l_msg_count
10043: ,x_msg_data => l_msg_data
10044: );
10045:
10046: x_msg_count := FND_MSG_PUB.count_msg;
10047: IF x_msg_count = 1 then
10048: pa_interface_utils_pub.get_messages
10049: (p_encoded => FND_API.G_TRUE,
10050: p_msg_index => 1,
10062: ,x_msg_count => l_msg_count
10063: ,x_msg_data => l_msg_data
10064: );
10065:
10066: x_msg_count := FND_MSG_PUB.count_msg;
10067: IF x_msg_count = 1 then
10068: pa_interface_utils_pub.get_messages
10069: (p_encoded => FND_API.G_TRUE,
10070: p_msg_index => 1,
10145: ,x_msg_data => l_msg_data );
10146:
10147: -- Merged from 85
10148: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10149: x_msg_count := FND_MSG_PUB.count_msg;
10150: IF x_msg_count = 1 then
10151: pa_interface_utils_pub.get_messages
10152: (p_encoded => FND_API.G_TRUE,
10153: p_msg_index => 1,
10191: ,x_msg_data => l_msg_data
10192: );
10193:
10194: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10195: x_msg_count := FND_MSG_PUB.count_msg;
10196: IF x_msg_count = 1 then
10197: pa_interface_utils_pub.get_messages
10198: (p_encoded => FND_API.G_TRUE,
10199: p_msg_index => 1,
10223: , x_msg_count => l_msg_count
10224: );
10225:
10226: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10227: x_msg_count := FND_MSG_PUB.count_msg;
10228: IF x_msg_count = 1 then
10229: pa_interface_utils_pub.get_messages
10230: (p_encoded => FND_API.G_TRUE,
10231: p_msg_index => 1,
10259: ,x_msg_data => x_msg_data
10260: );
10261:
10262: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
10263: x_msg_count := FND_MSG_PUB.count_msg;
10264: If x_msg_count = 1 then
10265: pa_interface_utils_pub.get_messages
10266: (p_encoded => FND_API.G_TRUE,
10267: p_msg_index => 1,
10286: x_msg_count => l_msg_count,
10287: x_msg_data => l_msg_data);
10288:
10289: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10290: x_msg_count := FND_MSG_PUB.count_msg;
10291: if x_msg_count = 1 then
10292: pa_interface_utils_pub.get_messages
10293: (p_encoded => FND_API.G_TRUE,
10294: p_msg_index => 1,
10312: ,x_msg_data => l_msg_data
10313: );
10314:
10315: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10316: x_msg_count := FND_MSG_PUB.count_msg;
10317: if x_msg_count = 1 then
10318: pa_interface_utils_pub.get_messages
10319: (p_encoded => FND_API.G_TRUE,
10320: p_msg_index => 1,
10381: ,x_msg_count => l_msg_count
10382: ,x_msg_data => l_msg_data);
10383:
10384: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10385: x_msg_count := FND_MSG_PUB.count_msg;
10386: if x_msg_count = 1 then
10387: pa_interface_utils_pub.get_messages
10388: (p_encoded => FND_API.G_TRUE,
10389: p_msg_index => 1,
10413: ,x_msg_count => l_msg_count
10414: ,x_msg_data => l_msg_data );
10415:
10416: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10417: x_msg_count := FND_MSG_PUB.count_msg;
10418: if x_msg_count = 1 then
10419: pa_interface_utils_pub.get_messages
10420: (p_encoded => FND_API.G_TRUE,
10421: p_msg_index => 1,
10476: );
10477: END IF;
10478: EXCEPTION
10479: WHEN OTHERS THEN
10480: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
10481: p_procedure_name => 'INDENT_TASK_VERSION_BULK',
10482: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
10483: RAISE FND_API.G_EXC_ERROR;
10484: END;
10483: RAISE FND_API.G_EXC_ERROR;
10484: END;
10485:
10486: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10487: x_msg_count := FND_MSG_PUB.count_msg;
10488: if x_msg_count = 1 then
10489: pa_interface_utils_pub.get_messages
10490: (p_encoded => FND_API.G_TRUE,
10491: p_msg_index => 1,
10524: if p_commit = FND_API.G_TRUE then
10525: rollback to indent_task_version_bulk;
10526: end if;
10527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10528: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
10529: p_procedure_name => 'INDENT_TASK_VERSION_BULK',
10530: p_error_text => SUBSTRB(SQLERRM,1,240));
10531: when OTHERS then
10532: if p_commit = FND_API.G_TRUE then
10532: if p_commit = FND_API.G_TRUE then
10533: rollback to indent_task_version_bulk;
10534: end if;
10535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10536: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
10537: p_procedure_name => 'INDENT_TASK_VERSION_BULK',
10538: p_error_text => SUBSTRB(SQLERRM,1,240));
10539: raise;
10540:
10892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10893: END IF;
10894:
10895: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
10896: FND_MSG_PUB.initialize;
10897: END IF;
10898:
10899: --bug 4075697
10900: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
11533: );
11534:
11535:
11536: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11537: x_msg_count := FND_MSG_PUB.count_msg;
11538: IF x_msg_count = 1 then
11539: pa_interface_utils_pub.get_messages
11540: (p_encoded => FND_API.G_TRUE,
11541: p_msg_index => 1,
11597: ,x_msg_data => x_msg_data
11598: );
11599:
11600: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11601: x_msg_count := FND_MSG_PUB.count_msg;
11602: IF x_msg_count = 1 then
11603: pa_interface_utils_pub.get_messages
11604: (p_encoded => FND_API.G_TRUE,
11605: p_msg_index => 1,
11622: ,x_msg_count => l_msg_count
11623: ,x_msg_data => l_msg_data
11624: );
11625:
11626: x_msg_count := FND_MSG_PUB.count_msg;
11627: IF x_msg_count = 1 then
11628: pa_interface_utils_pub.get_messages
11629: (p_encoded => FND_API.G_TRUE,
11630: p_msg_index => 1,
11642: ,x_msg_count => l_msg_count
11643: ,x_msg_data => l_msg_data
11644: );
11645:
11646: x_msg_count := FND_MSG_PUB.count_msg;
11647: IF x_msg_count = 1 then
11648: pa_interface_utils_pub.get_messages
11649: (p_encoded => FND_API.G_TRUE,
11650: p_msg_index => 1,
11746: ,x_msg_data => l_msg_data
11747: );
11748:
11749: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11750: x_msg_count := FND_MSG_PUB.count_msg;
11751: IF x_msg_count = 1 then
11752: pa_interface_utils_pub.get_messages
11753: (p_encoded => FND_API.G_TRUE,
11754: p_msg_index => 1,
11777: ,x_msg_count => l_msg_count
11778: ,x_msg_data => l_msg_data );
11779:
11780: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11781: x_msg_count := FND_MSG_PUB.count_msg;
11782: IF x_msg_count = 1 then
11783: pa_interface_utils_pub.get_messages
11784: (p_encoded => FND_API.G_TRUE,
11785: p_msg_index => 1,
11823: ,x_msg_data => l_msg_data
11824: );
11825:
11826: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11827: x_msg_count := FND_MSG_PUB.count_msg;
11828: IF x_msg_count = 1 then
11829: pa_interface_utils_pub.get_messages
11830: (p_encoded => FND_API.G_TRUE,
11831: p_msg_index => 1,
11857: , x_msg_count => l_msg_count
11858: );
11859:
11860: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11861: x_msg_count := FND_MSG_PUB.count_msg;
11862: IF x_msg_count = 1 then
11863: pa_interface_utils_pub.get_messages
11864: (p_encoded => FND_API.G_TRUE,
11865: p_msg_index => 1,
11894: ,x_msg_data => x_msg_data
11895: );
11896:
11897: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
11898: x_msg_count := FND_MSG_PUB.count_msg;
11899: If x_msg_count = 1 then
11900: pa_interface_utils_pub.get_messages
11901: (p_encoded => FND_API.G_TRUE,
11902: p_msg_index => 1,
11926: x_msg_count => l_msg_count,
11927: x_msg_data => l_msg_data);
11928:
11929: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11930: x_msg_count := FND_MSG_PUB.count_msg;
11931: if x_msg_count = 1 then
11932: pa_interface_utils_pub.get_messages
11933: (p_encoded => FND_API.G_TRUE,
11934: p_msg_index => 1,
11951: ,x_msg_data => l_msg_data
11952: );
11953:
11954: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11955: x_msg_count := FND_MSG_PUB.count_msg;
11956: if x_msg_count = 1 then
11957: pa_interface_utils_pub.get_messages
11958: (p_encoded => FND_API.G_TRUE,
11959: p_msg_index => 1,
12017: ,x_msg_count => l_msg_count
12018: ,x_msg_data => l_msg_data);
12019:
12020: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12021: x_msg_count := FND_MSG_PUB.count_msg;
12022: if x_msg_count = 1 then
12023: pa_interface_utils_pub.get_messages
12024: (p_encoded => FND_API.G_TRUE,
12025: p_msg_index => 1,
12050: ,x_msg_count => l_msg_count
12051: ,x_msg_data => l_msg_data );
12052:
12053: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12054: x_msg_count := FND_MSG_PUB.count_msg;
12055: if x_msg_count = 1 then
12056: pa_interface_utils_pub.get_messages
12057: (p_encoded => FND_API.G_TRUE,
12058: p_msg_index => 1,
12113: );
12114: END IF;
12115: EXCEPTION
12116: WHEN OTHERS then
12117: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12118: p_procedure_name => 'OUTDENT_TASK_VERSION_BULK',
12119: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
12120: RAISE FND_API.G_EXC_ERROR;
12121: END;
12119: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
12120: RAISE FND_API.G_EXC_ERROR;
12121: END;
12122: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12123: x_msg_count := FND_MSG_PUB.count_msg;
12124: if x_msg_count = 1 then
12125: pa_interface_utils_pub.get_messages
12126: (p_encoded => FND_API.G_TRUE,
12127: p_msg_index => 1,
12161: if p_commit = FND_API.G_TRUE then
12162: rollback to OUTDENT_task_version_bulk;
12163: end if;
12164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12165: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12166: p_procedure_name => 'OUTDENT_TASK_VERSION_BULK',
12167: p_error_text => SUBSTRB(SQLERRM,1,240));
12168: when OTHERS then
12169: if p_commit = FND_API.G_TRUE then
12169: if p_commit = FND_API.G_TRUE then
12170: rollback to OUTDENT_task_version_bulk;
12171: end if;
12172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12173: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12174: p_procedure_name => 'OUTDENT_TASK_VERSION_BULK',
12175: p_error_text => SUBSTRB(SQLERRM,1,240));
12176: raise;
12177:
12314: --bug: 3641049
12315: --comment out rollback because if there is an error, it will be rollback twice causing an exception
12316: --rollback to delete_bulk;
12317:
12318: FND_MSG_PUB.initialize;
12319:
12320: FOR k in reverse l_element_name_tbl.FIRST..l_element_name_tbl.LAST LOOP
12321:
12322: PA_UTILS.ADD_MESSAGE
12334: END LOOP ;
12335:
12336: END IF ;
12337:
12338: x_msg_count := FND_MSG_PUB.count_msg ;
12339:
12340: IF x_msg_count > 0 THEN
12341: x_return_status := 'E' ;
12342: --hsiu: commenting out due to p1 issue.
12368: --hsiu: commenting out due to p1 issue.
12369: -- savepoint should be issued only when p_commit
12370: -- is true, which is a missing parameter
12371: -- rollback to delete_bulk;
12372: FND_MSG_PUB.add_exc_msg
12373: ( p_pkg_name => 'PA_TASK_PUB1'
12374: ,p_procedure_name => 'DELETE_TASK_VERSION_IN_BULK' );
12375: IF l_debug_mode = 'Y' THEN
12376: pa_debug.write('DELETE_TASK_VERSION_IN_BULK' || G_PKG_NAME,SQLERRM,4);
12435: pa_debug.debug('PA_TASK_PUB1.UPDATE_TASK_ASSOCIATION START');
12436: END IF;
12437:
12438: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
12439: FND_MSG_PUB.initialize;
12440: END IF;
12441:
12442: IF (p_commit = FND_API.G_TRUE) THEN
12443: savepoint update_task_association;
12522: END IF;
12523:
12524:
12525: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12526: x_msg_count := FND_MSG_PUB.count_msg;
12527: IF x_msg_count = 1 then
12528: pa_interface_utils_pub.get_messages
12529: (p_encoded => FND_API.G_TRUE,
12530: p_msg_index => 1,
12550: WHEN FND_API.G_EXC_ERROR THEN
12551: IF (p_commit = FND_API.G_TRUE) THEN
12552: ROLLBACK to update_task_association;
12553: END IF;
12554: x_msg_count := FND_MSG_PUB.count_msg;
12555: x_return_status := FND_API.G_RET_STS_ERROR;
12556: WHEN OTHERS THEN
12557: IF (p_commit = FND_API.G_TRUE) THEN
12558: ROLLBACK to update_task_association;
12557: IF (p_commit = FND_API.G_TRUE) THEN
12558: ROLLBACK to update_task_association;
12559: END IF;
12560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12561: x_msg_count := FND_MSG_PUB.count_msg;
12562: --put message
12563: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12564: p_procedure_name => 'update_task_association',
12565: p_error_text => SUBSTRB(SQLERRM,1,240));
12559: END IF;
12560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12561: x_msg_count := FND_MSG_PUB.count_msg;
12562: --put message
12563: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12564: p_procedure_name => 'update_task_association',
12565: p_error_text => SUBSTRB(SQLERRM,1,240));
12566: RAISE;
12567:
12608: pa_debug.debug('PA_TASK_PUB1.DELETE_TASK_ASSOCIATION START');
12609: END IF;
12610:
12611: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
12612: FND_MSG_PUB.initialize;
12613: END IF;
12614:
12615: IF (p_commit = FND_API.G_TRUE) THEN
12616: savepoint delete_task_association;
12630: END IF;
12631: END IF;
12632:
12633: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12634: x_msg_count := FND_MSG_PUB.count_msg;
12635: IF x_msg_count = 1 then
12636: pa_interface_utils_pub.get_messages
12637: (p_encoded => FND_API.G_TRUE,
12638: p_msg_index => 1,
12659: WHEN FND_API.G_EXC_ERROR THEN
12660: IF (p_commit = FND_API.G_TRUE) THEN
12661: ROLLBACK to delete_task_association;
12662: END IF;
12663: x_msg_count := FND_MSG_PUB.count_msg;
12664: x_return_status := FND_API.G_RET_STS_ERROR;
12665: WHEN OTHERS THEN
12666: IF (p_commit = FND_API.G_TRUE) THEN
12667: ROLLBACK to delete_task_association;
12666: IF (p_commit = FND_API.G_TRUE) THEN
12667: ROLLBACK to delete_task_association;
12668: END IF;
12669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12670: x_msg_count := FND_MSG_PUB.count_msg;
12671: --put message
12672: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12673: p_procedure_name => 'delete_all_task_associations',
12674: p_error_text => SUBSTRB(SQLERRM,1,240));
12668: END IF;
12669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12670: x_msg_count := FND_MSG_PUB.count_msg;
12671: --put message
12672: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12673: p_procedure_name => 'delete_all_task_associations',
12674: p_error_text => SUBSTRB(SQLERRM,1,240));
12675: RAISE;
12676:
12710:
12711: EXCEPTION
12712: WHEN OTHERS THEN
12713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12714: --x_msg_count := FND_MSG_PUB.count_msg;
12715: --put message
12716: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12717: p_procedure_name => 'delete_association',
12718: p_error_text => SUBSTRB(SQLERRM,1,240));
12712: WHEN OTHERS THEN
12713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12714: --x_msg_count := FND_MSG_PUB.count_msg;
12715: --put message
12716: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12717: p_procedure_name => 'delete_association',
12718: p_error_text => SUBSTRB(SQLERRM,1,240));
12719:
12720: RAISE;
12861: IF (p_debug_mode = 'Y') THEN
12862: pa_debug.debug('PA_TASK_PUB1.Delete_Proj_To_Task_Assoc START');
12863: END IF;
12864: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
12865: FND_MSG_PUB.initialize;
12866: END IF;
12867:
12868: IF (p_commit = FND_API.G_TRUE) THEN
12869: savepoint delete_prj_to_task_assoc;
12883: END IF;
12884: END IF;
12885:
12886: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12887: x_msg_count := FND_MSG_PUB.count_msg;
12888: IF x_msg_count = 1 then
12889: pa_interface_utils_pub.get_messages
12890: (p_encoded => FND_API.G_TRUE,
12891: p_msg_index => 1,
12910: WHEN FND_API.G_EXC_ERROR THEN
12911: IF (p_commit = FND_API.G_TRUE) THEN
12912: ROLLBACK to delete_prj_to_task_assoc;
12913: END IF;
12914: x_msg_count := FND_MSG_PUB.count_msg;
12915: x_return_status := FND_API.G_RET_STS_ERROR;
12916: WHEN OTHERS THEN
12917: IF (p_commit = FND_API.G_TRUE) THEN
12918: ROLLBACK to delete_prj_to_task_assoc;
12918: ROLLBACK to delete_prj_to_task_assoc;
12919: END IF;
12920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12921: --put message
12922: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12923: p_procedure_name => 'delete_proj_to_task_assoc',
12924: p_error_text => SUBSTRB(SQLERRM,1,240));
12925: RAISE;
12926: END Delete_Proj_To_Task_Assoc;
12981:
12982: x_return_status := FND_API.G_RET_STS_SUCCESS;
12983:
12984: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
12985: FND_MSG_PUB.initialize;
12986: END IF;
12987:
12988: IF (p_commit = FND_API.G_TRUE) THEN
12989: savepoint copy_task_associations;
13030: END IF;
13031: END LOOP;
13032:
13033: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13034: x_msg_count := FND_MSG_PUB.count_msg;
13035: IF x_msg_count = 1 then
13036: pa_interface_utils_pub.get_messages
13037: (p_encoded => FND_API.G_TRUE,
13038: p_msg_index => 1,
13057: WHEN FND_API.G_EXC_ERROR THEN
13058: IF (p_commit = FND_API.G_TRUE) THEN
13059: ROLLBACK to copy_task_associations;
13060: END IF;
13061: x_msg_count := FND_MSG_PUB.count_msg;
13062: x_return_status := FND_API.G_RET_STS_ERROR;
13063: WHEN OTHERS THEN
13064: IF (p_commit = FND_API.G_TRUE) THEN
13065: ROLLBACK to copy_task_associations;
13065: ROLLBACK to copy_task_associations;
13066: END IF;
13067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13068: --put message
13069: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13070: p_procedure_name => 'Copy_Task_Associations',
13071: p_error_text => SUBSTRB(SQLERRM,1,240));
13072: RAISE;
13073: END Copy_Task_Associations;
13151: ,x_msg_data => l_msg_data
13152: );
13153: EXCEPTION
13154: WHEN OTHERS THEN
13155: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13156: p_procedure_name => 'call_add_planning_txns',
13157: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
13158: raise API_ERROR;
13159: END;
13157: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
13158: raise API_ERROR;
13159: END;
13160: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
13161: x_msg_count := FND_MSG_PUB.count_msg;
13162: if x_msg_count = 1 then
13163: pa_interface_utils_pub.get_messages
13164: (p_encoded => FND_API.G_TRUE,
13165: p_msg_index => 1,
13178: WHEN API_ERROR THEN
13179: x_return_status := FND_API.G_RET_STS_ERROR;
13180: WHEN OTHERS THEN
13181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13182: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13183: p_procedure_name => 'call_add_planning_txns',
13184: p_error_text => SUBSTRB(SQLERRM,1,240));
13185: raise;
13186: END call_add_planning_txns;
13669: x_msg_data => l_msg_data
13670: );
13671:
13672: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13673: l_msg_count := FND_MSG_PUB.count_msg;
13674: IF l_msg_count > 0 THEN
13675: x_msg_count := l_msg_count;
13676: IF x_msg_count = 1 THEN
13677: x_msg_data := l_msg_data;
13765: );
13766: END IF;
13767: EXCEPTION
13768: WHEN OTHERS THEN
13769: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13770: p_procedure_name => 'update_task_det_sch_info',
13771: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.update_planning_transactions:'||SQLERRM,1,240));
13772: RAISE FND_API.G_EXC_ERROR;
13773: END;
14549:
14550: /* END: The above actions are to be performed only when p_object_type = 'PA_ASSIGNMENTS'. */
14551:
14552: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
14553: x_msg_count := FND_MSG_PUB.count_msg;
14554: if x_msg_count = 1 then
14555: pa_interface_utils_pub.get_messages
14556: (p_encoded => FND_API.G_TRUE,
14557: p_msg_index => 1,
14570: WHEN FND_API.G_EXC_ERROR THEN
14571: IF (p_commit = FND_API.G_TRUE) THEN
14572: ROLLBACK to UPDATE_task_det_sch;
14573: END IF;
14574: x_msg_count := FND_MSG_PUB.count_msg;
14575: x_return_status := FND_API.G_RET_STS_ERROR;
14576: WHEN OTHERS THEN
14577: IF (p_commit = FND_API.G_TRUE) THEN
14578: ROLLBACK to UPDATE_task_det_sch;
14577: IF (p_commit = FND_API.G_TRUE) THEN
14578: ROLLBACK to UPDATE_task_det_sch;
14579: END IF;
14580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14581: x_msg_count := FND_MSG_PUB.count_msg;
14582: --put message
14583: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
14584: p_procedure_name => 'update_task_det_sch_info',
14585: p_error_text => SUBSTRB(SQLERRM,1,240));
14579: END IF;
14580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14581: x_msg_count := FND_MSG_PUB.count_msg;
14582: --put message
14583: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
14584: p_procedure_name => 'update_task_det_sch_info',
14585: p_error_text => SUBSTRB(SQLERRM,1,240));
14586: RAISE;
14587:
14746: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14747: END IF;
14748:
14749: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
14750: FND_MSG_PUB.initialize;
14751: END IF;
14752:
14753: IF p_calling_module = 'SELF_SERVICE' THEN
14754:
14890: RAISE FND_API.G_EXC_ERROR;
14891: END IF;
14892:
14893: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
14894: x_msg_count := FND_MSG_PUB.count_msg;
14895: IF x_msg_count = 1 then
14896: pa_interface_utils_pub.get_messages
14897: (p_encoded => FND_API.G_TRUE,
14898: p_msg_index => 1,
15046: if p_commit = FND_API.G_TRUE then
15047: rollback to Copy_Tasks_in_bulk;
15048: end if;
15049: x_return_status := FND_API.G_RET_STS_ERROR;
15050: x_msg_count := Fnd_Msg_Pub.count_msg;
15051: IF x_msg_count = 1 AND x_msg_data IS NULL
15052: THEN
15053: Pa_Interface_Utils_Pub.get_messages
15054: ( p_encoded => Fnd_Api.G_TRUE
15063: if p_commit = FND_API.G_TRUE then
15064: rollback to Copy_Tasks_in_bulk;
15065: end if;
15066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15067: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15068: p_procedure_name => 'COPY_TASKS_IN_BULK',
15069: p_error_text => SUBSTRB(SQLERRM,1,240));
15070: when OTHERS then
15071: if p_commit = FND_API.G_TRUE then
15071: if p_commit = FND_API.G_TRUE then
15072: rollback to Copy_Tasks_in_bulk;
15073: end if;
15074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15075: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15076: p_procedure_name => 'COPY_TASKS_IN_BULK',
15077: p_error_text => SUBSTRB(SQLERRM,1,240));
15078: raise;
15079:
15224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15225: END IF;
15226:
15227: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
15228: FND_MSG_PUB.initialize;
15229: END IF;
15230: IF p_calling_module = 'SELF_SERVICE' THEN
15231:
15232: /*Product Code related validation*/
15383: if p_commit = FND_API.G_TRUE then
15384: rollback to MOVE_TASK_VERSIONS_IN_BULK;
15385: end if;
15386: x_return_status := FND_API.G_RET_STS_ERROR;
15387: x_msg_count := Fnd_Msg_Pub.count_msg;
15388:
15389: IF x_msg_count = 1 AND x_msg_data IS NULL
15390: THEN
15391: Pa_Interface_Utils_Pub.get_messages
15402: if p_commit = FND_API.G_TRUE then
15403: rollback to MOVE_TASK_VERSIONS_IN_BULK;
15404: end if;
15405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15406: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15407: p_procedure_name => 'MOVE_TASK_VERSIONS_IN_BULK',
15408: p_error_text => SUBSTRB(SQLERRM,1,240));
15409: when OTHERS then
15410: if p_commit = FND_API.G_TRUE then
15410: if p_commit = FND_API.G_TRUE then
15411: rollback to MOVE_TASK_VERSIONS_IN_BULK;
15412: end if;
15413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15414: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15415: p_procedure_name => 'MOVE_TASK_VERSIONS_IN_BULK',
15416: p_error_text => SUBSTRB(SQLERRM,1,240));
15417: raise;
15418: END MOVE_TASK_VERSIONS_IN_BULK ;
15506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15507: END IF;
15508:
15509: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
15510: FND_MSG_PUB.initialize;
15511: END IF;
15512:
15513: x_return_status := FND_API.G_RET_STS_SUCCESS;
15514:
15542: ,x_msg_data => l_msg_data
15543: );
15544:
15545: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15546: x_msg_count := FND_MSG_PUB.count_msg;
15547: IF x_msg_count = 1 then
15548: pa_interface_utils_pub.get_messages
15549: (
15550: p_encoded => FND_API.G_TRUE,
15579: ,x_msg_data => l_msg_data
15580: );
15581:
15582: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15583: x_msg_count := FND_MSG_PUB.count_msg;
15584: IF x_msg_count = 1 then
15585: pa_interface_utils_pub.get_messages
15586: (
15587: p_encoded => FND_API.G_TRUE,
15610: ,x_msg_data => l_msg_data
15611: );
15612:
15613: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15614: x_msg_count := FND_MSG_PUB.count_msg;
15615: IF x_msg_count = 1 then
15616: pa_interface_utils_pub.get_messages
15617: (
15618: p_encoded => FND_API.G_TRUE,
15639: ,x_msg_data => l_msg_data
15640: );
15641:
15642: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15643: x_msg_count := FND_MSG_PUB.count_msg;
15644: IF x_msg_count = 1 then
15645: pa_interface_utils_pub.get_messages
15646: (
15647: p_encoded => FND_API.G_TRUE,
15679: if p_commit = FND_API.G_TRUE then
15680: rollback to update_Task_all_info;
15681: end if;
15682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15683: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15684: p_procedure_name => 'Update_Task_All_Info',
15685: p_error_text => SUBSTRB(SQLERRM,1,240));
15686: when OTHERS then
15687: if p_commit = FND_API.G_TRUE then
15687: if p_commit = FND_API.G_TRUE then
15688: rollback to update_Task_all_info;
15689: end if;
15690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15691: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15692: p_procedure_name => 'Update_Task_All_Info',
15693: p_error_text => SUBSTRB(SQLERRM,1,240));
15694: raise;
15695:
15806: pa_debug.write(l_module_name,'p_cancel_status_code='||p_cancel_status_code, 3);
15807: END IF;
15808:
15809: IF p_init_msg_list = 'T' THEN
15810: FND_MSG_PUB.initialize;
15811: END IF;
15812:
15813: IF l_debug_mode = 'Y' THEN
15814: pa_debug.write(l_module_name,'Calling Check_chg_stat_cancel_ok', 3);
15929: END LOOP;
15930: EXCEPTION
15931: when FND_API.G_EXC_ERROR then
15932: x_return_status := FND_API.G_RET_STS_ERROR;
15933: x_msg_count := fnd_msg_pub.count_msg;
15934: ROLLBACK to CANCEL_TASK_SP;
15935: when FND_API.G_EXC_UNEXPECTED_ERROR then
15936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15937: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15933: x_msg_count := fnd_msg_pub.count_msg;
15934: ROLLBACK to CANCEL_TASK_SP;
15935: when FND_API.G_EXC_UNEXPECTED_ERROR then
15936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15937: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15938: p_procedure_name => 'CANCEL_TASK',
15939: p_error_text => SUBSTRB(SQLERRM,1,240));
15940: x_msg_count := fnd_msg_pub.count_msg;
15941: ROLLBACK to CANCEL_TASK_SP;
15936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15937: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15938: p_procedure_name => 'CANCEL_TASK',
15939: p_error_text => SUBSTRB(SQLERRM,1,240));
15940: x_msg_count := fnd_msg_pub.count_msg;
15941: ROLLBACK to CANCEL_TASK_SP;
15942: when OTHERS then
15943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15944: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15940: x_msg_count := fnd_msg_pub.count_msg;
15941: ROLLBACK to CANCEL_TASK_SP;
15942: when OTHERS then
15943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15944: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15945: p_procedure_name => 'CANCEL_TASK',
15946: p_error_text => SUBSTRB(SQLERRM,1,240));
15947: x_msg_count := fnd_msg_pub.count_msg;
15948: ROLLBACK to CANCEL_TASK_SP;
15943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15944: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15945: p_procedure_name => 'CANCEL_TASK',
15946: p_error_text => SUBSTRB(SQLERRM,1,240));
15947: x_msg_count := fnd_msg_pub.count_msg;
15948: ROLLBACK to CANCEL_TASK_SP;
15949: raise;
15950: END CANCEL_TASK;
15951:
16035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16036: END IF;
16037:
16038: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
16039: FND_MSG_PUB.initialize;
16040: END IF;
16041:
16042: x_return_status := FND_API.G_RET_STS_SUCCESS;
16043:
16072: -- Loop through the sorted list and indent each task version.
16073: for k in 1..l_count
16074: loop
16075: -- Clear the message stack.
16076: FND_MSG_PUB.initialize;
16077:
16078: -- Call the API: PA_TASK_PUB1.INDENT_TASK_VERSION_BULK().
16079: PA_TASK_PUB1.INDENT_TASK_VERSION_BULK
16080: (p_api_version => p_api_version
16119: -- Set the return status to error.
16120: x_return_status := FND_API.G_RET_STS_ERROR;
16121:
16122: -- Clear all previous messages from the message stack.
16123: FND_MSG_PUB.initialize;
16124:
16125: -- Populate the generic error message.
16126: PA_UTILS.ADD_MESSAGE('PA','PA_PS_GENERIC_ERROR');
16127:
16166: if p_commit = FND_API.G_TRUE then
16167: rollback to indent_multi_task_version;
16168: end if;
16169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16170: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16171: p_procedure_name => 'INDENT_MULTI_TASK_VERSION',
16172: p_error_text => SUBSTRB(SQLERRM,1,240));
16173: when OTHERS then
16174: if p_commit = FND_API.G_TRUE then
16174: if p_commit = FND_API.G_TRUE then
16175: rollback to indent_multi_task_version;
16176: end if;
16177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16178: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16179: p_procedure_name => 'INDENT_MULTI_TASK_VERSION',
16180: p_error_text => SUBSTRB(SQLERRM,1,240));
16181:
16182: raise;
16267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16268: END IF;
16269:
16270: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
16271: FND_MSG_PUB.initialize;
16272: END IF;
16273:
16274: x_return_status := FND_API.G_RET_STS_SUCCESS;
16275:
16304: -- Loop through the sorted list and outdent each task version.
16305: for k in 1..l_count
16306: loop
16307: -- Clear the message stack.
16308: FND_MSG_PUB.initialize;
16309:
16310: -- Call the API: PA_TASK_PUB1.OUTDENT_TASK_VERSION_BULK().
16311: PA_TASK_PUB1.OUTDENT_TASK_VERSION_BULK
16312: (p_api_version => p_api_version
16351: -- Set the return status to error.
16352: x_return_status := FND_API.G_RET_STS_ERROR;
16353:
16354: -- Clear all previous messages from the message stack.
16355: FND_MSG_PUB.initialize;
16356:
16357: -- Populate the generic error message.
16358: PA_UTILS.ADD_MESSAGE('PA','PA_PS_GENERIC_ERROR');
16359:
16392: if p_commit = FND_API.G_TRUE then
16393: rollback to outdent_multi_task_version;
16394: end if;
16395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16396: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16397: p_procedure_name => 'OUTDENT_MULTI_TASK_VERSION',
16398: p_error_text => SUBSTRB(SQLERRM,1,240));
16399: when OTHERS then
16400: if p_commit = FND_API.G_TRUE then
16400: if p_commit = FND_API.G_TRUE then
16401: rollback to outdent_multi_task_version;
16402: end if;
16403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16404: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16405: p_procedure_name => 'OUTDENT_MULTI_TASK_VERSION',
16406: p_error_text => SUBSTRB(SQLERRM,1,240));
16407:
16408: raise;