[Home] [Help]
1498: l_scheduled_delay SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE();
1499: --End of variables for Variable for Resource Attributes
1500:
1501: --Start of variables for Variable for TA Validations for p_context = TASK_ASSIGNMENTS
1502: l_task_rec_tbl pa_task_assignment_utils.l_task_rec_tbl_type;
1503: l_resource_rec_tbl pa_task_assignment_utils.l_resource_rec_tbl_type;
1504: l_del_task_level_rec_code_tbl SYSTEM.PA_VARCHAR2_30_TBL_TYPE := SYSTEM.PA_VARCHAR2_30_TBL_TYPE();
1505: l_ra_id_del_tbl SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE();
1506: l_ra_id_del_count NUMBER;
1499: --End of variables for Variable for Resource Attributes
1500:
1501: --Start of variables for Variable for TA Validations for p_context = TASK_ASSIGNMENTS
1502: l_task_rec_tbl pa_task_assignment_utils.l_task_rec_tbl_type;
1503: l_resource_rec_tbl pa_task_assignment_utils.l_resource_rec_tbl_type;
1504: l_del_task_level_rec_code_tbl SYSTEM.PA_VARCHAR2_30_TBL_TYPE := SYSTEM.PA_VARCHAR2_30_TBL_TYPE();
1505: l_ra_id_del_tbl SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE();
1506: l_ra_id_del_count NUMBER;
1507: --End of variables for Variable for TA Validations for p_context = TASK_ASSIGNMENTS
1648: ELSE
1649: l_pji_rollup_required := 'N';
1650: END IF;
1651:
1652: pa_task_assignment_utils.g_require_progress_rollup := 'N';
1653:
1654:
1655:
1656: x_msg_count := 0;
3222: -------------------------------------------------
3223: -- Calling Task validation API
3224: -------------------------------------------------
3225: IF l_debug_mode = 'Y' THEN
3226: pa_debug.g_err_stage:='Calling API pa_task_assignment_utils.Validate_Create_Assignment';
3227: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3228: END IF;
3229:
3230: l_trace_stage := 420;
3232: --dbms_output.put_line('qty bef is '||l_resource_rec_tbl(1).planning_start_Date);
3233: --dbms_output.put_line('qty aft is '||l_resource_rec_tbl(1).planning_end_date);
3234: -- For Bug 3665097 : New param p_one_to_one_mapping_flag added below.
3235: -- This will be synced up with Validate_Create_Assignment changes.
3236: pa_task_assignment_utils.Validate_Create_Assignment(
3237: p_calling_context => p_calling_context, -- Added for Bug 6856934
3238: p_one_to_one_mapping_flag => p_one_to_one_mapping_flag,
3239: p_task_rec_tbl => l_task_rec_tbl,
3240: p_task_assignment_tbl => l_resource_rec_tbl,
3244: --dbms_output.put_line('qty aft is '||l_resource_rec_tbl(1).planning_end_date);
3245:
3246: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3247: IF l_debug_mode = 'Y' THEN
3248: pa_debug.g_err_stage:='Called API pa_task_assignment_utils.Validate_Create_Assignment returned error';
3249: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3250: END IF;
3251: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3252: END IF;
3250: END IF;
3251: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3252: END IF;
3253: IF l_debug_mode = 'Y' THEN
3254: pa_debug.g_err_stage:='Returned from pa_task_assignment_utils.Validate_Create_Assignment';
3255: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3256: END IF;
3257:
3258: l_trace_stage := 430;
3266: l_trace_stage := 460;
3267: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3268: -----------------------------------------------------------------------
3269: -- The resource data tables shall be re-populated by the in out parameter
3270: -- parameter l_resource_rec_tbl, in the API call pa_task_assignment_utils.
3271: -- Validate_Create_Assignment above. So deleting alll existing data from
3272: -- the resource data tables.
3273: -----------------------------------------------------------------------
3274:
3281: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3282:
3283: -----------------------------------------------------------------------
3284: -- Repopulating all the resource data tables from the output parameter
3285: -- table l_resource_rec_tbl of the above API call pa_task_assignment_utils.
3286: -- Validate_Create_Assignment
3287: -----------------------------------------------------------------------
3288:
3289: IF l_debug_mode = 'Y' THEN
5715: END IF;
5716:
5717: -- Added for bug 4492493, 4548240
5718: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
5719: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(p_project_id) = 'Y') OR
5720: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
5721: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
5722: /* Bug 13419867 starts */
5723: /* PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
5717: -- Added for bug 4492493, 4548240
5718: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
5719: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(p_project_id) = 'Y') OR
5720: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
5721: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
5722: /* Bug 13419867 starts */
5723: /* PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
5724: ( p_calling_context => 'ASGMT_PLAN_CHANGE'
5725: ,p_project_id => p_project_id
5728: ,x_return_status => l_return_status
5729: ,x_msg_count => l_msg_count
5730: ,x_msg_data => l_msg_data);
5731:
5732: pa_task_assignment_utils.g_require_progress_rollup := 'N';
5733: */
5734: IF (p_extraction_type IN ('INCREMENTAL', 'FULL')) THEN
5735: -- Log the occurence, so that request can be submitted at the end
5736: insert into pa_asgmt_plan_change_t (project_id, strcut_ver_id, pub_strcut_ver_id)
5745: ,x_return_status => l_return_status
5746: ,x_msg_count => l_msg_count
5747: ,x_msg_data => l_msg_data);
5748:
5749: pa_task_assignment_utils.g_require_progress_rollup := 'N';
5750: END IF;
5751: /* Bug 13419867 End */
5752:
5753: END IF;
6088:
6089:
6090: /* Start of variables for Variable for TA Validations for p_context = TASK_ASSIGNMENTS
6091: */
6092: l_task_rec_tbl PA_TASK_ASSIGNMENT_UTILS.l_task_rec_tbl_type;
6093: l_resource_rec_tbl PA_TASK_ASSIGNMENT_UTILS.l_resource_rec_tbl_type;
6094: /* End of variables for Variable for TA Validations for p_context = TASK_ASSIGNMENTS
6095: */
6096:
6089:
6090: /* Start of variables for Variable for TA Validations for p_context = TASK_ASSIGNMENTS
6091: */
6092: l_task_rec_tbl PA_TASK_ASSIGNMENT_UTILS.l_task_rec_tbl_type;
6093: l_resource_rec_tbl PA_TASK_ASSIGNMENT_UTILS.l_resource_rec_tbl_type;
6094: /* End of variables for Variable for TA Validations for p_context = TASK_ASSIGNMENTS
6095: */
6096:
6097: /* Start of variables for Variable for Resource Attributes
6276: ELSE
6277: l_pji_rollup_required := 'N';
6278: END IF;
6279:
6280: pa_task_assignment_utils.g_require_progress_rollup := 'N';
6281:
6282: IF l_debug_mode = 'Y' THEN
6283: pa_debug.set_curr_function( p_function => 'Update_Planning_Transactions',
6284: p_debug_mode => l_debug_mode );
7142: /*-------------------------------------------------
7143: Calling Task validation API
7144: -------------------------------------------------*/
7145: IF l_debug_mode = 'Y' THEN
7146: pa_debug.g_err_stage:='Calling API pa_task_assignment_utils.Validate_Update_Assignment';
7147: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7148: l_debug_level3);
7149: END IF;
7150:
7150:
7151: --hr_utility.trace('PA_FP_PLAN_TXN_PUB.update_planning_transactions: before calling validate_update_assignment');
7152:
7153: --dbms_output.put_line(' l_resource_rec_tbl(i).cost_rate_override is '|| l_resource_rec_tbl(1).cost_rate_override);
7154: PA_TASK_ASSIGNMENT_UTILS.Validate_Update_Assignment(
7155: p_calling_context => p_calling_context, -- Added for Bug 6856934
7156: p_task_assignment_tbl => l_resource_rec_tbl,
7157: x_return_status => l_return_status);
7158: --dbms_output.put_line(' l_resource_rec_tbl(i).cost_rate_override is '|| l_resource_rec_tbl(1).cost_rate_override);
7160: --hr_utility.trace('PA_FP_PLAN_TXN_PUB.update_planning_transactions: after calling validate_update_assignment');
7161:
7162: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7163: IF l_debug_mode = 'Y' THEN
7164: pa_debug.g_err_stage:='Called API PA_TASK_ASSIGNMENT_UTILS.Validate_Update_Assignment returned error';
7165: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7166: END IF;
7167: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7168: END IF;
8198:
8199: -- Added for bug 4492493
8200:
8201: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
8202: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(l_project_id) = 'Y') OR
8203: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
8204: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
8205:
8206: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
8200:
8201: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
8202: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(l_project_id) = 'Y') OR
8203: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
8204: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
8205:
8206: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
8207: ( p_calling_context => 'ASGMT_PLAN_CHANGE'
8208: ,p_project_id => l_project_id
8211: ,x_return_status => x_return_status
8212: ,x_msg_count => x_msg_count
8213: ,x_msg_data => x_msg_data);
8214:
8215: pa_task_assignment_utils.g_require_progress_rollup := 'N';
8216: END IF;
8217:
8218:
8219: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8360: l_temp_planning_end_date_tbl SYSTEM.PA_DATE_TBL_TYPE:= SYSTEM.PA_DATE_TBL_TYPE() ;
8361: l_quantity_tbl SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE();
8362: l_currency_code_tbl SYSTEM.PA_VARCHAR2_15_TBL_TYPE := SYSTEM.PA_VARCHAR2_15_TBL_TYPE();
8363: l_module_name VARCHAR2(100):='pa.fp_planning_txn_pub.copy_planning_transactions';
8364: l_resource_rec_tbl PA_TASK_ASSIGNMENT_UTILS.l_resource_rec_tbl_type;
8365: l_planning_start_date_tbl SYSTEM.PA_DATE_TBL_TYPE:= SYSTEM.PA_DATE_TBL_TYPE();
8366: l_planning_end_date_tbl SYSTEM.PA_DATE_TBL_TYPE:= SYSTEM.PA_DATE_TBL_TYPE();
8367: l_schedule_start_date_tbl SYSTEM.PA_DATE_TBL_TYPE:= SYSTEM.PA_DATE_TBL_TYPE();
8368: l_schedule_end_date_tbl SYSTEM.PA_DATE_TBL_TYPE:= SYSTEM.PA_DATE_TBL_TYPE();
8425: ELSE
8426: l_pji_rollup_required := 'N';
8427: END IF;
8428:
8429: pa_task_assignment_utils.g_require_progress_rollup := 'N';
8430:
8431:
8432: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
8433: l_debug_mode := NVL(l_debug_mode, 'Y');
8552: --Added x_rbs_diff_flag for bug 3974569. This flag indicates that the the source/target resource assignments
8553: --being copied might not map to the same rbs_element_id. If this is passed as Y it means that
8554: ----> validate_copy_assignment has called RBS mapping API and
8555: ----> While copying the resource assignments rbs_element_id should be taken from pa_rbs_plans_out_tmp
8556: pa_task_assignment_utils.validate_copy_assignment
8557: ( p_copy_external_flag => p_copy_external_flag --Included this parameter for bug 3841130
8558: ,p_src_project_id => p_src_project_id
8559: ,p_target_project_id => p_target_project_id
8560: ,p_src_elem_ver_id_tbl => p_src_version_id_tbl
9141: END IF;
9142:
9143: -- Added for bug 4492493, Updated for bug 5198662
9144: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
9145: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(p_target_project_id) = 'Y') OR
9146: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
9147: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
9148:
9149: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
9143: -- Added for bug 4492493, Updated for bug 5198662
9144: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
9145: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(p_target_project_id) = 'Y') OR
9146: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
9147: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
9148:
9149: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
9150: ( p_calling_context => 'ASGMT_PLAN_CHANGE'
9151: ,p_project_id => p_target_project_id
9154: ,x_return_status => x_return_status
9155: ,x_msg_data => x_msg_data
9156: ,x_msg_count => x_msg_count );
9157:
9158: pa_task_assignment_utils.g_require_progress_rollup := 'N';
9159:
9160: END IF;
9161:
9162: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9423: delete pa_resource_asgn_curr_tmp;
9424: x_msg_count := 0;
9425: x_return_status := FND_API.G_RET_STS_SUCCESS;
9426:
9427: pa_task_assignment_utils.g_require_progress_rollup := 'N';
9428:
9429: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9430: l_debug_mode := NVL(l_debug_mode, 'N');
9431:
9600: pa_debug.g_err_stage:='The calling context is task assignment. Calling the validation API';
9601: print_msg(pa_debug.g_err_stage,l_module_name);
9602: END IF;
9603:
9604: PA_TASK_ASSIGNMENT_UTILS.VALIDATE_DELETE_ASSIGNMENT
9605: ( p_context => p_context
9606: ,p_calling_context => p_calling_context -- Added for Bug 6856934
9607: ,p_task_or_res => p_task_or_res
9608: ,p_elem_ver_id_tbl => p_element_version_id_tbl
10762: -- and it was a left out and this stranded select is causing this bug.
10763:
10764: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
10765: AND NVL(p_calling_context, 'X' ) <> 'PA_DELETE_TASKS' -- Bug 9535723
10766: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(l_project_id) = 'Y') OR -- 5198662
10767: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
10768: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y')) AND
10769: l_budget_version_id IS NOT NULL THEN -- Bug 5381920
10770:
10764: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
10765: AND NVL(p_calling_context, 'X' ) <> 'PA_DELETE_TASKS' -- Bug 9535723
10766: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(l_project_id) = 'Y') OR -- 5198662
10767: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
10768: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y')) AND
10769: l_budget_version_id IS NOT NULL THEN -- Bug 5381920
10770:
10771: IF l_debug_mode = 'Y' THEN
10772: pa_debug.g_err_stage:='Calling PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp API';
10781: ,x_return_status => x_return_status
10782: ,x_msg_data => x_msg_data
10783: ,x_msg_count => x_msg_count );
10784:
10785: pa_task_assignment_utils.g_require_progress_rollup := 'N';
10786:
10787: END IF;
10788: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10789: IF l_debug_mode = 'Y' THEN