[Home] [Help]
233: END IF;
234:
235:
236: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
237: FND_MSG_PUB.initialize;
238: END IF;
239:
240: --Bug 2168170
241:
418: l_carrying_out_org_id := p_carrying_out_org_id;
419: END IF;
420:
421: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
422: x_msg_count := FND_MSG_PUB.count_msg;
423: IF x_msg_count = 1 then
424: pa_interface_utils_pub.get_messages
425: (p_encoded => FND_API.G_TRUE,
426: p_msg_index => 1,
471:
472: -- 3944597 end
473:
474: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
475: x_msg_count := FND_MSG_PUB.count_msg;
476: IF x_msg_count = 1 then
477: pa_interface_utils_pub.get_messages
478: (p_encoded => FND_API.G_TRUE,
479: p_msg_index => 1,
588: -- end xxlu changes
589: --dbms_output.put_line( 'After CREATE_TASK API ' );
590:
591: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
592: x_msg_count := FND_MSG_PUB.count_msg;
593: IF x_msg_count = 1 then
594: pa_interface_utils_pub.get_messages
595: (p_encoded => FND_API.G_TRUE,
596: p_msg_index => 1,
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: when OTHERS then
631: if p_commit = FND_API.G_TRUE then
631: if p_commit = FND_API.G_TRUE then
632: rollback to create_task;
633: end if;
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
636: p_procedure_name => 'CREATE_TASK',
637: p_error_text => SUBSTRB(SQLERRM,1,240));
638: raise;
639: END Create_Task;
913: END IF;
914:
915:
916: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
917: FND_MSG_PUB.initialize;
918: END IF;
919:
920: --Bug 3940203 avaithia <
921: -- From Forms and SelfService ,User should not be able to null out Organisation Field
1149: RAISE;
1150: END;
1151: END IF;
1152:
1153: l_msg_count := FND_MSG_PUB.count_msg;
1154:
1155: IF l_msg_count > 0 THEN
1156: x_msg_count := l_msg_count;
1157: x_return_status := 'E';
1324: l_carrying_out_org_id := p_carrying_out_org_id;
1325: END IF;
1326: --dbms_output.put_line( 'After calling Name to Id conv : Check_OrgName_Or_Id' );
1327: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1328: x_msg_count := FND_MSG_PUB.count_msg;
1329: IF x_msg_count = 1 then
1330: pa_interface_utils_pub.get_messages
1331: (p_encoded => FND_API.G_TRUE,
1332: p_msg_index => 1,
1373: l_return_status := FND_API.G_RET_STS_ERROR;
1374: END IF;
1375:
1376: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1377: x_msg_count := FND_MSG_PUB.count_msg;
1378: IF x_msg_count = 1 then
1379: pa_interface_utils_pub.get_messages
1380: (p_encoded => FND_API.G_TRUE,
1381: p_msg_index => 1,
1485:
1486: --dbms_output.put_line( 'After calling private API.' );
1487:
1488: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1489: x_msg_count := FND_MSG_PUB.count_msg;
1490: IF x_msg_count = 1 then
1491: pa_interface_utils_pub.get_messages
1492: (p_encoded => FND_API.G_TRUE,
1493: p_msg_index => 1,
1519: if p_commit = FND_API.G_TRUE then
1520: rollback to update_task;
1521: end if;
1522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1523: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
1524: p_procedure_name => 'UPDATE_TASK',
1525: p_error_text => SUBSTRB(SQLERRM,1,240));
1526: when OTHERS then
1527: if p_commit = FND_API.G_TRUE then
1527: if p_commit = FND_API.G_TRUE then
1528: rollback to update_task;
1529: end if;
1530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1531: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
1532: p_procedure_name => 'UPDATE_TASK',
1533: p_error_text => SUBSTRB(SQLERRM,1,240));
1534: raise;
1535:
1646: END IF;
1647:
1648:
1649: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1650: FND_MSG_PUB.initialize;
1651: END IF;
1652:
1653: --dbms_output.put_line( 'Before private API' );
1654:
1691:
1692: --dbms_output.put_line( 'Status after private call in public API '||x_return_status );
1693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1694: --IF (x_return_status <> 'S' ) THEN
1695: x_msg_count := FND_MSG_PUB.count_msg;
1696: IF x_msg_count = 1 then
1697: pa_interface_utils_pub.get_messages
1698: (p_encoded => FND_API.G_TRUE,
1699: p_msg_index => 1,
1733: if p_commit = FND_API.G_TRUE then
1734: rollback to create_task_version;
1735: end if;
1736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1737: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
1738: p_procedure_name => 'CREATE_TASK_VERSION',
1739: p_error_text => SUBSTRB(SQLERRM,1,240));
1740: when OTHERS then
1741: if p_commit = FND_API.G_TRUE then
1741: if p_commit = FND_API.G_TRUE then
1742: rollback to create_task_version;
1743: end if;
1744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1745: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
1746: p_procedure_name => 'CREATE_TASK_VERSION',
1747: p_error_text => SUBSTRB(SQLERRM,1,240));
1748: raise;
1749: END Create_Task_Version;
1858: END IF;
1859:
1860:
1861: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1862: FND_MSG_PUB.initialize;
1863: END IF;
1864:
1865: --Lock row
1866: IF( p_validate_only <> FND_API.G_TRUE) THEN
1904: RAISE;
1905: END;
1906: END IF;
1907:
1908: l_msg_count := FND_MSG_PUB.count_msg;
1909: IF l_msg_count > 0 THEN
1910: x_msg_count := l_msg_count;
1911: x_return_status := 'E';
1912: RAISE FND_API.G_EXC_ERROR;
1951: ,x_msg_data => x_msg_data
1952: );
1953:
1954: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1955: x_msg_count := FND_MSG_PUB.count_msg;
1956: IF x_msg_count = 1 then
1957: pa_interface_utils_pub.get_messages
1958: (p_encoded => FND_API.G_TRUE,
1959: p_msg_index => 1,
1985: if p_commit = FND_API.G_TRUE then
1986: rollback to update_task_version;
1987: end if;
1988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1989: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
1990: p_procedure_name => 'UPDATE_TASK_VERSION',
1991: p_error_text => SUBSTRB(SQLERRM,1,240));
1992: when OTHERS then
1993: if p_commit = FND_API.G_TRUE then
1993: if p_commit = FND_API.G_TRUE then
1994: rollback to update_task_version;
1995: end if;
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1997: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
1998: p_procedure_name => 'UPDATE_TASK_VERSION',
1999: p_error_text => SUBSTRB(SQLERRM,1,240));
2000: raise;
2001: END update_task_version;
2191: END IF;
2192:
2193:
2194: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2195: FND_MSG_PUB.initialize;
2196: END IF;
2197:
2198: IF p_calling_module <> 'FORMS'
2199: THEN
2243: RAISE;
2244: END;
2245: END IF;
2246:
2247: l_msg_count := FND_MSG_PUB.count_msg;
2248:
2249: IF l_msg_count > 0 AND l_error_occured = 'Y' THEN
2250: x_msg_count := l_msg_count;
2251: x_return_status := 'E';
2405: ,x_msg_count => x_msg_count
2406: ,x_msg_data => x_msg_data);
2407:
2408: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2409: x_msg_count := FND_MSG_PUB.count_msg;
2410: IF x_msg_count = 1 then
2411: pa_interface_utils_pub.get_messages
2412: (p_encoded => FND_API.G_TRUE,
2413: p_msg_index => 1,
2466: ,x_msg_count => x_msg_count
2467: ,x_msg_data => x_msg_data);
2468:
2469: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2470: x_msg_count := FND_MSG_PUB.count_msg;
2471: IF x_msg_count = 1 then
2472: pa_interface_utils_pub.get_messages
2473: (p_encoded => FND_API.G_TRUE,
2474: p_msg_index => 1,
2515: ,x_msg_data => x_msg_data
2516: );
2517:
2518: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2519: x_msg_count := FND_MSG_PUB.count_msg;
2520: IF x_msg_count = 1 then
2521: pa_interface_utils_pub.get_messages
2522: (p_encoded => FND_API.G_TRUE,
2523: p_msg_index => 1,
2549: if p_commit = FND_API.G_TRUE then
2550: rollback to delete_task_version;
2551: end if;
2552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2553: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
2554: p_procedure_name => 'DELETE_TASK_VERSION',
2555: p_error_text => SUBSTRB(SQLERRM,1,240));
2556: when OTHERS then
2557: if p_commit = FND_API.G_TRUE then
2557: if p_commit = FND_API.G_TRUE then
2558: rollback to delete_task_version;
2559: end if;
2560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2561: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
2562: p_procedure_name => 'DELETE_TASK_VERSION',
2563: p_error_text => SUBSTRB(SQLERRM,1,240));
2564: raise;
2565: END delete_task_version;
2697: END IF;
2698:
2699:
2700: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2701: FND_MSG_PUB.initialize;
2702: END IF;
2703:
2704: PA_TASK_PVT1.Create_Schedule_Version(
2705: p_api_version => p_api_version
2762: ,x_msg_data => x_msg_data
2763: );
2764:
2765: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2766: x_msg_count := FND_MSG_PUB.count_msg;
2767: IF x_msg_count = 1 then
2768: pa_interface_utils_pub.get_messages
2769: (p_encoded => FND_API.G_TRUE,
2770: p_msg_index => 1,
2796: if p_commit = FND_API.G_TRUE then
2797: rollback to create_schedule_version;
2798: end if;
2799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2800: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
2801: p_procedure_name => 'CREATE_SCHEDULE_VERSION',
2802: p_error_text => SUBSTRB(SQLERRM,1,240));
2803: when OTHERS then
2804: if p_commit = FND_API.G_TRUE then
2804: if p_commit = FND_API.G_TRUE then
2805: rollback to create_schedule_version;
2806: end if;
2807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2808: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
2809: p_procedure_name => 'CREATE_SCHEDULE_VERSION',
2810: p_error_text => SUBSTRB(SQLERRM,1,240));
2811: raise;
2812:
3000: END IF;
3001:
3002:
3003: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3004: FND_MSG_PUB.initialize;
3005: END IF;
3006:
3007: -- Added for FP_M changes 3305199
3008:
3026: ,x_msg_data => x_msg_data
3027: );
3028:
3029: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
3030: x_msg_count := FND_MSG_PUB.count_msg;
3031: If x_msg_count = 1 then
3032: pa_interface_utils_pub.get_messages
3033: (p_encoded => FND_API.G_TRUE,
3034: p_msg_index => 1,
3150: RAISE;
3151: END;
3152: END IF;
3153:
3154: l_msg_count := FND_MSG_PUB.count_msg;
3155:
3156: IF l_msg_count > 0 THEN
3157: x_msg_count := l_msg_count;
3158: x_return_status := 'E';
3221: ,x_msg_data => x_msg_data
3222: );
3223:
3224: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3225: x_msg_count := FND_MSG_PUB.count_msg;
3226: IF x_msg_count = 1 then
3227: pa_interface_utils_pub.get_messages
3228: (p_encoded => FND_API.G_TRUE,
3229: p_msg_index => 1,
3255: if p_commit = FND_API.G_TRUE then
3256: rollback to update_schedule_version;
3257: end if;
3258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3259: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
3260: p_procedure_name => 'UPDATE_SCHEDULE_VERSION',
3261: p_error_text => SUBSTRB(SQLERRM,1,240));
3262: when OTHERS then
3263: if p_commit = FND_API.G_TRUE then
3263: if p_commit = FND_API.G_TRUE then
3264: rollback to update_schedule_version;
3265: end if;
3266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3267: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
3268: p_procedure_name => 'UPDATE_SCHEDULE_VERSION',
3269: p_error_text => SUBSTRB(SQLERRM,1,240));
3270: raise;
3271: END Update_Schedule_Version;
3877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3878: END IF;
3879:
3880: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3881: FND_MSG_PUB.initialize;
3882: END IF;
3883:
3884: --bug 4075697 copy_task
3885: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
4263: l_src_wp_type := l_wp_type;
4264: END IF;
4265:
4266: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4267: x_msg_count := FND_MSG_PUB.count_msg;
4268: IF x_msg_count = 1 then
4269: pa_interface_utils_pub.get_messages
4270: (p_encoded => FND_API.G_TRUE,
4271: p_msg_index => 1,
4809: END IF;
4810: 4201927*/
4811:
4812: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4813: x_msg_count := FND_MSG_PUB.count_msg;
4814: IF x_msg_count = 1 then
4815: pa_interface_utils_pub.get_messages
4816: (p_encoded => FND_API.G_TRUE,
4817: p_msg_index => 1,
4854: ,x_msg_count => x_msg_count
4855: ,x_msg_data => l_msg_data );
4856:
4857: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4858: x_msg_count := FND_MSG_PUB.count_msg;
4859: IF x_msg_count = 1 then
4860: pa_interface_utils_pub.get_messages
4861: (p_encoded => FND_API.G_TRUE,
4862: p_msg_index => 1,
4909: ,x_msg_data => l_msg_data
4910: );
4911:
4912: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4913: x_msg_count := FND_MSG_PUB.count_msg;
4914: IF x_msg_count = 1 then
4915: pa_interface_utils_pub.get_messages
4916: (p_encoded => FND_API.G_TRUE,
4917: p_msg_index => 1,
4942:
4943:
4944:
4945: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4946: x_msg_count := FND_MSG_PUB.count_msg;
4947: IF x_msg_count = 1 then
4948: pa_interface_utils_pub.get_messages
4949: (p_encoded => FND_API.G_TRUE,
4950: p_msg_index => 1,
5066: -- end xxlu changes
5067: /*END IF; 4201927 : This Copy API not called in Move Task Version Context. */
5068:
5069: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5070: x_msg_count := FND_MSG_PUB.count_msg;
5071: IF x_msg_count = 1 then
5072: pa_interface_utils_pub.get_messages
5073: (p_encoded => FND_API.G_TRUE,
5074: p_msg_index => 1,
5193: ,x_msg_count => l_msg_count
5194: ,x_msg_data => l_msg_data );
5195:
5196: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5197: x_msg_count := FND_MSG_PUB.count_msg;
5198: IF x_msg_count = 1 then
5199: pa_interface_utils_pub.get_messages
5200: (p_encoded => FND_API.G_TRUE,
5201: p_msg_index => 1,
5223: x_msg_count => l_msg_count,
5224: x_msg_data => l_msg_data);
5225:
5226: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5227: x_msg_count := FND_MSG_PUB.count_msg;
5228: if x_msg_count = 1 then
5229: pa_interface_utils_pub.get_messages
5230: (p_encoded => FND_API.G_TRUE,
5231: p_msg_index => 1,
5253: ,x_msg_data => l_msg_data
5254: );
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,
5298: ,x_msg_count => l_msg_count
5299: ,x_msg_data => l_msg_data);
5300:
5301: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5302: x_msg_count := FND_MSG_PUB.count_msg;
5303: if x_msg_count = 1 then
5304: pa_interface_utils_pub.get_messages
5305: (p_encoded => FND_API.G_TRUE,
5306: p_msg_index => 1,
5354: ,x_msg_data => l_msg_data
5355: );
5356: EXCEPTION
5357: WHEN OTHERS THEN
5358: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
5359: p_procedure_name => 'COPY_TASK',
5360: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.copy_planning_transactions:'||SQLERRM,1,240));
5361: RAISE FND_API.G_EXC_ERROR;
5362: END;
5362: END;
5363:
5364:
5365: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5366: x_msg_count := FND_MSG_PUB.count_msg;
5367: if x_msg_count = 1 then
5368: pa_interface_utils_pub.get_messages
5369: (p_encoded => FND_API.G_TRUE,
5370: p_msg_index => 1,
5421: );
5422: END IF;
5423: EXCEPTION
5424: WHEN OTHERS THEN
5425: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
5426: p_procedure_name => 'COPY_TASK',
5427: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
5428: RAISE FND_API.G_EXC_ERROR;
5429: END;
5428: RAISE FND_API.G_EXC_ERROR;
5429: END;
5430:
5431: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5432: x_msg_count := FND_MSG_PUB.count_msg;
5433: if x_msg_count = 1 then
5434: pa_interface_utils_pub.get_messages
5435: (p_encoded => FND_API.G_TRUE,
5436: p_msg_index => 1,
5485: ,x_msg_data => l_msg_data
5486: );
5487: EXCEPTION
5488: WHEN OTHERS THEN
5489: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
5490: p_procedure_name => 'COPY_TASK',
5491: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.copy_planning_transactions:'||SQLERRM,1,240));
5492: RAISE FND_API.G_EXC_ERROR;
5493: END;
5493: END;
5494:
5495:
5496: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5497: x_msg_count := FND_MSG_PUB.count_msg;
5498: if x_msg_count = 1 then
5499: pa_interface_utils_pub.get_messages
5500: (p_encoded => FND_API.G_TRUE,
5501: p_msg_index => 1,
5528: ,x_msg_count => l_msg_count
5529: ,x_msg_data => l_msg_data);
5530:
5531: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5532: x_msg_count := FND_MSG_PUB.count_msg;
5533: if x_msg_count = 1 then
5534: pa_interface_utils_pub.get_messages
5535: (p_encoded => FND_API.G_TRUE,
5536: p_msg_index => 1,
5568: if p_commit = FND_API.G_TRUE then
5569: rollback to Copy_Task;
5570: end if;
5571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5572: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
5573: p_procedure_name => 'COPY_TASK',
5574: p_error_text => SUBSTRB(SQLERRM,1,240));
5575: when OTHERS then
5576: if p_commit = FND_API.G_TRUE then
5576: if p_commit = FND_API.G_TRUE then
5577: rollback to Copy_Task;
5578: end if;
5579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5580: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
5581: p_procedure_name => 'COPY_TASK',
5582: p_error_text => SUBSTRB(SQLERRM,1,240));
5583: raise;
5584: END Copy_Task;
5881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5882: END IF;
5883:
5884: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5885: FND_MSG_PUB.initialize;
5886: END IF;
5887:
5888: --bug 4075697
5889: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
6022: --Indenting a task with phase. Error
6023: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_MOVE_PHASE_TASK');
6024: END IF;
6025:
6026: l_msg_count := FND_MSG_PUB.count_msg;
6027: if l_msg_count > 0 then
6028: x_msg_count := l_msg_count;
6029: if x_msg_count = 1 then
6030: pa_interface_utils_pub.get_messages
6223: x_return_status => l_return_status,
6224: x_msg_count => l_msg_count,
6225: x_msg_data => l_msg_data );
6226:
6227: x_msg_count := FND_MSG_PUB.count_msg;
6228:
6229: --dbms_output.put_line( 'Count '|| x_msg_count );
6230:
6231: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6228:
6229: --dbms_output.put_line( 'Count '|| x_msg_count );
6230:
6231: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6232: x_msg_count := FND_MSG_PUB.count_msg;
6233: IF x_msg_count = 1 then
6234: pa_interface_utils_pub.get_messages
6235: (p_encoded => FND_API.G_TRUE,
6236: p_msg_index => 1,
6331: WHERE task_id = l_task_id
6332: AND project_id = l_project_id;
6333: -- merged from 85
6334:
6335: x_msg_count := FND_MSG_PUB.count_msg;
6336:
6337: --dbms_output.put_line( 'before move task old '|| x_msg_count );
6338:
6339: PA_TASKS_MAINT_PUB.Move_Task(
6347: ,x_return_status => l_return_status
6348: ,x_msg_count => l_msg_count
6349: ,x_msg_data => l_msg_data );
6350:
6351: x_msg_count := FND_MSG_PUB.count_msg;
6352:
6353: --dbms_output.put_line( 'After move task old '|| x_msg_count );
6354:
6355:
6353: --dbms_output.put_line( 'After move task old '|| x_msg_count );
6354:
6355:
6356: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6357: x_msg_count := FND_MSG_PUB.count_msg;
6358: IF x_msg_count = 1 then
6359: pa_interface_utils_pub.get_messages
6360: (p_encoded => FND_API.G_TRUE,
6361: p_msg_index => 1,
6401: ,x_msg_data => l_msg_data
6402: );
6403:
6404: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6405: x_msg_count := FND_MSG_PUB.count_msg;
6406: IF x_msg_count = 1 then
6407: pa_interface_utils_pub.get_messages
6408: (p_encoded => FND_API.G_TRUE,
6409: p_msg_index => 1,
6432: , x_msg_count => l_msg_count
6433: );
6434:
6435: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6436: x_msg_count := FND_MSG_PUB.count_msg;
6437: IF x_msg_count = 1 then
6438: pa_interface_utils_pub.get_messages
6439: (p_encoded => FND_API.G_TRUE,
6440: p_msg_index => 1,
6512: ,x_msg_count => l_msg_count
6513: ,x_msg_data => l_msg_data);
6514:
6515: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6516: x_msg_count := FND_MSG_PUB.count_msg;
6517: if x_msg_count = 1 then
6518: pa_interface_utils_pub.get_messages
6519: (p_encoded => FND_API.G_TRUE,
6520: p_msg_index => 1,
6543: ,x_msg_count => l_msg_count
6544: ,x_msg_data => l_msg_data );
6545:
6546: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6547: x_msg_count := FND_MSG_PUB.count_msg;
6548: if x_msg_count = 1 then
6549: pa_interface_utils_pub.get_messages
6550: (p_encoded => FND_API.G_TRUE,
6551: p_msg_index => 1,
6579: ,x_msg_data => x_msg_data
6580: );
6581:
6582: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6583: x_msg_count := FND_MSG_PUB.count_msg;
6584: If x_msg_count = 1 then
6585: pa_interface_utils_pub.get_messages
6586: (p_encoded => FND_API.G_TRUE,
6587: p_msg_index => 1,
6612:
6613: /* Bug 5768425 End */
6614:
6615: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6616: x_msg_count := FND_MSG_PUB.count_msg;
6617: if x_msg_count = 1 then
6618: pa_interface_utils_pub.get_messages
6619: (p_encoded => FND_API.G_TRUE,
6620: p_msg_index => 1,
6638: ,x_msg_data => l_msg_data
6639: );
6640:
6641: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6642: x_msg_count := FND_MSG_PUB.count_msg;
6643: if x_msg_count = 1 then
6644: pa_interface_utils_pub.get_messages
6645: (p_encoded => FND_API.G_TRUE,
6646: p_msg_index => 1,
6662: ,x_msg_data => l_msg_data
6663: );
6664:
6665: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6666: x_msg_count := FND_MSG_PUB.count_msg;
6667: if x_msg_count = 1 then
6668: pa_interface_utils_pub.get_messages
6669: (p_encoded => FND_API.G_TRUE,
6670: p_msg_index => 1,
6736: );
6737: END IF;
6738: EXCEPTION
6739: WHEN OTHERS THEN
6740: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
6741: p_procedure_name => 'MOVE_TASK_VERSION',
6742: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
6743: RAISE FND_API.G_EXC_ERROR;
6744: END;
6742: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
6743: RAISE FND_API.G_EXC_ERROR;
6744: END;
6745: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6746: x_msg_count := FND_MSG_PUB.count_msg;
6747: if x_msg_count = 1 then
6748: pa_interface_utils_pub.get_messages
6749: (p_encoded => FND_API.G_TRUE,
6750: p_msg_index => 1,
6783: if p_commit = FND_API.G_TRUE then
6784: rollback to move_task_version;
6785: end if;
6786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6787: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
6788: p_procedure_name => 'MOVE_TASK_VERSION',
6789: p_error_text => SUBSTRB(SQLERRM,1,240));
6790: when OTHERS then
6791: if p_commit = FND_API.G_TRUE then
6791: if p_commit = FND_API.G_TRUE then
6792: rollback to move_task_version;
6793: end if;
6794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6795: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
6796: p_procedure_name => 'MOVE_TASK_VERSION',
6797: p_error_text => SUBSTRB(SQLERRM,1,240));
6798: raise;
6799: END Move_Task_version;
6923: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6924: END IF;
6925:
6926: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
6927: FND_MSG_PUB.initialize;
6928: END IF;
6929:
6930: ----dbms_output.put_line( 'Indent Task Stage 1 ' );
6931: --hsiu
6953: --deleting linked task. Error
6954: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_IND_LINKED_TASK');
6955: END IF;
6956:
6957: l_msg_count := FND_MSG_PUB.count_msg;
6958: if l_msg_count > 0 then
6959: x_msg_count := l_msg_count;
6960: if x_msg_count = 1 then
6961: pa_interface_utils_pub.get_messages
6986: --Indenting a task with phase. Error
6987: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_INDENT_PHASE_TASK');
6988: END IF;
6989:
6990: l_msg_count := FND_MSG_PUB.count_msg;
6991: if l_msg_count > 0 then
6992: x_msg_count := l_msg_count;
6993: if x_msg_count = 1 then
6994: pa_interface_utils_pub.get_messages
7039: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
7040: ,p_msg_name => 'PA_PS_CANNOT_INDENT');
7041: end if;
7042:
7043: l_msg_count := FND_MSG_PUB.count_msg;
7044: if l_msg_count > 0 then
7045: x_msg_count := l_msg_count;
7046: if x_msg_count = 1 then
7047: pa_interface_utils_pub.get_messages
7148: --dbms_output.put_line( 'Indent Task Stage 10 ' );
7149:
7150:
7151: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7152: x_msg_count := FND_MSG_PUB.count_msg;
7153: IF x_msg_count = 1 then
7154: pa_interface_utils_pub.get_messages
7155: (p_encoded => FND_API.G_TRUE,
7156: p_msg_index => 1,
7257: END IF;
7258: CLOSE cur_struc_type;
7259:
7260: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7261: x_msg_count := FND_MSG_PUB.count_msg;
7262: IF x_msg_count = 1 then
7263: pa_interface_utils_pub.get_messages
7264: (p_encoded => FND_API.G_TRUE,
7265: p_msg_index => 1,
7285: x_msg_count => l_msg_count,
7286: x_msg_data => l_msg_data);
7287:
7288: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7289: x_msg_count := FND_MSG_PUB.count_msg;
7290: if x_msg_count = 1 then
7291: pa_interface_utils_pub.get_messages
7292: (p_encoded => FND_API.G_TRUE,
7293: p_msg_index => 1,
7311: ,x_msg_data => l_msg_data
7312: );
7313:
7314: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7315: x_msg_count := FND_MSG_PUB.count_msg;
7316: if x_msg_count = 1 then
7317: pa_interface_utils_pub.get_messages
7318: (p_encoded => FND_API.G_TRUE,
7319: p_msg_index => 1,
7351: if p_commit = FND_API.G_TRUE then
7352: rollback to indent_task_version;
7353: end if;
7354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7355: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
7356: p_procedure_name => 'INDENT_TASK_VERSION',
7357: p_error_text => SUBSTRB(SQLERRM,1,240));
7358: when OTHERS then
7359: if p_commit = FND_API.G_TRUE then
7359: if p_commit = FND_API.G_TRUE then
7360: rollback to indent_task_version;
7361: end if;
7362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7363: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
7364: p_procedure_name => 'INDENT_TASK_VERSION',
7365: p_error_text => SUBSTRB(SQLERRM,1,240));
7366: raise;
7367:
7499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7500: END IF;
7501:
7502: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
7503: FND_MSG_PUB.initialize;
7504: END IF;
7505:
7506: --hsiu
7507: --added on 08-JAN-2002
7514: --deleting linked task. Error
7515: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_OUTD_LINKED_TASK');
7516: END IF;
7517:
7518: l_msg_count := FND_MSG_PUB.count_msg;
7519: if l_msg_count > 0 then
7520: x_msg_count := l_msg_count;
7521: if x_msg_count = 1 then
7522: pa_interface_utils_pub.get_messages
7555: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
7556: ,p_msg_name => 'PA_PS_CANNOT_OUTDENT');
7557: end if;
7558:
7559: l_msg_count := FND_MSG_PUB.count_msg;
7560: if l_msg_count > 0 then
7561: x_msg_count := l_msg_count;
7562: if x_msg_count = 1 then
7563: pa_interface_utils_pub.get_messages
7631: x_msg_count => l_msg_count,
7632: x_msg_data => l_msg_data );
7633:
7634: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7635: x_msg_count := FND_MSG_PUB.count_msg;
7636: IF x_msg_count = 1 then
7637: pa_interface_utils_pub.get_messages
7638: (p_encoded => FND_API.G_TRUE,
7639: p_msg_index => 1,
7734: END IF;
7735: CLOSE cur_struc_type;
7736:
7737: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7738: x_msg_count := FND_MSG_PUB.count_msg;
7739: IF x_msg_count = 1 then
7740: pa_interface_utils_pub.get_messages
7741: (p_encoded => FND_API.G_TRUE,
7742: p_msg_index => 1,
7769: x_msg_count => l_msg_count,
7770: x_msg_data => l_msg_data);
7771:
7772: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7773: x_msg_count := FND_MSG_PUB.count_msg;
7774: if x_msg_count = 1 then
7775: pa_interface_utils_pub.get_messages
7776: (p_encoded => FND_API.G_TRUE,
7777: p_msg_index => 1,
7795: ,x_msg_data => l_msg_data
7796: );
7797:
7798: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7799: x_msg_count := FND_MSG_PUB.count_msg;
7800: if x_msg_count = 1 then
7801: pa_interface_utils_pub.get_messages
7802: (p_encoded => FND_API.G_TRUE,
7803: p_msg_index => 1,
7835: if p_commit = FND_API.G_TRUE then
7836: rollback to outdent_task_version;
7837: end if;
7838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7839: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
7840: p_procedure_name => 'OUTDENT_TASK_VERSION',
7841: p_error_text => SUBSTRB(SQLERRM,1,240));
7842: when OTHERS then
7843: if p_commit = FND_API.G_TRUE then
7843: if p_commit = FND_API.G_TRUE then
7844: rollback to outdent_task_version;
7845: end if;
7846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7847: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
7848: p_procedure_name => 'OUTDENT_TASK_VERSION',
7849: p_error_text => SUBSTRB(SQLERRM,1,240));
7850: raise;
7851: END Outdent_Task_Version;
8006:
8007: BEGIN
8008:
8009: --Clear Error Messages.
8010: FND_MSG_PUB.initialize;
8011:
8012: savepoint create_tasks;
8013:
8014: if p_project_id is null then
8025: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
8026: ,p_msg_name => 'PA_NO_STRUCTURE_VERSION_ID');
8027: end if;
8028:
8029: l_msg_count := FND_MSG_PUB.count_msg;
8030: if l_msg_count > 0 then
8031: x_msg_count := l_msg_count;
8032: if x_msg_count = 1 then
8033: pa_interface_utils_pub.get_messages
8296: ,x_msg_count => l_msg_count
8297: ,x_msg_data => l_msg_data);
8298:
8299: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8300: x_msg_count := FND_MSG_PUB.count_msg;
8301: if x_msg_count = 1 then
8302: pa_interface_utils_pub.get_messages
8303: (p_encoded => FND_API.G_TRUE,
8304: 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,
8370: ,x_msg_count => l_msg_count
8371: ,x_msg_data => l_msg_data );
8372:
8373: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8374: x_msg_count := FND_MSG_PUB.count_msg;
8375: if x_msg_count = 1 then
8376: pa_interface_utils_pub.get_messages
8377: (p_encoded => FND_API.G_TRUE,
8378: p_msg_index => 1,
8441: ,x_msg_count => l_msg_count
8442: ,x_msg_data => l_msg_data);
8443:
8444: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8445: x_msg_count := FND_MSG_PUB.count_msg;
8446: if x_msg_count = 1 then
8447: pa_interface_utils_pub.get_messages
8448: (p_encoded => FND_API.G_TRUE,
8449: p_msg_index => 1,
8467: ,x_msg_data => l_msg_data
8468: );
8469:
8470: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8471: x_msg_count := FND_MSG_PUB.count_msg;
8472: if x_msg_count = 1 then
8473: pa_interface_utils_pub.get_messages
8474: (p_encoded => FND_API.G_TRUE,
8475: p_msg_index => 1,
8500: ,x_msg_count => l_msg_count
8501: ,x_msg_data => l_msg_data );
8502:
8503: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8504: x_msg_count := FND_MSG_PUB.count_msg;
8505: if x_msg_count = 1 then
8506: pa_interface_utils_pub.get_messages
8507: (p_encoded => FND_API.G_TRUE,
8508: p_msg_index => 1,
8543: --x_msg_data := l_data;
8544: x_msg_count := 1;
8545: FND_MESSAGE.SET_NAME('PA',x_msg_data);
8546: --FND_MESSAGE.GET_ENCODED := x_msg_data;
8547: FND_MSG_PUB.ADD;
8548: end if;
8549:
8550:
8551: raise API_ERROR;
8575: --x_msg_data := l_data;
8576: x_msg_count:=1;
8577: FND_MESSAGE.SET_NAME('PA',x_msg_data);
8578: --FND_MESSAGE.GET_ENCODED := x_msg_data;
8579: FND_MSG_PUB.ADD;
8580: end if;
8581: raise API_ERROR;
8582: END IF;
8583:
8611: x_msg_data => l_msg_data
8612: );
8613:
8614: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8615: x_msg_count := FND_MSG_PUB.count_msg;
8616: if x_msg_count = 1 then
8617: pa_interface_utils_pub.get_messages
8618: (p_encoded => FND_API.G_TRUE,
8619: p_msg_index => 1,
8663: );
8664: END IF;
8665: EXCEPTION
8666: WHEN OTHERS THEN
8667: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCTURE_TASK_PUB',
8668: p_procedure_name => 'CREATE_TASKS',
8669: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
8670: RAISE API_ERROR;
8671: END;
8669: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
8670: RAISE API_ERROR;
8671: END;
8672: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8673: x_msg_count := FND_MSG_PUB.count_msg;
8674: if x_msg_count = 1 then
8675: pa_interface_utils_pub.get_messages
8676: (p_encoded => FND_API.G_TRUE,
8677: p_msg_index => 1,
8699: x_msg_count => l_msg_count,
8700: x_msg_data => l_msg_data);
8701:
8702: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8703: x_msg_count := FND_MSG_PUB.count_msg;
8704: if x_msg_count = 1 then
8705: pa_interface_utils_pub.get_messages
8706: (p_encoded => FND_API.G_TRUE,
8707: p_msg_index => 1,
8743: ,x_msg_count => l_msg_count
8744: ,x_msg_data => l_msg_data );
8745:
8746: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8747: x_msg_count := FND_MSG_PUB.count_msg;
8748: if x_msg_count = 1 then
8749: pa_interface_utils_pub.get_messages
8750: (p_encoded => FND_API.G_TRUE,
8751: p_msg_index => 1,
8768: x_return_status := FND_API.G_RET_STS_ERROR;
8769: WHEN OTHERS THEN
8770: rollback to create_tasks;
8771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8772: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STRUCTURE_TASK_PUB',
8773: p_procedure_name => 'CREATE_TASKS',
8774: p_error_text => SUBSTRB(SQLERRM,1,240));
8775: raise;
8776: END CREATE_TASKS;
9329: x_return_status := FND_API.G_RET_STS_SUCCESS;
9330: EXCEPTION
9331: WHEN OTHERS THEN
9332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9333: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
9334: p_procedure_name => 'CALC_TASK_WEIGHTS',
9335: p_error_text => SUBSTRB(SQLERRM,1,240));
9336: IF l_debug_mode = 'Y' THEN
9337: pa_debug.reset_curr_function;
9396: savepoint update_task_weighting;
9397: END IF;
9398:
9399: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
9400: FND_MSG_PUB.initialize;
9401: END IF;
9402:
9403: PA_TASK_PVT1.Update_Task_Weighting(
9404: p_object_relationship_id => p_object_relationship_id
9419: if p_commit = FND_API.G_TRUE then
9420: rollback to update_task_weighting;
9421: end if;
9422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9423: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
9424: p_procedure_name => 'UPDATE_TASK_WEIGHTING',
9425: p_error_text => SUBSTRB(SQLERRM,1,240));
9426: when OTHERS then
9427: if p_commit = FND_API.G_TRUE then
9427: if p_commit = FND_API.G_TRUE then
9428: rollback to update_task_weighting;
9429: end if;
9430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9431: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
9432: p_procedure_name => 'UPDATE_TASK_WEIGHTING',
9433: p_error_text => SUBSTRB(SQLERRM,1,240));
9434: raise;
9435:
9749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9750: END IF;
9751:
9752: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
9753: FND_MSG_PUB.initialize;
9754: END IF;
9755:
9756: --bug 4075697
9757: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
10400: );
10401:
10402:
10403: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10404: x_msg_count := FND_MSG_PUB.count_msg;
10405: IF x_msg_count = 1 then
10406: pa_interface_utils_pub.get_messages
10407: (p_encoded => FND_API.G_TRUE,
10408: p_msg_index => 1,
10422: ,x_msg_count => l_msg_count
10423: ,x_msg_data => l_msg_data
10424: );
10425:
10426: x_msg_count := FND_MSG_PUB.count_msg;
10427: IF x_msg_count = 1 then
10428: pa_interface_utils_pub.get_messages
10429: (p_encoded => FND_API.G_TRUE,
10430: p_msg_index => 1,
10442: ,x_msg_count => l_msg_count
10443: ,x_msg_data => l_msg_data
10444: );
10445:
10446: x_msg_count := FND_MSG_PUB.count_msg;
10447: IF x_msg_count = 1 then
10448: pa_interface_utils_pub.get_messages
10449: (p_encoded => FND_API.G_TRUE,
10450: p_msg_index => 1,
10525: ,x_msg_data => l_msg_data );
10526:
10527: -- Merged from 85
10528: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10529: x_msg_count := FND_MSG_PUB.count_msg;
10530: IF x_msg_count = 1 then
10531: pa_interface_utils_pub.get_messages
10532: (p_encoded => FND_API.G_TRUE,
10533: p_msg_index => 1,
10571: ,x_msg_data => l_msg_data
10572: );
10573:
10574: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10575: x_msg_count := FND_MSG_PUB.count_msg;
10576: IF x_msg_count = 1 then
10577: pa_interface_utils_pub.get_messages
10578: (p_encoded => FND_API.G_TRUE,
10579: p_msg_index => 1,
10603: , x_msg_count => l_msg_count
10604: );
10605:
10606: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10607: x_msg_count := FND_MSG_PUB.count_msg;
10608: IF x_msg_count = 1 then
10609: pa_interface_utils_pub.get_messages
10610: (p_encoded => FND_API.G_TRUE,
10611: p_msg_index => 1,
10639: ,x_msg_data => x_msg_data
10640: );
10641:
10642: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
10643: x_msg_count := FND_MSG_PUB.count_msg;
10644: If x_msg_count = 1 then
10645: pa_interface_utils_pub.get_messages
10646: (p_encoded => FND_API.G_TRUE,
10647: p_msg_index => 1,
10666: x_msg_count => l_msg_count,
10667: x_msg_data => l_msg_data);
10668:
10669: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10670: x_msg_count := FND_MSG_PUB.count_msg;
10671: if x_msg_count = 1 then
10672: pa_interface_utils_pub.get_messages
10673: (p_encoded => FND_API.G_TRUE,
10674: p_msg_index => 1,
10692: ,x_msg_data => l_msg_data
10693: );
10694:
10695: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10696: x_msg_count := FND_MSG_PUB.count_msg;
10697: if x_msg_count = 1 then
10698: pa_interface_utils_pub.get_messages
10699: (p_encoded => FND_API.G_TRUE,
10700: p_msg_index => 1,
10761: ,x_msg_count => l_msg_count
10762: ,x_msg_data => l_msg_data);
10763:
10764: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10765: x_msg_count := FND_MSG_PUB.count_msg;
10766: if x_msg_count = 1 then
10767: pa_interface_utils_pub.get_messages
10768: (p_encoded => FND_API.G_TRUE,
10769: p_msg_index => 1,
10793: ,x_msg_count => l_msg_count
10794: ,x_msg_data => l_msg_data );
10795:
10796: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10797: x_msg_count := FND_MSG_PUB.count_msg;
10798: if x_msg_count = 1 then
10799: pa_interface_utils_pub.get_messages
10800: (p_encoded => FND_API.G_TRUE,
10801: p_msg_index => 1,
10856: );
10857: END IF;
10858: EXCEPTION
10859: WHEN OTHERS THEN
10860: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
10861: p_procedure_name => 'INDENT_TASK_VERSION_BULK',
10862: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
10863: RAISE FND_API.G_EXC_ERROR;
10864: END;
10863: RAISE FND_API.G_EXC_ERROR;
10864: END;
10865:
10866: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10867: x_msg_count := FND_MSG_PUB.count_msg;
10868: if x_msg_count = 1 then
10869: pa_interface_utils_pub.get_messages
10870: (p_encoded => FND_API.G_TRUE,
10871: p_msg_index => 1,
10904: if p_commit = FND_API.G_TRUE then
10905: rollback to indent_task_version_bulk;
10906: end if;
10907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10908: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
10909: p_procedure_name => 'INDENT_TASK_VERSION_BULK',
10910: p_error_text => SUBSTRB(SQLERRM,1,240));
10911: when OTHERS then
10912: if p_commit = FND_API.G_TRUE then
10912: if p_commit = FND_API.G_TRUE then
10913: rollback to indent_task_version_bulk;
10914: end if;
10915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10916: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
10917: p_procedure_name => 'INDENT_TASK_VERSION_BULK',
10918: p_error_text => SUBSTRB(SQLERRM,1,240));
10919: raise;
10920:
11286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11287: END IF;
11288:
11289: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
11290: FND_MSG_PUB.initialize;
11291: END IF;
11292:
11293: --bug 4075697
11294: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
11949: );
11950:
11951:
11952: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11953: x_msg_count := FND_MSG_PUB.count_msg;
11954: IF x_msg_count = 1 then
11955: pa_interface_utils_pub.get_messages
11956: (p_encoded => FND_API.G_TRUE,
11957: p_msg_index => 1,
12013: ,x_msg_data => x_msg_data
12014: );
12015:
12016: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12017: x_msg_count := FND_MSG_PUB.count_msg;
12018: IF x_msg_count = 1 then
12019: pa_interface_utils_pub.get_messages
12020: (p_encoded => FND_API.G_TRUE,
12021: p_msg_index => 1,
12038: ,x_msg_count => l_msg_count
12039: ,x_msg_data => l_msg_data
12040: );
12041:
12042: x_msg_count := FND_MSG_PUB.count_msg;
12043: IF x_msg_count = 1 then
12044: pa_interface_utils_pub.get_messages
12045: (p_encoded => FND_API.G_TRUE,
12046: p_msg_index => 1,
12058: ,x_msg_count => l_msg_count
12059: ,x_msg_data => l_msg_data
12060: );
12061:
12062: x_msg_count := FND_MSG_PUB.count_msg;
12063: IF x_msg_count = 1 then
12064: pa_interface_utils_pub.get_messages
12065: (p_encoded => FND_API.G_TRUE,
12066: p_msg_index => 1,
12162: ,x_msg_data => l_msg_data
12163: );
12164:
12165: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12166: x_msg_count := FND_MSG_PUB.count_msg;
12167: IF x_msg_count = 1 then
12168: pa_interface_utils_pub.get_messages
12169: (p_encoded => FND_API.G_TRUE,
12170: p_msg_index => 1,
12193: ,x_msg_count => l_msg_count
12194: ,x_msg_data => l_msg_data );
12195:
12196: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12197: x_msg_count := FND_MSG_PUB.count_msg;
12198: IF x_msg_count = 1 then
12199: pa_interface_utils_pub.get_messages
12200: (p_encoded => FND_API.G_TRUE,
12201: p_msg_index => 1,
12239: ,x_msg_data => l_msg_data
12240: );
12241:
12242: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12243: x_msg_count := FND_MSG_PUB.count_msg;
12244: IF x_msg_count = 1 then
12245: pa_interface_utils_pub.get_messages
12246: (p_encoded => FND_API.G_TRUE,
12247: p_msg_index => 1,
12273: , x_msg_count => l_msg_count
12274: );
12275:
12276: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12277: x_msg_count := FND_MSG_PUB.count_msg;
12278: IF x_msg_count = 1 then
12279: pa_interface_utils_pub.get_messages
12280: (p_encoded => FND_API.G_TRUE,
12281: p_msg_index => 1,
12310: ,x_msg_data => x_msg_data
12311: );
12312:
12313: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
12314: x_msg_count := FND_MSG_PUB.count_msg;
12315: If x_msg_count = 1 then
12316: pa_interface_utils_pub.get_messages
12317: (p_encoded => FND_API.G_TRUE,
12318: p_msg_index => 1,
12342: x_msg_count => l_msg_count,
12343: x_msg_data => l_msg_data);
12344:
12345: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12346: x_msg_count := FND_MSG_PUB.count_msg;
12347: if x_msg_count = 1 then
12348: pa_interface_utils_pub.get_messages
12349: (p_encoded => FND_API.G_TRUE,
12350: p_msg_index => 1,
12367: ,x_msg_data => l_msg_data
12368: );
12369:
12370: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12371: x_msg_count := FND_MSG_PUB.count_msg;
12372: if x_msg_count = 1 then
12373: pa_interface_utils_pub.get_messages
12374: (p_encoded => FND_API.G_TRUE,
12375: p_msg_index => 1,
12433: ,x_msg_count => l_msg_count
12434: ,x_msg_data => l_msg_data);
12435:
12436: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12437: x_msg_count := FND_MSG_PUB.count_msg;
12438: if x_msg_count = 1 then
12439: pa_interface_utils_pub.get_messages
12440: (p_encoded => FND_API.G_TRUE,
12441: p_msg_index => 1,
12466: ,x_msg_count => l_msg_count
12467: ,x_msg_data => l_msg_data );
12468:
12469: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12470: x_msg_count := FND_MSG_PUB.count_msg;
12471: if x_msg_count = 1 then
12472: pa_interface_utils_pub.get_messages
12473: (p_encoded => FND_API.G_TRUE,
12474: p_msg_index => 1,
12529: );
12530: END IF;
12531: EXCEPTION
12532: WHEN OTHERS then
12533: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12534: p_procedure_name => 'OUTDENT_TASK_VERSION_BULK',
12535: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
12536: RAISE FND_API.G_EXC_ERROR;
12537: END;
12535: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
12536: RAISE FND_API.G_EXC_ERROR;
12537: END;
12538: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12539: x_msg_count := FND_MSG_PUB.count_msg;
12540: if x_msg_count = 1 then
12541: pa_interface_utils_pub.get_messages
12542: (p_encoded => FND_API.G_TRUE,
12543: p_msg_index => 1,
12577: if p_commit = FND_API.G_TRUE then
12578: rollback to OUTDENT_task_version_bulk;
12579: end if;
12580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12581: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12582: p_procedure_name => 'OUTDENT_TASK_VERSION_BULK',
12583: p_error_text => SUBSTRB(SQLERRM,1,240));
12584: when OTHERS then
12585: if p_commit = FND_API.G_TRUE then
12585: if p_commit = FND_API.G_TRUE then
12586: rollback to OUTDENT_task_version_bulk;
12587: end if;
12588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12589: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
12590: p_procedure_name => 'OUTDENT_TASK_VERSION_BULK',
12591: p_error_text => SUBSTRB(SQLERRM,1,240));
12592: raise;
12593:
12776: --bug: 3641049
12777: --comment out rollback because if there is an error, it will be rollback twice causing an exception
12778: --rollback to delete_bulk;
12779:
12780: FND_MSG_PUB.initialize;
12781:
12782: FOR k in reverse l_element_name_tbl.FIRST..l_element_name_tbl.LAST LOOP
12783:
12784: PA_UTILS.ADD_MESSAGE
12796: END LOOP ;
12797:
12798: END IF ;
12799:
12800: x_msg_count := FND_MSG_PUB.count_msg ;
12801:
12802: IF x_msg_count > 0 THEN
12803: x_return_status := 'E' ;
12804: --hsiu: commenting out due to p1 issue.
12892: --hsiu: commenting out due to p1 issue.
12893: -- savepoint should be issued only when p_commit
12894: -- is true, which is a missing parameter
12895: -- rollback to delete_bulk;
12896: FND_MSG_PUB.add_exc_msg
12897: ( p_pkg_name => 'PA_TASK_PUB1'
12898: ,p_procedure_name => 'DELETE_TASK_VERSION_IN_BULK' );
12899: IF l_debug_mode = 'Y' THEN
12900: pa_debug.write('DELETE_TASK_VERSION_IN_BULK' || G_PKG_NAME,SQLERRM,4);
12959: pa_debug.debug('PA_TASK_PUB1.UPDATE_TASK_ASSOCIATION START');
12960: END IF;
12961:
12962: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
12963: FND_MSG_PUB.initialize;
12964: END IF;
12965:
12966: IF (p_commit = FND_API.G_TRUE) THEN
12967: savepoint update_task_association;
13046: END IF;
13047:
13048:
13049: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13050: x_msg_count := FND_MSG_PUB.count_msg;
13051: IF x_msg_count = 1 then
13052: pa_interface_utils_pub.get_messages
13053: (p_encoded => FND_API.G_TRUE,
13054: p_msg_index => 1,
13074: WHEN FND_API.G_EXC_ERROR THEN
13075: IF (p_commit = FND_API.G_TRUE) THEN
13076: ROLLBACK to update_task_association;
13077: END IF;
13078: x_msg_count := FND_MSG_PUB.count_msg;
13079: x_return_status := FND_API.G_RET_STS_ERROR;
13080: WHEN OTHERS THEN
13081: IF (p_commit = FND_API.G_TRUE) THEN
13082: ROLLBACK to update_task_association;
13081: IF (p_commit = FND_API.G_TRUE) THEN
13082: ROLLBACK to update_task_association;
13083: END IF;
13084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13085: x_msg_count := FND_MSG_PUB.count_msg;
13086: --put message
13087: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13088: p_procedure_name => 'update_task_association',
13089: p_error_text => SUBSTRB(SQLERRM,1,240));
13083: END IF;
13084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13085: x_msg_count := FND_MSG_PUB.count_msg;
13086: --put message
13087: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13088: p_procedure_name => 'update_task_association',
13089: p_error_text => SUBSTRB(SQLERRM,1,240));
13090: RAISE;
13091:
13132: pa_debug.debug('PA_TASK_PUB1.DELETE_TASK_ASSOCIATION START');
13133: END IF;
13134:
13135: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
13136: FND_MSG_PUB.initialize;
13137: END IF;
13138:
13139: IF (p_commit = FND_API.G_TRUE) THEN
13140: savepoint delete_task_association;
13154: END IF;
13155: END IF;
13156:
13157: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13158: x_msg_count := FND_MSG_PUB.count_msg;
13159: IF x_msg_count = 1 then
13160: pa_interface_utils_pub.get_messages
13161: (p_encoded => FND_API.G_TRUE,
13162: p_msg_index => 1,
13183: WHEN FND_API.G_EXC_ERROR THEN
13184: IF (p_commit = FND_API.G_TRUE) THEN
13185: ROLLBACK to delete_task_association;
13186: END IF;
13187: x_msg_count := FND_MSG_PUB.count_msg;
13188: x_return_status := FND_API.G_RET_STS_ERROR;
13189: WHEN OTHERS THEN
13190: IF (p_commit = FND_API.G_TRUE) THEN
13191: ROLLBACK to delete_task_association;
13190: IF (p_commit = FND_API.G_TRUE) THEN
13191: ROLLBACK to delete_task_association;
13192: END IF;
13193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13194: x_msg_count := FND_MSG_PUB.count_msg;
13195: --put message
13196: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13197: p_procedure_name => 'delete_all_task_associations',
13198: p_error_text => SUBSTRB(SQLERRM,1,240));
13192: END IF;
13193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13194: x_msg_count := FND_MSG_PUB.count_msg;
13195: --put message
13196: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13197: p_procedure_name => 'delete_all_task_associations',
13198: p_error_text => SUBSTRB(SQLERRM,1,240));
13199: RAISE;
13200:
13234:
13235: EXCEPTION
13236: WHEN OTHERS THEN
13237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13238: --x_msg_count := FND_MSG_PUB.count_msg;
13239: --put message
13240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13241: p_procedure_name => 'delete_association',
13242: p_error_text => SUBSTRB(SQLERRM,1,240));
13236: WHEN OTHERS THEN
13237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13238: --x_msg_count := FND_MSG_PUB.count_msg;
13239: --put message
13240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13241: p_procedure_name => 'delete_association',
13242: p_error_text => SUBSTRB(SQLERRM,1,240));
13243:
13244: RAISE;
13385: IF (p_debug_mode = 'Y') THEN
13386: pa_debug.debug('PA_TASK_PUB1.Delete_Proj_To_Task_Assoc START');
13387: END IF;
13388: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
13389: FND_MSG_PUB.initialize;
13390: END IF;
13391:
13392: IF (p_commit = FND_API.G_TRUE) THEN
13393: savepoint delete_prj_to_task_assoc;
13407: END IF;
13408: END IF;
13409:
13410: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13411: x_msg_count := FND_MSG_PUB.count_msg;
13412: IF x_msg_count = 1 then
13413: pa_interface_utils_pub.get_messages
13414: (p_encoded => FND_API.G_TRUE,
13415: p_msg_index => 1,
13434: WHEN FND_API.G_EXC_ERROR THEN
13435: IF (p_commit = FND_API.G_TRUE) THEN
13436: ROLLBACK to delete_prj_to_task_assoc;
13437: END IF;
13438: x_msg_count := FND_MSG_PUB.count_msg;
13439: x_return_status := FND_API.G_RET_STS_ERROR;
13440: WHEN OTHERS THEN
13441: IF (p_commit = FND_API.G_TRUE) THEN
13442: ROLLBACK to delete_prj_to_task_assoc;
13442: ROLLBACK to delete_prj_to_task_assoc;
13443: END IF;
13444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13445: --put message
13446: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13447: p_procedure_name => 'delete_proj_to_task_assoc',
13448: p_error_text => SUBSTRB(SQLERRM,1,240));
13449: RAISE;
13450: END Delete_Proj_To_Task_Assoc;
13505:
13506: x_return_status := FND_API.G_RET_STS_SUCCESS;
13507:
13508: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
13509: FND_MSG_PUB.initialize;
13510: END IF;
13511:
13512: IF (p_commit = FND_API.G_TRUE) THEN
13513: savepoint copy_task_associations;
13554: END IF;
13555: END LOOP;
13556:
13557: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13558: x_msg_count := FND_MSG_PUB.count_msg;
13559: IF x_msg_count = 1 then
13560: pa_interface_utils_pub.get_messages
13561: (p_encoded => FND_API.G_TRUE,
13562: p_msg_index => 1,
13581: WHEN FND_API.G_EXC_ERROR THEN
13582: IF (p_commit = FND_API.G_TRUE) THEN
13583: ROLLBACK to copy_task_associations;
13584: END IF;
13585: x_msg_count := FND_MSG_PUB.count_msg;
13586: x_return_status := FND_API.G_RET_STS_ERROR;
13587: WHEN OTHERS THEN
13588: IF (p_commit = FND_API.G_TRUE) THEN
13589: ROLLBACK to copy_task_associations;
13589: ROLLBACK to copy_task_associations;
13590: END IF;
13591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13592: --put message
13593: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13594: p_procedure_name => 'Copy_Task_Associations',
13595: p_error_text => SUBSTRB(SQLERRM,1,240));
13596: RAISE;
13597: END Copy_Task_Associations;
13675: ,x_msg_data => l_msg_data
13676: );
13677: EXCEPTION
13678: WHEN OTHERS THEN
13679: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13680: p_procedure_name => 'call_add_planning_txns',
13681: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
13682: raise API_ERROR;
13683: END;
13681: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
13682: raise API_ERROR;
13683: END;
13684: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
13685: x_msg_count := FND_MSG_PUB.count_msg;
13686: if x_msg_count = 1 then
13687: pa_interface_utils_pub.get_messages
13688: (p_encoded => FND_API.G_TRUE,
13689: p_msg_index => 1,
13702: WHEN API_ERROR THEN
13703: x_return_status := FND_API.G_RET_STS_ERROR;
13704: WHEN OTHERS THEN
13705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13706: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
13707: p_procedure_name => 'call_add_planning_txns',
13708: p_error_text => SUBSTRB(SQLERRM,1,240));
13709: raise;
13710: END call_add_planning_txns;
14193: x_msg_data => l_msg_data
14194: );
14195:
14196: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
14197: l_msg_count := FND_MSG_PUB.count_msg;
14198: IF l_msg_count > 0 THEN
14199: x_msg_count := l_msg_count;
14200: IF x_msg_count = 1 THEN
14201: x_msg_data := l_msg_data;
14289: );
14290: END IF;
14291: EXCEPTION
14292: WHEN OTHERS THEN
14293: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
14294: p_procedure_name => 'update_task_det_sch_info',
14295: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.update_planning_transactions:'||SQLERRM,1,240));
14296: RAISE FND_API.G_EXC_ERROR;
14297: END;
15078:
15079: /* END: The above actions are to be performed only when p_object_type = 'PA_ASSIGNMENTS'. */
15080:
15081: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
15082: x_msg_count := FND_MSG_PUB.count_msg;
15083: if x_msg_count = 1 then
15084: pa_interface_utils_pub.get_messages
15085: (p_encoded => FND_API.G_TRUE,
15086: p_msg_index => 1,
15099: WHEN FND_API.G_EXC_ERROR THEN
15100: IF (p_commit = FND_API.G_TRUE) THEN
15101: ROLLBACK to UPDATE_task_det_sch;
15102: END IF;
15103: x_msg_count := FND_MSG_PUB.count_msg;
15104: x_return_status := FND_API.G_RET_STS_ERROR;
15105: WHEN OTHERS THEN
15106: IF (p_commit = FND_API.G_TRUE) THEN
15107: ROLLBACK to UPDATE_task_det_sch;
15106: IF (p_commit = FND_API.G_TRUE) THEN
15107: ROLLBACK to UPDATE_task_det_sch;
15108: END IF;
15109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15110: x_msg_count := FND_MSG_PUB.count_msg;
15111: --put message
15112: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15113: p_procedure_name => 'update_task_det_sch_info',
15114: p_error_text => SUBSTRB(SQLERRM,1,240));
15108: END IF;
15109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15110: x_msg_count := FND_MSG_PUB.count_msg;
15111: --put message
15112: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15113: p_procedure_name => 'update_task_det_sch_info',
15114: p_error_text => SUBSTRB(SQLERRM,1,240));
15115: RAISE;
15116:
15277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15278: END IF;
15279:
15280: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
15281: FND_MSG_PUB.initialize;
15282: END IF;
15283:
15284: IF p_calling_module = 'SELF_SERVICE' THEN
15285:
15421: RAISE FND_API.G_EXC_ERROR;
15422: END IF;
15423:
15424: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15425: x_msg_count := FND_MSG_PUB.count_msg;
15426: IF x_msg_count = 1 then
15427: pa_interface_utils_pub.get_messages
15428: (p_encoded => FND_API.G_TRUE,
15429: p_msg_index => 1,
15579: if p_commit = FND_API.G_TRUE then
15580: rollback to Copy_Tasks_in_bulk;
15581: end if;
15582: x_return_status := FND_API.G_RET_STS_ERROR;
15583: x_msg_count := Fnd_Msg_Pub.count_msg;
15584: IF x_msg_count = 1 AND x_msg_data IS NULL
15585: THEN
15586: Pa_Interface_Utils_Pub.get_messages
15587: ( p_encoded => Fnd_Api.G_TRUE
15596: if p_commit = FND_API.G_TRUE then
15597: rollback to Copy_Tasks_in_bulk;
15598: end if;
15599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15600: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15601: p_procedure_name => 'COPY_TASKS_IN_BULK',
15602: p_error_text => SUBSTRB(SQLERRM,1,240));
15603: when OTHERS then
15604: if p_commit = FND_API.G_TRUE then
15604: if p_commit = FND_API.G_TRUE then
15605: rollback to Copy_Tasks_in_bulk;
15606: end if;
15607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15608: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15609: p_procedure_name => 'COPY_TASKS_IN_BULK',
15610: p_error_text => SUBSTRB(SQLERRM,1,240));
15611: raise;
15612:
15757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15758: END IF;
15759:
15760: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
15761: FND_MSG_PUB.initialize;
15762: END IF;
15763: IF p_calling_module = 'SELF_SERVICE' THEN
15764:
15765: /*Product Code related validation*/
15916: if p_commit = FND_API.G_TRUE then
15917: rollback to MOVE_TASK_VERSIONS_IN_BULK;
15918: end if;
15919: x_return_status := FND_API.G_RET_STS_ERROR;
15920: x_msg_count := Fnd_Msg_Pub.count_msg;
15921:
15922: IF x_msg_count = 1 AND x_msg_data IS NULL
15923: THEN
15924: Pa_Interface_Utils_Pub.get_messages
15935: if p_commit = FND_API.G_TRUE then
15936: rollback to MOVE_TASK_VERSIONS_IN_BULK;
15937: end if;
15938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15939: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15940: p_procedure_name => 'MOVE_TASK_VERSIONS_IN_BULK',
15941: p_error_text => SUBSTRB(SQLERRM,1,240));
15942: when OTHERS then
15943: if p_commit = FND_API.G_TRUE then
15943: if p_commit = FND_API.G_TRUE then
15944: rollback to MOVE_TASK_VERSIONS_IN_BULK;
15945: end if;
15946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15947: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
15948: p_procedure_name => 'MOVE_TASK_VERSIONS_IN_BULK',
15949: p_error_text => SUBSTRB(SQLERRM,1,240));
15950: raise;
15951: END MOVE_TASK_VERSIONS_IN_BULK ;
16062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16063: END IF;
16064:
16065: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
16066: FND_MSG_PUB.initialize;
16067: END IF;
16068:
16069: x_return_status := FND_API.G_RET_STS_SUCCESS;
16070:
16131: ,x_msg_data => l_msg_data
16132: );
16133:
16134: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
16135: x_msg_count := FND_MSG_PUB.count_msg;
16136: IF x_msg_count = 1 then
16137: pa_interface_utils_pub.get_messages
16138: (
16139: p_encoded => FND_API.G_FALSE, /*Bug#9045404*/
16168: ,x_msg_data => l_msg_data
16169: );
16170:
16171: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
16172: x_msg_count := FND_MSG_PUB.count_msg;
16173: IF x_msg_count = 1 then
16174: pa_interface_utils_pub.get_messages
16175: (
16176: p_encoded => FND_API.G_TRUE,
16199: ,x_msg_data => l_msg_data
16200: );
16201:
16202: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
16203: x_msg_count := FND_MSG_PUB.count_msg;
16204: IF x_msg_count = 1 then
16205: pa_interface_utils_pub.get_messages
16206: (
16207: p_encoded => FND_API.G_TRUE,
16228: ,x_msg_data => l_msg_data
16229: );
16230:
16231: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
16232: x_msg_count := FND_MSG_PUB.count_msg;
16233: IF x_msg_count = 1 then
16234: pa_interface_utils_pub.get_messages
16235: (
16236: p_encoded => FND_API.G_TRUE,
16292: END IF;
16293:
16294: END IF;
16295:
16296: l_msg_count := FND_MSG_PUB.count_msg;
16297: IF (l_msg_count > 0) THEN
16298: x_msg_count := l_msg_count;
16299: IF (x_msg_count = 1) THEN
16300: pa_interface_utils_pub.get_messages(
16336: if p_commit = FND_API.G_TRUE then
16337: rollback to update_Task_all_info;
16338: end if;
16339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16340: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16341: p_procedure_name => 'Update_Task_All_Info',
16342: p_error_text => SUBSTRB(SQLERRM,1,240));
16343: when OTHERS then
16344: if p_commit = FND_API.G_TRUE then
16344: if p_commit = FND_API.G_TRUE then
16345: rollback to update_Task_all_info;
16346: end if;
16347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16348: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16349: p_procedure_name => 'Update_Task_All_Info',
16350: p_error_text => SUBSTRB(SQLERRM,1,240));
16351: raise;
16352:
16463: pa_debug.write(l_module_name,'p_cancel_status_code='||p_cancel_status_code, 3);
16464: END IF;
16465:
16466: IF p_init_msg_list = 'T' THEN
16467: FND_MSG_PUB.initialize;
16468: END IF;
16469:
16470: IF l_debug_mode = 'Y' THEN
16471: pa_debug.write(l_module_name,'Calling Check_chg_stat_cancel_ok', 3);
16586: END LOOP;
16587: EXCEPTION
16588: when FND_API.G_EXC_ERROR then
16589: x_return_status := FND_API.G_RET_STS_ERROR;
16590: x_msg_count := fnd_msg_pub.count_msg;
16591: ROLLBACK to CANCEL_TASK_SP;
16592: when FND_API.G_EXC_UNEXPECTED_ERROR then
16593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16594: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16590: x_msg_count := fnd_msg_pub.count_msg;
16591: ROLLBACK to CANCEL_TASK_SP;
16592: when FND_API.G_EXC_UNEXPECTED_ERROR then
16593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16594: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16595: p_procedure_name => 'CANCEL_TASK',
16596: p_error_text => SUBSTRB(SQLERRM,1,240));
16597: x_msg_count := fnd_msg_pub.count_msg;
16598: ROLLBACK to CANCEL_TASK_SP;
16593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16594: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16595: p_procedure_name => 'CANCEL_TASK',
16596: p_error_text => SUBSTRB(SQLERRM,1,240));
16597: x_msg_count := fnd_msg_pub.count_msg;
16598: ROLLBACK to CANCEL_TASK_SP;
16599: when OTHERS then
16600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16601: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16597: x_msg_count := fnd_msg_pub.count_msg;
16598: ROLLBACK to CANCEL_TASK_SP;
16599: when OTHERS then
16600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16601: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16602: p_procedure_name => 'CANCEL_TASK',
16603: p_error_text => SUBSTRB(SQLERRM,1,240));
16604: x_msg_count := fnd_msg_pub.count_msg;
16605: ROLLBACK to CANCEL_TASK_SP;
16600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16601: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16602: p_procedure_name => 'CANCEL_TASK',
16603: p_error_text => SUBSTRB(SQLERRM,1,240));
16604: x_msg_count := fnd_msg_pub.count_msg;
16605: ROLLBACK to CANCEL_TASK_SP;
16606: raise;
16607: END CANCEL_TASK;
16608:
16692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16693: END IF;
16694:
16695: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
16696: FND_MSG_PUB.initialize;
16697: END IF;
16698:
16699: x_return_status := FND_API.G_RET_STS_SUCCESS;
16700:
16729: -- Loop through the sorted list and indent each task version.
16730: for k in 1..l_count
16731: loop
16732: -- Clear the message stack.
16733: FND_MSG_PUB.initialize;
16734:
16735: -- Call the API: PA_TASK_PUB1.INDENT_TASK_VERSION_BULK().
16736: PA_TASK_PUB1.INDENT_TASK_VERSION_BULK
16737: (p_api_version => p_api_version
16776: -- Set the return status to error.
16777: x_return_status := FND_API.G_RET_STS_ERROR;
16778:
16779: -- Clear all previous messages from the message stack.
16780: FND_MSG_PUB.initialize;
16781:
16782: -- Populate the generic error message.
16783: PA_UTILS.ADD_MESSAGE('PA','PA_PS_GENERIC_ERROR');
16784:
16823: if p_commit = FND_API.G_TRUE then
16824: rollback to indent_multi_task_version;
16825: end if;
16826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16827: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16828: p_procedure_name => 'INDENT_MULTI_TASK_VERSION',
16829: p_error_text => SUBSTRB(SQLERRM,1,240));
16830: when OTHERS then
16831: if p_commit = FND_API.G_TRUE then
16831: if p_commit = FND_API.G_TRUE then
16832: rollback to indent_multi_task_version;
16833: end if;
16834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16835: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
16836: p_procedure_name => 'INDENT_MULTI_TASK_VERSION',
16837: p_error_text => SUBSTRB(SQLERRM,1,240));
16838:
16839: raise;
16924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16925: END IF;
16926:
16927: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
16928: FND_MSG_PUB.initialize;
16929: END IF;
16930:
16931: x_return_status := FND_API.G_RET_STS_SUCCESS;
16932:
16961: -- Loop through the sorted list and outdent each task version.
16962: for k in 1..l_count
16963: loop
16964: -- Clear the message stack.
16965: FND_MSG_PUB.initialize;
16966:
16967: -- Call the API: PA_TASK_PUB1.OUTDENT_TASK_VERSION_BULK().
16968: PA_TASK_PUB1.OUTDENT_TASK_VERSION_BULK
16969: (p_api_version => p_api_version
17008: -- Set the return status to error.
17009: x_return_status := FND_API.G_RET_STS_ERROR;
17010:
17011: -- Clear all previous messages from the message stack.
17012: FND_MSG_PUB.initialize;
17013:
17014: -- Populate the generic error message.
17015: PA_UTILS.ADD_MESSAGE('PA','PA_PS_GENERIC_ERROR');
17016:
17049: if p_commit = FND_API.G_TRUE then
17050: rollback to outdent_multi_task_version;
17051: end if;
17052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17053: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
17054: p_procedure_name => 'OUTDENT_MULTI_TASK_VERSION',
17055: p_error_text => SUBSTRB(SQLERRM,1,240));
17056: when OTHERS then
17057: if p_commit = FND_API.G_TRUE then
17057: if p_commit = FND_API.G_TRUE then
17058: rollback to outdent_multi_task_version;
17059: end if;
17060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17061: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PUB1',
17062: p_procedure_name => 'OUTDENT_MULTI_TASK_VERSION',
17063: p_error_text => SUBSTRB(SQLERRM,1,240));
17064:
17065: raise;
17166:
17167: BEGIN
17168: l_task_id_tbl := p_task_id_tbl;
17169: l_project_id := p_project_id;
17170: fnd_msg_pub.initialize;
17171:
17172: select carrying_out_organization_id
17173: into l_org_id
17174: from pa_projects_all
17290: EXCEPTION
17291:
17292: WHEN FND_API.G_EXC_ERROR THEN
17293: rollback;
17294: FND_MSG_PUB.initialize;
17295:
17296: -- Populate the generic error message.
17297: PA_UTILS.ADD_MESSAGE('PA','PA_PARENT_TASK_UNAPPROVED');
17298: x_return_status := FND_API.G_RET_STS_ERROR;