[Home] [Help]
1: PACKAGE BODY PA_TASK_PUB1 AS
2: /* $Header: PATSK1PB.pls 120.39.12020000.6 2013/04/25 13:25:30 bpottipa ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_TASK_PUB1';
5:
1: PACKAGE BODY PA_TASK_PUB1 AS
2: /* $Header: PATSK1PB.pls 120.39.12020000.6 2013/04/25 13:25:30 bpottipa ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_TASK_PUB1';
5:
6:
7: -- API name : Create_Task
8: -- Type : Public procedure
217:
218: -- end hyau Bug 2852753
219:
220: BEGIN
221: pa_debug.init_err_stack ('PA_TASK_PUB1.CREATE_TASK');
222:
223: IF (p_debug_mode = 'Y') THEN
224: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK begin');
225: END IF;
220: BEGIN
221: pa_debug.init_err_stack ('PA_TASK_PUB1.CREATE_TASK');
222:
223: IF (p_debug_mode = 'Y') THEN
224: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK begin');
225: END IF;
226:
227: IF (p_commit = FND_API.G_TRUE) THEN
228: savepoint create_Task;
610: COMMIT;
611: END IF;
612:
613: IF (p_debug_mode = 'Y') THEN
614: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK END');
615: END IF;
616: EXCEPTION
617: when FND_API.G_EXC_ERROR then
618: 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: 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;
897: BEGIN
898:
899: --dbms_output.put_line( 'Entered ' );
900:
901: pa_debug.init_err_stack ('PA_TASK_PUB1.UPDATE_TASK');
902:
903: IF (p_debug_mode = 'Y') THEN
904: pa_debug.debug('PA_TASK_PUB1.UPDATE_TASK begin');
905: END IF;
900:
901: pa_debug.init_err_stack ('PA_TASK_PUB1.UPDATE_TASK');
902:
903: IF (p_debug_mode = 'Y') THEN
904: pa_debug.debug('PA_TASK_PUB1.UPDATE_TASK begin');
905: END IF;
906:
907: IF (p_commit = FND_API.G_TRUE) THEN
908: savepoint update_Task;
1506: COMMIT;
1507: END IF;
1508:
1509: IF (p_debug_mode = 'Y') THEN
1510: pa_debug.debug('PA_TASK_PUB1.UPDATE_TASK END');
1511: END IF;
1512: EXCEPTION
1513: when FND_API.G_EXC_ERROR then
1514: if p_commit = FND_API.G_TRUE then
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:
1630: l_carrying_out_org_id NUMBER;
1631: l_task_manager_id NUMBER;
1632: BEGIN
1633:
1634: pa_debug.init_err_stack ('PA_TASK_PUB1.CREATE_TASK_VERSION');
1635:
1636: IF (p_debug_mode = 'Y') THEN
1637: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION begin');
1638: END IF;
1633:
1634: pa_debug.init_err_stack ('PA_TASK_PUB1.CREATE_TASK_VERSION');
1635:
1636: IF (p_debug_mode = 'Y') THEN
1637: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION begin');
1638: END IF;
1639:
1640: IF (p_commit = FND_API.G_TRUE) THEN
1641: savepoint create_Task_version;
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;
1842: --l_carrying_out_org_id NUMBER;
1843: --l_task_manager_id NUMBER;
1844: BEGIN
1845:
1846: pa_debug.init_err_stack ('PA_TASK_PUB1.UPDATE_TASK_VERSION');
1847:
1848: IF (p_debug_mode = 'Y') THEN
1849: pa_debug.debug('PA_TASK_PUB1.UPDATE_TASK_VERSION begin');
1850: END IF;
1845:
1846: pa_debug.init_err_stack ('PA_TASK_PUB1.UPDATE_TASK_VERSION');
1847:
1848: IF (p_debug_mode = 'Y') THEN
1849: pa_debug.debug('PA_TASK_PUB1.UPDATE_TASK_VERSION begin');
1850: END IF;
1851:
1852: IF (p_commit = FND_API.G_TRUE) THEN
1853: savepoint update_Task_version;
1972: COMMIT;
1973: END IF;
1974:
1975: IF (p_debug_mode = 'Y') THEN
1976: pa_debug.debug('PA_TASK_PUB1.UPDATE_TASK_VERSION END');
1977: END IF;
1978: EXCEPTION
1979: when FND_API.G_EXC_ERROR then
1980: if p_commit = FND_API.G_TRUE then
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;
2175:
2176:
2177: BEGIN
2178:
2179: pa_debug.init_err_stack ('PA_TASK_PUB1.DELETE_TASK_VERSION');
2180:
2181: IF (p_debug_mode = 'Y') THEN
2182: pa_debug.debug('PA_TASK_PUB1.DELETE_TASK_VERSION begin');
2183: END IF;
2178:
2179: pa_debug.init_err_stack ('PA_TASK_PUB1.DELETE_TASK_VERSION');
2180:
2181: IF (p_debug_mode = 'Y') THEN
2182: pa_debug.debug('PA_TASK_PUB1.DELETE_TASK_VERSION begin');
2183: END IF;
2184:
2185: IF (p_commit = FND_API.G_TRUE) THEN
2186: savepoint delete_Task_version;
2536: COMMIT;
2537: END IF;
2538:
2539: IF (p_debug_mode = 'Y') THEN
2540: pa_debug.debug('PA_TASK_PUB1.DELETE_TASK_VERSION END');
2541: END IF;
2542: EXCEPTION
2543: when FND_API.G_EXC_ERROR then
2544: if p_commit = FND_API.G_TRUE then
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;
2681: l_data VARCHAR2(250);
2682: l_msg_index_out NUMBER;
2683: l_error_msg_code VARCHAR2(250);
2684: BEGIN
2685: pa_debug.init_err_stack ('PA_TASK_PUB1.create_schedule_VERSION');
2686:
2687: IF (p_debug_mode = 'Y') THEN
2688: pa_debug.debug('PA_TASK_PUB1.CREATE_SCHEDULE_VERSION begin');
2689: END IF;
2684: BEGIN
2685: pa_debug.init_err_stack ('PA_TASK_PUB1.create_schedule_VERSION');
2686:
2687: IF (p_debug_mode = 'Y') THEN
2688: pa_debug.debug('PA_TASK_PUB1.CREATE_SCHEDULE_VERSION begin');
2689: END IF;
2690:
2691: IF (p_commit = FND_API.G_TRUE) THEN
2692: savepoint create_schedule_version;
2783: COMMIT;
2784: END IF;
2785:
2786: IF (p_debug_mode = 'Y') THEN
2787: pa_debug.debug('PA_TASK_PUB1.CREATE_SCHEDULE_VERSION END');
2788: END IF;
2789: EXCEPTION
2790: when FND_API.G_EXC_ERROR then
2791: if p_commit = FND_API.G_TRUE then
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:
2984: -- end hyau Bug 2852753
2985:
2986: BEGIN
2987:
2988: pa_debug.init_err_stack ('PA_TASK_PUB1.update_schedule_VERSION');
2989:
2990: IF (p_debug_mode = 'Y') THEN
2991: pa_debug.debug('PA_TASK_PUB1.update_SCHEDULE_VERSION begin');
2992: END IF;
2987:
2988: pa_debug.init_err_stack ('PA_TASK_PUB1.update_schedule_VERSION');
2989:
2990: IF (p_debug_mode = 'Y') THEN
2991: pa_debug.debug('PA_TASK_PUB1.update_SCHEDULE_VERSION begin');
2992: END IF;
2993:
2994: IF (p_commit = FND_API.G_TRUE) THEN
2995: savepoint update_schedule_version;
3242: COMMIT;
3243: END IF;
3244:
3245: IF (p_debug_mode = 'Y') THEN
3246: pa_debug.debug('PA_TASK_PUB1.UPDATE_SCHEDULE_VERSION END');
3247: END IF;
3248: EXCEPTION
3249: when FND_API.G_EXC_ERROR then
3250: if p_commit = FND_API.G_TRUE then
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;
3862: is_diff_calculated boolean := false;
3863: -- 12931302 end
3864:
3865: BEGIN
3866: pa_debug.init_err_stack ('PA_TASK_PUB1.COPY_TASK');
3867:
3868: IF (p_debug_mode = 'Y') THEN
3869: pa_debug.debug('PA_TASK_PUB1.COPY_TASK begin');
3870: END IF;
3865: BEGIN
3866: pa_debug.init_err_stack ('PA_TASK_PUB1.COPY_TASK');
3867:
3868: IF (p_debug_mode = 'Y') THEN
3869: pa_debug.debug('PA_TASK_PUB1.COPY_TASK begin');
3870: END IF;
3871:
3872: IF (p_commit = FND_API.G_TRUE) THEN
3873: savepoint copy_task;
3881: FND_MSG_PUB.initialize;
3882: END IF;
3883:
3884: --bug 4075697 copy_task
3885: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
3886: --bug 4075697
3887:
3888: --3035902: process update flag changes
3889: l_wp_process_flag := 'N';
4432: END IF;
4433: l_structure_id := p_dest_structure_id ;
4434: /*4201927 */
4435:
4436: --dbms_output.put_line( 'Before PA_TASK_PUB1.Create_Task' );
4437: --dbms_output.put_line( 'Org Id '||cur_proj_elems_rec.carrying_out_organization_id);
4438:
4439: /*4201927 : This Copy API not used in Move Task Version Context , Hence Commenting
4440: IF (p_called_from_api <> 'MOVE_TASK_VERSION') THEN */
4554: /* This code need not execute for each and every task in LOOP
4555: 4201927 : Moved this code to tagging marked by <>
4556: -- Start of block moved
4557:
4558: ----dbms_output.put_line( 'Before PA_TASK_PUB1.Create_Task_Version' );
4559: --hsiu added for task version status changes
4560: IF (l_template_flag = 'N') THEN
4561: --check if structure is shared
4562: -- if shared, check if versioned
4871: END IF;
4872: /* End for 14209636 */
4873:
4874:
4875: PA_TASK_PUB1.Create_Task_Version(
4876: p_api_version => p_api_version
4877: ,p_init_msg_list => p_init_msg_list
4878: ,p_commit => p_commit
4879: ,p_validate_only => p_validate_only
4993: FETCH cur_struc_type INTO l_dummy_char;
4994: IF cur_struc_type%FOUND
4995: THEN
4996:
4997: --dbms_output.put_line( 'Before PA_TASK_PUB1.Create_Scheduele_version' );
4998:
4999: /*4201927 : This Copy API not called in Move Task Version Context.
5000: Hence Commenting
5001: IF p_called_from_api <> 'MOVE_TASK_VERSION'
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;
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;
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;
5545: --END IF;
5546: --3035902: process update flag changes
5547:
5548: --bug 4149392
5549: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := NULL;
5550: --end bug 4149392
5551:
5552: x_return_status := FND_API.G_RET_STS_SUCCESS;
5553:
5555: COMMIT;
5556: END IF;
5557:
5558: IF (p_debug_mode = 'Y') THEN
5559: pa_debug.debug('PA_TASK_PUB1.COPY_TASK END');
5560: END IF;
5561: EXCEPTION
5562: when FND_API.G_EXC_ERROR then
5563: if p_commit = FND_API.G_TRUE then
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;
5866:
5867: BEGIN
5868:
5869:
5870: pa_debug.init_err_stack ('PA_TASK_PUB1.MOVE_TASK_VERSION');
5871:
5872: IF (p_debug_mode = 'Y') THEN
5873: pa_debug.debug('PA_TASK_PUB1.MOVE_TASK_VERSION begin');
5874: END IF;
5869:
5870: pa_debug.init_err_stack ('PA_TASK_PUB1.MOVE_TASK_VERSION');
5871:
5872: IF (p_debug_mode = 'Y') THEN
5873: pa_debug.debug('PA_TASK_PUB1.MOVE_TASK_VERSION begin');
5874: END IF;
5875:
5876: IF (p_commit = FND_API.G_TRUE) THEN
5877: savepoint move_task_version;
5885: FND_MSG_PUB.initialize;
5886: END IF;
5887:
5888: --bug 4075697
5889: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
5890: --bug 4075697
5891:
5892: IF p_called_from_bulk_api = 'Y'/*4269830*/
5893: THEN
6212: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
6213: RAISE FND_API.G_EXC_ERROR;
6214: END IF;
6215: --
6216: PA_TASK_PUB1.Update_Task_Version
6217: ( p_validate_only => FND_API.G_FALSE,
6218: p_ref_task_version_id => p_ref_task_version_id,
6219: p_peer_or_sub => p_peer_or_sub,
6220: p_task_version_id => p_task_version_id,
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;
6760: END IF;
6761: end;
6762:
6763: --bug 4149392
6764: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := NULL;
6765: --end bug 4149392
6766:
6767: x_return_status := FND_API.G_RET_STS_SUCCESS;
6768:
6770: COMMIT;
6771: END IF;
6772:
6773: IF (p_debug_mode = 'Y') THEN
6774: pa_debug.debug('PA_TASK_PUB1.MOVE_TASK_VERSION END');
6775: END IF;
6776: EXCEPTION
6777: when FND_API.G_EXC_ERROR then
6778: if p_commit = FND_API.G_TRUE then
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;
6908: l_parent_ver_id NUMBER;
6909: l_error_msg_code VARCHAR2(30);
6910:
6911: BEGIN
6912: pa_debug.init_err_stack ('PA_TASK_PUB1.INDENT_TASK_VERSION');
6913:
6914: IF (p_debug_mode = 'Y') THEN
6915: pa_debug.debug('PA_TASK_PUB1.INDENT_TASK_VERSION begin');
6916: END IF;
6911: BEGIN
6912: pa_debug.init_err_stack ('PA_TASK_PUB1.INDENT_TASK_VERSION');
6913:
6914: IF (p_debug_mode = 'Y') THEN
6915: pa_debug.debug('PA_TASK_PUB1.INDENT_TASK_VERSION begin');
6916: END IF;
6917:
6918: IF (p_commit = FND_API.G_TRUE) THEN
6919: savepoint indent_task_version;
7134:
7135:
7136: --dbms_output.put_line( 'Indent Task Stage 9 ' );
7137:
7138: PA_TASK_PUB1.Update_Task_Version
7139: ( p_validate_only => FND_API.G_FALSE,
7140: p_ref_task_version_id => l_ref_task_version_id,
7141: p_peer_or_sub => l_peer_or_sub,
7142: p_task_version_id => p_task_version_id,
7337: COMMIT;
7338: END IF;
7339:
7340: IF (p_debug_mode = 'Y') THEN
7341: pa_debug.debug('PA_TASK_PUB1.INDENT_TASK_VERSION END');
7342: END IF;
7343:
7344: EXCEPTION
7345: when FND_API.G_EXC_ERROR then
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:
7484: and relationship_type = 'S';
7485: l_parent_ver_id NUMBER;
7486: l_error_msg_code VARCHAR2(30);
7487: BEGIN
7488: pa_debug.init_err_stack ('PA_TASK_PUB1.OUTDENT_TASK_VERSION');
7489:
7490: IF (p_debug_mode = 'Y') THEN
7491: pa_debug.debug('PA_TASK_PUB1.OUTDENT_TASK_VERSION begin');
7492: END IF;
7487: BEGIN
7488: pa_debug.init_err_stack ('PA_TASK_PUB1.OUTDENT_TASK_VERSION');
7489:
7490: IF (p_debug_mode = 'Y') THEN
7491: pa_debug.debug('PA_TASK_PUB1.OUTDENT_TASK_VERSION begin');
7492: END IF;
7493:
7494: IF (p_commit = FND_API.G_TRUE) THEN
7495: savepoint outdent_task_version;
7619: --task status changes ends
7620:
7621: --dbms_output.put_line( 'Before Update_Task_Version ' );
7622:
7623: PA_TASK_PUB1.Update_Task_Version
7624: ( p_validate_only => FND_API.G_FALSE,
7625: p_ref_task_version_id => l_ref_task_version_id,
7626: p_peer_or_sub => 'PEER',
7627: p_task_version_id => p_task_version_id,
7821: COMMIT;
7822: END IF;
7823:
7824: IF (p_debug_mode = 'Y') THEN
7825: pa_debug.debug('PA_TASK_PUB1.OUTDENT_TASK_VERSION END');
7826: END IF;
7827:
7828: EXCEPTION
7829: when FND_API.G_EXC_ERROR then
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;
8210: l_peer_or_sub := 'SUB';
8211: end if;
8212: end if;
8213:
8214: --my_error_msg( 'before PA_TASK_PUB1.CREATE_TASK' );
8215:
8216: OPEN cur_ref_proj_elem_id( l_ref_task_ver_id );
8217: FETCH cur_ref_proj_elem_id INTO l_ref_proj_eleme_id; --For ref task id
8218: CLOSE cur_ref_proj_elem_id;
8274: END IF;
8275: END IF;
8276: --3035902: end process update flag changes
8277:
8278: PA_TASK_PUB1.CREATE_TASK
8279: ( p_validate_only => FND_API.G_FALSE
8280: ,p_object_type => 'PA_TASKS'
8281: ,p_project_id => p_project_id
8282: ,p_ref_task_id => l_ref_proj_eleme_id
8310: end if;
8311: raise API_ERROR;
8312: end if;
8313:
8314: --my_error_msg( 'before PA_TASK_PUB1.CREATE_TASK_VERSION' );
8315:
8316: /* commented out because flag value is set before create task
8317: --bug 3010538
8318: IF (l_shared = 'N') AND
8428: --end task version status changes
8429:
8430:
8431: --CREATE_TASK_VERSION
8432: PA_TASK_PUB1.CREATE_TASK_VERSION
8433: ( p_validate_only => FND_API.G_FALSE
8434: ,p_ref_task_version_id => l_ref_task_ver_id
8435: ,p_peer_or_sub => l_peer_or_sub
8436: ,p_task_id => l_task_id
8487: --Changes for 8566495 anuragag
8488: --We will create record in pa_proj_elem_ver_schedules now for tasks created via change management flow.
8489: -- PA_TASK_PVT1.G_CHG_DOC_CNTXT will be equal to 1 only when the task is created via CD flow.
8490: if (PA_PROJECT_STRUCTURE_UTILS.GET_STRUC_TYPE_FOR_VERSION(p_structure_version_id, 'WORKPLAN') = 'Y' OR PA_TASK_PVT1.G_CHG_DOC_CNTXT = 1) then
8491: PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
8492: ( p_validate_only => FND_API.G_FALSE
8493: ,p_element_version_id => l_task_version_id
8494: ,p_scheduled_start_date => nvl(p_scheduled_start_date(i), sysdate)
8495: ,p_scheduled_end_date => nvl(p_scheduled_finish_date(i),nvl(p_scheduled_start_date(i), sysdate))
8598:
8599:
8600: --bug 3301192 call the budgets apis
8601: if PA_PROJECT_STRUCTURE_UTILS.GET_STRUC_TYPE_FOR_VERSION(p_structure_version_id, 'WORKPLAN') = 'Y' then /* this api called should have been cached but we dont have time now to do this. */
8602: PA_TASK_PUB1.call_add_planning_txns(
8603: p_tasks_ver_ids => l_tasks_ver_ids,
8604: p_planned_effort => p_planned_effort,
8605: p_project_id => p_project_id,
8606: p_structure_version_id => p_structure_version_id,
8734: END IF;
8735: END IF;
8736:
8737: -- anlee task weighting
8738: PA_TASK_PUB1.Calc_Task_Weights(
8739: p_element_versions => l_tasks_ver_ids
8740: ,p_outline_level => p_outline_level
8741: ,p_top_sub_count => l_top_sub_count
8742: ,x_return_status => l_return_status
8916: l_project_id NUMBER;
8917:
8918: --Start Changes for bug 3083950
8919: l_debug_mode VARCHAR2(1);
8920: l_module_name VARCHAR2(100) := 'pa.plsql.PA_TASK_PUB1';
8921: l_temp_number NUMBER(17,2);
8922: l_diff_number NUMBER;
8923: l_sum_temp_number NUMBER(17,4);
8924: l_constant_temp_number NUMBER(17,4) := 0.0100;
8946: pa_debug.write(l_module_name,pa_debug.g_err_stage,
8947: l_debug_level2);
8948:
8949:
8950: pa_debug.set_curr_function( p_function => 'PA_TASK_PUB1.CALC_TASK_WEIGHTS',
8951: p_debug_mode => l_debug_mode );
8952:
8953: END IF;
8954:
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;
9385: IS
9386:
9387: BEGIN
9388:
9389: pa_debug.init_err_stack ('PA_TASK_PUB1.UPDATE_TASK_WEIGHTING');
9390:
9391: IF (p_debug_mode = 'Y') THEN
9392: pa_debug.debug('PA_TASK_PUB1.UPDATE_TASK_WEIGHTING begin');
9393: END IF;
9388:
9389: pa_debug.init_err_stack ('PA_TASK_PUB1.UPDATE_TASK_WEIGHTING');
9390:
9391: IF (p_debug_mode = 'Y') THEN
9392: pa_debug.debug('PA_TASK_PUB1.UPDATE_TASK_WEIGHTING begin');
9393: END IF;
9394:
9395: IF (p_commit = FND_API.G_TRUE) THEN
9396: savepoint update_task_weighting;
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:
9734: --bug 4214825, end
9735:
9736: BEGIN
9737:
9738: pa_debug.init_err_stack ('PA_TASK_PUB1.INDENT_TASK_VERSION_BULK');
9739:
9740: IF (p_debug_mode = 'Y') THEN
9741: pa_debug.debug('PA_TASK_PUB1.INDENT_TASK_VERSION_BULK begin');
9742: END IF;
9737:
9738: pa_debug.init_err_stack ('PA_TASK_PUB1.INDENT_TASK_VERSION_BULK');
9739:
9740: IF (p_debug_mode = 'Y') THEN
9741: pa_debug.debug('PA_TASK_PUB1.INDENT_TASK_VERSION_BULK begin');
9742: END IF;
9743:
9744: IF (p_commit = FND_API.G_TRUE) THEN
9745: savepoint indent_task_version_bulk;
9753: FND_MSG_PUB.initialize;
9754: END IF;
9755:
9756: --bug 4075697
9757: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
9758: --bug 4075697
9759:
9760: --3035902: process update flag changes
9761: l_wp_process_flag := 'N';
10087: /*
10088:
10089: The processing done by the followig two calls is made now as plsql table bulk processing
10090:
10091: PA_TASK_PUB1.Update_Task_Version
10092: ( p_validate_only => FND_API.G_FALSE,
10093: p_ref_task_version_id => l_ref_task_version_id,
10094: p_peer_or_sub => l_peer_or_sub,
10095: p_task_version_id => p_task_version_id,
10110:
10111: */
10112:
10113:
10114: /*** The following part should do the same task as done by PA_TASK_PUB1.Update_Task_Version and Update_wbs_numbers ***/
10115:
10116: -- Logic Added for plsql table
10117: -- Basically earlier this was done thru update_task_version and update_wbs_numbers
10118:
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;
10880: END IF; --<
10881: END IF; --<
10882:
10883: --bug 4149392
10884: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := NULL;
10885: --end bug 4149392
10886:
10887: x_return_status := FND_API.G_RET_STS_SUCCESS;
10888:
10890: COMMIT;
10891: END IF;
10892:
10893: IF (p_debug_mode = 'Y') THEN
10894: pa_debug.debug('PA_TASK_PUB1.INDENT_TASK_VERSION_BULK END');
10895: END IF;
10896:
10897: EXCEPTION
10898: when FND_API.G_EXC_ERROR then
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:
11271: l_child_task_exists VARCHAR2(1) ;
11272: --Bug 16013002
11273: BEGIN
11274:
11275: pa_debug.init_err_stack ('PA_TASK_PUB1.OUTDENT_TASK_VERSION_BULK');
11276:
11277: IF (p_debug_mode = 'Y') THEN
11278: pa_debug.debug('PA_TASK_PUB1.OUTDENT_TASK_VERSION_BULK begin');
11279: END IF;
11274:
11275: pa_debug.init_err_stack ('PA_TASK_PUB1.OUTDENT_TASK_VERSION_BULK');
11276:
11277: IF (p_debug_mode = 'Y') THEN
11278: pa_debug.debug('PA_TASK_PUB1.OUTDENT_TASK_VERSION_BULK begin');
11279: END IF;
11280:
11281: IF (p_commit = FND_API.G_TRUE) THEN
11282: savepoint OUTDENT_task_version_bulk;
11290: FND_MSG_PUB.initialize;
11291: END IF;
11292:
11293: --bug 4075697
11294: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
11295: --bug 4075697
11296:
11297:
11298: --3035902: process update flag changes
11447: , src_proj_element_id
11448: , p_task_version_id),'N') = 'Y') then
11449:
11450: IF (p_debug_mode = 'Y') THEN
11451: pa_debug.debug('ERROR !!! PA_TASK_PUB1.OUTDENT_TASK_VERSION_BULK ');
11452: END IF;
11453:
11454: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11455: p_msg_name => 'PA_PS_TASK_HAS_SUB_PROJ');
11558: /*
11559:
11560: The processing done by the followig two calls is made now as plsql table bulk processing
11561:
11562: PA_TASK_PUB1.Update_Task_Version
11563: ( p_validate_only => FND_API.G_FALSE,
11564: p_ref_task_version_id => l_ref_task_version_id,
11565: p_peer_or_sub => 'PEER',
11566: p_task_version_id => p_task_version_id,
11582:
11583: */
11584:
11585:
11586: /*** The following part should do the same task as done by PA_TASK_PUB1.Update_Task_Version and Update_wbs_numbers ***/
11587:
11588: -- Logic Added for plsql table
11589: -- Basically earlier this was done thru update_task_version and update_wbs_numbers
11590:
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;
12553: END IF; --<
12554: --bug 3301192
12555:
12556: --bug 4149392
12557: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := NULL;
12558: --end bug 4149392
12559:
12560: x_return_status := FND_API.G_RET_STS_SUCCESS;
12561:
12563: COMMIT;
12564: END IF;
12565:
12566: IF (p_debug_mode = 'Y') THEN
12567: pa_debug.debug('PA_TASK_PUB1.OUTDENT_TASK_VERSION_BULK END');
12568: END IF;
12569:
12570: EXCEPTION
12571: when FND_API.G_EXC_ERROR then
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:
12730: END LOOP;
12731: END IF;
12732:
12733: -- call delete_task_version API
12734: PA_TASK_PUB1.Delete_Task_Version(
12735: p_task_version_id => p_task_version_id_tbl(i)
12736: ,p_record_version_number => p_record_version_number_tbl(i)
12737: ,p_structure_type => p_structure_type
12738: ,x_return_status => l_return_status
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);
12901: pa_debug.write('DELETE_TASK_VERSION_IN_BULK' || G_PKG_NAME,pa_debug.G_Err_Stack,4);
12955:
12956: x_return_status := FND_API.G_RET_STS_SUCCESS;
12957:
12958: IF (p_debug_mode = 'Y') THEN
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;
13065: END IF;
13066: END IF;
13067:
13068: IF (p_debug_mode = 'Y') THEN
13069: pa_debug.debug('PA_TASK_PUB1.UPDATE_TASK_ASSOCIATION END');
13070: END IF;
13071:
13072:
13073: EXCEPTION
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:
13128: BEGIN
13129: x_return_status := FND_API.G_RET_STS_SUCCESS;
13130:
13131: IF (p_debug_mode = 'Y') THEN
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;
13174: END IF;
13175:
13176:
13177: IF (p_debug_mode = 'Y') THEN
13178: pa_debug.debug('PA_TASK_PUB1.DELETE_TASK_ASSOCIATIONS END');
13179: END IF;
13180:
13181:
13182: EXCEPTION
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:
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;
13382: BEGIN
13383: x_return_status := FND_API.G_RET_STS_SUCCESS;
13384:
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;
13426: END IF;
13427: END IF;
13428:
13429: IF (p_debug_mode = 'Y') THEN
13430: pa_debug.debug('PA_TASK_PUB1.Delete_Proj_To_Task_Assoc END');
13431: END IF;
13432:
13433: EXCEPTION
13434: WHEN FND_API.G_EXC_ERROR THEN
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;
13499:
13500: BEGIN
13501:
13502: IF (p_debug_mode = 'Y') THEN
13503: pa_debug.debug('PA_TASK_PUB1.Copy_Task_Associations START');
13504: END IF;
13505:
13506: x_return_status := FND_API.G_RET_STS_SUCCESS;
13507:
13573: END IF;
13574: END IF;
13575:
13576: IF (p_debug_mode = 'Y') THEN
13577: pa_debug.debug('PA_TASK_PUB1.Copy_Task_Associations END');
13578: END IF;
13579:
13580: EXCEPTION
13581: WHEN FND_API.G_EXC_ERROR THEN
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;
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;
13985:
13986: BEGIN
13987:
13988: IF (p_debug_mode = 'Y') THEN
13989: pa_debug.debug('PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO begin');
13990: END IF;
13991:
13992: IF (p_commit = FND_API.G_TRUE) THEN
13993: savepoint UPDATE_task_det_sch;
13995:
13996: l_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
13997:
13998: IF l_debug_mode = 'Y' THEN
13999: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO Start : Passed Parameters :', x_Log_Level=> 3);
14000: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'p_calling_module='||p_calling_module, x_Log_Level=> 3);
14001: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'p_task_ver_id='||p_task_ver_id, x_Log_Level=> 3);
14002: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'p_project_id='||p_project_id, x_Log_Level=> 3);
14003: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'p_planned_effort='||p_planned_effort, x_Log_Level=> 3);
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;
14982:
14983: -- Call rollup API only is there is a working progress for the given task_version and
14984: -- structure_version. The as_of_date will then be the max(as_of_date() of the working progress.
14985: IF l_debug_mode = 'Y' THEN
14986: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'Entered For Assignments', x_Log_Level=> 3);
14987: END IF;
14988:
14989: --bug 4105720, get the task id
14990: OPEN c_proj_element_id;
14996: FETCH cur_progress_exists INTO l_progress_exists;
14997: CLOSE cur_progress_exists;
14998:
14999: IF l_debug_mode = 'Y' THEN
15000: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_task_id '||l_task_id, x_Log_Level=> 3);
15001: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_progress_exists '||l_progress_exists, x_Log_Level=> 3);
15002: END IF;
15003:
15004: IF NVL(l_progress_exists, 'N') = 'Y' THEN -- Bug 3976633
14997: CLOSE cur_progress_exists;
14998:
14999: IF l_debug_mode = 'Y' THEN
15000: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_task_id '||l_task_id, x_Log_Level=> 3);
15001: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_progress_exists '||l_progress_exists, x_Log_Level=> 3);
15002: END IF;
15003:
15004: IF NVL(l_progress_exists, 'N') = 'Y' THEN -- Bug 3976633
15005:
15019: FETCH c_proj_element_id INTO l_task_id;
15020: CLOSE c_proj_element_id;*/
15021:
15022: IF l_debug_mode = 'Y' THEN
15023: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'Calling Rollup For Assignments', x_Log_Level=> 3);
15024: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_task_id='||l_task_id, x_Log_Level=> 3);
15025: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'p_task_ver_id='||p_task_ver_id, x_Log_Level=> 3);
15026: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_method='||l_rollup_method, x_Log_Level=> 3);
15027: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_as_of_date='||l_rollup_as_of_date, x_Log_Level=> 3);
15020: CLOSE c_proj_element_id;*/
15021:
15022: IF l_debug_mode = 'Y' THEN
15023: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'Calling Rollup For Assignments', x_Log_Level=> 3);
15024: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_task_id='||l_task_id, x_Log_Level=> 3);
15025: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'p_task_ver_id='||p_task_ver_id, x_Log_Level=> 3);
15026: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_method='||l_rollup_method, x_Log_Level=> 3);
15027: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_as_of_date='||l_rollup_as_of_date, x_Log_Level=> 3);
15028: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_as_of_date='||l_rollup_as_of_date, x_Log_Level=> 3);
15021:
15022: IF l_debug_mode = 'Y' THEN
15023: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'Calling Rollup For Assignments', x_Log_Level=> 3);
15024: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_task_id='||l_task_id, x_Log_Level=> 3);
15025: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'p_task_ver_id='||p_task_ver_id, x_Log_Level=> 3);
15026: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_method='||l_rollup_method, x_Log_Level=> 3);
15027: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_as_of_date='||l_rollup_as_of_date, x_Log_Level=> 3);
15028: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_as_of_date='||l_rollup_as_of_date, x_Log_Level=> 3);
15029: END IF;
15022: IF l_debug_mode = 'Y' THEN
15023: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'Calling Rollup For Assignments', x_Log_Level=> 3);
15024: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_task_id='||l_task_id, x_Log_Level=> 3);
15025: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'p_task_ver_id='||p_task_ver_id, x_Log_Level=> 3);
15026: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_method='||l_rollup_method, x_Log_Level=> 3);
15027: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_as_of_date='||l_rollup_as_of_date, x_Log_Level=> 3);
15028: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_as_of_date='||l_rollup_as_of_date, x_Log_Level=> 3);
15029: END IF;
15030: -- 4591321 : Always call populate_pji_tab_for_plan
15023: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'Calling Rollup For Assignments', x_Log_Level=> 3);
15024: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_task_id='||l_task_id, x_Log_Level=> 3);
15025: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'p_task_ver_id='||p_task_ver_id, x_Log_Level=> 3);
15026: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_method='||l_rollup_method, x_Log_Level=> 3);
15027: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_as_of_date='||l_rollup_as_of_date, x_Log_Level=> 3);
15028: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_as_of_date='||l_rollup_as_of_date, x_Log_Level=> 3);
15029: END IF;
15030: -- 4591321 : Always call populate_pji_tab_for_plan
15031: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
15024: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_task_id='||l_task_id, x_Log_Level=> 3);
15025: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'p_task_ver_id='||p_task_ver_id, x_Log_Level=> 3);
15026: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_method='||l_rollup_method, x_Log_Level=> 3);
15027: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_as_of_date='||l_rollup_as_of_date, x_Log_Level=> 3);
15028: pa_debug.write(x_Module=>'PA_TASK_PUB1.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_rollup_as_of_date='||l_rollup_as_of_date, x_Log_Level=> 3);
15029: END IF;
15030: -- 4591321 : Always call populate_pji_tab_for_plan
15031: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
15032: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N'
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:
15262: SELECT pm_product_code
15263: FROM PA_PROJECTS_ALL
15264: WHERE project_id = c_project_id;
15265: BEGIN
15266: pa_debug.init_err_stack ('PA_TASK_PUB1.COPY_TASKS_IN_BULK');
15267: x_return_status := FND_API.G_RET_STS_SUCCESS;
15268: IF (p_debug_mode = 'Y') THEN
15269: pa_debug.debug('PA_TASK_PUB1.COPY_TASKS_IN_BULK begin');
15270: END IF;
15265: BEGIN
15266: pa_debug.init_err_stack ('PA_TASK_PUB1.COPY_TASKS_IN_BULK');
15267: x_return_status := FND_API.G_RET_STS_SUCCESS;
15268: IF (p_debug_mode = 'Y') THEN
15269: pa_debug.debug('PA_TASK_PUB1.COPY_TASKS_IN_BULK begin');
15270: END IF;
15271:
15272: IF (p_commit = FND_API.G_TRUE) THEN
15273: savepoint copy_tasks_in_bulk;
15524:
15525:
15526: IF nvl(p_src_task_version_id_tbl.LAST,0)>0 THEN
15527: FOR i IN p_src_task_version_id_tbl.FIRST..p_src_task_version_id_tbl.LAST LOOP
15528: PA_TASK_PUB1.Copy_Task(
15529: p_init_msg_list => FND_API.G_FALSE,
15530: p_src_project_id => p_src_project_id,
15531: p_src_project_name => p_src_project_name,
15532: p_src_structure_id => p_src_structure_id ,
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:
15740:
15741: /*4269830 : Performance Enhancements : End*/
15742:
15743: BEGIN
15744: pa_debug.init_err_stack ('PA_TASK_PUB1.MOVE_TASK_VERSIONS_IN_BULK');
15745:
15746: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15747:
15748: IF (p_debug_mode = 'Y') THEN
15745:
15746: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15747:
15748: IF (p_debug_mode = 'Y') THEN
15749: pa_debug.debug('PA_TASK_PUB1.MOVE_TASK_VERSIONS_IN_BULK begin');
15750: END IF;
15751:
15752: IF (p_commit = FND_API.G_TRUE) THEN
15753: savepoint MOVE_TASK_VERSIONS_IN_BULK ;
15870: ref_task_temp_version_id := p_ref_task_version_id; -- Bug 6628382
15871:
15872: IF nvl(p_task_version_id_tbl.LAST,0)>0 THEN
15873: FOR i IN p_task_version_id_tbl.FIRST..p_task_version_id_tbl.LAST LOOP
15874: PA_TASK_PUB1.Move_Task_Version(
15875: p_init_msg_list => FND_API.G_FALSE,
15876: p_structure_version_id => p_structure_version_id,
15877: p_task_version_id => p_task_version_id_tbl(i),
15878: p_ref_task_version_id => ref_task_temp_version_id, --p_ref_task_version_id, -- Bug 6628382
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 ;
16047: l_task_dates TASK_DATES_TBL_TYPE;
16048: -- End of addition for --bug 8301015
16049:
16050: BEGIN
16051: pa_debug.init_err_stack ('PA_TASK_PUB1.Update_Task_All_Info');
16052:
16053: IF (p_debug_mode = 'Y') THEN
16054: pa_debug.debug('PA_TASK_PUB1.Update_Task_All_Info begin');
16055: END IF;
16050: BEGIN
16051: pa_debug.init_err_stack ('PA_TASK_PUB1.Update_Task_All_Info');
16052:
16053: IF (p_debug_mode = 'Y') THEN
16054: pa_debug.debug('PA_TASK_PUB1.Update_Task_All_Info begin');
16055: END IF;
16056:
16057: IF (p_commit = FND_API.G_TRUE) THEN
16058: savepoint update_Task_all_info;
16103:
16104: End IF;
16105: -- Changes for --bug 8301015
16106:
16107: PA_TASK_PUB1.Update_Task
16108: (
16109: p_task_id => p_task_id_tbl(i)
16110: ,p_task_number => p_task_number_tbl(i)
16111: ,p_task_name => p_task_name_tbl(i)
16147: END IF;
16148: raise FND_API.G_EXC_ERROR;
16149: END IF;
16150:
16151: PA_TASK_PUB1.Update_Schedule_Version
16152: (
16153: p_scheduled_start_date => p_scheduled_start_date_tbl(i)
16154: ,p_scheduled_end_date => p_scheduled_end_date_tbl(i)
16155: ,p_record_version_number => p_sch_rec_ver_num_tbl(i)
16184: END IF;
16185: raise FND_API.G_EXC_ERROR;
16186: END IF;
16187:
16188: PA_TASK_PUB1.update_task_det_sch_info
16189: (
16190: p_task_ver_id => p_task_version_id_tbl(i)
16191: ,p_percent_complete => p_percent_complete_tbl(i)
16192: ,p_ETC_effort => p_ETC_effort_tbl(i)
16217: END IF;
16218:
16219: IF p_task_weight_method = 'MANUAL' THEN
16220:
16221: PA_TASK_PUB1.Update_Task_Weighting
16222: (
16223: p_object_relationship_id => p_object_relationship_id_tbl(i)
16224: ,p_weighting_percentage => p_weighting_percentage_tbl(i)
16225: ,p_record_version_number => p_obj_rec_ver_num_tbl(i)
16322: COMMIT;
16323: END IF;
16324:
16325: IF (p_debug_mode = 'Y') THEN
16326: pa_debug.debug('PA_TASK_PUB1.Update_Task_All_Info END');
16327: END IF;
16328:
16329: EXCEPTION
16330: when FND_API.G_EXC_ERROR then
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:
16369: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
16370: )
16371: IS
16372: l_debug_mode VARCHAR2(1);
16373: l_module_name VARCHAR2(100):= 'PA_TASK_PUB1.CANCEL_TASK';
16374: l_error_message_code VARCHAR2(32);
16375:
16376: -- 4533534 : Included join of pa_proj_elem_ver_structure too
16377: CURSOR c_get_all_task_versions(c_task_id NUMBER, c_project_id NUMBER) IS
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;
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;
16677: l_rec_task_attr l_cur_task_attr%rowtype;
16678:
16679: BEGIN
16680:
16681: pa_debug.init_err_stack ('PA_TASK_PUB1.INDENT_MULTI_TASK_VERSION');
16682:
16683: IF (p_debug_mode = 'Y') THEN
16684: pa_debug.debug('PA_TASK_PUB1.INDENT_MULTI_TASK_VERSION BEGIN');
16685: END IF;
16680:
16681: pa_debug.init_err_stack ('PA_TASK_PUB1.INDENT_MULTI_TASK_VERSION');
16682:
16683: IF (p_debug_mode = 'Y') THEN
16684: pa_debug.debug('PA_TASK_PUB1.INDENT_MULTI_TASK_VERSION BEGIN');
16685: END IF;
16686:
16687: IF (p_commit = FND_API.G_TRUE) THEN
16688: savepoint indent_multi_task_version;
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
16738: , p_init_msg_list => p_init_msg_list
16739: , p_commit => p_commit
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
16738: , p_init_msg_list => p_init_msg_list
16739: , p_commit => p_commit
16740: , p_validate_only => p_validate_only
16807: COMMIT;
16808: END IF;
16809:
16810: IF (p_debug_mode = 'Y') THEN
16811: pa_debug.debug('PA_TASK_PUB1.INDENT_MULTI_TASK_VERSION END');
16812: END IF;
16813:
16814: EXCEPTION
16815:
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;
16909: l_rec_task_attr l_cur_task_attr%rowtype;
16910:
16911: BEGIN
16912:
16913: pa_debug.init_err_stack ('PA_TASK_PUB1.OUTDENT_MULTI_TASK_VERSION');
16914:
16915: IF (p_debug_mode = 'Y') THEN
16916: pa_debug.debug('PA_TASK_PUB1.OUTDENT_MULTI_TASK_VERSION BEGIN');
16917: END IF;
16912:
16913: pa_debug.init_err_stack ('PA_TASK_PUB1.OUTDENT_MULTI_TASK_VERSION');
16914:
16915: IF (p_debug_mode = 'Y') THEN
16916: pa_debug.debug('PA_TASK_PUB1.OUTDENT_MULTI_TASK_VERSION BEGIN');
16917: END IF;
16918:
16919: IF (p_commit = FND_API.G_TRUE) THEN
16920: savepoint outdent_multi_task_version;
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
16970: , p_init_msg_list => p_init_msg_list
16971: , p_commit => p_commit
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
16970: , p_init_msg_list => p_init_msg_list
16971: , p_commit => p_commit
16972: , p_validate_only => p_validate_only
17033: COMMIT;
17034: END IF;
17035:
17036: IF (p_debug_mode = 'Y') THEN
17037: pa_debug.debug('PA_TASK_PUB1.OUTDENT_MULTI_TASK_VERSION END');
17038: END IF;
17039:
17040: EXCEPTION
17041:
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;
17307:
17308: END APPROVE_TASKS_IN_BULK;
17309: -- End of Bug Fix 5593736.
17310:
17311: END PA_TASK_PUB1;