[Home] [Help]
1: package body PA_TASKS_MAINT_PVT as
2: /*$Header: PATSKSVB.pls 120.14.12010000.4 2008/10/30 23:06:21 kmaddi ship $*/
3:
4: g_pkg_name CONSTANT VARCHAR2(30):= 'PA_TASKS_MAINT_PVT';
5: --begin add by rtarway for FP.M developement
1: package body PA_TASKS_MAINT_PVT as
2: /*$Header: PATSKSVB.pls 120.14.12010000.4 2008/10/30 23:06:21 kmaddi ship $*/
3:
4: g_pkg_name CONSTANT VARCHAR2(30):= 'PA_TASKS_MAINT_PVT';
5: --begin add by rtarway for FP.M developement
6: Invalid_Arg_Exc_WP Exception;
7: --End add by rtarway for FP.M developement
8: -- API name : CREATE_TASK
457: customer_id,
458: revenue_accrual_method,
459: invoice_method,
460: GEN_ETC_SOURCE_CODE
461: FROM PA_TASKS
462: WHERE TASK_ID = p_reference_task_id;
463:
464: -- cursor for defaulting peer task that is not a top task.
465: CURSOR ref_parent_task IS
536: T.customer_id,
537: T.revenue_accrual_method,
538: T.invoice_method,
539: T.GEN_ETC_SOURCE_CODE
540: FROM PA_TASKS T
541: WHERE T.TASK_ID =
542: (SELECT T2.PARENT_TASK_ID
543: FROM PA_TASKS T2
544: WHERE T2.TASK_ID = p_reference_task_id);
539: T.GEN_ETC_SOURCE_CODE
540: FROM PA_TASKS T
541: WHERE T.TASK_ID =
542: (SELECT T2.PARENT_TASK_ID
543: FROM PA_TASKS T2
544: WHERE T2.TASK_ID = p_reference_task_id);
545:
546: --Cursor for defaulting top task
547: CURSOR top_task IS
655: l_wp_separate_from_fin VARCHAR2(1);
656:
657: BEGIN
658: IF (p_debug_mode = 'Y') THEN
659: pa_debug.debug('PA_TASKS_MAINT_PVT.CREATE_TASK BEGIN');
660: END IF;
661:
662: IF (p_commit = FND_API.G_TRUE) THEN
663: savepoint CREATE_TASK_PRIVATE;
749: IF (p_task_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
750: p_task_start_date IS NULL) AND
751: (p_task_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
752: p_task_completion_date IS NULL) THEN
753: PA_TASKS_MAINT_UTILS.check_start_end_date(
754: p_old_start_date => null,
755: p_old_end_date => null,
756: p_new_start_date => p_task_start_date,
757: p_new_end_date => p_task_completion_date,
795: -- Get Task Id
796: --Commented the following line and replaced with new one.
797: -- IF (p_calling_module IN ('FORMS', 'EXCHANGE', 'SELF_SERVICE')) THEN
798: IF p_task_id IS NULL THEN --Added by Ansari
799: select PA_TASKS_S.NEXTVAL INTO l_new_task_id from sys.dual;
800: ELSE --Added by Ansari
801: l_new_task_id := p_task_id;
802: END IF;
803:
1065: ,TGEN_ETC_SOURCE_CODE
1066: ,Tnon_lab_std_bill_rt_Sch_id ; -- Bug 4963525
1067: CLOSE top_task;
1068:
1069: TADDRESS_ID := PA_TASKS_MAINT_UTILS.DEFAULT_ADDRESS_ID(p_project_id);
1070: l_parent_task_id := NULL;
1071: l_top_task_id := l_new_task_id;
1072: /*FPM development for Project Setup */
1073: IF l_project_type_class_code ='CONTRACT' THEN
1092:
1093: IF (p_calling_module IN ('FORMS', 'EXCHANGE', 'SELF_SERVICE')) THEN
1094: --Check Start Date
1095: IF (p_task_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) THEN
1096: PA_TASKS_MAINT_UTILS.Check_Start_Date(
1097: p_project_id => p_project_id,
1098: p_parent_task_id => l_parent_task_id,
1099: p_task_id => NULL,
1100: p_start_date => p_task_start_date,
1109: l_msg_count := FND_MSG_PUB.count_msg;
1110:
1111: --Check Completion Date
1112: IF (p_task_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) THEN
1113: PA_TASKS_MAINT_UTILS.Check_End_Date(
1114: p_project_id => p_project_id,
1115: p_parent_task_id => l_parent_task_id,
1116: p_task_id => NULL,
1117: p_end_date => p_task_completion_date,
1128:
1129:
1130:
1131: --Start Commenting by rtarway for BUG 3927343
1132: -- These checks are commented because schedule dates are not stored in pa_tasks.
1133:
1134: --Check Schedule Dates
1135: --IF (p_scheduled_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
1136: -- p_scheduled_start_date IS NULL) AND
1135: --IF (p_scheduled_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
1136: -- p_scheduled_start_date IS NULL) AND
1137: -- (p_scheduled_finish_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
1138: -- p_scheduled_finish_date IS NULL) THEN
1139: -- PA_TASKS_MAINT_UTILS.CHECK_SCHEDULE_DATES(
1140: -- p_project_id => p_project_id,
1141: -- p_sch_start_date => p_scheduled_start_date,
1142: -- p_sch_end_date => p_scheduled_finish_date,
1143: -- x_return_status => l_ret,
1157: -- IF (p_estimated_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
1158: -- p_estimated_start_date IS NULL) AND
1159: -- (p_estimated_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
1160: -- p_estimated_end_date IS NULL) THEN
1161: -- PA_TASKS_MAINT_UTILS.CHECK_ESTIMATE_DATES(
1162: -- p_project_id => p_project_id,
1163: -- p_estimate_start_date => p_estimated_start_date,
1164: -- p_estimate_end_date => p_estimated_end_date,
1165: -- x_return_status => l_ret,
1176: -- IF (p_actual_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
1177: -- p_actual_start_date IS NULL) AND
1178: -- (p_actual_finish_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
1179: -- p_actual_finish_date IS NULL) THEN
1180: -- PA_TASKS_MAINT_UTILS.CHECK_ACTUAL_DATES(
1181: -- p_project_id => p_project_id,
1182: -- p_actual_start_date => p_actual_start_date,
1183: -- p_actual_end_date => p_actual_finish_date,
1184: -- x_return_status => l_ret,
1278:
1279: -- Check Allow Charges
1280: --Chargeable flag, receive project invoice flag validation
1281: IF (p_receive_project_invoice_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
1282: PA_TASKS_MAINT_UTILS.Check_Chargeable_Flag( p_chargeable_flag => TCHARGEABLE,
1283: p_receive_project_invoice_flag => p_receive_project_invoice_flag,
1284: p_project_type => TPROJECT_TYPE,
1285: p_project_id => p_project_id, -- Added for bug#3512486
1286: x_receive_project_invoice_flag => TRECEIVE_PROJECT_INVOICE_FLAG);
1623:
1624:
1625: IF p_reference_task_id IS NOT NULL --Modified by Ansari. Added logic to create top task.
1626: THEN
1627: l_sequence_number := PA_TASKS_MAINT_UTILS.Get_Sequence_Number(p_peer_or_sub,
1628: p_project_id,
1629: p_reference_task_id);
1630:
1631: --added by rtarway for BUG 3924597, etc sorce defaulting.
1658:
1659:
1660: -- Call Table Handler
1661: --Insert using table handler
1662: PA_TASKS_PKG.insert_row(
1663: l_rowid,
1664: l_new_task_id,
1665: p_project_id,
1666: p_task_number,
1779: IF (p_calling_module IN ('FORMS', 'SELF_SERVICE')) THEN
1780: -- Set parent task chargeable flag to 'N' and set
1781: -- Parent Task Receive_Project_Invoice_Flag to 'N'
1782: -- This should be performed after the task is added.
1783: UPDATE PA_TASKS
1784: SET
1785: CHARGEABLE_FLAG = 'N',
1786: RECEIVE_PROJECT_INVOICE_FLAG = 'N',
1787: RECORD_VERSION_NUMBER = nvl(RECORD_VERSION_NUMBER,0)+1,
1810: END IF;
1811: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1812: x_msg_count := FND_MSG_PUB.count_msg;
1813: --put message
1814: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
1815: p_procedure_name => 'CREATE_TASK',
1816: p_error_text => SUBSTRB(SQLERRM,1,240));
1817: RAISE;
1818: END CREATE_TASK;
2087: l_f2 VARCHAR2(1);
2088: l_ret VARCHAR2(1);
2089: l_change_parent_flag VARCHAR2(1);
2090:
2091: t_pm_product_code PA_TASKS.PM_PRODUCT_CODE%TYPE;
2092:
2093: -- For Task Attributes, defaulting from parent task
2094: TTASK_ID NUMBER;
2095: TTASK_NAME PA_TASKS.TASK_NAME%TYPE;
2091: t_pm_product_code PA_TASKS.PM_PRODUCT_CODE%TYPE;
2092:
2093: -- For Task Attributes, defaulting from parent task
2094: TTASK_ID NUMBER;
2095: TTASK_NAME PA_TASKS.TASK_NAME%TYPE;
2096: TLONG_TASK_NAME PA_TASKS.LONG_TASK_NAME%TYPE;
2097: TTASK_NUMBER PA_TASKS.TASK_NUMBER%TYPE;
2098: TDESCRIPTION PA_TASKS.DESCRIPTION%TYPE;
2099: TTOP_TASK_ID NUMBER;
2092:
2093: -- For Task Attributes, defaulting from parent task
2094: TTASK_ID NUMBER;
2095: TTASK_NAME PA_TASKS.TASK_NAME%TYPE;
2096: TLONG_TASK_NAME PA_TASKS.LONG_TASK_NAME%TYPE;
2097: TTASK_NUMBER PA_TASKS.TASK_NUMBER%TYPE;
2098: TDESCRIPTION PA_TASKS.DESCRIPTION%TYPE;
2099: TTOP_TASK_ID NUMBER;
2100: TPARENT_TASK_ID NUMBER;
2093: -- For Task Attributes, defaulting from parent task
2094: TTASK_ID NUMBER;
2095: TTASK_NAME PA_TASKS.TASK_NAME%TYPE;
2096: TLONG_TASK_NAME PA_TASKS.LONG_TASK_NAME%TYPE;
2097: TTASK_NUMBER PA_TASKS.TASK_NUMBER%TYPE;
2098: TDESCRIPTION PA_TASKS.DESCRIPTION%TYPE;
2099: TTOP_TASK_ID NUMBER;
2100: TPARENT_TASK_ID NUMBER;
2101: TADDRESS_ID NUMBER;
2094: TTASK_ID NUMBER;
2095: TTASK_NAME PA_TASKS.TASK_NAME%TYPE;
2096: TLONG_TASK_NAME PA_TASKS.LONG_TASK_NAME%TYPE;
2097: TTASK_NUMBER PA_TASKS.TASK_NUMBER%TYPE;
2098: TDESCRIPTION PA_TASKS.DESCRIPTION%TYPE;
2099: TTOP_TASK_ID NUMBER;
2100: TPARENT_TASK_ID NUMBER;
2101: TADDRESS_ID NUMBER;
2102: TREADY_TO_BILL_FLAG VARCHAR2(1);
2285: cint_eligible_flag,
2286: cint_stop_date,
2287: --End PA L Capital Project changes 2872708
2288: GEN_ETC_SOURCE_CODE
2289: FROM PA_TASKS
2290: WHERE TASK_ID = p_task_id;
2291:
2292: BEGIN
2293:
2291:
2292: BEGIN
2293:
2294: IF (p_debug_mode = 'Y') THEN
2295: pa_debug.debug('PA_TASKS_MAINT_PVT.UPDATE_TASK BEGIN');
2296: END IF;
2297:
2298: IF (p_commit = FND_API.G_TRUE) THEN
2299: savepoint UPDATE_TASK_PRIVATE;
2314: IF (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
2315: BEGIN
2316: select PM_PRODUCT_CODE
2317: into t_pm_product_code
2318: from pa_tasks
2319: where task_id = p_task_id;
2320: EXCEPTION
2321: WHEN NO_DATA_FOUND THEN
2322: PA_UTILS.ADD_MESSAGE('PA','PA_EXP_NO_TASK'); -- specified task does not exist
2464: IF (substrb(p_task_number, 0, 25) <> TTASK_NUMBER) -- Added substrb for Bug#5968516
2465: AND (p_task_number IS NOT NULL) -- Bug 5968516
2466: AND (p_task_number <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) -- Bug 5968516
2467: THEN
2468: PA_TASKS_MAINT_UTILS.CHECK_TASK_NUMBER_DISP(
2469: p_project_id,
2470: p_task_id,
2471: p_task_number,
2472: l_rowid);
2501: IF (p_task_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2502: p_task_start_date IS NULL) AND
2503: (p_task_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2504: p_task_completion_date IS NULL) THEN
2505: PA_TASKS_MAINT_UTILS.check_start_end_date(
2506: p_old_start_date => null,
2507: p_old_end_date => null,
2508: p_new_start_date => p_task_start_date,
2509: p_new_end_date => p_task_completion_date,
2537: IF (p_task_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE AND
2538: nvl(p_task_start_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) <>
2539: nvl(TSTART_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) ) -- Bug 6163119
2540: THEN
2541: PA_TASKS_MAINT_UTILS.Check_Start_Date(
2542: p_project_id => p_project_id,
2543: p_parent_task_id => TPARENT_TASK_ID,
2544: p_task_id => p_task_id, -- Bug 7386335
2545: p_start_date => p_task_start_date,
2557: IF (p_task_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE AND
2558: nvl(p_task_start_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) <>
2559: nvl(TSTART_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) ) -- Bug 6163119
2560: THEN
2561: PA_TASKS_MAINT_UTILS.Check_Start_Date_EI(
2562: p_project_id => p_project_id,
2563: p_task_id => p_task_id,
2564: p_start_date => p_task_start_date,
2565: x_return_status => l_ret,
2595: nvl(p_task_completion_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) <>
2596: nvl(TCOMPLETION_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) ) -- Bug 6163119
2597: THEN
2598:
2599: PA_TASKS_MAINT_UTILS.Check_End_Date(
2600: p_project_id => p_project_id,
2601: p_parent_task_id => TPARENT_TASK_ID,
2602: --p_task_id => NULL,
2603: p_task_id => p_task_id,--BUG 4081329, rtarway
2617: nvl(p_task_completion_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) <>
2618: nvl(TCOMPLETION_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) ) -- Bug 6163119
2619: THEN
2620:
2621: PA_TASKS_MAINT_UTILS.Check_End_Date_EI(
2622: p_project_id => p_project_id,
2623: p_task_id => p_task_id,
2624: p_end_date => p_task_completion_date,
2625: x_return_status => l_ret,
2635: IF (p_scheduled_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2636: p_scheduled_start_date IS NULL) AND
2637: (p_scheduled_finish_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2638: p_scheduled_finish_date IS NULL) THEN
2639: PA_TASKS_MAINT_UTILS.CHECK_SCHEDULE_DATES(
2640: p_project_id => p_project_id,
2641: p_sch_start_date => p_scheduled_start_date,
2642: p_sch_end_date => p_scheduled_finish_date,
2643: x_return_status => l_ret,
2653: IF (p_estimated_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2654: p_estimated_start_date IS NULL) AND
2655: (p_estimated_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2656: p_estimated_end_date IS NULL) THEN
2657: PA_TASKS_MAINT_UTILS.CHECK_ESTIMATE_DATES(
2658: p_project_id => p_project_id,
2659: p_estimate_start_date => p_estimated_start_date,
2660: p_estimate_end_date => p_estimated_end_date,
2661: x_return_status => l_ret,
2672: IF (p_actual_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2673: p_actual_start_date IS NULL) AND
2674: (p_actual_finish_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2675: p_actual_finish_date IS NULL) THEN
2676: PA_TASKS_MAINT_UTILS.CHECK_ACTUAL_DATES(
2677: p_project_id => p_project_id,
2678: p_actual_start_date => p_actual_start_date,
2679: p_actual_end_date => p_actual_finish_date,
2680: x_return_status => l_ret,
2844:
2845: select project_type INTO TPROJECT_TYPE
2846: from pa_projects_all
2847: where project_id = p_project_id;
2848: PA_TASKS_MAINT_UTILS.Check_Chargeable_Flag( p_chargeable_flag => TCHARGEABLE,
2849: p_receive_project_invoice_flag => p_receive_project_invoice_flag,
2850: p_project_type => TPROJECT_TYPE,
2851: p_project_id => p_project_id, -- Added for bug#3512486
2852: x_receive_project_invoice_flag => TRECEIVE_PROJECT_INVOICE_FLAG);
3199:
3200: --dbms_output.put_line( 'In update task 17' );
3201:
3202: -- update task
3203: PA_TASKS_PKG.update_row(
3204: l_rowid,
3205: p_task_id,
3206: p_project_id,
3207: TTASK_NUMBER,
3326: END IF;
3327: x_msg_count := FND_MSG_PUB.count_msg;
3328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3329: --put message
3330: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3331: p_procedure_name => 'UPDATE_TASK',
3332: p_error_text => SUBSTRB(SQLERRM,1,240));
3333: RAISE;
3334: END UPDATE_TASK;
3377: l_update_task_desc_allowed VARCHAR2(1);
3378: l_update_parent_task_allowed VARCHAR2(1);
3379: l_update_task_org_allowed VARCHAR2(1);
3380:
3381: t_pm_product_code PA_TASKS.PM_PRODUCT_CODE%TYPE;
3382: t_parent_task_id PA_TASKS.PARENT_TASK_ID%TYPE;
3383: BEGIN
3384: IF (p_debug_mode = 'Y') THEN
3385: pa_debug.debug('PA_TASKS_MAINT_PVT.DELETE_TASK BEGIN');
3378: l_update_parent_task_allowed VARCHAR2(1);
3379: l_update_task_org_allowed VARCHAR2(1);
3380:
3381: t_pm_product_code PA_TASKS.PM_PRODUCT_CODE%TYPE;
3382: t_parent_task_id PA_TASKS.PARENT_TASK_ID%TYPE;
3383: BEGIN
3384: IF (p_debug_mode = 'Y') THEN
3385: pa_debug.debug('PA_TASKS_MAINT_PVT.DELETE_TASK BEGIN');
3386: END IF;
3381: t_pm_product_code PA_TASKS.PM_PRODUCT_CODE%TYPE;
3382: t_parent_task_id PA_TASKS.PARENT_TASK_ID%TYPE;
3383: BEGIN
3384: IF (p_debug_mode = 'Y') THEN
3385: pa_debug.debug('PA_TASKS_MAINT_PVT.DELETE_TASK BEGIN');
3386: END IF;
3387:
3388: IF (p_commit = FND_API.G_TRUE) THEN
3389: savepoint DELETE_TASK_PRIVATE;
3396: -- Get PM_PRODUCT_CODE
3397: BEGIN
3398: select PM_PRODUCT_CODE, PARENT_TASK_ID
3399: into t_pm_product_code, t_parent_task_id
3400: from pa_tasks
3401: where task_id = p_task_id;
3402: EXCEPTION
3403: WHEN NO_DATA_FOUND THEN
3404: PA_UTILS.ADD_MESSAGE('PA','PA_EXP_NO_TASK'); -- specified task does not exist
3490: IF (p_calling_module IN ('SELF_SERVICE', 'FORM')) THEN
3491: --Check if child exist for current parent task. If not,
3492: --update chargeable flag to Y
3493: IF (Pa_Task_Utils.check_child_Exists(NVL(t_parent_task_id,0)) = 0 ) THEN
3494: UPDATE Pa_tasks
3495: SET Chargeable_Flag = 'Y',
3496: RECORD_VERSION_NUMBER = nvl(RECORD_VERSION_NUMBER,0) + 1,
3497: last_updated_by = FND_GLOBAL.USER_ID,
3498: last_update_login = FND_GLOBAL.USER_ID,
3530: END IF;
3531: x_msg_count := FND_MSG_PUB.count_msg;
3532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3533: --put message
3534: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3535: p_procedure_name => 'DELETE_TASK',
3536: p_error_text => SUBSTRB(SQLERRM,1,240));
3537: RAISE;
3538: END DELETE_TASK;
3576: ,x_msg_data OUT NOCOPY VARCHAR2 ) AS --File.Sql.39 bug 4440895
3577:
3578: CURSOR c1 IS
3579: select 'x'
3580: from PA_TASKS
3581: where project_id = p_project_id
3582: for update of record_version_number NOWAIT;
3583:
3584: CURSOR c2 IS
3582: for update of record_version_number NOWAIT;
3583:
3584: CURSOR c2 IS
3585: select 'x'
3586: from PA_TASKS
3587: where project_id = p_project_id;
3588:
3589: CURSOR cur_task_heirarchy
3590: IS
3588:
3589: CURSOR cur_task_heirarchy
3590: IS
3591: SELECT task_id, wbs_level, record_version_number
3592: FROM pa_tasks
3593: START WITH task_id = p_task_id
3594: CONNECT BY PRIOR task_id = parent_task_id;
3595:
3596:
3599: p_top_task_id_above NUMBER,
3600: p_display_sequence NUMBER )
3601: IS
3602: /* SELECT task_id, top_task_id
3603: FROM pa_tasks
3604: WHERE wbs_level = p_wbs_level
3605: AND top_task_id = p_top_task_id_above
3606: AND display_sequence = ( SELECT max( display_sequence )
3607: FROM pa_tasks
3603: FROM pa_tasks
3604: WHERE wbs_level = p_wbs_level
3605: AND top_task_id = p_top_task_id_above
3606: AND display_sequence = ( SELECT max( display_sequence )
3607: FROM pa_tasks
3608: WHERE top_task_id = p_top_task_id_above
3609: AND wbs_level = p_wbs_level
3610: AND display_sequence < p_display_sequence );*/
3611: --Project Structure changes
3609: AND wbs_level = p_wbs_level
3610: AND display_sequence < p_display_sequence );*/
3611: --Project Structure changes
3612: SELECT task_id, top_task_id
3613: FROM pa_tasks pt, pa_proj_element_versions ppev
3614: WHERE pt.wbs_level = p_wbs_level
3615: AND top_task_id = p_top_task_id_above
3616: AND pt.task_id = ppev.proj_element_id
3617: AND ppev.display_sequence = ( SELECT max( ppev.display_sequence )
3614: WHERE pt.wbs_level = p_wbs_level
3615: AND top_task_id = p_top_task_id_above
3616: AND pt.task_id = ppev.proj_element_id
3617: AND ppev.display_sequence = ( SELECT max( ppev.display_sequence )
3618: FROM pa_tasks pt, pa_proj_element_versions ppev
3619: WHERE top_task_id = p_top_task_id_above
3620: AND pt.wbs_level = p_wbs_level
3621: AND ppev.proj_element_id = pt.task_id
3622: AND ppev.display_sequence < p_display_sequence );
3629: l_error_msg_code VARCHAR2(250);
3630: l_data VARCHAR2(250);
3631: l_msg_index_out NUMBER;
3632:
3633: l_task_level PA_TASKS.WBS_LEVEL%TYPE :=0;
3634: l_parent_task_id NUMBER;
3635: l_top_task_id NUMBER;
3636: l_display_sequence NUMBER;
3637:
3634: l_parent_task_id NUMBER;
3635: l_top_task_id NUMBER;
3636: l_display_sequence NUMBER;
3637:
3638: l_task_level_above PA_TASKS.WBS_LEVEL%TYPE :=0;
3639: l_task_id_above NUMBER;
3640: l_parent_task_id_above NUMBER;
3641: l_top_task_id_above NUMBER;
3642: l_display_sequence_above NUMBER;
3656: SAVEPOINT Edit_Structure;
3657: END IF;
3658: x_return_status := 'S';
3659:
3660: PA_TASKS_MAINT_UTILS.GetWbsLevel(
3661: p_project_id => p_project_id,
3662: p_task_id => p_task_id,
3663:
3664: x_task_level => l_task_level,
3724:
3725: -- HSIU changes ends here
3726:
3727: -- 1) update the parent task id of the indenting task with the above task id
3728: PA_TASKS_MAINT_PVT.UPDATE_TASK
3729: (
3730: p_commit => p_commit
3731: ,p_validate_only => p_validate_only
3732: ,p_validation_level => p_validation_level
3758: -- As Parent Task Id of the Task being indented is updated and b'coz of this
3759: -- for this particular case the parent task was earlier a lowest level task
3760: -- but now it has become a summarized level task so need to update its chargeable flag to N
3761:
3762: UPDATE PA_TASKS SET CHARGEABLE_FLAG='N'
3763: WHERE TASK_ID = l_task_id_above;
3764:
3765: -- End of Changes for bug 3125880
3766:
3770:
3771:
3772: FOR cur_task_heirarchy_rec IN cur_task_heirarchy LOOP
3773:
3774: PA_TASKS_MAINT_PVT.UPDATE_TASK
3775: (
3776: p_commit => p_commit
3777: ,p_validate_only => p_validate_only
3778: ,p_validation_level => p_validation_level
3813: OPEN cur_parent_of_above( l_task_level , l_top_task_id_above, l_display_sequence );
3814: FETCH cur_parent_of_above INTO l_new_parent_id, l_new_top_id;
3815: CLOSE cur_parent_of_above;
3816:
3817: PA_TASKS_MAINT_PVT.UPDATE_TASK
3818: (
3819: p_commit => p_commit
3820: ,p_validate_only => p_validate_only
3821: ,p_validation_level => p_validation_level
3844:
3845:
3846: FOR cur_task_heirarchy_rec IN cur_task_heirarchy LOOP
3847:
3848: PA_TASKS_MAINT_PVT.UPDATE_TASK
3849: (
3850: p_commit => p_commit
3851: ,p_validate_only => p_validate_only
3852: ,p_validation_level => p_validation_level
3880: THEN
3881: ROLLBACK TO Edit_Structure;
3882: END IF;
3883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3884: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3885: p_procedure_name => 'Indent_task',
3886: p_error_text => SUBSTRB(SQLERRM,1,240));
3887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3888:
3898: THEN
3899: ROLLBACK TO Edit_Structure;
3900: END IF;
3901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3902: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3903: p_procedure_name => 'Indent_task',
3904: p_error_text => SUBSTRB(SQLERRM,1,240));
3905: RAISE;
3906:
3952: l_error_msg_code VARCHAR2(250);
3953: l_data VARCHAR2(250);
3954: l_msg_index_out NUMBER;
3955:
3956: l_task_level PA_TASKS.WBS_LEVEL%TYPE :=0;
3957: l_parent_task_id NUMBER;
3958: l_top_task_id NUMBER;
3959: l_display_sequence NUMBER;
3960:
3957: l_parent_task_id NUMBER;
3958: l_top_task_id NUMBER;
3959: l_display_sequence NUMBER;
3960:
3961: l_task_level_above PA_TASKS.WBS_LEVEL%TYPE :=0;
3962: l_task_id_above NUMBER;
3963: l_parent_task_id_above NUMBER;
3964: l_top_task_id_above NUMBER;
3965: l_display_sequence_above NUMBER;
3967: l_new_top_id NUMBER;
3968:
3969: CURSOR c1 IS
3970: select 'x'
3971: from PA_TASKS
3972: where project_id = p_project_id
3973: for update of record_version_number NOWAIT;
3974:
3975: CURSOR c2 IS
3973: for update of record_version_number NOWAIT;
3974:
3975: CURSOR c2 IS
3976: select 'x'
3977: from PA_TASKS
3978: where project_id = p_project_id;
3979:
3980:
3981: CURSOR cur_task_heirarchy( p_task_id NUMBER )
3980:
3981: CURSOR cur_task_heirarchy( p_task_id NUMBER )
3982: IS
3983: SELECT task_id, wbs_level, record_version_number
3984: FROM pa_tasks
3985: START WITH task_id = p_task_id
3986: CONNECT BY PRIOR task_id = parent_task_id;
3987:
3988:
3991: --the display sequence of the outdenting task
3992: CURSOR cur_all_tasks( p_top_task_id NUMBER, p_display_sequence NUMBER )
3993: IS
3994: /*SELECT task_id, record_version_number
3995: FROM pa_tasks
3996: WHERE top_task_id = p_top_task_id
3997: AND display_sequence > p_display_sequence;*/
3998:
3999: --Project Structure changes
3997: AND display_sequence > p_display_sequence;*/
3998:
3999: --Project Structure changes
4000: SELECT pt.task_id, pt.record_version_number
4001: FROM pa_tasks pt, pa_proj_element_versions ppev
4002: WHERE top_task_id = p_top_task_id
4003: AND pt.task_id = ppev.proj_element_id
4004: AND ppev.display_sequence >= p_display_sequence; --bug 2968468
4005:
4008: --now becomes children of outdenting task.
4009: CURSOR cur_new_child_task( p_wbs_level NUMBER, p_display_sequence NUMBER )
4010: IS
4011: /* SELECT task_id, record_version_number
4012: FROM pa_tasks
4013: WHERE wbs_level = p_wbs_level
4014: AND parent_task_id = l_parent_task_id
4015: AND project_id = p_project_id
4016: AND display_sequence > p_display_sequence;*/
4015: AND project_id = p_project_id
4016: AND display_sequence > p_display_sequence;*/
4017:
4018: SELECT pt.task_id, pt.record_version_number
4019: FROM pa_tasks pt, pa_proj_element_versions ppev
4020: WHERE pt.wbs_level = p_wbs_level
4021: AND parent_task_id = l_parent_task_id
4022: AND pt.project_id = p_project_id
4023: AND pt.task_id = ppev.proj_element_id
4025:
4026: CURSOR cur_parent_of_above( p_wbs_level NUMBER, p_top_task_id_above NUMBER )
4027: IS
4028: SELECT parent_task_id, top_task_id
4029: FROM pa_tasks
4030: WHERE wbs_level = p_wbs_level
4031: AND project_id = p_project_id
4032: AND top_task_id = p_top_task_id_above;
4033: BEGIN
4037: SAVEPOINT Edit_Structure;
4038: END IF;
4039: x_return_status := 'S';
4040:
4041: PA_TASKS_MAINT_UTILS.GetWbsLevel(
4042: p_project_id => p_project_id,
4043: p_task_id => p_task_id,
4044:
4045: x_task_level => l_task_level,
4071: IF l_task_level_above < l_task_level
4072: THEN
4073: --2) update the parent task id of outdenting task with the parent task id of the task above
4074:
4075: PA_TASKS_MAINT_PVT.UPDATE_TASK
4076: (
4077: p_commit => p_commit
4078: ,p_validate_only => p_validate_only
4079: ,p_validation_level => p_validation_level
4099: --1) update wbs level of outdenting task includinf its children
4100:
4101: FOR cur_task_heirarchy_rec IN cur_task_heirarchy( p_task_id ) LOOP
4102:
4103: PA_TASKS_MAINT_PVT.UPDATE_TASK
4104: (
4105: p_commit => p_commit
4106: ,p_validate_only => p_validate_only
4107: ,p_validation_level => p_validation_level
4137: IF l_parent_task_id_above IS NULL
4138: THEN
4139: FOR cur_all_tasks_rec IN cur_all_tasks( l_top_task_id , l_display_sequence ) LOOP
4140:
4141: PA_TASKS_MAINT_PVT.UPDATE_TASK
4142: (
4143: p_commit => p_commit
4144: ,p_validate_only => p_validate_only
4145: ,p_validation_level => p_validation_level
4169: --( these new child tasks used to be at the same level before the outdenting task outedented )
4170: --l_task_level now contains old value of the wbs level.
4171: FOR cur_new_child_task_rec IN cur_new_child_task( l_task_level, l_display_sequence ) LOOP
4172:
4173: PA_TASKS_MAINT_PVT.UPDATE_TASK
4174: (
4175: p_commit => p_commit
4176: ,p_validate_only => p_validate_only
4177: ,p_validation_level => p_validation_level
4214: THEN
4215: l_new_top_id := p_task_id;
4216: l_new_parent_id := null;
4217: END IF;
4218: PA_TASKS_MAINT_PVT.UPDATE_TASK
4219: (
4220: p_commit => p_commit
4221: ,p_validate_only => p_validate_only
4222: ,p_validation_level => p_validation_level
4243: --1) update wbs level
4244:
4245: FOR cur_task_heirarchy_rec IN cur_task_heirarchy( p_task_id ) LOOP
4246:
4247: PA_TASKS_MAINT_PVT.UPDATE_TASK
4248: (
4249: p_commit => p_commit
4250: ,p_validate_only => p_validate_only
4251: ,p_validation_level => p_validation_level
4276: --l_task_level now contains old value of the wbs level.
4277: --Also update the top task id for the new children
4278: FOR cur_new_child_task_rec IN cur_new_child_task( l_task_level, l_display_sequence ) LOOP
4279:
4280: PA_TASKS_MAINT_PVT.UPDATE_TASK
4281: (
4282: p_commit => p_commit
4283: ,p_validate_only => p_validate_only
4284: ,p_validation_level => p_validation_level
4323:
4324: --The outdenting task may become a child of another task or
4325: --it may become the top most task in its branch.
4326:
4327: PA_TASKS_MAINT_PVT.UPDATE_TASK
4328: (
4329: p_commit => p_commit
4330: ,p_validate_only => p_validate_only
4331: ,p_validation_level => p_validation_level
4349:
4350: --1) update wbs level of outdenting task and its all child tasks
4351: FOR cur_task_heirarchy_rec IN cur_task_heirarchy( p_task_id ) LOOP
4352:
4353: PA_TASKS_MAINT_PVT.UPDATE_TASK
4354: (
4355: p_commit => p_commit
4356: ,p_validate_only => p_validate_only
4357: ,p_validation_level => p_validation_level
4381: --( these new child tasks used to be at the same level before the outdenting task outedented )
4382: --l_task_level now contains old value of the wbs level.
4383: FOR cur_new_child_task_rec IN cur_new_child_task( l_task_level, l_display_sequence ) LOOP
4384:
4385: PA_TASKS_MAINT_PVT.UPDATE_TASK
4386: (
4387: p_commit => p_commit
4388: ,p_validate_only => p_validate_only
4389: ,p_validation_level => p_validation_level
4411: -- The outdenting task becomes the top most task
4412: ELSIF l_task_level = 2
4413: THEN
4414: --1) update parent of outdenting task as null
4415: PA_TASKS_MAINT_PVT.UPDATE_TASK
4416: (
4417: p_commit => p_commit
4418: ,p_validate_only => p_validate_only
4419: ,p_validation_level => p_validation_level
4444: --( these new child tasks used to be at the same level before the outdenting task outedented )
4445: --l_task_level now contains old value of the wbs level.
4446: FOR cur_new_child_task_rec IN cur_new_child_task( l_task_level, l_display_sequence ) LOOP
4447:
4448: PA_TASKS_MAINT_PVT.UPDATE_TASK
4449: (
4450: p_commit => p_commit
4451: ,p_validate_only => p_validate_only
4452: ,p_validation_level => p_validation_level
4473: END IF;
4474:
4475: --updating top_task_id of child tasks of outdenting task's new child tasks
4476: FOR cur_task_heirarchy_rec IN cur_task_heirarchy( cur_new_child_task_rec.task_id ) LOOP
4477: PA_TASKS_MAINT_PVT.UPDATE_TASK
4478: (
4479: p_commit => p_commit
4480: ,p_validate_only => p_validate_only
4481: ,p_validation_level => p_validation_level
4502:
4503: --1) update wbs level of outdenting task and its all child tasks
4504: FOR cur_task_heirarchy_rec IN cur_task_heirarchy( p_task_id ) LOOP
4505:
4506: PA_TASKS_MAINT_PVT.UPDATE_TASK
4507: (
4508: p_commit => p_commit
4509: ,p_validate_only => p_validate_only
4510: ,p_validation_level => p_validation_level
4532: -- of outdenting task and child tasks of new child tasks with outdenting task id.
4533:
4534: --updating top_task_id of child tasks of outdenting task
4535: FOR cur_task_heirarchy_rec IN cur_task_heirarchy( p_task_id ) LOOP
4536: PA_TASKS_MAINT_PVT.UPDATE_TASK
4537: (
4538: p_commit => p_commit
4539: ,p_validate_only => p_validate_only
4540: ,p_validation_level => p_validation_level
4566: THEN
4567: ROLLBACK TO Edit_Structure;
4568: END IF;
4569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4570: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4571: p_procedure_name => 'Outdent_task',
4572: p_error_text => SUBSTRB(SQLERRM,1,240));
4573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4574:
4584: THEN
4585: ROLLBACK TO Edit_Structure;
4586: END IF;
4587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4588: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4589: p_procedure_name => 'Outdent_task',
4590: p_error_text => SUBSTRB(SQLERRM,1,240));
4591: RAISE;
4592: END Outdent_Task;
4635:
4636: CURSOR cur_entire_proj
4637: IS
4638: /* SELECT *
4639: FROM pa_tasks pt
4640: WHERE project_id = p_project_id
4641: ORDER BY display_sequence;*/
4642:
4643: SELECT pt.task_number, pt.task_name, pt.long_task_name, pt.description, pt.carrying_out_organization_id,
4644: pt.work_type_id, pt.service_type_code,
4645: pt.chargeable_flag, pt.billable_flag, pt.receive_project_invoice_flag,
4646: pt.scheduled_start_date, pt.scheduled_finish_date, pt.start_date,
4647: pt.wbs_level, pt.task_id, ppev.display_sequence
4648: FROM pa_tasks pt, pa_proj_element_versions ppev
4649: WHERE pt.project_id = p_project_id
4650: AND pt.task_id = ppev.proj_element_id
4651: ORDER BY ppev.display_sequence;
4652:
4652:
4653: CURSOR cur_ref_info
4654: IS
4655: SELECT *
4656: FROM pa_tasks
4657: WHERE project_id = p_reference_project_id
4658: AND task_id = p_reference_task_id;
4659:
4660: CURSOR cur_data_length(c_pa_schema_name VARCHAR2)
4660: CURSOR cur_data_length(c_pa_schema_name VARCHAR2)
4661: IS
4662: SELECT column_name, data_length
4663: FROM all_tab_columns
4664: WHERE table_name = 'PA_TASKS'
4665: AND owner = c_pa_schema_name
4666: AND column_name IN ( 'TASK_NAME', 'LONG_TASK_NAME', 'TASK_NUMBER' );
4667:
4668: --schema swap changes
4723: industry => l_fnd_industry,
4724: oracle_schema => l_table_owner);
4725: IF NOT l_fnd_return_status
4726: THEN
4727: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4728: p_procedure_name => 'Copy_Entire_Project',
4729: p_error_text => SUBSTRB('FND_INSTALLATION.GET_APP_INFO api call failed:'||SQLERRM,1,240));
4730: RAISE FND_API.G_EXC_ERROR;
4731: END IF;
4827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4828: RAISE FND_API.G_EXC_ERROR;
4829: END IF;
4830:
4831: PA_TASKS_MAINT_PVT.CREATE_TASK
4832: (
4833: p_commit => p_commit
4834: ,p_validate_only => p_validate_only
4835: ,p_validation_level => p_validation_level
4906: BEGIN
4907: -- Need to get max number
4908: SELECT max(display_sequence)
4909: INTO l_max_seq
4910: FROM PA_TASKS
4911: WHERE project_id = p_reference_project_id;
4912:
4913: UPDATE PA_TASKS
4914: SET display_sequence =
4909: INTO l_max_seq
4910: FROM PA_TASKS
4911: WHERE project_id = p_reference_project_id;
4912:
4913: UPDATE PA_TASKS
4914: SET display_sequence =
4915: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, i, 'INSERT', null),
4916: record_version_number = record_version_number + 1
4917: WHERE project_id = p_reference_project_id
4911: WHERE project_id = p_reference_project_id;
4912:
4913: UPDATE PA_TASKS
4914: SET display_sequence =
4915: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, i, 'INSERT', null),
4916: record_version_number = record_version_number + 1
4917: WHERE project_id = p_reference_project_id
4918: AND ( display_sequence > -( l_first_seq + 1 ) or display_sequence < 0 );
4919: EXCEPTION
4928: THEN
4929: ROLLBACK TO Copy;
4930: END IF;
4931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4932: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4933: p_procedure_name => 'Copy_Entire_Task',
4934: p_error_text => SUBSTRB(SQLERRM,1,240));
4935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4936:
4946: THEN
4947: ROLLBACK TO Copy;
4948: END IF;
4949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4950: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4951: p_procedure_name => 'Copy_Entire_Task',
4952: p_error_text => SUBSTRB(SQLERRM,1,240));
4953: RAISE;
4954: END Copy_Entire_Project;
4997:
4998: CURSOR cur_select_task
4999: IS
5000: SELECT *
5001: FROM pa_tasks
5002: WHERE task_id = p_task_id;
5003:
5004: CURSOR cur_ref_info
5005: IS
5003:
5004: CURSOR cur_ref_info
5005: IS
5006: SELECT *
5007: FROM pa_tasks
5008: WHERE project_id = p_reference_project_id
5009: AND task_id = p_reference_task_id;
5010:
5011: CURSOR cur_data_length(c_pa_schema_name VARCHAR2)
5011: CURSOR cur_data_length(c_pa_schema_name VARCHAR2)
5012: IS
5013: SELECT column_name, data_length
5014: FROM all_tab_columns
5015: WHERE table_name = 'PA_TASKS'
5016: AND owner = c_pa_schema_name
5017: AND column_name IN ( 'TASK_NAME', 'LONG_TASK_NAME', 'TASK_NUMBER' );
5018:
5019: --schema swap changes
5060: industry => l_fnd_industry,
5061: oracle_schema => l_table_owner);
5062: IF NOT l_fnd_return_status
5063: THEN
5064: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5065: p_procedure_name => 'Copy_Entire_Project',
5066: p_error_text => SUBSTRB('FND_INSTALLATION.GET_APP_INFO api call failed:'||SQLERRM,1,240));
5067: RAISE FND_API.G_EXC_ERROR;
5068: END IF;
5116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5117: RAISE FND_API.G_EXC_ERROR;
5118: END IF;
5119:
5120: PA_TASKS_MAINT_PVT.CREATE_TASK
5121: (
5122: p_commit => p_commit
5123: ,p_validate_only => p_validate_only
5124: ,p_validation_level => p_validation_level
5187: BEGIN
5188: -- Need to get max number
5189: SELECT max(display_sequence)
5190: INTO l_max_seq
5191: FROM PA_TASKS
5192: WHERE project_id = p_reference_project_id;
5193:
5194: UPDATE PA_TASKS
5195: SET display_sequence =
5190: INTO l_max_seq
5191: FROM PA_TASKS
5192: WHERE project_id = p_reference_project_id;
5193:
5194: UPDATE PA_TASKS
5195: SET display_sequence =
5196: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, 1, 'INSERT', null),
5197: record_version_number = record_version_number + 1
5198: WHERE project_id = p_reference_project_id
5192: WHERE project_id = p_reference_project_id;
5193:
5194: UPDATE PA_TASKS
5195: SET display_sequence =
5196: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, 1, 'INSERT', null),
5197: record_version_number = record_version_number + 1
5198: WHERE project_id = p_reference_project_id
5199: AND ( display_sequence > -( l_display_seq + 1 ) or display_sequence < 0 );
5200: EXCEPTION
5209: THEN
5210: ROLLBACK TO Copy;
5211: END IF;
5212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5213: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5214: p_procedure_name => 'Copy_Selected_Task',
5215: p_error_text => SUBSTRB(SQLERRM,1,240));
5216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5217:
5227: THEN
5228: ROLLBACK TO Copy;
5229: END IF;
5230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5231: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5232: p_procedure_name => 'Copy_Selected_Task',
5233: p_error_text => SUBSTRB(SQLERRM,1,240));
5234: RAISE;
5235: END Copy_Selected_Task;
5281: CURSOR cur_entire_task
5282: IS
5283:
5284: /*SELECT *
5285: FROM pa_tasks
5286: WHERE project_id = p_project_id
5287: START WITH task_id = p_task_id
5288: CONNECT BY PRIOR task_id = parent_task_id
5289: ORDER BY display_sequence; */
5298: work_type_id, service_type_code,
5299: chargeable_flag, billable_flag, receive_project_invoice_flag,
5300: scheduled_start_date, scheduled_finish_date, start_date,
5301: wbs_level
5302: FROM pa_tasks
5303: WHERE project_id = p_project_id
5304: START WITH task_id = p_task_id
5305: CONNECT BY PRIOR task_id = parent_task_id ) pt,
5306: pa_proj_element_versions ppev
5309:
5310: CURSOR cur_ref_info
5311: IS
5312: SELECT *
5313: FROM pa_tasks
5314: WHERE project_id = p_reference_project_id
5315: AND task_id = p_reference_task_id;
5316:
5317: CURSOR cur_data_length(c_pa_schema_name VARCHAR2)
5317: CURSOR cur_data_length(c_pa_schema_name VARCHAR2)
5318: IS
5319: SELECT column_name, data_length
5320: FROM all_tab_columns
5321: WHERE table_name = 'PA_TASKS'
5322: AND owner = c_pa_schema_name
5323: AND column_name IN ( 'TASK_NAME', 'LONG_TASK_NAME', 'TASK_NUMBER' );
5324:
5325: --schema swap changes
5380: industry => l_fnd_industry,
5381: oracle_schema => l_table_owner);
5382: IF NOT l_fnd_return_status
5383: THEN
5384: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5385: p_procedure_name => 'Copy_Entire_Project',
5386: p_error_text => SUBSTRB('FND_INSTALLATION.GET_APP_INFO api call failed:'||SQLERRM,1,240));
5387: RAISE FND_API.G_EXC_ERROR;
5388: END IF;
5484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5485: RAISE FND_API.G_EXC_ERROR;
5486: END IF;
5487:
5488: PA_TASKS_MAINT_PVT.CREATE_TASK
5489: (
5490: p_commit => p_commit
5491: ,p_validate_only => p_validate_only
5492: ,p_validation_level => p_validation_level
5565: BEGIN
5566: -- Need to get max number
5567: SELECT max(display_sequence)
5568: INTO l_max_seq
5569: FROM PA_TASKS
5570: WHERE project_id = p_reference_project_id;
5571:
5572: UPDATE PA_TASKS
5573: SET display_sequence =
5568: INTO l_max_seq
5569: FROM PA_TASKS
5570: WHERE project_id = p_reference_project_id;
5571:
5572: UPDATE PA_TASKS
5573: SET display_sequence =
5574: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, i, 'INSERT', null),
5575: record_version_number = record_version_number + 1
5576: WHERE project_id = p_reference_project_id
5570: WHERE project_id = p_reference_project_id;
5571:
5572: UPDATE PA_TASKS
5573: SET display_sequence =
5574: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, i, 'INSERT', null),
5575: record_version_number = record_version_number + 1
5576: WHERE project_id = p_reference_project_id
5577: AND ( display_sequence > -( l_first_seq + 1 ) or display_sequence < 0 );
5578: EXCEPTION
5587: THEN
5588: ROLLBACK TO Copy;
5589: END IF;
5590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5591: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5592: p_procedure_name => 'Copy_Entire_Task',
5593: p_error_text => SUBSTRB(SQLERRM,1,240));
5594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5595:
5605: THEN
5606: ROLLBACK TO Copy;
5607: END IF;
5608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5609: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5610: p_procedure_name => 'Copy_Entire_Task',
5611: p_error_text => SUBSTRB(SQLERRM,1,240));
5612: RAISE;
5613:
5662:
5663: CURSOR cur_tasks
5664: IS
5665: /* SELECT task_id, display_sequence, top_task_id, parent_task_id, wbs_level, record_version_number
5666: FROM pa_tasks
5667: WHERE project_id = p_project_id
5668: START WITH task_id = p_task_id
5669: CONNECT BY PRIOR task_id = parent_task_id
5670: ORDER BY display_sequence;*/
5671:
5672: SELECT pt.task_id, ppev.display_sequence, pt.top_task_id, pt.parent_task_id, pt.wbs_level, pt.record_version_number
5673: FROM
5674: ( SELECT task_id, top_task_id, parent_task_id, wbs_level, record_version_number
5675: FROM pa_tasks
5676: WHERE project_id = p_project_id
5677: START WITH task_id = p_task_id
5678: CONNECT BY PRIOR task_id = parent_task_id ) pt, pa_proj_element_versions ppev
5679: WHERE pt.task_id = ppev.proj_element_id
5681:
5682: CURSOR cur_ref_info
5683: IS
5684: /* SELECT *
5685: FROM pa_tasks
5686: WHERE project_id = p_reference_project_id
5687: START WITH task_id = p_reference_task_id
5688: CONNECT BY PRIOR task_id = parent_task_id
5689: ORDER BY display_sequence;*/
5690:
5691: SELECT pt.top_task_id, pt.parent_task_id, pt.wbs_level, ppev.display_sequence
5692: FROM
5693: ( SELECT task_id, top_task_id, parent_task_id, wbs_level
5694: FROM pa_tasks
5695: WHERE project_id = p_reference_project_id
5696: START WITH task_id = p_reference_task_id
5697: CONNECT BY PRIOR task_id = parent_task_id ) pt, pa_proj_element_versions ppev
5698: WHERE pt.task_id = ppev.proj_element_id
5745:
5746: --dbms_output.put_line( 'In move task 0' );
5747:
5748: --Ref project and task id Required check.
5749: PA_TASKS_MAINT_UTILS.REF_PRJ_TASK_ID_REQ_CHECK(
5750: p_reference_project_id => p_reference_project_id,
5751: p_reference_task_id => p_reference_task_id,
5752: x_return_status => l_return_status,
5753: x_error_msg_code => l_error_msg_code );
5763:
5764: --dbms_output.put_line( 'In move task 1' );
5765:
5766: --project and task id Required check.
5767: PA_TASKS_MAINT_UTILS.SRC_PRJ_TASK_ID_REQ_CHECK(
5768: p_project_id => p_project_id,
5769: p_task_id => p_task_id,
5770: x_return_status => l_return_status,
5771: x_error_msg_code => l_error_msg_code );
5919: l_display_sequence := -( l_ref_display_sequence + i ) ;
5920: END IF;
5921:
5922: --dbms_output.put_line( 'Before update task ' );
5923: PA_TASKS_MAINT_PVT.UPDATE_TASK
5924: (
5925: p_commit => p_commit
5926: ,p_validate_only => p_validate_only
5927: ,p_validation_level => p_validation_level
5957: --dbms_output.put_line( 'In move task 6' );
5958:
5959: -- update chargeable flag for reference task to no.
5960: IF (Pa_Task_Utils.check_child_Exists(NVL(p_reference_task_id,0)) = 1 ) THEN
5961: UPDATE Pa_tasks
5962: SET Chargeable_Flag = 'N',
5963: RECORD_VERSION_NUMBER = nvl(RECORD_VERSION_NUMBER,0) + 1,
5964: last_updated_by = FND_GLOBAL.USER_ID,
5965: last_update_login = FND_GLOBAL.USER_ID,
5980: BEGIN
5981: -- Need to get max number
5982: SELECT max(display_sequence)
5983: INTO l_max_seq
5984: FROM PA_TASKS
5985: WHERE project_id = p_reference_project_id;
5986:
5987:
5988: IF l_move_direction = 'UP'
5990: l_max_display_sequence := l_max_display_sequence + i - 1; --( )
5991: l_max_seq := l_max_seq + i;
5992: END IF;
5993:
5994: UPDATE PA_TASKS
5995: SET display_sequence =
5996: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, i, 'MOVE', l_move_direction ),
5997: record_version_number = record_version_number + 1
5998: WHERE project_id = p_reference_project_id
5992: END IF;
5993:
5994: UPDATE PA_TASKS
5995: SET display_sequence =
5996: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, i, 'MOVE', l_move_direction ),
5997: record_version_number = record_version_number + 1
5998: WHERE project_id = p_reference_project_id
5999: AND ( ( display_sequence > l_min_display_sequence and
6000: display_sequence <= l_max_display_sequence ) or display_sequence < 0 );
6010: THEN
6011: ROLLBACK TO Move;
6012: END IF;
6013: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6014: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
6015: p_procedure_name => 'Move_Task',
6016: p_error_text => SUBSTRB(SQLERRM,1,240));
6017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6018:
6028: THEN
6029: ROLLBACK TO Move;
6030: END IF;
6031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6032: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
6033: p_procedure_name => 'Move_Task',
6034: p_error_text => SUBSTRB(SQLERRM,1,240));
6035: RAISE;
6036:
6095: AND
6096: element_version_id = l_task_version_id;
6097:
6098: -- Bug 3735089 Added cursor
6099: CURSOR c_task_exists_in_pa_tasks(c_task_id NUMBER)
6100: IS
6101: SELECT 'Y'
6102: from pa_tasks
6103: WHERE task_id = c_task_id
6098: -- Bug 3735089 Added cursor
6099: CURSOR c_task_exists_in_pa_tasks(c_task_id NUMBER)
6100: IS
6101: SELECT 'Y'
6102: from pa_tasks
6103: WHERE task_id = c_task_id
6104: and project_id = p_project_id;
6105:
6106: --Bug 3735089
6125: p_debug_mode => l_debug_mode );
6126: END IF;
6127:
6128: IF l_debug_mode = 'Y' THEN
6129: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_PVT : SET_UNSET_FINANCIAL_TASK : Printing Input parameters';
6130: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
6131: l_debug_level3);
6132:
6133: Pa_Debug.WRITE(g_pkg_name,'p_task_version_id'||':'||p_task_version_id,
6147: --savepoint SET_FIN_FLAG_WRAPPER_PUBLIC; Bug 3735089
6148: END IF;
6149:
6150: IF l_debug_mode = 'Y' THEN
6151: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_PVT : SET_UNSET_FINANCIAL_TASK : Validating Input parameters';
6152: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
6153: l_debug_level3);
6154: END IF;
6155:
6159: ( p_project_id IS NULL)
6160: )
6161: THEN
6162: IF l_debug_mode = 'Y' THEN
6163: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_PVT : SET_UNSET_FINANCIAL_TASK : Both p_task_version_id and p_checked_flag are null';
6164: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
6165: l_debug_level3);
6166: END IF;
6167: RAISE Invalid_Arg_Exc_WP;
6173: FETCH c_get_task_id INTO l_task_id;
6174: CLOSE c_get_task_id ;
6175:
6176: -- Bug 3735089 Added cursor call , we can add this additionally, currently not needed
6177: -- OPEN c_task_exists_in_pa_tasks(l_task_id);
6178: -- FETCH c_task_exists_in_pa_tasks INTO l_task_exists;
6179: -- CLOSE c_task_exists_in_pa_tasks ;
6180:
6181: -- IF NVL(l_task_exists,'N') ='Y' THEN -- Bug 3735089
6174: CLOSE c_get_task_id ;
6175:
6176: -- Bug 3735089 Added cursor call , we can add this additionally, currently not needed
6177: -- OPEN c_task_exists_in_pa_tasks(l_task_id);
6178: -- FETCH c_task_exists_in_pa_tasks INTO l_task_exists;
6179: -- CLOSE c_task_exists_in_pa_tasks ;
6180:
6181: -- IF NVL(l_task_exists,'N') ='Y' THEN -- Bug 3735089
6182: --Check if the task has any transaction associated with it
6175:
6176: -- Bug 3735089 Added cursor call , we can add this additionally, currently not needed
6177: -- OPEN c_task_exists_in_pa_tasks(l_task_id);
6178: -- FETCH c_task_exists_in_pa_tasks INTO l_task_exists;
6179: -- CLOSE c_task_exists_in_pa_tasks ;
6180:
6181: -- IF NVL(l_task_exists,'N') ='Y' THEN -- Bug 3735089
6182: --Check if the task has any transaction associated with it
6183: PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_HAS_TRANSACTION
6195: IF (l_error_code <> 0) THEN
6196:
6197:
6198: IF l_debug_mode = 'Y' THEN
6199: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_PVT : SET_UNSET_FINANCIAL_TASK :l_error_code :'||l_error_code||'l_error_msg_code :'||l_error_msg_code;
6200: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
6201: l_debug_level3);
6202: END IF;
6203: PA_UTILS.ADD_MESSAGE(
6268: WHEN Invalid_Arg_Exc_WP THEN
6269:
6270: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6271: x_msg_count := 1;
6272: x_msg_data := 'PA_TASKS_MAINT_PVT : SET_UNSET_FINANCIAL_TASK : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
6273:
6274: IF p_commit = FND_API.G_TRUE THEN
6275: ROLLBACK TO SET_UNSET_FINANCIAL_TASK_PVT;
6276: --ROLLBACK TO DELETE_MAPPING_PUBLIC; Bug 3735089
6278: IF c_get_task_id%ISOPEN THEN
6279: CLOSE c_get_task_id;
6280: END IF;
6281: Fnd_Msg_Pub.add_exc_msg
6282: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6283: , p_procedure_name => 'SET_UNSET_FINANCIAL_TASK'
6284: , p_error_text => x_msg_data);
6285:
6286: IF l_debug_mode = 'Y' THEN
6307: CLOSE c_get_task_id;
6308: END IF;
6309:
6310: Fnd_Msg_Pub.add_exc_msg
6311: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6312: , p_procedure_name => 'SET_UNSET_FINANCIAL_TASK'
6313: , p_error_text => x_msg_data);
6314:
6315: IF l_debug_mode = 'Y' THEN
6323:
6324: -- Procedure : SYNC_UP_WP_TASKS_WITH_FIN
6325: -- Type : Private Procedure
6326: -- Purpose : This API will be called from SYNC_UP_WP_TASKS_WITH_FIN public
6327: -- : This API is to Sync up the financial tasks with pa_tasks table
6328: -- Note : This API can be called in two modes. One Singular and one All. In both the cases it will assume that
6329: -- : 1. In Singular case this API will expect the p_task_version_id and p_checked_flag to be passed.
6330: -- : 2. In All mode, it will expect the p_structre_version_id and p_syncup_all_tasks flag to be passed as
6331: -- : 'N'. In this mode this API will loop thru all the tasks in the passed structure, get each tasks
6329: -- : 1. In Singular case this API will expect the p_task_version_id and p_checked_flag to be passed.
6330: -- : 2. In All mode, it will expect the p_structre_version_id and p_syncup_all_tasks flag to be passed as
6331: -- : 'N'. In this mode this API will loop thru all the tasks in the passed structure, get each tasks
6332: -- financial_task_flag. If flag is Y in database, then check if the task is not present in
6333: -- pa_tasks. If not present in pa_tasks then create it there. Similarly remove from
6334: -- pa_tasks if flag is 'N'.
6335: -- Assumptions : The financial_task_flag is already set in the database.
6336:
6337: -- Parameters Type Required Description and Purpose
6330: -- : 2. In All mode, it will expect the p_structre_version_id and p_syncup_all_tasks flag to be passed as
6331: -- : 'N'. In this mode this API will loop thru all the tasks in the passed structure, get each tasks
6332: -- financial_task_flag. If flag is Y in database, then check if the task is not present in
6333: -- pa_tasks. If not present in pa_tasks then create it there. Similarly remove from
6334: -- pa_tasks if flag is 'N'.
6335: -- Assumptions : The financial_task_flag is already set in the database.
6336:
6337: -- Parameters Type Required Description and Purpose
6338: -- --------------------------- ------ -------- --------------------------------------------------------
6445: elements.proj_element_id = elever.proj_element_id
6446: AND
6447: elements.project_id = elever.project_id;
6448:
6449: --This curosr returns the record version number from pa_tasks for row containig passed task id.
6450: CURSOR c_get_pa_record_version_number (l_task_id NUMBER , l_project_id NUMBER)
6451: IS
6452: SELECT
6453: record_version_number
6451: IS
6452: SELECT
6453: record_version_number
6454: FROM
6455: PA_TASKS
6456: WHERE
6457: task_id = l_task_id
6458: AND
6459: project_id = l_project_id;
6467: pa_proj_element_versions
6468: WHERE
6469: parent_structure_version_id = l_structure_version_id
6470: AND
6471: object_type='PA_TASKS'
6472: AND
6473: project_id = l_project_id;
6474:
6475: --Bug 3735089
6493: p_debug_mode => l_debug_mode );
6494: END IF;
6495:
6496: IF l_debug_mode = 'Y' THEN
6497: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_PVT : SYNC_UP_WP_TASKS_WITH_FIN : Printing Input parameters';
6498: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
6499: l_debug_level3);
6500:
6501: Pa_Debug.WRITE(g_pkg_name,'p_project_id '||':'||p_project_id ,
6528: p_project_id => p_project_id
6529: ,p_task_id => l_task_id
6530: );
6531: --If p_mode is single, and p_checked_flag is 'N', delete the task
6532: -- if p_mode is 'Y', and task is not in PA_TASKS, create the new task
6533: IF ( p_mode = 'SINGLE' )
6534: THEN
6535:
6536: IF (p_checked_flag='N')
6542: IF (PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_id)='Y')
6543: THEN
6544:
6545:
6546: PA_TASKS_MAINT_PUB.DELETE_TASK
6547: (
6548: p_commit => p_commit
6549: , p_init_msg_list => FND_API.G_FALSE
6550: , p_calling_module => p_calling_module
6551: , p_debug_mode => l_debug_mode
6552: , p_project_id => p_project_id
6553: , p_task_id => l_task_id
6554: , p_record_version_number => p_patask_record_version_number
6555: , p_wbs_record_version_number => 1 --parameter not used anywhere in PA_TASKS_MAINT_PUB.DELETE_TASK,pass any dummy value
6556: , x_return_status => x_return_status
6557: , x_msg_count => x_msg_count
6558: , x_msg_data => x_msg_data
6559: );
6586: OPEN c_get_task_name_and_number ( l_task_id , p_project_id );
6587: FETCH c_get_task_name_and_number INTO l_task_name, l_task_number;
6588: CLOSE c_get_task_name_and_number ;
6589:
6590: PA_TASKS_MAINT_PUB.CREATE_TASK
6591: (
6592: p_commit => p_commit
6593: ,p_calling_module => p_calling_module
6594: ,p_init_msg_list => FND_API.G_FALSE
6598: ,p_peer_or_sub => 'SUB'
6599: ,p_task_number => l_task_number
6600: ,p_task_name => l_task_name
6601: ,p_task_id => l_task_id
6602: ,p_wbs_record_version_number => 1--parameter not used anywhere in PA_TASKS_MAINT_PUB.DELETE_TASK,pass any dummy value
6603: ,p_carrying_out_organization_id => l_carrying_out_organization_id
6604: --,x_display_seq => l_display_seq
6605: ,x_return_status => x_return_status
6606: ,x_msg_count => x_msg_count
6615: END IF;
6616: --If p_mode is ALL, get all the tasks for the passed structure id
6617: -- For each task
6618: -- If p_mode is 'N' delete the task
6619: -- if p_mode is 'Y', and task is not in PA_TASKS, create the new task
6620: ELSIF ( p_mode = 'ALL' )
6621: THEN
6622: OPEN c_get_pa_record_version_number ( l_task_id , p_project_id);
6623: FETCH c_get_pa_record_version_number INTO l_patask_record_version_number;
6638: -- l_task_version_id := cursor_rec.element_version_id;
6639: OPEN c_get_task_id ( l_task_version_id , p_project_id );
6640: FETCH c_get_task_id INTO l_task_id;
6641: CLOSE c_get_task_id;
6642: --Check_is_financial_task will return 'Y' when data is there is PA_TASKS
6643: IF (PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_id)='Y' AND iCounter.financial_task_flag='N' )
6644: THEN
6645: PA_TASKS_MAINT_PUB.DELETE_TASK
6646: (
6641: CLOSE c_get_task_id;
6642: --Check_is_financial_task will return 'Y' when data is there is PA_TASKS
6643: IF (PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_id)='Y' AND iCounter.financial_task_flag='N' )
6644: THEN
6645: PA_TASKS_MAINT_PUB.DELETE_TASK
6646: (
6647: p_commit => p_commit
6648: , p_calling_module => p_calling_module
6649: , p_init_msg_list => FND_API.G_FALSE
6651: , p_project_id => p_project_id
6652: , p_task_id => l_task_id
6653: , p_record_version_number => l_patask_record_version_number
6654: --, p_called_from_api => p_called_from_api
6655: , p_wbs_record_version_number => 1 --parameter not used anywhere in PA_TASKS_MAINT_PUB.DELETE_TASK,pass any dummy value
6656: , x_return_status => x_return_status
6657: , x_msg_count => x_msg_count
6658: , x_msg_data => x_msg_data
6659: );
6673: FETCH c_get_task_name_number_frm_ver INTO l_task_name, l_task_number;
6674: CLOSE c_get_task_name_number_frm_ver ;
6675:
6676:
6677: PA_TASKS_MAINT_PUB.CREATE_TASK
6678: (
6679: p_commit => p_commit
6680: ,p_calling_module => p_calling_module
6681: ,p_init_msg_list => FND_API.G_FALSE
6686: ,p_peer_or_sub => 'SUB'
6687: ,p_task_number => l_task_number
6688: ,p_task_name => l_task_name
6689: ,p_task_id => l_task_id
6690: ,p_wbs_record_version_number => 1--parameter not used anywhere in PA_TASKS_MAINT_PUB.DELETE_TASK,pass any dummy value
6691: ,p_carrying_out_organization_id => l_carrying_out_organization_id
6692: --,x_display_seq => l_display_seq
6693: ,x_return_status =>x_return_status
6694: ,x_msg_count =>x_msg_count
6762: WHEN Invalid_Arg_Exc_WP THEN
6763:
6764: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6765: x_msg_count := 1;
6766: x_msg_data := 'PA_TASKS_MAINT_PVT : SYNC_UP_WP_TASKS_WITH_FIN : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
6767:
6768: IF p_commit = FND_API.G_TRUE THEN
6769: --ROLLBACK TO DELETE_MAPPING_PUBLIC; Bug 3735089
6770: ROLLBACK TO SYNC_UP_WP_TASKS_WITH_FIN_PVT;
6784: IF c_get_pa_record_version_number%ISOPEN THEN
6785: CLOSE c_get_pa_record_version_number;
6786: END IF;
6787: Fnd_Msg_Pub.add_exc_msg
6788: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6789: , p_procedure_name => 'SYNC_UP_WP_TASKS_WITH_FIN'
6790: , p_error_text => x_msg_data);
6791:
6792: IF l_debug_mode = 'Y' THEN
6822: IF c_get_pa_record_version_number%ISOPEN THEN
6823: CLOSE c_get_pa_record_version_number;
6824: END IF;
6825: Fnd_Msg_Pub.add_exc_msg
6826: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6827: , p_procedure_name => 'SYNC_UP_WP_TASKS_WITH_FIN'
6828: , p_error_text => x_msg_data);
6829:
6830: IF l_debug_mode = 'Y' THEN
6838: END SYNC_UP_WP_TASKS_WITH_FIN ;
6839:
6840: --End add by rtarway for FP.M development
6841:
6842: end PA_TASKS_MAINT_PVT;