[Home] [Help]
1: package body PA_TASKS_MAINT_PVT as
2: /*$Header: PATSKSVB.pls 120.22.12020000.4 2013/04/09 11:06:47 pstawar 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.22.12020000.4 2013/04/09 11:06:47 pstawar 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.
1670: commented for bug 12659208 */
1671:
1672: l_adj_on_std_inv := NULL;
1673: else
1674: select adj_on_std_inv into l_adj_on_std_inv from pa_tasks where task_id =l_top_task_id;
1675: end if;
1676: /* Added for 12.2Payroll billing ER 11899223 */
1677: PA_TASKS_PKG.insert_row(
1678: l_rowid,
1673: else
1674: select adj_on_std_inv into l_adj_on_std_inv from pa_tasks where task_id =l_top_task_id;
1675: end if;
1676: /* Added for 12.2Payroll billing ER 11899223 */
1677: PA_TASKS_PKG.insert_row(
1678: l_rowid,
1679: l_new_task_id,
1680: p_project_id,
1681: p_task_number,
1795: IF (p_calling_module IN ('FORMS', 'SELF_SERVICE')) THEN
1796: -- Set parent task chargeable flag to 'N' and set
1797: -- Parent Task Receive_Project_Invoice_Flag to 'N'
1798: -- This should be performed after the task is added.
1799: UPDATE PA_TASKS
1800: SET
1801: CHARGEABLE_FLAG = 'N',
1802: RECEIVE_PROJECT_INVOICE_FLAG = 'N',
1803: RECORD_VERSION_NUMBER = nvl(RECORD_VERSION_NUMBER,0)+1,
1828: END IF;
1829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1830: x_msg_count := FND_MSG_PUB.count_msg;
1831: --put message
1832: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
1833: p_procedure_name => 'CREATE_TASK',
1834: p_error_text => SUBSTRB(SQLERRM,1,240));
1835: RAISE;
1836: END CREATE_TASK;
2105: l_f2 VARCHAR2(1);
2106: l_ret VARCHAR2(1);
2107: l_change_parent_flag VARCHAR2(1);
2108:
2109: t_pm_product_code PA_TASKS.PM_PRODUCT_CODE%TYPE;
2110:
2111: -- For Task Attributes, defaulting from parent task
2112: TTASK_ID NUMBER;
2113: TTASK_NAME PA_TASKS.TASK_NAME%TYPE;
2109: t_pm_product_code PA_TASKS.PM_PRODUCT_CODE%TYPE;
2110:
2111: -- For Task Attributes, defaulting from parent task
2112: TTASK_ID NUMBER;
2113: TTASK_NAME PA_TASKS.TASK_NAME%TYPE;
2114: TLONG_TASK_NAME PA_TASKS.LONG_TASK_NAME%TYPE;
2115: TTASK_NUMBER PA_TASKS.TASK_NUMBER%TYPE;
2116: TDESCRIPTION PA_TASKS.DESCRIPTION%TYPE;
2117: TTOP_TASK_ID NUMBER;
2110:
2111: -- For Task Attributes, defaulting from parent task
2112: TTASK_ID NUMBER;
2113: TTASK_NAME PA_TASKS.TASK_NAME%TYPE;
2114: TLONG_TASK_NAME PA_TASKS.LONG_TASK_NAME%TYPE;
2115: TTASK_NUMBER PA_TASKS.TASK_NUMBER%TYPE;
2116: TDESCRIPTION PA_TASKS.DESCRIPTION%TYPE;
2117: TTOP_TASK_ID NUMBER;
2118: TPARENT_TASK_ID NUMBER;
2111: -- For Task Attributes, defaulting from parent task
2112: TTASK_ID NUMBER;
2113: TTASK_NAME PA_TASKS.TASK_NAME%TYPE;
2114: TLONG_TASK_NAME PA_TASKS.LONG_TASK_NAME%TYPE;
2115: TTASK_NUMBER PA_TASKS.TASK_NUMBER%TYPE;
2116: TDESCRIPTION PA_TASKS.DESCRIPTION%TYPE;
2117: TTOP_TASK_ID NUMBER;
2118: TPARENT_TASK_ID NUMBER;
2119: TADDRESS_ID NUMBER;
2112: TTASK_ID NUMBER;
2113: TTASK_NAME PA_TASKS.TASK_NAME%TYPE;
2114: TLONG_TASK_NAME PA_TASKS.LONG_TASK_NAME%TYPE;
2115: TTASK_NUMBER PA_TASKS.TASK_NUMBER%TYPE;
2116: TDESCRIPTION PA_TASKS.DESCRIPTION%TYPE;
2117: TTOP_TASK_ID NUMBER;
2118: TPARENT_TASK_ID NUMBER;
2119: TADDRESS_ID NUMBER;
2120: TREADY_TO_BILL_FLAG VARCHAR2(1);
2303: cint_eligible_flag,
2304: cint_stop_date,
2305: --End PA L Capital Project changes 2872708
2306: GEN_ETC_SOURCE_CODE
2307: FROM PA_TASKS
2308: WHERE TASK_ID = p_task_id;
2309:
2310: BEGIN
2311:
2309:
2310: BEGIN
2311:
2312: IF (p_debug_mode = 'Y') THEN
2313: pa_debug.debug('PA_TASKS_MAINT_PVT.UPDATE_TASK BEGIN');
2314: END IF;
2315:
2316: IF (p_commit = FND_API.G_TRUE) THEN
2317: savepoint UPDATE_TASK_PRIVATE;
2332: IF (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
2333: BEGIN
2334: select PM_PRODUCT_CODE
2335: into t_pm_product_code
2336: from pa_tasks
2337: where task_id = p_task_id;
2338: EXCEPTION
2339: WHEN NO_DATA_FOUND THEN
2340: PA_UTILS.ADD_MESSAGE('PA','PA_EXP_NO_TASK'); -- specified task does not exist
2482: IF (substrb(p_task_number, 0, 25) <> TTASK_NUMBER) -- Added substrb for Bug#5968516
2483: AND (p_task_number IS NOT NULL) -- Bug 5968516
2484: AND (p_task_number <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) -- Bug 5968516
2485: THEN
2486: PA_TASKS_MAINT_UTILS.CHECK_TASK_NUMBER_DISP(
2487: p_project_id,
2488: p_task_id,
2489: p_task_number,
2490: l_rowid);
2519: IF (p_task_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2520: p_task_start_date IS NULL) AND
2521: (p_task_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2522: p_task_completion_date IS NULL) THEN
2523: PA_TASKS_MAINT_UTILS.check_start_end_date(
2524: p_old_start_date => null,
2525: p_old_end_date => null,
2526: p_new_start_date => p_task_start_date,
2527: p_new_end_date => p_task_completion_date,
2555: IF (p_task_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE AND
2556: nvl(p_task_start_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) <>
2557: nvl(TSTART_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) ) -- Bug 6163119
2558: THEN
2559: PA_TASKS_MAINT_UTILS.Check_Start_Date(
2560: p_project_id => p_project_id,
2561: p_parent_task_id => TPARENT_TASK_ID,
2562: p_task_id => p_task_id, -- Bug 7386335
2563: p_start_date => p_task_start_date,
2575: IF (p_task_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE AND
2576: nvl(p_task_start_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) <>
2577: nvl(TSTART_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) ) -- Bug 6163119
2578: THEN
2579: PA_TASKS_MAINT_UTILS.Check_Start_Date_EI(
2580: p_project_id => p_project_id,
2581: p_task_id => p_task_id,
2582: p_start_date => p_task_start_date,
2583: x_return_status => l_ret,
2613: nvl(p_task_completion_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) <>
2614: nvl(TCOMPLETION_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) ) -- Bug 6163119
2615: THEN
2616:
2617: PA_TASKS_MAINT_UTILS.Check_End_Date(
2618: p_project_id => p_project_id,
2619: p_parent_task_id => TPARENT_TASK_ID,
2620: --p_task_id => NULL,
2621: p_task_id => p_task_id,--BUG 4081329, rtarway
2635: nvl(p_task_completion_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) <>
2636: nvl(TCOMPLETION_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) ) -- Bug 6163119
2637: THEN
2638:
2639: PA_TASKS_MAINT_UTILS.Check_End_Date_EI(
2640: p_project_id => p_project_id,
2641: p_task_id => p_task_id,
2642: p_end_date => p_task_completion_date,
2643: x_return_status => l_ret,
2653: IF (p_scheduled_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2654: p_scheduled_start_date IS NULL) AND
2655: (p_scheduled_finish_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2656: p_scheduled_finish_date IS NULL) THEN
2657: PA_TASKS_MAINT_UTILS.CHECK_SCHEDULE_DATES(
2658: p_project_id => p_project_id,
2659: p_sch_start_date => p_scheduled_start_date,
2660: p_sch_end_date => p_scheduled_finish_date,
2661: x_return_status => l_ret,
2671: IF (p_estimated_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2672: p_estimated_start_date IS NULL) AND
2673: (p_estimated_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2674: p_estimated_end_date IS NULL) THEN
2675: PA_TASKS_MAINT_UTILS.CHECK_ESTIMATE_DATES(
2676: p_project_id => p_project_id,
2677: p_estimate_start_date => p_estimated_start_date,
2678: p_estimate_end_date => p_estimated_end_date,
2679: x_return_status => l_ret,
2690: IF (p_actual_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2691: p_actual_start_date IS NULL) AND
2692: (p_actual_finish_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
2693: p_actual_finish_date IS NULL) THEN
2694: PA_TASKS_MAINT_UTILS.CHECK_ACTUAL_DATES(
2695: p_project_id => p_project_id,
2696: p_actual_start_date => p_actual_start_date,
2697: p_actual_end_date => p_actual_finish_date,
2698: x_return_status => l_ret,
2862:
2863: select project_type INTO TPROJECT_TYPE
2864: from pa_projects_all
2865: where project_id = p_project_id;
2866: PA_TASKS_MAINT_UTILS.Check_Chargeable_Flag( p_chargeable_flag => TCHARGEABLE,
2867: p_receive_project_invoice_flag => p_receive_project_invoice_flag,
2868: p_project_type => TPROJECT_TYPE,
2869: p_project_id => p_project_id, -- Added for bug#3512486
2870: x_receive_project_invoice_flag => TRECEIVE_PROJECT_INVOICE_FLAG);
3217:
3218: --dbms_output.put_line( 'In update task 17' );
3219:
3220: -- update task
3221: PA_TASKS_PKG.update_row(
3222: l_rowid,
3223: p_task_id,
3224: p_project_id,
3225: TTASK_NUMBER,
3344: END IF;
3345: x_msg_count := FND_MSG_PUB.count_msg;
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3347: --put message
3348: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3349: p_procedure_name => 'UPDATE_TASK',
3350: p_error_text => SUBSTRB(SQLERRM,1,240));
3351: RAISE;
3352: END UPDATE_TASK;
3395: l_update_task_desc_allowed VARCHAR2(1);
3396: l_update_parent_task_allowed VARCHAR2(1);
3397: l_update_task_org_allowed VARCHAR2(1);
3398:
3399: t_pm_product_code PA_TASKS.PM_PRODUCT_CODE%TYPE;
3400: t_parent_task_id PA_TASKS.PARENT_TASK_ID%TYPE;
3401: BEGIN
3402: IF (p_debug_mode = 'Y') THEN
3403: pa_debug.debug('PA_TASKS_MAINT_PVT.DELETE_TASK BEGIN');
3396: l_update_parent_task_allowed VARCHAR2(1);
3397: l_update_task_org_allowed VARCHAR2(1);
3398:
3399: t_pm_product_code PA_TASKS.PM_PRODUCT_CODE%TYPE;
3400: t_parent_task_id PA_TASKS.PARENT_TASK_ID%TYPE;
3401: BEGIN
3402: IF (p_debug_mode = 'Y') THEN
3403: pa_debug.debug('PA_TASKS_MAINT_PVT.DELETE_TASK BEGIN');
3404: END IF;
3399: t_pm_product_code PA_TASKS.PM_PRODUCT_CODE%TYPE;
3400: t_parent_task_id PA_TASKS.PARENT_TASK_ID%TYPE;
3401: BEGIN
3402: IF (p_debug_mode = 'Y') THEN
3403: pa_debug.debug('PA_TASKS_MAINT_PVT.DELETE_TASK BEGIN');
3404: END IF;
3405:
3406: IF (p_commit = FND_API.G_TRUE) THEN
3407: savepoint DELETE_TASK_PRIVATE;
3414: -- Get PM_PRODUCT_CODE
3415: BEGIN
3416: select PM_PRODUCT_CODE, PARENT_TASK_ID
3417: into t_pm_product_code, t_parent_task_id
3418: from pa_tasks
3419: where task_id = p_task_id;
3420: EXCEPTION
3421: WHEN NO_DATA_FOUND THEN
3422: PA_UTILS.ADD_MESSAGE('PA','PA_EXP_NO_TASK'); -- specified task does not exist
3508: IF (p_calling_module IN ('SELF_SERVICE', 'FORM')) THEN
3509: --Check if child exist for current parent task. If not,
3510: --update chargeable flag to Y
3511: IF (Pa_Task_Utils.check_child_Exists(NVL(t_parent_task_id,0)) = 0 ) THEN
3512: UPDATE Pa_tasks
3513: SET Chargeable_Flag = 'Y',
3514: RECORD_VERSION_NUMBER = nvl(RECORD_VERSION_NUMBER,0) + 1,
3515: last_updated_by = FND_GLOBAL.USER_ID,
3516: last_update_login = FND_GLOBAL.USER_ID,
3548: END IF;
3549: x_msg_count := FND_MSG_PUB.count_msg;
3550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3551: --put message
3552: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3553: p_procedure_name => 'DELETE_TASK',
3554: p_error_text => SUBSTRB(SQLERRM,1,240));
3555: RAISE;
3556: END DELETE_TASK;
3594: ,x_msg_data OUT NOCOPY VARCHAR2 ) AS --File.Sql.39 bug 4440895
3595:
3596: CURSOR c1 IS
3597: select 'x'
3598: from PA_TASKS
3599: where project_id = p_project_id
3600: for update of record_version_number NOWAIT;
3601:
3602: CURSOR c2 IS
3600: for update of record_version_number NOWAIT;
3601:
3602: CURSOR c2 IS
3603: select 'x'
3604: from PA_TASKS
3605: where project_id = p_project_id;
3606:
3607: CURSOR cur_task_heirarchy
3608: IS
3606:
3607: CURSOR cur_task_heirarchy
3608: IS
3609: SELECT task_id, wbs_level, record_version_number
3610: FROM pa_tasks
3611: START WITH task_id = p_task_id
3612: CONNECT BY PRIOR task_id = parent_task_id;
3613:
3614:
3617: p_top_task_id_above NUMBER,
3618: p_display_sequence NUMBER )
3619: IS
3620: /* SELECT task_id, top_task_id
3621: FROM pa_tasks
3622: WHERE wbs_level = p_wbs_level
3623: AND top_task_id = p_top_task_id_above
3624: AND display_sequence = ( SELECT max( display_sequence )
3625: FROM pa_tasks
3621: FROM pa_tasks
3622: WHERE wbs_level = p_wbs_level
3623: AND top_task_id = p_top_task_id_above
3624: AND display_sequence = ( SELECT max( display_sequence )
3625: FROM pa_tasks
3626: WHERE top_task_id = p_top_task_id_above
3627: AND wbs_level = p_wbs_level
3628: AND display_sequence < p_display_sequence );*/
3629: --Project Structure changes
3627: AND wbs_level = p_wbs_level
3628: AND display_sequence < p_display_sequence );*/
3629: --Project Structure changes
3630: SELECT task_id, top_task_id
3631: FROM pa_tasks pt, pa_proj_element_versions ppev
3632: WHERE pt.wbs_level = p_wbs_level
3633: AND top_task_id = p_top_task_id_above
3634: AND pt.task_id = ppev.proj_element_id
3635: AND ppev.display_sequence = ( SELECT max( ppev.display_sequence )
3632: WHERE pt.wbs_level = p_wbs_level
3633: AND top_task_id = p_top_task_id_above
3634: AND pt.task_id = ppev.proj_element_id
3635: AND ppev.display_sequence = ( SELECT max( ppev.display_sequence )
3636: FROM pa_tasks pt, pa_proj_element_versions ppev
3637: WHERE top_task_id = p_top_task_id_above
3638: AND pt.wbs_level = p_wbs_level
3639: AND ppev.proj_element_id = pt.task_id
3640: AND ppev.display_sequence < p_display_sequence );
3647: l_error_msg_code VARCHAR2(250);
3648: l_data VARCHAR2(250);
3649: l_msg_index_out NUMBER;
3650:
3651: l_task_level PA_TASKS.WBS_LEVEL%TYPE :=0;
3652: l_parent_task_id NUMBER;
3653: l_top_task_id NUMBER;
3654: l_display_sequence NUMBER;
3655:
3652: l_parent_task_id NUMBER;
3653: l_top_task_id NUMBER;
3654: l_display_sequence NUMBER;
3655:
3656: l_task_level_above PA_TASKS.WBS_LEVEL%TYPE :=0;
3657: l_task_id_above NUMBER;
3658: l_parent_task_id_above NUMBER;
3659: l_top_task_id_above NUMBER;
3660: l_display_sequence_above NUMBER;
3674: SAVEPOINT Edit_Structure;
3675: END IF;
3676: x_return_status := 'S';
3677:
3678: PA_TASKS_MAINT_UTILS.GetWbsLevel(
3679: p_project_id => p_project_id,
3680: p_task_id => p_task_id,
3681:
3682: x_task_level => l_task_level,
3742:
3743: -- HSIU changes ends here
3744:
3745: -- 1) update the parent task id of the indenting task with the above task id
3746: PA_TASKS_MAINT_PVT.UPDATE_TASK
3747: (
3748: p_commit => p_commit
3749: ,p_validate_only => p_validate_only
3750: ,p_validation_level => p_validation_level
3776: -- As Parent Task Id of the Task being indented is updated and b'coz of this
3777: -- for this particular case the parent task was earlier a lowest level task
3778: -- but now it has become a summarized level task so need to update its chargeable flag to N
3779:
3780: UPDATE PA_TASKS SET CHARGEABLE_FLAG='N'
3781: WHERE TASK_ID = l_task_id_above;
3782:
3783: -- End of Changes for bug 3125880
3784:
3788:
3789:
3790: FOR cur_task_heirarchy_rec IN cur_task_heirarchy LOOP
3791:
3792: PA_TASKS_MAINT_PVT.UPDATE_TASK
3793: (
3794: p_commit => p_commit
3795: ,p_validate_only => p_validate_only
3796: ,p_validation_level => p_validation_level
3831: OPEN cur_parent_of_above( l_task_level , l_top_task_id_above, l_display_sequence );
3832: FETCH cur_parent_of_above INTO l_new_parent_id, l_new_top_id;
3833: CLOSE cur_parent_of_above;
3834:
3835: PA_TASKS_MAINT_PVT.UPDATE_TASK
3836: (
3837: p_commit => p_commit
3838: ,p_validate_only => p_validate_only
3839: ,p_validation_level => p_validation_level
3862:
3863:
3864: FOR cur_task_heirarchy_rec IN cur_task_heirarchy LOOP
3865:
3866: PA_TASKS_MAINT_PVT.UPDATE_TASK
3867: (
3868: p_commit => p_commit
3869: ,p_validate_only => p_validate_only
3870: ,p_validation_level => p_validation_level
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: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3906:
3916: THEN
3917: ROLLBACK TO Edit_Structure;
3918: END IF;
3919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3920: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3921: p_procedure_name => 'Indent_task',
3922: p_error_text => SUBSTRB(SQLERRM,1,240));
3923: RAISE;
3924:
3970: l_error_msg_code VARCHAR2(250);
3971: l_data VARCHAR2(250);
3972: l_msg_index_out NUMBER;
3973:
3974: l_task_level PA_TASKS.WBS_LEVEL%TYPE :=0;
3975: l_parent_task_id NUMBER;
3976: l_top_task_id NUMBER;
3977: l_display_sequence NUMBER;
3978:
3975: l_parent_task_id NUMBER;
3976: l_top_task_id NUMBER;
3977: l_display_sequence NUMBER;
3978:
3979: l_task_level_above PA_TASKS.WBS_LEVEL%TYPE :=0;
3980: l_task_id_above NUMBER;
3981: l_parent_task_id_above NUMBER;
3982: l_top_task_id_above NUMBER;
3983: l_display_sequence_above NUMBER;
3985: l_new_top_id NUMBER;
3986:
3987: CURSOR c1 IS
3988: select 'x'
3989: from PA_TASKS
3990: where project_id = p_project_id
3991: for update of record_version_number NOWAIT;
3992:
3993: CURSOR c2 IS
3991: for update of record_version_number NOWAIT;
3992:
3993: CURSOR c2 IS
3994: select 'x'
3995: from PA_TASKS
3996: where project_id = p_project_id;
3997:
3998:
3999: CURSOR cur_task_heirarchy( p_task_id NUMBER )
3998:
3999: CURSOR cur_task_heirarchy( p_task_id NUMBER )
4000: IS
4001: SELECT task_id, wbs_level, record_version_number
4002: FROM pa_tasks
4003: START WITH task_id = p_task_id
4004: CONNECT BY PRIOR task_id = parent_task_id;
4005:
4006:
4009: --the display sequence of the outdenting task
4010: CURSOR cur_all_tasks( p_top_task_id NUMBER, p_display_sequence NUMBER )
4011: IS
4012: /*SELECT task_id, record_version_number
4013: FROM pa_tasks
4014: WHERE top_task_id = p_top_task_id
4015: AND display_sequence > p_display_sequence;*/
4016:
4017: --Project Structure changes
4015: AND display_sequence > p_display_sequence;*/
4016:
4017: --Project Structure changes
4018: SELECT pt.task_id, pt.record_version_number
4019: FROM pa_tasks pt, pa_proj_element_versions ppev
4020: WHERE top_task_id = p_top_task_id
4021: AND pt.task_id = ppev.proj_element_id
4022: AND ppev.display_sequence >= p_display_sequence; --bug 2968468
4023:
4026: --now becomes children of outdenting task.
4027: CURSOR cur_new_child_task( p_wbs_level NUMBER, p_display_sequence NUMBER )
4028: IS
4029: /* SELECT task_id, record_version_number
4030: FROM pa_tasks
4031: WHERE wbs_level = p_wbs_level
4032: AND parent_task_id = l_parent_task_id
4033: AND project_id = p_project_id
4034: AND display_sequence > p_display_sequence;*/
4033: AND project_id = p_project_id
4034: AND display_sequence > p_display_sequence;*/
4035:
4036: SELECT pt.task_id, pt.record_version_number
4037: FROM pa_tasks pt, pa_proj_element_versions ppev
4038: WHERE pt.wbs_level = p_wbs_level
4039: AND parent_task_id = l_parent_task_id
4040: AND pt.project_id = p_project_id
4041: AND pt.task_id = ppev.proj_element_id
4043:
4044: CURSOR cur_parent_of_above( p_wbs_level NUMBER, p_top_task_id_above NUMBER )
4045: IS
4046: SELECT parent_task_id, top_task_id
4047: FROM pa_tasks
4048: WHERE wbs_level = p_wbs_level
4049: AND project_id = p_project_id
4050: AND top_task_id = p_top_task_id_above;
4051: BEGIN
4055: SAVEPOINT Edit_Structure;
4056: END IF;
4057: x_return_status := 'S';
4058:
4059: PA_TASKS_MAINT_UTILS.GetWbsLevel(
4060: p_project_id => p_project_id,
4061: p_task_id => p_task_id,
4062:
4063: x_task_level => l_task_level,
4089: IF l_task_level_above < l_task_level
4090: THEN
4091: --2) update the parent task id of outdenting task with the parent task id of the task above
4092:
4093: PA_TASKS_MAINT_PVT.UPDATE_TASK
4094: (
4095: p_commit => p_commit
4096: ,p_validate_only => p_validate_only
4097: ,p_validation_level => p_validation_level
4117: --1) update wbs level of outdenting task includinf its children
4118:
4119: FOR cur_task_heirarchy_rec IN cur_task_heirarchy( p_task_id ) LOOP
4120:
4121: PA_TASKS_MAINT_PVT.UPDATE_TASK
4122: (
4123: p_commit => p_commit
4124: ,p_validate_only => p_validate_only
4125: ,p_validation_level => p_validation_level
4155: IF l_parent_task_id_above IS NULL
4156: THEN
4157: FOR cur_all_tasks_rec IN cur_all_tasks( l_top_task_id , l_display_sequence ) LOOP
4158:
4159: PA_TASKS_MAINT_PVT.UPDATE_TASK
4160: (
4161: p_commit => p_commit
4162: ,p_validate_only => p_validate_only
4163: ,p_validation_level => p_validation_level
4187: --( these new child tasks used to be at the same level before the outdenting task outedented )
4188: --l_task_level now contains old value of the wbs level.
4189: FOR cur_new_child_task_rec IN cur_new_child_task( l_task_level, l_display_sequence ) LOOP
4190:
4191: PA_TASKS_MAINT_PVT.UPDATE_TASK
4192: (
4193: p_commit => p_commit
4194: ,p_validate_only => p_validate_only
4195: ,p_validation_level => p_validation_level
4232: THEN
4233: l_new_top_id := p_task_id;
4234: l_new_parent_id := null;
4235: END IF;
4236: PA_TASKS_MAINT_PVT.UPDATE_TASK
4237: (
4238: p_commit => p_commit
4239: ,p_validate_only => p_validate_only
4240: ,p_validation_level => p_validation_level
4261: --1) update wbs level
4262:
4263: FOR cur_task_heirarchy_rec IN cur_task_heirarchy( p_task_id ) LOOP
4264:
4265: PA_TASKS_MAINT_PVT.UPDATE_TASK
4266: (
4267: p_commit => p_commit
4268: ,p_validate_only => p_validate_only
4269: ,p_validation_level => p_validation_level
4294: --l_task_level now contains old value of the wbs level.
4295: --Also update the top task id for the new children
4296: FOR cur_new_child_task_rec IN cur_new_child_task( l_task_level, l_display_sequence ) LOOP
4297:
4298: PA_TASKS_MAINT_PVT.UPDATE_TASK
4299: (
4300: p_commit => p_commit
4301: ,p_validate_only => p_validate_only
4302: ,p_validation_level => p_validation_level
4341:
4342: --The outdenting task may become a child of another task or
4343: --it may become the top most task in its branch.
4344:
4345: PA_TASKS_MAINT_PVT.UPDATE_TASK
4346: (
4347: p_commit => p_commit
4348: ,p_validate_only => p_validate_only
4349: ,p_validation_level => p_validation_level
4367:
4368: --1) update wbs level of outdenting task and its all child tasks
4369: FOR cur_task_heirarchy_rec IN cur_task_heirarchy( p_task_id ) LOOP
4370:
4371: PA_TASKS_MAINT_PVT.UPDATE_TASK
4372: (
4373: p_commit => p_commit
4374: ,p_validate_only => p_validate_only
4375: ,p_validation_level => p_validation_level
4399: --( these new child tasks used to be at the same level before the outdenting task outedented )
4400: --l_task_level now contains old value of the wbs level.
4401: FOR cur_new_child_task_rec IN cur_new_child_task( l_task_level, l_display_sequence ) LOOP
4402:
4403: PA_TASKS_MAINT_PVT.UPDATE_TASK
4404: (
4405: p_commit => p_commit
4406: ,p_validate_only => p_validate_only
4407: ,p_validation_level => p_validation_level
4429: -- The outdenting task becomes the top most task
4430: ELSIF l_task_level = 2
4431: THEN
4432: --1) update parent of outdenting task as null
4433: PA_TASKS_MAINT_PVT.UPDATE_TASK
4434: (
4435: p_commit => p_commit
4436: ,p_validate_only => p_validate_only
4437: ,p_validation_level => p_validation_level
4462: --( these new child tasks used to be at the same level before the outdenting task outedented )
4463: --l_task_level now contains old value of the wbs level.
4464: FOR cur_new_child_task_rec IN cur_new_child_task( l_task_level, l_display_sequence ) LOOP
4465:
4466: PA_TASKS_MAINT_PVT.UPDATE_TASK
4467: (
4468: p_commit => p_commit
4469: ,p_validate_only => p_validate_only
4470: ,p_validation_level => p_validation_level
4491: END IF;
4492:
4493: --updating top_task_id of child tasks of outdenting task's new child tasks
4494: FOR cur_task_heirarchy_rec IN cur_task_heirarchy( cur_new_child_task_rec.task_id ) LOOP
4495: PA_TASKS_MAINT_PVT.UPDATE_TASK
4496: (
4497: p_commit => p_commit
4498: ,p_validate_only => p_validate_only
4499: ,p_validation_level => p_validation_level
4520:
4521: --1) update wbs level of outdenting task and its all child tasks
4522: FOR cur_task_heirarchy_rec IN cur_task_heirarchy( p_task_id ) LOOP
4523:
4524: PA_TASKS_MAINT_PVT.UPDATE_TASK
4525: (
4526: p_commit => p_commit
4527: ,p_validate_only => p_validate_only
4528: ,p_validation_level => p_validation_level
4550: -- of outdenting task and child tasks of new child tasks with outdenting task id.
4551:
4552: --updating top_task_id of child tasks of outdenting task
4553: FOR cur_task_heirarchy_rec IN cur_task_heirarchy( p_task_id ) LOOP
4554: PA_TASKS_MAINT_PVT.UPDATE_TASK
4555: (
4556: p_commit => p_commit
4557: ,p_validate_only => p_validate_only
4558: ,p_validation_level => p_validation_level
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: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4592:
4602: THEN
4603: ROLLBACK TO Edit_Structure;
4604: END IF;
4605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4606: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4607: p_procedure_name => 'Outdent_task',
4608: p_error_text => SUBSTRB(SQLERRM,1,240));
4609: RAISE;
4610: END Outdent_Task;
4653:
4654: CURSOR cur_entire_proj
4655: IS
4656: /* SELECT *
4657: FROM pa_tasks pt
4658: WHERE project_id = p_project_id
4659: ORDER BY display_sequence;*/
4660:
4661: SELECT pt.task_number, pt.task_name, pt.long_task_name, pt.description, pt.carrying_out_organization_id,
4662: pt.work_type_id, pt.service_type_code,
4663: pt.chargeable_flag, pt.billable_flag, pt.receive_project_invoice_flag,
4664: pt.scheduled_start_date, pt.scheduled_finish_date, pt.start_date,
4665: pt.wbs_level, pt.task_id, ppev.display_sequence
4666: FROM pa_tasks pt, pa_proj_element_versions ppev
4667: WHERE pt.project_id = p_project_id
4668: AND pt.task_id = ppev.proj_element_id
4669: ORDER BY ppev.display_sequence;
4670:
4670:
4671: CURSOR cur_ref_info
4672: IS
4673: SELECT *
4674: FROM pa_tasks
4675: WHERE project_id = p_reference_project_id
4676: AND task_id = p_reference_task_id;
4677:
4678: CURSOR cur_data_length(c_pa_schema_name VARCHAR2)
4678: CURSOR cur_data_length(c_pa_schema_name VARCHAR2)
4679: IS
4680: SELECT column_name, data_length
4681: FROM user_synonyms syn, all_tab_columns col
4682: WHERE col.table_name = 'PA_TASKS'
4683: and col.owner = syn.table_owner
4684: and col.table_name = syn.table_name
4685: AND col.owner = c_pa_schema_name
4686: AND column_name IN ( 'TASK_NAME', 'LONG_TASK_NAME', 'TASK_NUMBER' );
4743: industry => l_fnd_industry,
4744: oracle_schema => l_table_owner);
4745: IF NOT l_fnd_return_status
4746: THEN
4747: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4748: p_procedure_name => 'Copy_Entire_Project',
4749: p_error_text => SUBSTRB('FND_INSTALLATION.GET_APP_INFO api call failed:'||SQLERRM,1,240));
4750: RAISE FND_API.G_EXC_ERROR;
4751: END IF;
4847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4848: RAISE FND_API.G_EXC_ERROR;
4849: END IF;
4850:
4851: PA_TASKS_MAINT_PVT.CREATE_TASK
4852: (
4853: p_commit => p_commit
4854: ,p_validate_only => p_validate_only
4855: ,p_validation_level => p_validation_level
4926: BEGIN
4927: -- Need to get max number
4928: SELECT max(display_sequence)
4929: INTO l_max_seq
4930: FROM PA_TASKS
4931: WHERE project_id = p_reference_project_id;
4932:
4933: UPDATE PA_TASKS
4934: SET display_sequence =
4929: INTO l_max_seq
4930: FROM PA_TASKS
4931: WHERE project_id = p_reference_project_id;
4932:
4933: UPDATE PA_TASKS
4934: SET display_sequence =
4935: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, i, 'INSERT', null),
4936: record_version_number = record_version_number + 1
4937: WHERE project_id = p_reference_project_id
4931: WHERE project_id = p_reference_project_id;
4932:
4933: UPDATE PA_TASKS
4934: SET display_sequence =
4935: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, i, 'INSERT', null),
4936: record_version_number = record_version_number + 1
4937: WHERE project_id = p_reference_project_id
4938: AND ( display_sequence > -( l_first_seq + 1 ) or display_sequence < 0 );
4939: EXCEPTION
4948: THEN
4949: ROLLBACK TO Copy;
4950: END IF;
4951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4952: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4953: p_procedure_name => 'Copy_Entire_Task',
4954: p_error_text => SUBSTRB(SQLERRM,1,240));
4955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4956:
4966: THEN
4967: ROLLBACK TO Copy;
4968: END IF;
4969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4970: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4971: p_procedure_name => 'Copy_Entire_Task',
4972: p_error_text => SUBSTRB(SQLERRM,1,240));
4973: RAISE;
4974: END Copy_Entire_Project;
5017:
5018: CURSOR cur_select_task
5019: IS
5020: SELECT *
5021: FROM pa_tasks
5022: WHERE task_id = p_task_id;
5023:
5024: CURSOR cur_ref_info
5025: IS
5023:
5024: CURSOR cur_ref_info
5025: IS
5026: SELECT *
5027: FROM pa_tasks
5028: WHERE project_id = p_reference_project_id
5029: AND task_id = p_reference_task_id;
5030:
5031: CURSOR cur_data_length(c_pa_schema_name VARCHAR2)
5031: CURSOR cur_data_length(c_pa_schema_name VARCHAR2)
5032: IS
5033: SELECT column_name, data_length
5034: FROM user_synonyms syn, all_tab_columns col
5035: WHERE col.table_name = 'PA_TASKS'
5036: and col.owner = syn.table_owner
5037: and col.table_name = syn.table_name
5038: AND col.owner = c_pa_schema_name
5039: AND col.column_name IN ( 'TASK_NAME', 'LONG_TASK_NAME', 'TASK_NUMBER' );
5082: industry => l_fnd_industry,
5083: oracle_schema => l_table_owner);
5084: IF NOT l_fnd_return_status
5085: THEN
5086: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5087: p_procedure_name => 'Copy_Entire_Project',
5088: p_error_text => SUBSTRB('FND_INSTALLATION.GET_APP_INFO api call failed:'||SQLERRM,1,240));
5089: RAISE FND_API.G_EXC_ERROR;
5090: END IF;
5138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5139: RAISE FND_API.G_EXC_ERROR;
5140: END IF;
5141:
5142: PA_TASKS_MAINT_PVT.CREATE_TASK
5143: (
5144: p_commit => p_commit
5145: ,p_validate_only => p_validate_only
5146: ,p_validation_level => p_validation_level
5209: BEGIN
5210: -- Need to get max number
5211: SELECT max(display_sequence)
5212: INTO l_max_seq
5213: FROM PA_TASKS
5214: WHERE project_id = p_reference_project_id;
5215:
5216: UPDATE PA_TASKS
5217: SET display_sequence =
5212: INTO l_max_seq
5213: FROM PA_TASKS
5214: WHERE project_id = p_reference_project_id;
5215:
5216: UPDATE PA_TASKS
5217: SET display_sequence =
5218: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, 1, 'INSERT', null),
5219: record_version_number = record_version_number + 1
5220: WHERE project_id = p_reference_project_id
5214: WHERE project_id = p_reference_project_id;
5215:
5216: UPDATE PA_TASKS
5217: SET display_sequence =
5218: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, 1, 'INSERT', null),
5219: record_version_number = record_version_number + 1
5220: WHERE project_id = p_reference_project_id
5221: AND ( display_sequence > -( l_display_seq + 1 ) or display_sequence < 0 );
5222: EXCEPTION
5231: THEN
5232: ROLLBACK TO Copy;
5233: END IF;
5234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5235: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5236: p_procedure_name => 'Copy_Selected_Task',
5237: p_error_text => SUBSTRB(SQLERRM,1,240));
5238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5239:
5249: THEN
5250: ROLLBACK TO Copy;
5251: END IF;
5252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5253: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5254: p_procedure_name => 'Copy_Selected_Task',
5255: p_error_text => SUBSTRB(SQLERRM,1,240));
5256: RAISE;
5257: END Copy_Selected_Task;
5303: CURSOR cur_entire_task
5304: IS
5305:
5306: /*SELECT *
5307: FROM pa_tasks
5308: WHERE project_id = p_project_id
5309: START WITH task_id = p_task_id
5310: CONNECT BY PRIOR task_id = parent_task_id
5311: ORDER BY display_sequence; */
5320: work_type_id, service_type_code,
5321: chargeable_flag, billable_flag, receive_project_invoice_flag,
5322: scheduled_start_date, scheduled_finish_date, start_date,
5323: wbs_level
5324: FROM pa_tasks
5325: WHERE project_id = p_project_id
5326: START WITH task_id = p_task_id
5327: CONNECT BY PRIOR task_id = parent_task_id ) pt,
5328: pa_proj_element_versions ppev
5331:
5332: CURSOR cur_ref_info
5333: IS
5334: SELECT *
5335: FROM pa_tasks
5336: WHERE project_id = p_reference_project_id
5337: AND task_id = p_reference_task_id;
5338:
5339: CURSOR cur_data_length(c_pa_schema_name VARCHAR2)
5339: CURSOR cur_data_length(c_pa_schema_name VARCHAR2)
5340: IS
5341: SELECT column_name, data_length
5342: FROM user_synonyms syn, all_tab_columns col
5343: WHERE col.table_name = 'PA_TASKS'
5344: and col.owner = syn.table_owner
5345: and col.table_name = syn.table_name
5346: AND col.owner = c_pa_schema_name
5347: AND col.column_name IN ( 'TASK_NAME', 'LONG_TASK_NAME', 'TASK_NUMBER' );
5404: industry => l_fnd_industry,
5405: oracle_schema => l_table_owner);
5406: IF NOT l_fnd_return_status
5407: THEN
5408: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5409: p_procedure_name => 'Copy_Entire_Project',
5410: p_error_text => SUBSTRB('FND_INSTALLATION.GET_APP_INFO api call failed:'||SQLERRM,1,240));
5411: RAISE FND_API.G_EXC_ERROR;
5412: END IF;
5508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5509: RAISE FND_API.G_EXC_ERROR;
5510: END IF;
5511:
5512: PA_TASKS_MAINT_PVT.CREATE_TASK
5513: (
5514: p_commit => p_commit
5515: ,p_validate_only => p_validate_only
5516: ,p_validation_level => p_validation_level
5589: BEGIN
5590: -- Need to get max number
5591: SELECT max(display_sequence)
5592: INTO l_max_seq
5593: FROM PA_TASKS
5594: WHERE project_id = p_reference_project_id;
5595:
5596: UPDATE PA_TASKS
5597: SET display_sequence =
5592: INTO l_max_seq
5593: FROM PA_TASKS
5594: WHERE project_id = p_reference_project_id;
5595:
5596: UPDATE PA_TASKS
5597: SET display_sequence =
5598: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, i, 'INSERT', null),
5599: record_version_number = record_version_number + 1
5600: WHERE project_id = p_reference_project_id
5594: WHERE project_id = p_reference_project_id;
5595:
5596: UPDATE PA_TASKS
5597: SET display_sequence =
5598: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, i, 'INSERT', null),
5599: record_version_number = record_version_number + 1
5600: WHERE project_id = p_reference_project_id
5601: AND ( display_sequence > -( l_first_seq + 1 ) or display_sequence < 0 );
5602: EXCEPTION
5611: THEN
5612: ROLLBACK TO Copy;
5613: END IF;
5614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5615: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5616: p_procedure_name => 'Copy_Entire_Task',
5617: p_error_text => SUBSTRB(SQLERRM,1,240));
5618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5619:
5629: THEN
5630: ROLLBACK TO Copy;
5631: END IF;
5632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5633: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5634: p_procedure_name => 'Copy_Entire_Task',
5635: p_error_text => SUBSTRB(SQLERRM,1,240));
5636: RAISE;
5637:
5686:
5687: CURSOR cur_tasks
5688: IS
5689: /* SELECT task_id, display_sequence, top_task_id, parent_task_id, wbs_level, record_version_number
5690: FROM pa_tasks
5691: WHERE project_id = p_project_id
5692: START WITH task_id = p_task_id
5693: CONNECT BY PRIOR task_id = parent_task_id
5694: ORDER BY display_sequence;*/
5695:
5696: SELECT pt.task_id, ppev.display_sequence, pt.top_task_id, pt.parent_task_id, pt.wbs_level, pt.record_version_number
5697: FROM
5698: ( SELECT task_id, top_task_id, parent_task_id, wbs_level, record_version_number
5699: FROM pa_tasks
5700: WHERE project_id = p_project_id
5701: START WITH task_id = p_task_id
5702: CONNECT BY PRIOR task_id = parent_task_id ) pt, pa_proj_element_versions ppev
5703: WHERE pt.task_id = ppev.proj_element_id
5705:
5706: CURSOR cur_ref_info
5707: IS
5708: /* SELECT *
5709: FROM pa_tasks
5710: WHERE project_id = p_reference_project_id
5711: START WITH task_id = p_reference_task_id
5712: CONNECT BY PRIOR task_id = parent_task_id
5713: ORDER BY display_sequence;*/
5714:
5715: SELECT pt.top_task_id, pt.parent_task_id, pt.wbs_level, ppev.display_sequence
5716: FROM
5717: ( SELECT task_id, top_task_id, parent_task_id, wbs_level
5718: FROM pa_tasks
5719: WHERE project_id = p_reference_project_id
5720: START WITH task_id = p_reference_task_id
5721: CONNECT BY PRIOR task_id = parent_task_id ) pt, pa_proj_element_versions ppev
5722: WHERE pt.task_id = ppev.proj_element_id
5726: IS
5727: SELECT pt.task_id, ppev.display_sequence, pt.top_task_id, pt.parent_task_id, pt.wbs_level, pt.record_version_number
5728: FROM
5729: ( SELECT task_id, top_task_id, parent_task_id, wbs_level, record_version_number
5730: FROM pa_tasks
5731: WHERE project_id = p_project_id and task_id = p_task_id ) pt, pa_proj_element_versions ppev
5732: WHERE pt.task_id = ppev.proj_element_id
5733: ORDER BY ppev.display_sequence;
5734:
5779:
5780: --dbms_output.put_line( 'In move task 0' );
5781:
5782: --Ref project and task id Required check.
5783: PA_TASKS_MAINT_UTILS.REF_PRJ_TASK_ID_REQ_CHECK(
5784: p_reference_project_id => p_reference_project_id,
5785: p_reference_task_id => p_reference_task_id,
5786: x_return_status => l_return_status,
5787: x_error_msg_code => l_error_msg_code );
5797:
5798: --dbms_output.put_line( 'In move task 1' );
5799:
5800: --project and task id Required check.
5801: PA_TASKS_MAINT_UTILS.SRC_PRJ_TASK_ID_REQ_CHECK(
5802: p_project_id => p_project_id,
5803: p_task_id => p_task_id,
5804: x_return_status => l_return_status,
5805: x_error_msg_code => l_error_msg_code );
5969: l_display_sequence := -( l_ref_display_sequence + i ) ;
5970: END IF;
5971:
5972: --dbms_output.put_line( 'Before update task ' );
5973: PA_TASKS_MAINT_PVT.UPDATE_TASK
5974: (
5975: p_commit => p_commit
5976: ,p_validate_only => p_validate_only
5977: ,p_validation_level => p_validation_level
6007: --dbms_output.put_line( 'In move task 6' );
6008:
6009: -- update chargeable flag for reference task to no.
6010: IF (Pa_Task_Utils.check_child_Exists(NVL(p_reference_task_id,0)) = 1 ) THEN
6011: UPDATE Pa_tasks
6012: SET Chargeable_Flag = 'N',
6013: RECORD_VERSION_NUMBER = nvl(RECORD_VERSION_NUMBER,0) + 1,
6014: last_updated_by = FND_GLOBAL.USER_ID,
6015: last_update_login = FND_GLOBAL.USER_ID,
6030: BEGIN
6031: -- Need to get max number
6032: SELECT max(display_sequence)
6033: INTO l_max_seq
6034: FROM PA_TASKS
6035: WHERE project_id = p_reference_project_id;
6036:
6037:
6038: IF l_move_direction = 'UP'
6040: l_max_display_sequence := l_max_display_sequence + i - 1; --( )
6041: l_max_seq := l_max_seq + i;
6042: END IF;
6043:
6044: UPDATE PA_TASKS
6045: SET display_sequence =
6046: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, i, 'MOVE', l_move_direction ),
6047: record_version_number = record_version_number + 1
6048: WHERE project_id = p_reference_project_id
6042: END IF;
6043:
6044: UPDATE PA_TASKS
6045: SET display_sequence =
6046: PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, l_max_seq, i, 'MOVE', l_move_direction ),
6047: record_version_number = record_version_number + 1
6048: WHERE project_id = p_reference_project_id
6049: AND ( ( display_sequence > l_min_display_sequence and
6050: display_sequence <= l_max_display_sequence ) or display_sequence < 0 );
6060: THEN
6061: ROLLBACK TO Move;
6062: END IF;
6063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6064: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
6065: p_procedure_name => 'Move_Task',
6066: p_error_text => SUBSTRB(SQLERRM,1,240));
6067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6068:
6078: THEN
6079: ROLLBACK TO Move;
6080: END IF;
6081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6082: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
6083: p_procedure_name => 'Move_Task',
6084: p_error_text => SUBSTRB(SQLERRM,1,240));
6085: RAISE;
6086:
6145: AND
6146: element_version_id = l_task_version_id;
6147:
6148: -- Bug 3735089 Added cursor
6149: CURSOR c_task_exists_in_pa_tasks(c_task_id NUMBER)
6150: IS
6151: --SELECT 'Y'
6152: SELECT task_number,task_name --task_number and task_name added for the Bug 14640666
6153: from pa_tasks
6149: CURSOR c_task_exists_in_pa_tasks(c_task_id NUMBER)
6150: IS
6151: --SELECT 'Y'
6152: SELECT task_number,task_name --task_number and task_name added for the Bug 14640666
6153: from pa_tasks
6154: WHERE task_id = c_task_id
6155: and project_id = p_project_id;
6156:
6157: --Bug 3735089
6170: AND por.relationship_subtype ='TASK_TO_TASK'
6171: AND por.object_id_to1 = l_object_id_to1;
6172: l_err_stack VARCHAR2(630);
6173: l_err_stage VARCHAR2(80);
6174: l_task_number pa_tasks.task_number%type;
6175: l_task_name pa_tasks.task_number%type;
6176: l_err_message fnd_new_messages.message_text%type;
6177: --added for the Bug 14640666
6178:
6171: AND por.object_id_to1 = l_object_id_to1;
6172: l_err_stack VARCHAR2(630);
6173: l_err_stage VARCHAR2(80);
6174: l_task_number pa_tasks.task_number%type;
6175: l_task_name pa_tasks.task_number%type;
6176: l_err_message fnd_new_messages.message_text%type;
6177: --added for the Bug 14640666
6178:
6179:
6193: p_debug_mode => l_debug_mode );
6194: END IF;
6195:
6196: IF l_debug_mode = 'Y' THEN
6197: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_PVT : SET_UNSET_FINANCIAL_TASK : Printing Input parameters';
6198: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
6199: l_debug_level3);
6200:
6201: Pa_Debug.WRITE(g_pkg_name,'p_task_version_id'||':'||p_task_version_id,
6215: --savepoint SET_FIN_FLAG_WRAPPER_PUBLIC; Bug 3735089
6216: END IF;
6217:
6218: IF l_debug_mode = 'Y' THEN
6219: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_PVT : SET_UNSET_FINANCIAL_TASK : Validating Input parameters';
6220: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
6221: l_debug_level3);
6222: END IF;
6223:
6227: ( p_project_id IS NULL)
6228: )
6229: THEN
6230: IF l_debug_mode = 'Y' THEN
6231: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_PVT : SET_UNSET_FINANCIAL_TASK : Both p_task_version_id and p_checked_flag are null';
6232: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
6233: l_debug_level3);
6234: END IF;
6235: RAISE Invalid_Arg_Exc_WP;
6241: FETCH c_get_task_id INTO l_task_id;
6242: CLOSE c_get_task_id ;
6243:
6244: -- Bug 3735089 Added cursor call , we can add this additionally, currently not needed
6245: -- OPEN c_task_exists_in_pa_tasks(l_task_id);
6246: -- FETCH c_task_exists_in_pa_tasks INTO l_task_exists;
6247: -- CLOSE c_task_exists_in_pa_tasks ;
6248:
6249: -- IF NVL(l_task_exists,'N') ='Y' THEN -- Bug 3735089
6242: CLOSE c_get_task_id ;
6243:
6244: -- Bug 3735089 Added cursor call , we can add this additionally, currently not needed
6245: -- OPEN c_task_exists_in_pa_tasks(l_task_id);
6246: -- FETCH c_task_exists_in_pa_tasks INTO l_task_exists;
6247: -- CLOSE c_task_exists_in_pa_tasks ;
6248:
6249: -- IF NVL(l_task_exists,'N') ='Y' THEN -- Bug 3735089
6250: --Check if the task has any transaction associated with it
6243:
6244: -- Bug 3735089 Added cursor call , we can add this additionally, currently not needed
6245: -- OPEN c_task_exists_in_pa_tasks(l_task_id);
6246: -- FETCH c_task_exists_in_pa_tasks INTO l_task_exists;
6247: -- CLOSE c_task_exists_in_pa_tasks ;
6248:
6249: -- IF NVL(l_task_exists,'N') ='Y' THEN -- Bug 3735089
6250: --Check if the task has any transaction associated with it
6251: PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_HAS_TRANSACTION
6263: IF (l_error_code <> 0) THEN
6264:
6265:
6266: IF l_debug_mode = 'Y' THEN
6267: 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;
6268: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
6269: l_debug_level3);
6270: END IF;
6271: PA_UTILS.ADD_MESSAGE(
6281: l_task_id:=null;
6282: OPEN c_get_immediate_parent(p_task_version_id);
6283: FETCH c_get_immediate_parent INTO l_task_id;
6284: IF c_get_immediate_parent%found THEN -- check if the immediate parent is present
6285: OPEN c_task_exists_in_pa_tasks(l_task_id);
6286: FETCH c_task_exists_in_pa_tasks INTO l_task_number,l_task_name;
6287: IF c_task_exists_in_pa_tasks%found THEN -- if the task is present in pa_tasks table, then call pa_task_utils.check_create_subtask_ok
6288: pa_task_utils.check_create_subtask_ok(x_task_id => l_task_id
6289: , x_err_code => l_error_code
6282: OPEN c_get_immediate_parent(p_task_version_id);
6283: FETCH c_get_immediate_parent INTO l_task_id;
6284: IF c_get_immediate_parent%found THEN -- check if the immediate parent is present
6285: OPEN c_task_exists_in_pa_tasks(l_task_id);
6286: FETCH c_task_exists_in_pa_tasks INTO l_task_number,l_task_name;
6287: IF c_task_exists_in_pa_tasks%found THEN -- if the task is present in pa_tasks table, then call pa_task_utils.check_create_subtask_ok
6288: pa_task_utils.check_create_subtask_ok(x_task_id => l_task_id
6289: , x_err_code => l_error_code
6290: , x_err_stage => l_err_stage
6283: FETCH c_get_immediate_parent INTO l_task_id;
6284: IF c_get_immediate_parent%found THEN -- check if the immediate parent is present
6285: OPEN c_task_exists_in_pa_tasks(l_task_id);
6286: FETCH c_task_exists_in_pa_tasks INTO l_task_number,l_task_name;
6287: IF c_task_exists_in_pa_tasks%found THEN -- if the task is present in pa_tasks table, then call pa_task_utils.check_create_subtask_ok
6288: pa_task_utils.check_create_subtask_ok(x_task_id => l_task_id
6289: , x_err_code => l_error_code
6290: , x_err_stage => l_err_stage
6291: , x_err_stack => l_err_stack);
6301: p_value3 => l_err_message);
6302: RAISE FND_API.G_EXC_ERROR;
6303: END IF;
6304: END IF;
6305: CLOSE c_task_exists_in_pa_tasks;
6306: END IF;
6307: CLOSE c_get_immediate_parent;
6308: END IF; --p_checked_flag ='Y'
6309: --added for the Bug 14640666
6367: WHEN Invalid_Arg_Exc_WP THEN
6368:
6369: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6370: x_msg_count := 1;
6371: x_msg_data := 'PA_TASKS_MAINT_PVT : SET_UNSET_FINANCIAL_TASK : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
6372:
6373: IF p_commit = FND_API.G_TRUE THEN
6374: ROLLBACK TO SET_UNSET_FINANCIAL_TASK_PVT;
6375: --ROLLBACK TO DELETE_MAPPING_PUBLIC; Bug 3735089
6377: IF c_get_task_id%ISOPEN THEN
6378: CLOSE c_get_task_id;
6379: END IF;
6380: Fnd_Msg_Pub.add_exc_msg
6381: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6382: , p_procedure_name => 'SET_UNSET_FINANCIAL_TASK'
6383: , p_error_text => x_msg_data);
6384:
6385: IF l_debug_mode = 'Y' THEN
6406: CLOSE c_get_task_id;
6407: END IF;
6408:
6409: Fnd_Msg_Pub.add_exc_msg
6410: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6411: , p_procedure_name => 'SET_UNSET_FINANCIAL_TASK'
6412: , p_error_text => x_msg_data);
6413:
6414: IF l_debug_mode = 'Y' THEN
6422:
6423: -- Procedure : SYNC_UP_WP_TASKS_WITH_FIN
6424: -- Type : Private Procedure
6425: -- Purpose : This API will be called from SYNC_UP_WP_TASKS_WITH_FIN public
6426: -- : This API is to Sync up the financial tasks with pa_tasks table
6427: -- Note : This API can be called in two modes. One Singular and one All. In both the cases it will assume that
6428: -- : 1. In Singular case this API will expect the p_task_version_id and p_checked_flag to be passed.
6429: -- : 2. In All mode, it will expect the p_structre_version_id and p_syncup_all_tasks flag to be passed as
6430: -- : 'N'. In this mode this API will loop thru all the tasks in the passed structure, get each tasks
6428: -- : 1. In Singular case this API will expect the p_task_version_id and p_checked_flag to be passed.
6429: -- : 2. In All mode, it will expect the p_structre_version_id and p_syncup_all_tasks flag to be passed as
6430: -- : 'N'. In this mode this API will loop thru all the tasks in the passed structure, get each tasks
6431: -- financial_task_flag. If flag is Y in database, then check if the task is not present in
6432: -- pa_tasks. If not present in pa_tasks then create it there. Similarly remove from
6433: -- pa_tasks if flag is 'N'.
6434: -- Assumptions : The financial_task_flag is already set in the database.
6435:
6436: -- Parameters Type Required Description and Purpose
6429: -- : 2. In All mode, it will expect the p_structre_version_id and p_syncup_all_tasks flag to be passed as
6430: -- : 'N'. In this mode this API will loop thru all the tasks in the passed structure, get each tasks
6431: -- financial_task_flag. If flag is Y in database, then check if the task is not present in
6432: -- pa_tasks. If not present in pa_tasks then create it there. Similarly remove from
6433: -- pa_tasks if flag is 'N'.
6434: -- Assumptions : The financial_task_flag is already set in the database.
6435:
6436: -- Parameters Type Required Description and Purpose
6437: -- --------------------------- ------ -------- --------------------------------------------------------
6544: elements.proj_element_id = elever.proj_element_id
6545: AND
6546: elements.project_id = elever.project_id;
6547:
6548: --This curosr returns the record version number from pa_tasks for row containig passed task id.
6549: CURSOR c_get_pa_record_version_number (l_task_id NUMBER , l_project_id NUMBER)
6550: IS
6551: SELECT
6552: record_version_number
6550: IS
6551: SELECT
6552: record_version_number
6553: FROM
6554: PA_TASKS
6555: WHERE
6556: task_id = l_task_id
6557: AND
6558: project_id = l_project_id;
6566: pa_proj_element_versions
6567: WHERE
6568: parent_structure_version_id = l_structure_version_id
6569: AND
6570: object_type='PA_TASKS'
6571: AND
6572: project_id = l_project_id;
6573:
6574: --Bug 3735089
6592: p_debug_mode => l_debug_mode );
6593: END IF;
6594:
6595: IF l_debug_mode = 'Y' THEN
6596: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_PVT : SYNC_UP_WP_TASKS_WITH_FIN : Printing Input parameters';
6597: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
6598: l_debug_level3);
6599:
6600: Pa_Debug.WRITE(g_pkg_name,'p_project_id '||':'||p_project_id ,
6627: p_project_id => p_project_id
6628: ,p_task_id => l_task_id
6629: );
6630: --If p_mode is single, and p_checked_flag is 'N', delete the task
6631: -- if p_mode is 'Y', and task is not in PA_TASKS, create the new task
6632: IF ( p_mode = 'SINGLE' )
6633: THEN
6634:
6635: IF (p_checked_flag='N')
6641: IF (PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_id)='Y')
6642: THEN
6643:
6644:
6645: PA_TASKS_MAINT_PUB.DELETE_TASK
6646: (
6647: p_commit => p_commit
6648: , p_init_msg_list => FND_API.G_FALSE
6649: , p_calling_module => p_calling_module
6650: , p_debug_mode => l_debug_mode
6651: , p_project_id => p_project_id
6652: , p_task_id => l_task_id
6653: , p_record_version_number => p_patask_record_version_number
6654: , p_wbs_record_version_number => 1 --parameter not used anywhere in PA_TASKS_MAINT_PUB.DELETE_TASK,pass any dummy value
6655: , x_return_status => x_return_status
6656: , x_msg_count => x_msg_count
6657: , x_msg_data => x_msg_data
6658: );
6685: OPEN c_get_task_name_and_number ( l_task_id , p_project_id );
6686: FETCH c_get_task_name_and_number INTO l_task_name, l_task_number;
6687: CLOSE c_get_task_name_and_number ;
6688:
6689: PA_TASKS_MAINT_PUB.CREATE_TASK
6690: (
6691: p_commit => p_commit
6692: ,p_calling_module => p_calling_module
6693: ,p_init_msg_list => FND_API.G_FALSE
6697: ,p_peer_or_sub => 'SUB'
6698: ,p_task_number => l_task_number
6699: ,p_task_name => l_task_name
6700: ,p_task_id => l_task_id
6701: ,p_wbs_record_version_number => 1--parameter not used anywhere in PA_TASKS_MAINT_PUB.DELETE_TASK,pass any dummy value
6702: ,p_carrying_out_organization_id => l_carrying_out_organization_id
6703: --,x_display_seq => l_display_seq
6704: ,x_return_status => x_return_status
6705: ,x_msg_count => x_msg_count
6714: END IF;
6715: --If p_mode is ALL, get all the tasks for the passed structure id
6716: -- For each task
6717: -- If p_mode is 'N' delete the task
6718: -- if p_mode is 'Y', and task is not in PA_TASKS, create the new task
6719: ELSIF ( p_mode = 'ALL' )
6720: THEN
6721: OPEN c_get_pa_record_version_number ( l_task_id , p_project_id);
6722: FETCH c_get_pa_record_version_number INTO l_patask_record_version_number;
6737: -- l_task_version_id := cursor_rec.element_version_id;
6738: OPEN c_get_task_id ( l_task_version_id , p_project_id );
6739: FETCH c_get_task_id INTO l_task_id;
6740: CLOSE c_get_task_id;
6741: --Check_is_financial_task will return 'Y' when data is there is PA_TASKS
6742: IF (PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_id)='Y' AND iCounter.financial_task_flag='N' )
6743: THEN
6744: PA_TASKS_MAINT_PUB.DELETE_TASK
6745: (
6740: CLOSE c_get_task_id;
6741: --Check_is_financial_task will return 'Y' when data is there is PA_TASKS
6742: IF (PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_id)='Y' AND iCounter.financial_task_flag='N' )
6743: THEN
6744: PA_TASKS_MAINT_PUB.DELETE_TASK
6745: (
6746: p_commit => p_commit
6747: , p_calling_module => p_calling_module
6748: , p_init_msg_list => FND_API.G_FALSE
6750: , p_project_id => p_project_id
6751: , p_task_id => l_task_id
6752: , p_record_version_number => l_patask_record_version_number
6753: --, p_called_from_api => p_called_from_api
6754: , p_wbs_record_version_number => 1 --parameter not used anywhere in PA_TASKS_MAINT_PUB.DELETE_TASK,pass any dummy value
6755: , x_return_status => x_return_status
6756: , x_msg_count => x_msg_count
6757: , x_msg_data => x_msg_data
6758: );
6772: FETCH c_get_task_name_number_frm_ver INTO l_task_name, l_task_number;
6773: CLOSE c_get_task_name_number_frm_ver ;
6774:
6775:
6776: PA_TASKS_MAINT_PUB.CREATE_TASK
6777: (
6778: p_commit => p_commit
6779: ,p_calling_module => p_calling_module
6780: ,p_init_msg_list => FND_API.G_FALSE
6785: ,p_peer_or_sub => 'SUB'
6786: ,p_task_number => l_task_number
6787: ,p_task_name => l_task_name
6788: ,p_task_id => l_task_id
6789: ,p_wbs_record_version_number => 1--parameter not used anywhere in PA_TASKS_MAINT_PUB.DELETE_TASK,pass any dummy value
6790: ,p_carrying_out_organization_id => l_carrying_out_organization_id
6791: --,x_display_seq => l_display_seq
6792: ,x_return_status =>x_return_status
6793: ,x_msg_count =>x_msg_count
6861: WHEN Invalid_Arg_Exc_WP THEN
6862:
6863: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6864: x_msg_count := 1;
6865: x_msg_data := 'PA_TASKS_MAINT_PVT : SYNC_UP_WP_TASKS_WITH_FIN : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
6866:
6867: IF p_commit = FND_API.G_TRUE THEN
6868: --ROLLBACK TO DELETE_MAPPING_PUBLIC; Bug 3735089
6869: ROLLBACK TO SYNC_UP_WP_TASKS_WITH_FIN_PVT;
6883: IF c_get_pa_record_version_number%ISOPEN THEN
6884: CLOSE c_get_pa_record_version_number;
6885: END IF;
6886: Fnd_Msg_Pub.add_exc_msg
6887: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6888: , p_procedure_name => 'SYNC_UP_WP_TASKS_WITH_FIN'
6889: , p_error_text => x_msg_data);
6890:
6891: IF l_debug_mode = 'Y' THEN
6921: IF c_get_pa_record_version_number%ISOPEN THEN
6922: CLOSE c_get_pa_record_version_number;
6923: END IF;
6924: Fnd_Msg_Pub.add_exc_msg
6925: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6926: , p_procedure_name => 'SYNC_UP_WP_TASKS_WITH_FIN'
6927: , p_error_text => x_msg_data);
6928:
6929: IF l_debug_mode = 'Y' THEN
6937: END SYNC_UP_WP_TASKS_WITH_FIN ;
6938:
6939: --End add by rtarway for FP.M development
6940:
6941: end PA_TASKS_MAINT_PVT;