[Home] [Help]
670: -- Standard begin of API savepoint
671:
672: SAVEPOINT create_project_pub;
673:
674: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
675: -- Standard call to check for call compatibility.
676:
677:
678: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4866:
4867: -- Made the following changes for post FP K one off. Bug 2931183
4868: -- Performance changes.
4869: IF l_debug_mode = 'Y' THEN
4870: pa_debug.g_err_stage := 'Calling PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
4871: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
4872: END IF;
4873:
4874: --Set the global variable G_OP_VALIDATE_FLAG.
4867: -- Made the following changes for post FP K one off. Bug 2931183
4868: -- Performance changes.
4869: IF l_debug_mode = 'Y' THEN
4870: pa_debug.g_err_stage := 'Calling PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
4871: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
4872: END IF;
4873:
4874: --Set the global variable G_OP_VALIDATE_FLAG.
4875: --BUG 4218977
4895: );
4896:
4897: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4898: IF l_debug_mode = 'Y' THEN
4899: pa_debug.g_err_stage := 'Errors in PROCESS_TASK_STRUCTURE_BULK ' ;
4900: pa_debug.write(g_module_name,pa_debug.g_err_stage,4);
4901: END IF;
4902: p_multiple_task_msg := 'F';
4903: END IF;
4896:
4897: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4898: IF l_debug_mode = 'Y' THEN
4899: pa_debug.g_err_stage := 'Errors in PROCESS_TASK_STRUCTURE_BULK ' ;
4900: pa_debug.write(g_module_name,pa_debug.g_err_stage,4);
4901: END IF;
4902: p_multiple_task_msg := 'F';
4903: END IF;
4904:
4902: p_multiple_task_msg := 'F';
4903: END IF;
4904:
4905: IF l_debug_mode = 'Y' THEN
4906: pa_debug.g_err_stage := 'Returned from PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
4907: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
4908: END IF;
4909:
4910: /* Post FP K one off. Bug 2931183
4903: END IF;
4904:
4905: IF l_debug_mode = 'Y' THEN
4906: pa_debug.g_err_stage := 'Returned from PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
4907: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
4908: END IF;
4909:
4910: /* Post FP K one off. Bug 2931183
4911: Commenting this code as this is done in PA_PROJ_TASK_STRUC_PUB.process_task_structure_bulk.
5202:
5203: G_DLVR_STRUCTURE_ENABLED := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_in_rec.created_from_project_id);
5204:
5205: IF l_debug_mode = 'Y' THEN
5206: pa_debug.g_err_stage := 'Deliverable Enabled ['||G_DLVR_STRUCTURE_ENABLED||']';
5207: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
5208: END IF;
5209:
5210: i := p_deliverables_in.first();
5203: G_DLVR_STRUCTURE_ENABLED := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_in_rec.created_from_project_id);
5204:
5205: IF l_debug_mode = 'Y' THEN
5206: pa_debug.g_err_stage := 'Deliverable Enabled ['||G_DLVR_STRUCTURE_ENABLED||']';
5207: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
5208: END IF;
5209:
5210: i := p_deliverables_in.first();
5211:
9023: G_tasks_in_tbl(G_tasks_tbl_count).customer_id := p_customer_id;
9024: G_tasks_in_tbl(G_tasks_tbl_count).gen_etc_source_code := p_gen_etc_source_code;
9025: -- set the new params - bug #3654243 -------------------------------------------------
9026:
9027: pa_debug.write('load_tasks','p_etc_effort'||p_etc_effort,3);
9028: pa_debug.write('load_tasks','p_percent_complete'||p_percent_complete,3);
9029:
9030: -- Progress Management Changes. Bug # 3420093.
9031: G_tasks_in_tbl(G_tasks_tbl_count).etc_effort := p_etc_effort;
9024: G_tasks_in_tbl(G_tasks_tbl_count).gen_etc_source_code := p_gen_etc_source_code;
9025: -- set the new params - bug #3654243 -------------------------------------------------
9026:
9027: pa_debug.write('load_tasks','p_etc_effort'||p_etc_effort,3);
9028: pa_debug.write('load_tasks','p_percent_complete'||p_percent_complete,3);
9029:
9030: -- Progress Management Changes. Bug # 3420093.
9031: G_tasks_in_tbl(G_tasks_tbl_count).etc_effort := p_etc_effort;
9032: G_tasks_in_tbl(G_tasks_tbl_count).percent_complete := p_percent_complete;
10626: END IF;
10627:
10628: p_return_status := FND_API.G_RET_STS_SUCCESS;
10629:
10630: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
10631:
10632: --
10633: -- If structure_version_id has been provided
10634: -- check to see if this version is updatable
10645:
10646:
10647: --bug 4619824
10648: IF l_debug_mode = 'Y' THEN
10649: pa_debug.g_err_stage := 'Checking if the project is a program project';
10650: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10651: END IF;
10652:
10653: IF p_pm_product_code IS NOT NULL
10646:
10647: --bug 4619824
10648: IF l_debug_mode = 'Y' THEN
10649: pa_debug.g_err_stage := 'Checking if the project is a program project';
10650: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10651: END IF;
10652:
10653: IF p_pm_product_code IS NOT NULL
10654: AND p_pm_product_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
10663: END IF;
10664: --end bug 4619824
10665:
10666: IF l_debug_mode = 'Y' THEN
10667: pa_debug.g_err_stage := 'Calling PA_PROJECT_STRUCTURE_UTILS.is_structure_version_updatable' || p_structure_in.structure_version_id;
10668: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10669: END IF;
10670:
10671: IF ( l_structure_version_id IS NOT NULL AND l_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )
10664: --end bug 4619824
10665:
10666: IF l_debug_mode = 'Y' THEN
10667: pa_debug.g_err_stage := 'Calling PA_PROJECT_STRUCTURE_UTILS.is_structure_version_updatable' || p_structure_in.structure_version_id;
10668: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10669: END IF;
10670:
10671: IF ( l_structure_version_id IS NOT NULL AND l_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )
10672: THEN
10692:
10693: if (p_update_mode = 'PA_UPD_WBS_ATTR') and (p_pm_product_code <> 'WORKPLAN') then -- Bug # 4758888.
10694:
10695: IF l_debug_mode = 'Y' THEN
10696: pa_debug.g_err_stage := 'Before calling pa_project_structure_utils.lock_unlock_wp_str_autonomous for LOCKING'||
10697: 'p_project_in.pa_project_id='||p_project_in.pa_project_id||
10698: '-l_structure_version_id='||l_structure_version_id;
10699: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10700: END IF;
10695: IF l_debug_mode = 'Y' THEN
10696: pa_debug.g_err_stage := 'Before calling pa_project_structure_utils.lock_unlock_wp_str_autonomous for LOCKING'||
10697: 'p_project_in.pa_project_id='||p_project_in.pa_project_id||
10698: '-l_structure_version_id='||l_structure_version_id;
10699: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10700: END IF;
10701:
10702: pa_project_structure_utils.lock_unlock_wp_str_autonomous
10703: (p_project_id => p_project_in.pa_project_id
10708: ,x_msg_count => l_x_msg_count
10709: ,x_msg_data => l_x_msg_data);
10710:
10711: IF l_debug_mode = 'Y' THEN
10712: pa_debug.g_err_stage := 'After calling pa_project_structure_utils.lock_unlock_wp_str_autonomous for LOCKING'||
10713: 'l_x_return_status='||l_x_return_status;
10714: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10715: END IF;
10716:
10710:
10711: IF l_debug_mode = 'Y' THEN
10712: pa_debug.g_err_stage := 'After calling pa_project_structure_utils.lock_unlock_wp_str_autonomous for LOCKING'||
10713: 'l_x_return_status='||l_x_return_status;
10714: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10715: END IF;
10716:
10717: IF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10718: THEN
10734:
10735: struct_ver_updatable := PA_PROJECT_STRUCTURE_UTILS.is_structure_version_updatable(l_structure_version_id);
10736:
10737: IF l_debug_mode = 'Y' THEN
10738: pa_debug.g_err_stage := 'struct_ver_updatable='||struct_ver_updatable;
10739: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10740: END IF;
10741:
10742: IF (struct_ver_updatable IS NULL OR struct_ver_updatable = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
10735: struct_ver_updatable := PA_PROJECT_STRUCTURE_UTILS.is_structure_version_updatable(l_structure_version_id);
10736:
10737: IF l_debug_mode = 'Y' THEN
10738: pa_debug.g_err_stage := 'struct_ver_updatable='||struct_ver_updatable;
10739: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10740: END IF;
10741:
10742: IF (struct_ver_updatable IS NULL OR struct_ver_updatable = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
10743: OR struct_ver_updatable = 'N')
10895: --bug 2471668
10896: -- convert pm_project_reference to id
10897:
10898: IF l_debug_mode = 'Y' THEN
10899: pa_debug.g_err_stage := 'Performing ref to id conversion...';
10900: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10901: END IF;
10902:
10903:
10896: -- convert pm_project_reference to id
10897:
10898: IF l_debug_mode = 'Y' THEN
10899: pa_debug.g_err_stage := 'Performing ref to id conversion...';
10900: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10901: END IF;
10902:
10903:
10904: Pa_project_pvt.Convert_pm_projref_to_id (
10921: --bug 2471668
10922:
10923:
10924: IF l_debug_mode = 'Y' THEN
10925: pa_debug.g_err_stage := 'Performing security check...';
10926: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10927: END IF;
10928:
10929: -- As part of enforcing project security, which would determine
10922:
10923:
10924: IF l_debug_mode = 'Y' THEN
10925: pa_debug.g_err_stage := 'Performing security check...';
10926: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10927: END IF;
10928:
10929: -- As part of enforcing project security, which would determine
10930: -- whether the user has the necessary privileges to update the project
11073: --bug 2738747
11074: G_WP_STR_EXISTS := PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( l_project_id );
11075:
11076: IF l_debug_mode = 'Y' THEN
11077: pa_debug.g_err_stage := 'G_Published_version_exists='||G_Published_version_exists;
11078: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11079: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11081: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11074: G_WP_STR_EXISTS := PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( l_project_id );
11075:
11076: IF l_debug_mode = 'Y' THEN
11077: pa_debug.g_err_stage := 'G_Published_version_exists='||G_Published_version_exists;
11078: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11079: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11081: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11082: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11075:
11076: IF l_debug_mode = 'Y' THEN
11077: pa_debug.g_err_stage := 'G_Published_version_exists='||G_Published_version_exists;
11078: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11079: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11081: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11082: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11083: pa_debug.g_err_stage := 'G_WP_STR_EXISTS='||G_WP_STR_EXISTS;
11076: IF l_debug_mode = 'Y' THEN
11077: pa_debug.g_err_stage := 'G_Published_version_exists='||G_Published_version_exists;
11078: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11079: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11081: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11082: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11083: pa_debug.g_err_stage := 'G_WP_STR_EXISTS='||G_WP_STR_EXISTS;
11084: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11077: pa_debug.g_err_stage := 'G_Published_version_exists='||G_Published_version_exists;
11078: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11079: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11081: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11082: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11083: pa_debug.g_err_stage := 'G_WP_STR_EXISTS='||G_WP_STR_EXISTS;
11084: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11085: END IF;
11078: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11079: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11081: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11082: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11083: pa_debug.g_err_stage := 'G_WP_STR_EXISTS='||G_WP_STR_EXISTS;
11084: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11085: END IF;
11086:
11079: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11081: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11082: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11083: pa_debug.g_err_stage := 'G_WP_STR_EXISTS='||G_WP_STR_EXISTS;
11084: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11085: END IF;
11086:
11087:
11080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11081: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11082: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11083: pa_debug.g_err_stage := 'G_WP_STR_EXISTS='||G_WP_STR_EXISTS;
11084: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11085: END IF;
11086:
11087:
11088: --bug 2876703 --update_project
11188: END IF;
11189: --bug 2738747
11190:
11191: IF l_debug_mode = 'Y' THEN
11192: pa_debug.g_err_stage := 'l_structure_type='||l_structure_type;
11193: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11194: END IF;
11195:
11196:
11189: --bug 2738747
11190:
11191: IF l_debug_mode = 'Y' THEN
11192: pa_debug.g_err_stage := 'l_structure_type='||l_structure_type;
11193: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11194: END IF;
11195:
11196:
11197: -- Need to fetch information from pa_project_types
11203: l_service_type_code, l_revaluate_funding,l_include_gains_and_losses;
11204: CLOSE l_project_type_csr;
11205:
11206: IF l_debug_mode = 'Y' THEN
11207: pa_debug.g_err_stage := 'Preparing to update project level data...';
11208: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11209: END IF;
11210:
11211:
11204: CLOSE l_project_type_csr;
11205:
11206: IF l_debug_mode = 'Y' THEN
11207: pa_debug.g_err_stage := 'Preparing to update project level data...';
11208: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11209: END IF;
11210:
11211:
11212:
15177: END IF;
15178: END IF;
15179:
15180: IF l_debug_mode = 'Y' THEN
15181: pa_debug.write(l_module_name,'l_b_sys_program_flag_fg=' || l_b_sys_program_flag_fg,3);
15182: pa_debug.write(l_module_name,'l_b_allow_multi_prog_rollup_fg='||l_b_allow_multi_prog_rollup_fg,3);
15183: END IF;
15184:
15185: IF l_b_sys_program_flag_fg = 'Y' OR
15178: END IF;
15179:
15180: IF l_debug_mode = 'Y' THEN
15181: pa_debug.write(l_module_name,'l_b_sys_program_flag_fg=' || l_b_sys_program_flag_fg,3);
15182: pa_debug.write(l_module_name,'l_b_allow_multi_prog_rollup_fg='||l_b_allow_multi_prog_rollup_fg,3);
15183: END IF;
15184:
15185: IF l_b_sys_program_flag_fg = 'Y' OR
15186: l_b_allow_multi_prog_rollup_fg = 'Y'
15186: l_b_allow_multi_prog_rollup_fg = 'Y'
15187: THEN
15188:
15189: IF l_debug_mode = 'Y' THEN
15190: pa_debug.write(l_module_name,'Before Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15191: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15192: pa_debug.write(l_module_name,'p_project_in.sys_program_flag='||p_project_in.sys_program_flag,3);
15193: pa_debug.write(l_module_name,'p_project_in.allow_multi_program_rollup='||p_project_in.allow_multi_program_rollup,3);
15194: END IF;
15187: THEN
15188:
15189: IF l_debug_mode = 'Y' THEN
15190: pa_debug.write(l_module_name,'Before Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15191: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15192: pa_debug.write(l_module_name,'p_project_in.sys_program_flag='||p_project_in.sys_program_flag,3);
15193: pa_debug.write(l_module_name,'p_project_in.allow_multi_program_rollup='||p_project_in.allow_multi_program_rollup,3);
15194: END IF;
15195:
15188:
15189: IF l_debug_mode = 'Y' THEN
15190: pa_debug.write(l_module_name,'Before Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15191: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15192: pa_debug.write(l_module_name,'p_project_in.sys_program_flag='||p_project_in.sys_program_flag,3);
15193: pa_debug.write(l_module_name,'p_project_in.allow_multi_program_rollup='||p_project_in.allow_multi_program_rollup,3);
15194: END IF;
15195:
15196: PA_PROJECT_PUB.SETUP_PROJECT_AS_PROGRAM(
15189: IF l_debug_mode = 'Y' THEN
15190: pa_debug.write(l_module_name,'Before Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15191: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15192: pa_debug.write(l_module_name,'p_project_in.sys_program_flag='||p_project_in.sys_program_flag,3);
15193: pa_debug.write(l_module_name,'p_project_in.allow_multi_program_rollup='||p_project_in.allow_multi_program_rollup,3);
15194: END IF;
15195:
15196: PA_PROJECT_PUB.SETUP_PROJECT_AS_PROGRAM(
15197: p_api_version => p_api_version_number
15206: , x_return_status => l_return_status
15207: );
15208:
15209: IF l_debug_mode = 'Y' THEN
15210: pa_debug.write(l_module_name,'After Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15211: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15212: pa_debug.write(l_module_name,'l_return_status='||l_return_status,3);
15213: END IF;
15214:
15207: );
15208:
15209: IF l_debug_mode = 'Y' THEN
15210: pa_debug.write(l_module_name,'After Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15211: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15212: pa_debug.write(l_module_name,'l_return_status='||l_return_status,3);
15213: END IF;
15214:
15215: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15208:
15209: IF l_debug_mode = 'Y' THEN
15210: pa_debug.write(l_module_name,'After Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15211: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15212: pa_debug.write(l_module_name,'l_return_status='||l_return_status,3);
15213: END IF;
15214:
15215: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15216: THEN
16046: dbms_sql.close_cursor (l_cursor);
16047: END IF;
16048:
16049: IF l_debug_mode = 'Y' THEN
16050: pa_debug.g_err_stage := 'Done with updating project level data...';
16051: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16052: END IF;
16053:
16054: -- anlee
16047: END IF;
16048:
16049: IF l_debug_mode = 'Y' THEN
16050: pa_debug.g_err_stage := 'Done with updating project level data...';
16051: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16052: END IF;
16053:
16054: -- anlee
16055: -- Added for intermedia search
16063: ,p_project_description => l_ctx_desc
16064: ,x_return_status => l_return_status );
16065:
16066: IF l_debug_mode = 'Y' THEN
16067: pa_debug.g_err_stage := 'After calling PA_PROJECT_CTX_SEARCH_PVT.UPDATE_ROW l_return_status='||l_return_status;
16068: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16069: END IF;
16070:
16071:
16064: ,x_return_status => l_return_status );
16065:
16066: IF l_debug_mode = 'Y' THEN
16067: pa_debug.g_err_stage := 'After calling PA_PROJECT_CTX_SEARCH_PVT.UPDATE_ROW l_return_status='||l_return_status;
16068: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16069: END IF;
16070:
16071:
16072: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16114: ,x_msg_count => l_msg_count
16115: ,x_msg_data => l_msg_data);
16116:
16117: IF l_debug_mode = 'Y' THEN
16118: pa_debug.g_err_stage := 'After calling PA_OPPORTUNITY_MGT_PVT.MODIFY_PROJECT_ATTRIBUTES l_return_status='||l_return_status;
16119: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16120: END IF;
16121:
16122:
16115: ,x_msg_data => l_msg_data);
16116:
16117: IF l_debug_mode = 'Y' THEN
16118: pa_debug.g_err_stage := 'After calling PA_OPPORTUNITY_MGT_PVT.MODIFY_PROJECT_ATTRIBUTES l_return_status='||l_return_status;
16119: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16120: END IF;
16121:
16122:
16123: if l_return_status <> 'S' then
16356: ,x_return_status => l_return_status
16357: );
16358:
16359: IF l_debug_mode = 'Y' THEN
16360: pa_debug.g_err_stage := 'After calling PA_PROJ_TASK_STRUC_PUB.create_structure l_return_status='||l_return_status;
16361: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16362: END IF;
16363:
16364:
16357: );
16358:
16359: IF l_debug_mode = 'Y' THEN
16360: pa_debug.g_err_stage := 'After calling PA_PROJ_TASK_STRUC_PUB.create_structure l_return_status='||l_return_status;
16361: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16362: END IF;
16363:
16364:
16365: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16403: ,x_return_status => l_return_status
16404: );
16405:
16406: IF l_debug_mode = 'Y' THEN
16407: pa_debug.g_err_stage := 'After calling PA_PROJ_TASK_STRUC_PUB.create_update_struct_ver l_return_status='||l_return_status;
16408: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16409: END IF;
16410:
16411:
16404: );
16405:
16406: IF l_debug_mode = 'Y' THEN
16407: pa_debug.g_err_stage := 'After calling PA_PROJ_TASK_STRUC_PUB.create_update_struct_ver l_return_status='||l_return_status;
16408: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16409: END IF;
16410:
16411:
16412: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16445: ,x_msg_data => l_msg_data
16446: ,x_return_status => l_return_status );
16447:
16448: IF l_debug_mode = 'Y' THEN
16449: pa_debug.g_err_stage := 'After calling PA_PROJ_TASK_STRUC_PUB.create_tasks_versions_only l_return_status='||l_return_status;
16450: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16451: END IF;
16452:
16453:
16446: ,x_return_status => l_return_status );
16447:
16448: IF l_debug_mode = 'Y' THEN
16449: pa_debug.g_err_stage := 'After calling PA_PROJ_TASK_STRUC_PUB.create_tasks_versions_only l_return_status='||l_return_status;
16450: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16451: END IF;
16452:
16453:
16454: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16464:
16465:
16466: -- For bug2931183 Adding to keep a track of structure version id to be updated
16467: IF l_debug_mode = 'Y' THEN
16468: pa_debug.g_err_stage := ' the value of l_structure_type' || l_structure_type;
16469: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16470: END IF;
16471:
16472: IF l_structure_version_id IS NULL
16465:
16466: -- For bug2931183 Adding to keep a track of structure version id to be updated
16467: IF l_debug_mode = 'Y' THEN
16468: pa_debug.g_err_stage := ' the value of l_structure_type' || l_structure_type;
16469: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16470: END IF;
16471:
16472: IF l_structure_version_id IS NULL
16473: THEN
16494: l_update_structure_version_id := l_structure_version_id;
16495: END IF;
16496:
16497: IF l_debug_mode = 'Y' THEN
16498: pa_debug.g_err_stage := ' the value of l_update_structure_version_id' || l_update_structure_version_id;
16499: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16500: END IF;
16501:
16502:
16495: END IF;
16496:
16497: IF l_debug_mode = 'Y' THEN
16498: pa_debug.g_err_stage := ' the value of l_update_structure_version_id' || l_update_structure_version_id;
16499: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16500: END IF;
16501:
16502:
16503: --Project Structures
16888: -- --dbms_output.put_line('task etc Effort :'||p_tasks_in(i).etc_effort);
16889: -- --dbms_output.put_line('% complete'||p_tasks_in(i).percent_complete);
16890: --Project Structures
16891: IF l_debug_mode = 'Y' THEN
16892: pa_debug.write(l_module_name,'Calling update Task',3);
16893: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(i).etc_effort,3);
16894: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(i).percent_complete,3);
16895: END IF;
16896: ----dbms_output.put_line('value of p_tasks_in(i).pa_task_number before calling update_task'||p_tasks_in(i).pa_task_number);
16889: -- --dbms_output.put_line('% complete'||p_tasks_in(i).percent_complete);
16890: --Project Structures
16891: IF l_debug_mode = 'Y' THEN
16892: pa_debug.write(l_module_name,'Calling update Task',3);
16893: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(i).etc_effort,3);
16894: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(i).percent_complete,3);
16895: END IF;
16896: ----dbms_output.put_line('value of p_tasks_in(i).pa_task_number before calling update_task'||p_tasks_in(i).pa_task_number);
16897:
16890: --Project Structures
16891: IF l_debug_mode = 'Y' THEN
16892: pa_debug.write(l_module_name,'Calling update Task',3);
16893: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(i).etc_effort,3);
16894: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(i).percent_complete,3);
16895: END IF;
16896: ----dbms_output.put_line('value of p_tasks_in(i).pa_task_number before calling update_task'||p_tasks_in(i).pa_task_number);
16897:
16898: Update_Task (
17060: ,p_calling_api => 'UPDATE_PROJECT' --Bug # 4199694
17061: );
17062:
17063: IF l_debug_mode = 'Y' THEN
17064: pa_debug.g_err_stage := 'After update_task first call...l_return_status=||l_return_status';
17065: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17066: END IF;
17067:
17068:
17061: );
17062:
17063: IF l_debug_mode = 'Y' THEN
17064: pa_debug.g_err_stage := 'After update_task first call...l_return_status=||l_return_status';
17065: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17066: END IF;
17067:
17068:
17069: ----dbms_output.put_line('Value of return status of update_task' ||l_return_status);
17123: end loop;
17124: --Project Structures
17125:
17126: IF l_debug_mode = 'Y' THEN
17127: pa_debug.write(l_module_name,'Calling update Task',3);
17128: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).etc_effort,3);
17129: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).percent_complete,3);
17130: END IF;
17131: Update_Task (
17124: --Project Structures
17125:
17126: IF l_debug_mode = 'Y' THEN
17127: pa_debug.write(l_module_name,'Calling update Task',3);
17128: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).etc_effort,3);
17129: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).percent_complete,3);
17130: END IF;
17131: Update_Task (
17132: p_api_version_number => p_api_version_number,
17125:
17126: IF l_debug_mode = 'Y' THEN
17127: pa_debug.write(l_module_name,'Calling update Task',3);
17128: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).etc_effort,3);
17129: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).percent_complete,3);
17130: END IF;
17131: Update_Task (
17132: p_api_version_number => p_api_version_number,
17133: p_commit => FND_API.G_FALSE,
17339: ,p_calling_api => 'UPDATE_PROJECT' --Bug # 4199694
17340: ); -- modified p_update_task_structure value for bug 3548473 : Bug 3627124
17341:
17342: IF l_debug_mode = 'Y' THEN
17343: pa_debug.g_err_stage := 'After update_task second call...l_return_status=||l_return_status';
17344: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17345: END IF;
17346:
17347:
17340: ); -- modified p_update_task_structure value for bug 3548473 : Bug 3627124
17341:
17342: IF l_debug_mode = 'Y' THEN
17343: pa_debug.g_err_stage := 'After update_task second call...l_return_status=||l_return_status';
17344: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17345: END IF;
17346:
17347:
17348: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17467: p_service_type_code => l_service_type_code,
17468: p_task_id => l_task_id);
17469:
17470: IF l_debug_mode = 'Y' THEN
17471: pa_debug.g_err_stage := 'After PA_PROJECT_PVT.add_task_round_one...l_return_status=||l_return_status';
17472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17473: END IF;
17474:
17475:
17468: p_task_id => l_task_id);
17469:
17470: IF l_debug_mode = 'Y' THEN
17471: pa_debug.g_err_stage := 'After PA_PROJECT_PVT.add_task_round_one...l_return_status=||l_return_status';
17472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17473: END IF;
17474:
17475:
17476: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17571: --project structure
17572: ); -- modified p_update_task_structure value for bug 3548473 : 3627124
17573:
17574: IF l_debug_mode = 'Y' THEN
17575: pa_debug.g_err_stage := 'After calling PA_PROJECT_PVT.add_task_round_two l_return_status='||l_return_status;
17576: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17577: END IF;
17578:
17579:
17572: ); -- modified p_update_task_structure value for bug 3548473 : 3627124
17573:
17574: IF l_debug_mode = 'Y' THEN
17575: pa_debug.g_err_stage := 'After calling PA_PROJECT_PVT.add_task_round_two l_return_status='||l_return_status;
17576: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17577: END IF;
17578:
17579:
17580: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18071: --Added for bug 2931183
18072: IF nvl(p_pm_product_code,'WORKPLAN') <> 'WORKPLAN' AND p_pass_entire_structure = 'Y' -- bug 3548473 : 3627124
18073: THEN
18074: IF l_debug_mode = 'Y' THEN
18075: pa_debug.g_err_stage := 'Calling PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
18076: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18077: END IF;
18078:
18079: PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK(
18072: IF nvl(p_pm_product_code,'WORKPLAN') <> 'WORKPLAN' AND p_pass_entire_structure = 'Y' -- bug 3548473 : 3627124
18073: THEN
18074: IF l_debug_mode = 'Y' THEN
18075: pa_debug.g_err_stage := 'Calling PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
18076: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18077: END IF;
18078:
18079: PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK(
18080: p_api_version_number => p_api_version_number
18096: ,x_msg_data => p_msg_data
18097: );
18098:
18099: IF l_debug_mode = 'Y' THEN
18100: pa_debug.g_err_stage := 'After PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK...p_return_status=||p_return_status';
18101: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18102: END IF;
18103:
18104:
18097: );
18098:
18099: IF l_debug_mode = 'Y' THEN
18100: pa_debug.g_err_stage := 'After PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK...p_return_status=||p_return_status';
18101: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18102: END IF;
18103:
18104:
18105: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18103:
18104:
18105: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18106: IF l_debug_mode = 'Y' THEN
18107: pa_debug.g_err_stage := 'Errors in PROCESS_TASK_STRUCTURE_BULK ' ;
18108: pa_debug.write(l_module_name,pa_debug.g_err_stage,4);
18109: END IF;
18110: p_multiple_task_msg := 'F';
18111: RAISE FND_API.G_EXC_ERROR;
18104:
18105: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18106: IF l_debug_mode = 'Y' THEN
18107: pa_debug.g_err_stage := 'Errors in PROCESS_TASK_STRUCTURE_BULK ' ;
18108: pa_debug.write(l_module_name,pa_debug.g_err_stage,4);
18109: END IF;
18110: p_multiple_task_msg := 'F';
18111: RAISE FND_API.G_EXC_ERROR;
18112: END IF;
18111: RAISE FND_API.G_EXC_ERROR;
18112: END IF;
18113:
18114: IF l_debug_mode = 'Y' THEN
18115: pa_debug.g_err_stage := 'Returned from PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
18116: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18117: END IF;
18118: END IF; --for p_pm_product_code is not workplan
18119:
18112: END IF;
18113:
18114: IF l_debug_mode = 'Y' THEN
18115: pa_debug.g_err_stage := 'Returned from PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
18116: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18117: END IF;
18118: END IF; --for p_pm_product_code is not workplan
18119:
18120: -- Bug 6163090 Moved the code here from above
21783: AND p_structure_in.structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
21784: THEN
21785:
21786: IF l_debug_mode = 'Y' THEN
21787: pa_debug.g_err_stage := 'Before calling pa_project_structure_utils.lock_unlock_wp_str for UNLOCKING'||
21788: 'p_project_in.pa_project_id='||p_project_in.pa_project_id||
21789: '-l_structure_version_id='||l_structure_version_id;
21790: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
21791: END IF;
21786: IF l_debug_mode = 'Y' THEN
21787: pa_debug.g_err_stage := 'Before calling pa_project_structure_utils.lock_unlock_wp_str for UNLOCKING'||
21788: 'p_project_in.pa_project_id='||p_project_in.pa_project_id||
21789: '-l_structure_version_id='||l_structure_version_id;
21790: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
21791: END IF;
21792:
21793: pa_project_structure_utils.lock_unlock_wp_str
21794: (p_project_id => p_project_in.pa_project_id
21799: ,x_msg_count => l_x_msg_count
21800: ,x_msg_data => l_x_msg_data);
21801:
21802: IF l_debug_mode = 'Y' THEN
21803: pa_debug.g_err_stage := 'After calling pa_project_structure_utils.lock_unlock_wp_str for UNLOCKING'||
21804: 'l_x_return_status='||l_x_return_status;
21805: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
21806: END IF;
21807:
21801:
21802: IF l_debug_mode = 'Y' THEN
21803: pa_debug.g_err_stage := 'After calling pa_project_structure_utils.lock_unlock_wp_str for UNLOCKING'||
21804: 'l_x_return_status='||l_x_return_status;
21805: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
21806: END IF;
21807:
21808: IF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21809: THEN
28445: -- Standard begin of API savepoint.
28446:
28447: savepoint APPLY_LP_PROG_ON_CWV;
28448:
28449: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
28450:
28451: -- Standard call to check for call compatibility.
28452:
28453: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
28707: -- assign a value to the global counter for this table
28708: G_deliverables_in_tbl_count := G_deliverables_in_tbl_count + 1;
28709:
28710: IF p_debug_mode = 'Y' THEN
28711: pa_debug.g_err_stage := 'Loading deliverable ['|| p_deliverable_short_name||'] element [ '||G_deliverables_in_tbl_count ||']';
28712: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
28713: END IF;
28714:
28715: -- assign incoming parameters to the global table fields
28708: G_deliverables_in_tbl_count := G_deliverables_in_tbl_count + 1;
28709:
28710: IF p_debug_mode = 'Y' THEN
28711: pa_debug.g_err_stage := 'Loading deliverable ['|| p_deliverable_short_name||'] element [ '||G_deliverables_in_tbl_count ||']';
28712: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
28713: END IF;
28714:
28715: -- assign incoming parameters to the global table fields
28716: G_deliverables_in_tbl(G_deliverables_in_tbl_count).deliverable_name := p_deliverable_name ;
29050: -- assign a value to the global counter for this table
29051: G_dlvr_actions_in_tbl_count := G_dlvr_actions_in_tbl_count + 1;
29052:
29053: IF p_debug_mode = 'Y' THEN
29054: pa_debug.g_err_stage := 'Loading action ['|| p_action_name||'] element [ '||G_dlvr_actions_in_tbl_count ||']';
29055: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29056: END IF;
29057:
29058: -- assign incoming parameters to the global table fields
29051: G_dlvr_actions_in_tbl_count := G_dlvr_actions_in_tbl_count + 1;
29052:
29053: IF p_debug_mode = 'Y' THEN
29054: pa_debug.g_err_stage := 'Loading action ['|| p_action_name||'] element [ '||G_dlvr_actions_in_tbl_count ||']';
29055: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29056: END IF;
29057:
29058: -- assign incoming parameters to the global table fields
29059: G_deliverable_actions_in_tbl(G_dlvr_actions_in_tbl_count).action_name := p_action_name ;
29543: RAISE FND_API.G_EXC_ERROR;
29544: END IF;
29545:
29546: IF p_debug_mode = 'Y' THEN
29547: PA_DEBUG.set_curr_function( p_function => l_api_name,
29548: p_debug_mode => p_debug_mode );
29549: pa_debug.g_err_stage:= 'Inside '||l_api_name;
29550: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
29551: END IF;
29545:
29546: IF p_debug_mode = 'Y' THEN
29547: PA_DEBUG.set_curr_function( p_function => l_api_name,
29548: p_debug_mode => p_debug_mode );
29549: pa_debug.g_err_stage:= 'Inside '||l_api_name;
29550: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
29551: END IF;
29552:
29553: -- Set API return status to success
29546: IF p_debug_mode = 'Y' THEN
29547: PA_DEBUG.set_curr_function( p_function => l_api_name,
29548: p_debug_mode => p_debug_mode );
29549: pa_debug.g_err_stage:= 'Inside '||l_api_name;
29550: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
29551: END IF;
29552:
29553: -- Set API return status to success
29554: x_return_status := FND_API.G_RET_STS_SUCCESS;
29579: p_return_status => x_return_status,
29580: p_function_allowed => l_function_allowed);
29581:
29582: IF p_debug_mode = 'Y' THEN
29583: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
29584: END IF;
29585:
29586: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
29587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29605: , p_return_status => x_return_status
29606: );
29607:
29608: IF p_debug_mode = 'Y' THEN
29609: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
29610: END IF;
29611:
29612: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
29613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29624: , p_out_task_id => l_task_id
29625: , p_return_status => x_return_status );
29626:
29627: IF p_debug_mode = 'Y' THEN
29628: pa_debug.write(g_pkg_name,'Task Ref to ID Return Status ['||x_return_status||']Task ID['||l_task_id||']',3) ;
29629: END IF;
29630:
29631: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
29632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29667: , x_unique_flag => l_unique_flag
29668: , x_return_status => x_return_status );
29669:
29670: IF p_debug_mode = 'Y' THEN
29671: pa_debug.write(g_pkg_name,'Dlvr Reference Unique Return Status ['||x_return_status||']Unique['||l_unique_flag||']',3) ;
29672: END IF;
29673:
29674: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
29675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29691: FROM Pa_Projects_All
29692: WHERE project_id = l_project_id;
29693:
29694: IF p_debug_mode = 'Y' THEN
29695: pa_debug.g_err_stage := 'Creating deliverable ['|| p_deliverable_short_name||']['||p_pm_deliverable_reference||']['
29696: ||p_deliverable_owner_id||']['||p_deliverable_Type_id||']['||l_project_id||']['||l_task_id||']';
29697: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29698: END IF;
29699:
29693:
29694: IF p_debug_mode = 'Y' THEN
29695: pa_debug.g_err_stage := 'Creating deliverable ['|| p_deliverable_short_name||']['||p_pm_deliverable_reference||']['
29696: ||p_deliverable_owner_id||']['||p_deliverable_Type_id||']['||l_project_id||']['||l_task_id||']';
29697: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29698: END IF;
29699:
29700: -- Check if deliverable is enabled for project.
29701: -- If not then first enable it before creating the deliverable.
29704: -- check for target project, whether deliverable is enabled or not
29705: -- if deliverable is not enabled and deliverables are loaded, throw error message
29706:
29707: IF p_debug_mode = 'Y' THEN
29708: pa_debug.g_err_stage := 'Deliverable Enabled ['||G_DLVR_STRUCTURE_ENABLED||']';
29709: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29710: END IF;
29711:
29712: IF G_DLVR_STRUCTURE_ENABLED IS NULL THEN
29705: -- if deliverable is not enabled and deliverables are loaded, throw error message
29706:
29707: IF p_debug_mode = 'Y' THEN
29708: pa_debug.g_err_stage := 'Deliverable Enabled ['||G_DLVR_STRUCTURE_ENABLED||']';
29709: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29710: END IF;
29711:
29712: IF G_DLVR_STRUCTURE_ENABLED IS NULL THEN
29713: G_DLVR_STRUCTURE_ENABLED := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_id);
29712: IF G_DLVR_STRUCTURE_ENABLED IS NULL THEN
29713: G_DLVR_STRUCTURE_ENABLED := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_id);
29714:
29715: IF p_debug_mode = 'Y' THEN
29716: pa_debug.g_err_stage := 'Deliverable Enabled ['||G_DLVR_STRUCTURE_ENABLED||']';
29717: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29718: END IF;
29719: END IF;
29720:
29713: G_DLVR_STRUCTURE_ENABLED := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_id);
29714:
29715: IF p_debug_mode = 'Y' THEN
29716: pa_debug.g_err_stage := 'Deliverable Enabled ['||G_DLVR_STRUCTURE_ENABLED||']';
29717: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29718: END IF;
29719: END IF;
29720:
29721: IF G_DLVR_STRUCTURE_ENABLED = 'N' THEN
29732: /*
29733: l_dlvr_enabled := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_id);
29734:
29735: IF p_debug_mode = 'Y' THEN
29736: pa_debug.g_err_stage := 'Deliverable Enabled ['||l_dlvr_enabled||']';
29737: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29738: END IF;
29739:
29740: IF ( l_dlvr_enabled = 'N' ) THEN
29733: l_dlvr_enabled := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_id);
29734:
29735: IF p_debug_mode = 'Y' THEN
29736: pa_debug.g_err_stage := 'Deliverable Enabled ['||l_dlvr_enabled||']';
29737: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29738: END IF;
29739:
29740: IF ( l_dlvr_enabled = 'N' ) THEN
29741:
29751: , x_msg_data => x_msg_data
29752: );
29753:
29754: IF p_debug_mode = 'Y' THEN
29755: pa_debug.write(g_pkg_name,'Pa_Deliverable_Utils.enable_deliverable Return Status ['||x_return_status||']',3) ;
29756: END IF;
29757:
29758: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
29759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29850:
29851: l_deliverable_element_id := px_deliverable_id ;
29852:
29853: IF p_debug_mode = 'Y' THEN
29854: pa_debug.g_err_stage := 'Created deliverable ['|| l_deliverable_element_id||']['||x_return_status||']';
29855: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29856: END IF;
29857:
29858:
29851: l_deliverable_element_id := px_deliverable_id ;
29852:
29853: IF p_debug_mode = 'Y' THEN
29854: pa_debug.g_err_stage := 'Created deliverable ['|| l_deliverable_element_id||']['||x_return_status||']';
29855: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29856: END IF;
29857:
29858:
29859: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
29872: ,x_dlvr_default_status_code => l_status_code
29873: );
29874:
29875: IF p_debug_mode = 'Y' THEN
29876: pa_debug.g_err_stage := 'Dlvr Type allow action creation ['|| l_dlvr_action_enabled||']';
29877: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29878: END IF;
29879:
29880: -- invoke the api pa_actions_pub.create_dlvr_action_wrapper
29873: );
29874:
29875: IF p_debug_mode = 'Y' THEN
29876: pa_debug.g_err_stage := 'Dlvr Type allow action creation ['|| l_dlvr_action_enabled||']';
29877: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29878: END IF;
29879:
29880: -- invoke the api pa_actions_pub.create_dlvr_action_wrapper
29881: -- to create actions for the deliverable, insert records
29901: i := p_action_in_tbl.next(i);
29902: END LOOP;
29903:
29904: IF p_debug_mode = 'Y' THEN
29905: pa_debug.g_err_stage := 'About to Create ['|| i_actn ||'] out of ['||i ||'] Actn enabled ['||l_dlvr_action_enabled||']';
29906: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29907: END IF;
29908:
29909:
29902: END LOOP;
29903:
29904: IF p_debug_mode = 'Y' THEN
29905: pa_debug.g_err_stage := 'About to Create ['|| i_actn ||'] out of ['||i ||'] Actn enabled ['||l_dlvr_action_enabled||']';
29906: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29907: END IF;
29908:
29909:
29910: IF (i_actn > 0 ) THEN
29926: , x_msg_count => x_msg_count
29927: , x_msg_data => x_msg_data);
29928:
29929: IF p_debug_mode = 'Y' THEN
29930: pa_debug.g_err_stage := 'Returned after Create actions for ['|| i_actn ||'] action return['||x_return_status||']';
29931: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29932: END IF;
29933:
29934: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
29927: , x_msg_data => x_msg_data);
29928:
29929: IF p_debug_mode = 'Y' THEN
29930: pa_debug.g_err_stage := 'Returned after Create actions for ['|| i_actn ||'] action return['||x_return_status||']';
29931: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29932: END IF;
29933:
29934: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
29935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29966: COMMIT;
29967: END IF;
29968:
29969: IF p_debug_mode = 'Y' THEN
29970: pa_debug.reset_curr_function;
29971: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
29972: END IF;
29973:
29974: EXCEPTION
29967: END IF;
29968:
29969: IF p_debug_mode = 'Y' THEN
29970: pa_debug.reset_curr_function;
29971: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
29972: END IF;
29973:
29974: EXCEPTION
29975: WHEN FND_API.G_EXC_ERROR THEN
29978: ROLLBACK TO CREATE_DELIVERABLE_PUB;
29979: --END IF;
29980:
29981: IF p_debug_mode = 'Y' THEN
29982: pa_debug.reset_curr_function;
29983: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
29984: END IF;
29985: x_return_status := FND_API.G_RET_STS_ERROR;
29986: x_msg_count := FND_MSG_PUB.count_msg;
29979: --END IF;
29980:
29981: IF p_debug_mode = 'Y' THEN
29982: pa_debug.reset_curr_function;
29983: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
29984: END IF;
29985: x_return_status := FND_API.G_RET_STS_ERROR;
29986: x_msg_count := FND_MSG_PUB.count_msg;
29987:
30002: ROLLBACK TO CREATE_DELIVERABLE_PUB;
30003: --END IF;
30004:
30005: IF p_debug_mode = 'Y' THEN
30006: pa_debug.reset_curr_function;
30007: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
30008: END IF;
30009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30010: x_msg_count := FND_MSG_PUB.count_msg;
30003: --END IF;
30004:
30005: IF p_debug_mode = 'Y' THEN
30006: pa_debug.reset_curr_function;
30007: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
30008: END IF;
30009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30010: x_msg_count := FND_MSG_PUB.count_msg;
30011:
30030: x_msg_count := 1;
30031: x_msg_data := SQLERRM;
30032:
30033: IF p_debug_mode = 'Y' THEN
30034: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
30035: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
30036: pa_debug.reset_curr_function;
30037: END IF;
30038:
30031: x_msg_data := SQLERRM;
30032:
30033: IF p_debug_mode = 'Y' THEN
30034: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
30035: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
30036: pa_debug.reset_curr_function;
30037: END IF;
30038:
30039: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
30032:
30033: IF p_debug_mode = 'Y' THEN
30034: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
30035: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
30036: pa_debug.reset_curr_function;
30037: END IF;
30038:
30039: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
30040: FND_MSG_PUB.add_exc_msg
30188: FND_MSG_PUB.initialize;
30189: END IF;
30190:
30191: IF p_debug_mode = 'Y' THEN
30192: PA_DEBUG.set_curr_function( p_function => l_api_name,
30193: p_debug_mode => p_debug_mode );
30194: pa_debug.g_err_stage:= 'Inside '||l_api_name;
30195: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30196: END IF;
30190:
30191: IF p_debug_mode = 'Y' THEN
30192: PA_DEBUG.set_curr_function( p_function => l_api_name,
30193: p_debug_mode => p_debug_mode );
30194: pa_debug.g_err_stage:= 'Inside '||l_api_name;
30195: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30196: END IF;
30197:
30198: -- Set API return status to success
30191: IF p_debug_mode = 'Y' THEN
30192: PA_DEBUG.set_curr_function( p_function => l_api_name,
30193: p_debug_mode => p_debug_mode );
30194: pa_debug.g_err_stage:= 'Inside '||l_api_name;
30195: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30196: END IF;
30197:
30198: -- Set API return status to success
30199: x_return_status := FND_API.G_RET_STS_SUCCESS;
30208: p_return_status => x_return_status,
30209: p_function_allowed => l_function_allowed);
30210:
30211: IF p_debug_mode = 'Y' THEN
30212: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
30213: END IF;
30214:
30215: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30242: , p_return_status => x_return_status
30243: );
30244:
30245: IF p_debug_mode = 'Y' THEN
30246: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
30247: END IF;
30248:
30249: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30260: , p_out_deliverable_id => l_deliverable_id
30261: , p_return_status => x_return_status);
30262:
30263: IF p_debug_mode = 'Y' THEN
30264: pa_debug.write(g_pkg_name,'Dlvr Reference Ref to ID ['||l_deliverable_id||'] Return Status ['||x_return_status||']',3) ;
30265: END IF;
30266:
30267: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30302: , x_return_status => x_return_status
30303: );
30304:
30305: IF p_debug_mode = 'Y' THEN
30306: pa_debug.write(g_pkg_name,'Action Reference Unique Return Status ['||x_return_status||']Unique['||l_unique_flag||']',3) ;
30307: END IF;
30308:
30309: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30332: ,x_dlvr_default_status_code => l_status_code
30333: );
30334:
30335: IF p_debug_mode = 'Y' THEN
30336: pa_debug.g_err_stage := 'Dlvr Type allow action creation ['|| l_dlvr_action_enabled||']';
30337: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30338: END IF;
30339:
30340: -- Populate the table with input parameters
30333: );
30334:
30335: IF p_debug_mode = 'Y' THEN
30336: pa_debug.g_err_stage := 'Dlvr Type allow action creation ['|| l_dlvr_action_enabled||']';
30337: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30338: END IF;
30339:
30340: -- Populate the table with input parameters
30341: ---- --dbms_output.put_line('loading');
30449: , x_msg_count => l_msg_count
30450: , x_msg_data => l_msg_data);
30451:
30452: IF p_debug_mode = 'Y' THEN
30453: pa_debug.g_err_stage := 'Returned from Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper ['|| x_return_status||']';
30454: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30455: END IF;
30456:
30457: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30450: , x_msg_data => l_msg_data);
30451:
30452: IF p_debug_mode = 'Y' THEN
30453: pa_debug.g_err_stage := 'Returned from Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper ['|| x_return_status||']';
30454: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30455: END IF;
30456:
30457: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30465: COMMIT;
30466: END IF;
30467:
30468: IF p_debug_mode = 'Y' THEN
30469: pa_debug.reset_curr_function;
30470: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
30471: END IF;
30472:
30473: EXCEPTION
30466: END IF;
30467:
30468: IF p_debug_mode = 'Y' THEN
30469: pa_debug.reset_curr_function;
30470: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
30471: END IF;
30472:
30473: EXCEPTION
30474: WHEN FND_API.G_EXC_ERROR THEN
30497:
30498: END IF;
30499:
30500: IF p_debug_mode = 'Y' THEN
30501: pa_debug.reset_curr_function;
30502: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
30503: END IF;
30504:
30505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
30498: END IF;
30499:
30500: IF p_debug_mode = 'Y' THEN
30501: pa_debug.reset_curr_function;
30502: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
30503: END IF;
30504:
30505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
30506: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
30528:
30529: END IF;
30530:
30531: IF p_debug_mode = 'Y' THEN
30532: pa_debug.reset_curr_function;
30533: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
30534: END IF;
30535:
30536: WHEN OTHERS THEN
30529: END IF;
30530:
30531: IF p_debug_mode = 'Y' THEN
30532: pa_debug.reset_curr_function;
30533: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
30534: END IF;
30535:
30536: WHEN OTHERS THEN
30537: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
30543: x_msg_count := 1;
30544: x_msg_data := SQLERRM;
30545:
30546: IF p_debug_mode = 'Y' THEN
30547: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
30548: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
30549: pa_debug.reset_curr_function;
30550: END IF;
30551:
30544: x_msg_data := SQLERRM;
30545:
30546: IF p_debug_mode = 'Y' THEN
30547: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
30548: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
30549: pa_debug.reset_curr_function;
30550: END IF;
30551:
30552:
30545:
30546: IF p_debug_mode = 'Y' THEN
30547: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
30548: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
30549: pa_debug.reset_curr_function;
30550: END IF;
30551:
30552:
30553: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
30672: savepoint UPDATE_DELIVERABLE_PUB;
30673: --END IF;
30674:
30675: IF p_debug_mode = 'Y' THEN
30676: PA_DEBUG.set_curr_function( p_function => l_api_name,
30677: p_debug_mode => p_debug_mode );
30678: pa_debug.g_err_stage:= 'Inside '||l_api_name;
30679: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30680: END IF;
30674:
30675: IF p_debug_mode = 'Y' THEN
30676: PA_DEBUG.set_curr_function( p_function => l_api_name,
30677: p_debug_mode => p_debug_mode );
30678: pa_debug.g_err_stage:= 'Inside '||l_api_name;
30679: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30680: END IF;
30681:
30682: -- Validation check for product code : Bug 3651113
30675: IF p_debug_mode = 'Y' THEN
30676: PA_DEBUG.set_curr_function( p_function => l_api_name,
30677: p_debug_mode => p_debug_mode );
30678: pa_debug.g_err_stage:= 'Inside '||l_api_name;
30679: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30680: END IF;
30681:
30682: -- Validation check for product code : Bug 3651113
30683:
30730: p_return_status => x_return_status,
30731: p_function_allowed => l_function_allowed);
30732:
30733: IF p_debug_mode = 'Y' THEN
30734: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
30735: END IF;
30736:
30737: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30765: , p_return_status => x_return_status
30766: );
30767:
30768: IF p_debug_mode = 'Y' THEN
30769: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
30770: END IF;
30771:
30772: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30787: , p_out_task_id => l_task_id
30788: , p_return_status => x_return_status );
30789:
30790: IF p_debug_mode = 'Y' THEN
30791: pa_debug.write(g_pkg_name,'Task Ref to ID Return Status ['||x_return_status||']Task ID['||l_task_id||']',3) ;
30792: END IF;
30793:
30794: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30807: , p_return_status => x_return_status
30808: );
30809:
30810: IF p_debug_mode = 'Y' THEN
30811: pa_debug.write(g_pkg_name,'Dlvr Reference Ref to ID ['||l_deliverable_id||'] Return Status ['||x_return_status||']',3) ;
30812: END IF;
30813:
30814: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30821: FETCH C_vers INTO l_deliverable_version_id;
30822: CLOSE C_vers;
30823:
30824: IF p_debug_mode = 'Y' THEN
30825: pa_debug.write(g_pkg_name,'Updatinging deliverable ['|| p_deliverable_short_name||']['||l_deliverable_id||']['||l_project_id||']['||l_task_id||']',3);
30826: END IF;
30827:
30828: -- All other validations done in PA_DELIVERABLE_PUB.UPDATE_DELIVERABLE
30829: --invoke the api to Update deliverable
30885: x_msg_count := l_msg_count;
30886: x_msg_data := l_msg_data;
30887:
30888: IF p_debug_mode = 'Y' THEN
30889: pa_debug.g_err_stage := 'Pa_Deliverable_Pub.Update_Deliverable return status ['||x_return_status||']';
30890: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30891: END IF;
30892:
30893: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30886: x_msg_data := l_msg_data;
30887:
30888: IF p_debug_mode = 'Y' THEN
30889: pa_debug.g_err_stage := 'Pa_Deliverable_Pub.Update_Deliverable return status ['||x_return_status||']';
30890: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30891: END IF;
30892:
30893: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30955: );
30956: END IF;
30957:
30958: IF p_debug_mode = 'Y' THEN
30959: pa_debug.write(g_pkg_name,'Dlvr Action Reference Valid Return Status ['||x_return_status||']Action ID['||l_action_id||']',3) ;
30960: END IF;
30961:
30962: IF (l_action_id is NOT NULL) THEN
30963: -- action is an existing action and is to be updated
30999: i := p_action_in_tbl.next(i); -- added for bug# 3749447, next was not done
31000: END LOOP;
31001:
31002: IF p_debug_mode = 'Y' THEN
31003: pa_debug.write(g_pkg_name,'Uploaded action detail for Updation/Insertion upd ['||i_actn_upd||'] ins ['||i_actn_ins||'] tot ['||i_actn||']',3) ;
31004: END IF;
31005:
31006: IF (i_actn_upd > 0 ) THEN
31007:
31021: , x_msg_count => l_msg_count
31022: , x_msg_data => l_msg_data);
31023:
31024: IF p_debug_mode = 'Y' THEN
31025: pa_debug.write(g_pkg_name,'Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper upd return status['||x_return_status||']',3) ;
31026: END IF;
31027:
31028: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31051: , x_msg_count => l_msg_count
31052: , x_msg_data => l_msg_data);
31053:
31054: IF p_debug_mode = 'Y' THEN
31055: pa_debug.write(g_pkg_name,'Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper upd return status['||x_return_status||']',3) ;
31056: END IF;
31057:
31058: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31068: COMMIT;
31069: END IF;
31070:
31071: IF p_debug_mode = 'Y' THEN
31072: pa_debug.reset_curr_function;
31073: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
31074: END IF;
31075:
31076: EXCEPTION
31069: END IF;
31070:
31071: IF p_debug_mode = 'Y' THEN
31072: pa_debug.reset_curr_function;
31073: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
31074: END IF;
31075:
31076: EXCEPTION
31077: WHEN FND_API.G_EXC_ERROR THEN
31080: ROLLBACK TO UPDATE_DELIVERABLE_PUB;
31081: --END IF;
31082:
31083: IF p_debug_mode = 'Y' THEN
31084: pa_debug.reset_curr_function;
31085: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31086: END IF;
31087: x_return_status := FND_API.G_RET_STS_ERROR;
31088: x_msg_count := FND_MSG_PUB.count_msg;
31081: --END IF;
31082:
31083: IF p_debug_mode = 'Y' THEN
31084: pa_debug.reset_curr_function;
31085: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31086: END IF;
31087: x_return_status := FND_API.G_RET_STS_ERROR;
31088: x_msg_count := FND_MSG_PUB.count_msg;
31089:
31104: ROLLBACK TO UPDATE_DELIVERABLE_PUB;
31105: --END IF;
31106:
31107: IF p_debug_mode = 'Y' THEN
31108: pa_debug.reset_curr_function;
31109: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31110: END IF;
31111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31112: x_msg_count := FND_MSG_PUB.count_msg;
31105: --END IF;
31106:
31107: IF p_debug_mode = 'Y' THEN
31108: pa_debug.reset_curr_function;
31109: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31110: END IF;
31111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31112: x_msg_count := FND_MSG_PUB.count_msg;
31113:
31132: x_msg_count := 1;
31133: x_msg_data := SQLERRM;
31134:
31135: IF p_debug_mode = 'Y' THEN
31136: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31137: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31138: pa_debug.reset_curr_function;
31139: END IF;
31140:
31133: x_msg_data := SQLERRM;
31134:
31135: IF p_debug_mode = 'Y' THEN
31136: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31137: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31138: pa_debug.reset_curr_function;
31139: END IF;
31140:
31141:
31134:
31135: IF p_debug_mode = 'Y' THEN
31136: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31137: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31138: pa_debug.reset_curr_function;
31139: END IF;
31140:
31141:
31142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31270: FND_MSG_PUB.initialize;
31271: END IF;
31272:
31273: IF p_debug_mode = 'Y' THEN
31274: PA_DEBUG.set_curr_function( p_function => l_api_name,
31275: p_debug_mode => p_debug_mode );
31276: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31277: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31278: END IF;
31272:
31273: IF p_debug_mode = 'Y' THEN
31274: PA_DEBUG.set_curr_function( p_function => l_api_name,
31275: p_debug_mode => p_debug_mode );
31276: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31277: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31278: END IF;
31279: -- Set API return status to success
31280: x_return_status := FND_API.G_RET_STS_SUCCESS;
31273: IF p_debug_mode = 'Y' THEN
31274: PA_DEBUG.set_curr_function( p_function => l_api_name,
31275: p_debug_mode => p_debug_mode );
31276: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31277: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31278: END IF;
31279: -- Set API return status to success
31280: x_return_status := FND_API.G_RET_STS_SUCCESS;
31281:
31321: , p_return_status => x_return_status
31322: );
31323:
31324: IF p_debug_mode = 'Y' THEN
31325: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
31326: END IF;
31327:
31328: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31339: , p_out_deliverable_id => l_deliverable_id
31340: , p_return_status => x_return_status);
31341:
31342: IF p_debug_mode = 'Y' THEN
31343: pa_debug.write(g_pkg_name,'Dlvr Reference Ref to ID Return Status ['||x_return_status,3) ;
31344: END IF;
31345:
31346: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31359: , p_out_action_id => l_action_id
31360: , p_return_status => x_return_status);
31361:
31362: IF p_debug_mode = 'Y' THEN
31363: pa_debug.write(g_pkg_name,'Convert_pm_actionref_to_id Return Status ['||x_return_status,3) ;
31364: END IF;
31365:
31366: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31498: COMMIT;
31499: END IF;
31500:
31501: IF p_debug_mode = 'Y' THEN
31502: pa_debug.reset_curr_function;
31503: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
31504: END IF;
31505:
31506: EXCEPTION
31499: END IF;
31500:
31501: IF p_debug_mode = 'Y' THEN
31502: pa_debug.reset_curr_function;
31503: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
31504: END IF;
31505:
31506: EXCEPTION
31507: WHEN FND_API.G_EXC_ERROR THEN
31510: ROLLBACK TO update_deliverable_actions_pub;
31511: --END IF;
31512:
31513: IF p_debug_mode = 'Y' THEN
31514: pa_debug.reset_curr_function;
31515: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31516: END IF;
31517: x_return_status := FND_API.G_RET_STS_ERROR;
31518: x_msg_count := FND_MSG_PUB.count_msg;
31511: --END IF;
31512:
31513: IF p_debug_mode = 'Y' THEN
31514: pa_debug.reset_curr_function;
31515: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31516: END IF;
31517: x_return_status := FND_API.G_RET_STS_ERROR;
31518: x_msg_count := FND_MSG_PUB.count_msg;
31519:
31534: ROLLBACK TO update_deliverable_actions_pub;
31535: --END IF;
31536:
31537: IF p_debug_mode = 'Y' THEN
31538: pa_debug.reset_curr_function;
31539: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31540: END IF;
31541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31542: x_msg_count := FND_MSG_PUB.count_msg;
31535: --END IF;
31536:
31537: IF p_debug_mode = 'Y' THEN
31538: pa_debug.reset_curr_function;
31539: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31540: END IF;
31541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31542: x_msg_count := FND_MSG_PUB.count_msg;
31543:
31562: x_msg_count := 1;
31563: x_msg_data := SQLERRM;
31564:
31565: IF p_debug_mode = 'Y' THEN
31566: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31567: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31568: pa_debug.reset_curr_function;
31569: END IF;
31570:
31563: x_msg_data := SQLERRM;
31564:
31565: IF p_debug_mode = 'Y' THEN
31566: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31567: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31568: pa_debug.reset_curr_function;
31569: END IF;
31570:
31571: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31564:
31565: IF p_debug_mode = 'Y' THEN
31566: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31567: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31568: pa_debug.reset_curr_function;
31569: END IF;
31570:
31571: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31572: FND_MSG_PUB.add_exc_msg
31602: l_project_id NUMBER;
31603: l_function_allowed VARCHAR2(1);
31604: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
31605:
31606: l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
31607: l_msg_index_out NUMBER;
31608: l_msg_count NUMBER ;
31609: l_data VARCHAR2(2000);
31610: l_msg_data VARCHAR2(2000);
31621: savepoint DELETE_DELIVERABLE_PUB;
31622: --END IF;
31623:
31624: IF l_debug_mode = 'Y' THEN
31625: PA_DEBUG.set_curr_function( p_function => l_api_name,
31626: p_debug_mode => l_debug_mode );
31627: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31628: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31629: END IF;
31623:
31624: IF l_debug_mode = 'Y' THEN
31625: PA_DEBUG.set_curr_function( p_function => l_api_name,
31626: p_debug_mode => l_debug_mode );
31627: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31628: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31629: END IF;
31630:
31631: -- Set API return status to success
31624: IF l_debug_mode = 'Y' THEN
31625: PA_DEBUG.set_curr_function( p_function => l_api_name,
31626: p_debug_mode => l_debug_mode );
31627: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31628: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31629: END IF;
31630:
31631: -- Set API return status to success
31632: x_return_status := FND_API.G_RET_STS_SUCCESS;
31641: p_return_status => x_return_status,
31642: p_function_allowed => l_function_allowed);
31643:
31644: IF l_debug_mode = 'Y' THEN
31645: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
31646: END IF;
31647:
31648: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31667: , p_return_status => x_return_status
31668: );
31669:
31670: IF l_debug_mode = 'Y' THEN
31671: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
31672: END IF;
31673:
31674: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31687: , p_return_status => x_return_status
31688: );
31689:
31690: IF l_debug_mode = 'Y' THEN
31691: pa_debug.write(g_pkg_name,'Dlvr Reference Valid Return Status ['||x_return_status||']Dlvr ID['||l_deliverable_id||']',3) ;
31692: END IF;
31693:
31694: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31700: -- Derive deliverable version ID and call api Delete Deliverable. It
31701: l_dlvr_version_id := Pa_Deliverable_Utils.Get_Deliverable_Version_Id (l_deliverable_id, null, l_project_id) ;
31702:
31703: IF l_debug_mode = 'Y' THEN
31704: pa_debug.write(g_pkg_name,'Derived Dlvr Version ID ['||l_dlvr_version_id||'] for Dlvr ID['||l_deliverable_id||']',3) ;
31705: END IF;
31706:
31707: -- deletes the corresponding actions and associations also.
31708: IF ( l_dlvr_version_id IS NOT NULL )
31725: ,x_msg_count => x_msg_count
31726: ,x_msg_data => x_msg_data );
31727:
31728: IF l_debug_mode = 'Y' THEN
31729: pa_debug.write(g_pkg_name,' after pa_deliverable_pvt.delete_deliverable ['||x_return_status||']',3) ;
31730: END IF;
31731:
31732: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31742: COMMIT;
31743: END IF;
31744:
31745: IF l_debug_mode = 'Y' THEN
31746: pa_debug.reset_curr_function;
31747: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
31748: END IF;
31749:
31750: EXCEPTION
31743: END IF;
31744:
31745: IF l_debug_mode = 'Y' THEN
31746: pa_debug.reset_curr_function;
31747: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
31748: END IF;
31749:
31750: EXCEPTION
31751: WHEN FND_API.G_EXC_ERROR THEN
31774:
31775: END IF;
31776:
31777: IF l_debug_mode = 'Y' THEN
31778: pa_debug.reset_curr_function;
31779: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31780: END IF;
31781:
31782: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
31775: END IF;
31776:
31777: IF l_debug_mode = 'Y' THEN
31778: pa_debug.reset_curr_function;
31779: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31780: END IF;
31781:
31782: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
31783: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31804: x_msg_count := l_msg_count;
31805: END IF;
31806:
31807: IF l_debug_mode = 'Y' THEN
31808: pa_debug.reset_curr_function;
31809: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31810: END IF;
31811:
31812: WHEN OTHERS THEN
31805: END IF;
31806:
31807: IF l_debug_mode = 'Y' THEN
31808: pa_debug.reset_curr_function;
31809: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31810: END IF;
31811:
31812: WHEN OTHERS THEN
31813: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31819: x_msg_count := 1;
31820: x_msg_data := SQLERRM;
31821:
31822: IF l_debug_mode = 'Y' THEN
31823: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31824: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31825: pa_debug.reset_curr_function;
31826: END IF;
31827:
31820: x_msg_data := SQLERRM;
31821:
31822: IF l_debug_mode = 'Y' THEN
31823: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31824: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31825: pa_debug.reset_curr_function;
31826: END IF;
31827:
31828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
31821:
31822: IF l_debug_mode = 'Y' THEN
31823: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31824: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31825: pa_debug.reset_curr_function;
31826: END IF;
31827:
31828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
31829: FND_MSG_PUB.add_exc_msg
31857: )
31858:
31859: IS
31860: l_api_name VARCHAR2(30) := 'Delete_Deliverable_Actions';
31861: l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
31862:
31863: l_project_id NUMBER ;
31864: l_action_id NUMBER;
31865: l_action_version_id NUMBER;
31886: savepoint DELETE_DELIVERABLE_ACTION_PUB;
31887: --END IF;
31888:
31889: IF l_debug_mode = 'Y' THEN
31890: PA_DEBUG.set_curr_function( p_function => l_api_name,
31891: p_debug_mode => l_debug_mode );
31892: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31893: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31894: END IF;
31888:
31889: IF l_debug_mode = 'Y' THEN
31890: PA_DEBUG.set_curr_function( p_function => l_api_name,
31891: p_debug_mode => l_debug_mode );
31892: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31893: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31894: END IF;
31895: -- Set API return status to success
31896: x_return_status := FND_API.G_RET_STS_SUCCESS;
31889: IF l_debug_mode = 'Y' THEN
31890: PA_DEBUG.set_curr_function( p_function => l_api_name,
31891: p_debug_mode => l_debug_mode );
31892: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31893: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31894: END IF;
31895: -- Set API return status to success
31896: x_return_status := FND_API.G_RET_STS_SUCCESS;
31897:
31905: p_return_status => x_return_status,
31906: p_function_allowed => l_function_allowed);
31907:
31908: IF l_debug_mode = 'Y' THEN
31909: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
31910: END IF;
31911:
31912: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31940: , p_return_status => x_return_status
31941: );
31942:
31943: IF l_debug_mode = 'Y' THEN
31944: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
31945: END IF;
31946:
31947: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31959: , p_return_status => x_return_status
31960: );
31961:
31962: IF l_debug_mode = 'Y' THEN
31963: pa_debug.write(g_pkg_name,'Dlvr Reference Valid Return Status ['||x_return_status||']Dlvr ID['||l_deliverable_id||']',3) ;
31964: END IF;
31965:
31966: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31980: ,p_return_status => x_return_status
31981: );
31982:
31983: IF l_debug_mode = 'Y' THEN
31984: pa_debug.write(g_pkg_name,'Dlvr Action Reference Valid Return Status ['||x_return_status||']Action ID['||l_action_id||']',3) ;
31985: END IF;
31986:
31987: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31993: -- Derive Deliverable_version_id
31994: l_dlvr_version_id := Pa_Deliverable_Utils.Get_Deliverable_Version_Id (l_deliverable_id, null, l_project_id) ;
31995:
31996: IF l_debug_mode = 'Y' THEN
31997: pa_debug.write(g_pkg_name,'Derived Dlvr Version ID ['||l_dlvr_version_id||'] for Dlvr ID['||l_deliverable_id||']',3) ;
31998: END IF;
31999:
32000: -- Derive Action_version_id and Function Code
32001: l_action_version_id := Pa_Deliverable_Utils.Get_Action_Version_Id (l_action_id, null, l_project_id) ;
32001: l_action_version_id := Pa_Deliverable_Utils.Get_Action_Version_Id (l_action_id, null, l_project_id) ;
32002: l_function_code := Pa_Deliverable_Utils.GET_FUNCTION_CODE(l_action_id) ;
32003:
32004: IF l_debug_mode = 'Y' THEN
32005: pa_debug.write(g_pkg_name,'Derived Action version ID ['||l_action_version_id||']and function code ['||l_function_code||']',3) ;
32006: END IF;
32007:
32008: -- Calling Actions API to delete actions.
32009:
32027: ,x_msg_data => x_msg_data
32028: ) ;
32029:
32030: IF l_debug_mode = 'Y' THEN
32031: pa_debug.write(g_pkg_name,' after pa_actions_pvt.DELETE_DLV_ACTION ['||x_return_status||']',3) ;
32032: END IF;
32033:
32034: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32042: COMMIT;
32043: END IF;
32044:
32045: IF l_debug_mode = 'Y' THEN
32046: pa_debug.reset_curr_function;
32047: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32048: END IF;
32049:
32050: EXCEPTION
32043: END IF;
32044:
32045: IF l_debug_mode = 'Y' THEN
32046: pa_debug.reset_curr_function;
32047: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32048: END IF;
32049:
32050: EXCEPTION
32051: WHEN FND_API.G_EXC_ERROR THEN
32074:
32075: END IF;
32076:
32077: IF l_debug_mode = 'Y' THEN
32078: pa_debug.reset_curr_function;
32079: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32080: END IF;
32081:
32082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32075: END IF;
32076:
32077: IF l_debug_mode = 'Y' THEN
32078: pa_debug.reset_curr_function;
32079: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32080: END IF;
32081:
32082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32083: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32105:
32106: END IF;
32107:
32108: IF l_debug_mode = 'Y' THEN
32109: pa_debug.reset_curr_function;
32110: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32111: END IF;
32112:
32113: WHEN OTHERS THEN
32106: END IF;
32107:
32108: IF l_debug_mode = 'Y' THEN
32109: pa_debug.reset_curr_function;
32110: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32111: END IF;
32112:
32113: WHEN OTHERS THEN
32114: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32120: x_msg_count := 1;
32121: x_msg_data := SQLERRM;
32122:
32123: IF l_debug_mode = 'Y' THEN
32124: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32125: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32126: pa_debug.reset_curr_function;
32127: END IF;
32128:
32121: x_msg_data := SQLERRM;
32122:
32123: IF l_debug_mode = 'Y' THEN
32124: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32125: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32126: pa_debug.reset_curr_function;
32127: END IF;
32128:
32129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32122:
32123: IF l_debug_mode = 'Y' THEN
32124: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32125: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32126: pa_debug.reset_curr_function;
32127: END IF;
32128:
32129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32130: FND_MSG_PUB.add_exc_msg
32163: l_deliverable_id NUMBER;
32164: l_dlvr_version_id NUMBER;
32165: l_function_code Pa_Proj_Elements.function_code%TYPE;
32166: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
32167: l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
32168:
32169: l_function_allowed VARCHAR2(1);
32170: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
32171:
32186: savepoint DELETE_DLV_TO_TASK_ASSCN_PUB;
32187: --END IF;
32188:
32189: IF l_debug_mode = 'Y' THEN
32190: PA_DEBUG.set_curr_function( p_function => l_api_name,
32191: p_debug_mode => l_debug_mode );
32192: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32193: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32194: END IF;
32188:
32189: IF l_debug_mode = 'Y' THEN
32190: PA_DEBUG.set_curr_function( p_function => l_api_name,
32191: p_debug_mode => l_debug_mode );
32192: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32193: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32194: END IF;
32195:
32196: -- Set API return status to success
32189: IF l_debug_mode = 'Y' THEN
32190: PA_DEBUG.set_curr_function( p_function => l_api_name,
32191: p_debug_mode => l_debug_mode );
32192: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32193: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32194: END IF;
32195:
32196: -- Set API return status to success
32197: x_return_status := FND_API.G_RET_STS_SUCCESS;
32329: COMMIT;
32330: END IF;
32331:
32332: IF l_debug_mode = 'Y' THEN
32333: pa_debug.reset_curr_function;
32334: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32335: END IF;
32336:
32337: EXCEPTION
32330: END IF;
32331:
32332: IF l_debug_mode = 'Y' THEN
32333: pa_debug.reset_curr_function;
32334: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32335: END IF;
32336:
32337: EXCEPTION
32338: WHEN FND_API.G_EXC_ERROR THEN
32360: x_msg_count := l_msg_count;
32361: END IF;
32362:
32363: IF l_debug_mode = 'Y' THEN
32364: pa_debug.reset_curr_function;
32365: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32366: END IF;
32367:
32368: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32361: END IF;
32362:
32363: IF l_debug_mode = 'Y' THEN
32364: pa_debug.reset_curr_function;
32365: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32366: END IF;
32367:
32368: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32369: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32390: x_msg_count := l_msg_count;
32391: END IF;
32392:
32393: IF l_debug_mode = 'Y' THEN
32394: pa_debug.reset_curr_function;
32395: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32396: END IF;
32397:
32398: WHEN OTHERS THEN
32391: END IF;
32392:
32393: IF l_debug_mode = 'Y' THEN
32394: pa_debug.reset_curr_function;
32395: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32396: END IF;
32397:
32398: WHEN OTHERS THEN
32399: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32405: x_msg_count := 1;
32406: x_msg_data := SQLERRM;
32407:
32408: IF l_debug_mode = 'Y' THEN
32409: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32410: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32411: pa_debug.reset_curr_function;
32412: END IF;
32413:
32406: x_msg_data := SQLERRM;
32407:
32408: IF l_debug_mode = 'Y' THEN
32409: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32410: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32411: pa_debug.reset_curr_function;
32412: END IF;
32413:
32414: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32407:
32408: IF l_debug_mode = 'Y' THEN
32409: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32410: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32411: pa_debug.reset_curr_function;
32412: END IF;
32413:
32414: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32415: FND_MSG_PUB.add_exc_msg
32475: savepoint ASSOCIATE_DLV_TO_TASK_PUB;
32476: --END IF;
32477:
32478: IF p_debug_mode = 'Y' THEN
32479: PA_DEBUG.set_curr_function( p_function => l_api_name,
32480: p_debug_mode => p_debug_mode );
32481: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32482: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32483: END IF;
32477:
32478: IF p_debug_mode = 'Y' THEN
32479: PA_DEBUG.set_curr_function( p_function => l_api_name,
32480: p_debug_mode => p_debug_mode );
32481: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32482: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32483: END IF;
32484:
32485: -- Set API return status to success
32478: IF p_debug_mode = 'Y' THEN
32479: PA_DEBUG.set_curr_function( p_function => l_api_name,
32480: p_debug_mode => p_debug_mode );
32481: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32482: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32483: END IF;
32484:
32485: -- Set API return status to success
32486: x_return_status := FND_API.G_RET_STS_SUCCESS;
32622: COMMIT;
32623: END IF;
32624:
32625: IF p_debug_mode = 'Y' THEN
32626: pa_debug.reset_curr_function;
32627: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32628: END IF;
32629:
32630: EXCEPTION
32623: END IF;
32624:
32625: IF p_debug_mode = 'Y' THEN
32626: pa_debug.reset_curr_function;
32627: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32628: END IF;
32629:
32630: EXCEPTION
32631: WHEN FND_API.G_EXC_ERROR THEN
32654: x_msg_count := l_msg_count;
32655: END IF;
32656:
32657: IF p_debug_mode = 'Y' THEN
32658: pa_debug.reset_curr_function;
32659: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32660: END IF;
32661:
32662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32655: END IF;
32656:
32657: IF p_debug_mode = 'Y' THEN
32658: pa_debug.reset_curr_function;
32659: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32660: END IF;
32661:
32662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32663: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32684: x_msg_count := l_msg_count;
32685: END IF;
32686:
32687: IF p_debug_mode = 'Y' THEN
32688: pa_debug.reset_curr_function;
32689: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32690: END IF;
32691:
32692: WHEN OTHERS THEN
32685: END IF;
32686:
32687: IF p_debug_mode = 'Y' THEN
32688: pa_debug.reset_curr_function;
32689: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32690: END IF;
32691:
32692: WHEN OTHERS THEN
32693: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32699: x_msg_count := 1;
32700: x_msg_data := SQLERRM;
32701:
32702: IF p_debug_mode = 'Y' THEN
32703: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32704: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32705: pa_debug.reset_curr_function;
32706: END IF;
32707:
32700: x_msg_data := SQLERRM;
32701:
32702: IF p_debug_mode = 'Y' THEN
32703: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32704: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32705: pa_debug.reset_curr_function;
32706: END IF;
32707:
32708: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32701:
32702: IF p_debug_mode = 'Y' THEN
32703: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32704: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32705: pa_debug.reset_curr_function;
32706: END IF;
32707:
32708: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32709: FND_MSG_PUB.add_exc_msg
32762: savepoint ASSOCIATE_DLV_TO_TASK_ASSIGN;
32763: --END IF;
32764:
32765: IF p_debug_mode = 'Y' THEN
32766: PA_DEBUG.set_curr_function( p_function => l_api_name,
32767: p_debug_mode => p_debug_mode );
32768: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32769: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32770: END IF;
32764:
32765: IF p_debug_mode = 'Y' THEN
32766: PA_DEBUG.set_curr_function( p_function => l_api_name,
32767: p_debug_mode => p_debug_mode );
32768: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32769: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32770: END IF;
32771:
32772: -- Set API return status to success
32765: IF p_debug_mode = 'Y' THEN
32766: PA_DEBUG.set_curr_function( p_function => l_api_name,
32767: p_debug_mode => p_debug_mode );
32768: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32769: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32770: END IF;
32771:
32772: -- Set API return status to success
32773: x_return_status := FND_API.G_RET_STS_SUCCESS;
32857: ,x_return_status => x_return_status
32858: ) ;
32859:
32860: IF p_debug_mode = 'Y' THEN
32861: pa_debug.write(g_pkg_name,'PA_TASK_ASSIGNMENTS_PUB.Convert_PM_TARef_To_ID ret status'||x_return_status||
32862: ']task assign ref['||l_task_assign_reference||']task assign id['||l_task_assign_id||']',3) ;
32863: END IF;
32864:
32865: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32903: COMMIT;
32904: END IF;
32905:
32906: IF p_debug_mode = 'Y' THEN
32907: pa_debug.reset_curr_function;
32908: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32909: END IF;
32910:
32911: EXCEPTION
32904: END IF;
32905:
32906: IF p_debug_mode = 'Y' THEN
32907: pa_debug.reset_curr_function;
32908: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32909: END IF;
32910:
32911: EXCEPTION
32912: WHEN FND_API.G_EXC_ERROR THEN
32934: x_msg_count := l_msg_count;
32935: END IF;
32936:
32937: IF p_debug_mode = 'Y' THEN
32938: pa_debug.reset_curr_function;
32939: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32940: END IF;
32941:
32942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32935: END IF;
32936:
32937: IF p_debug_mode = 'Y' THEN
32938: pa_debug.reset_curr_function;
32939: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32940: END IF;
32941:
32942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32943: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32963: x_msg_count := l_msg_count;
32964: END IF;
32965:
32966: IF p_debug_mode = 'Y' THEN
32967: pa_debug.reset_curr_function;
32968: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32969: END IF;
32970:
32971: WHEN OTHERS THEN
32964: END IF;
32965:
32966: IF p_debug_mode = 'Y' THEN
32967: pa_debug.reset_curr_function;
32968: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32969: END IF;
32970:
32971: WHEN OTHERS THEN
32972: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32978: x_msg_count := 1;
32979: x_msg_data := SQLERRM;
32980:
32981: IF p_debug_mode = 'Y' THEN
32982: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32983: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32984: pa_debug.reset_curr_function;
32985: END IF;
32986:
32979: x_msg_data := SQLERRM;
32980:
32981: IF p_debug_mode = 'Y' THEN
32982: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32983: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32984: pa_debug.reset_curr_function;
32985: END IF;
32986:
32987: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32980:
32981: IF p_debug_mode = 'Y' THEN
32982: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32983: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32984: pa_debug.reset_curr_function;
32985: END IF;
32986:
32987: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32988: FND_MSG_PUB.add_exc_msg
33056: savepoint ASSOCIATE_DLV_TO_TASK_ASSIGN;
33057: --END IF;
33058:
33059: IF p_debug_mode = 'Y' THEN
33060: PA_DEBUG.set_curr_function( p_function => l_api_name,
33061: p_debug_mode => p_debug_mode );
33062: pa_debug.g_err_stage:= 'Inside '||l_api_name;
33063: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33064: END IF;
33058:
33059: IF p_debug_mode = 'Y' THEN
33060: PA_DEBUG.set_curr_function( p_function => l_api_name,
33061: p_debug_mode => p_debug_mode );
33062: pa_debug.g_err_stage:= 'Inside '||l_api_name;
33063: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33064: END IF;
33065:
33066: -- Set API return status to success
33059: IF p_debug_mode = 'Y' THEN
33060: PA_DEBUG.set_curr_function( p_function => l_api_name,
33061: p_debug_mode => p_debug_mode );
33062: pa_debug.g_err_stage:= 'Inside '||l_api_name;
33063: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33064: END IF;
33065:
33066: -- Set API return status to success
33067: x_return_status := FND_API.G_RET_STS_SUCCESS;
33124: ,x_return_status => x_return_status
33125: ) ;
33126:
33127: IF p_debug_mode = 'Y' THEN
33128: pa_debug.write(g_pkg_name,'PA_TASK_ASSIGNMENTS_PUB.Convert_PM_TARef_To_ID ret status'||x_return_status||
33129: ']task assign ref['||l_task_assign_reference||']task assign id['||l_task_assign_id||']',3) ;
33130: END IF;
33131:
33132: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33176: ) ;
33177: */
33178:
33179: IF p_debug_mode = 'Y' THEN
33180: pa_debug.g_err_stage:= ' l_object_relationship_Id is ' || l_object_relationship_Id;
33181: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33182: END IF ;
33183:
33184: -- Added below api call to delete a TA to a DLVR association
33177: */
33178:
33179: IF p_debug_mode = 'Y' THEN
33180: pa_debug.g_err_stage:= ' l_object_relationship_Id is ' || l_object_relationship_Id;
33181: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33182: END IF ;
33183:
33184: -- Added below api call to delete a TA to a DLVR association
33185: -- passing calling context as TASK_ASSIGNMENT and for calling context TASK_ASSIGNMENT
33208: COMMIT;
33209: END IF;
33210:
33211: IF p_debug_mode = 'Y' THEN
33212: pa_debug.reset_curr_function;
33213: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
33214: END IF;
33215:
33216: EXCEPTION
33209: END IF;
33210:
33211: IF p_debug_mode = 'Y' THEN
33212: pa_debug.reset_curr_function;
33213: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
33214: END IF;
33215:
33216: EXCEPTION
33217: WHEN FND_API.G_EXC_ERROR THEN
33239: x_msg_count := l_msg_count;
33240: END IF;
33241:
33242: IF p_debug_mode = 'Y' THEN
33243: pa_debug.reset_curr_function;
33244: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
33245: END IF;
33246:
33247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33240: END IF;
33241:
33242: IF p_debug_mode = 'Y' THEN
33243: pa_debug.reset_curr_function;
33244: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
33245: END IF;
33246:
33247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33248: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33269: x_msg_count := l_msg_count;
33270: END IF;
33271:
33272: IF p_debug_mode = 'Y' THEN
33273: pa_debug.reset_curr_function;
33274: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
33275: END IF;
33276:
33277: WHEN OTHERS THEN
33270: END IF;
33271:
33272: IF p_debug_mode = 'Y' THEN
33273: pa_debug.reset_curr_function;
33274: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
33275: END IF;
33276:
33277: WHEN OTHERS THEN
33278: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33284: x_msg_count := 1;
33285: x_msg_data := SQLERRM;
33286:
33287: IF p_debug_mode = 'Y' THEN
33288: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33289: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33290: pa_debug.reset_curr_function;
33291: END IF;
33292:
33285: x_msg_data := SQLERRM;
33286:
33287: IF p_debug_mode = 'Y' THEN
33288: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33289: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33290: pa_debug.reset_curr_function;
33291: END IF;
33292:
33293: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33286:
33287: IF p_debug_mode = 'Y' THEN
33288: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33289: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33290: pa_debug.reset_curr_function;
33291: END IF;
33292:
33293: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33294: FND_MSG_PUB.add_exc_msg
33363: -- IF (p_commit = FND_API.G_TRUE) THEN
33364: savepoint DELETE_MAPPING_PUB;
33365: -- END IF;
33366:
33367: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
33368: IF l_debug_mode = 'Y' THEN
33369: PA_DEBUG.set_curr_function( p_function => 'DELETE_MAPPING',
33370: p_debug_mode => l_debug_mode );
33371: END IF;
33365: -- END IF;
33366:
33367: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
33368: IF l_debug_mode = 'Y' THEN
33369: PA_DEBUG.set_curr_function( p_function => 'DELETE_MAPPING',
33370: p_debug_mode => l_debug_mode );
33371: END IF;
33372:
33373: IF l_debug_mode = 'Y' THEN
33370: p_debug_mode => l_debug_mode );
33371: END IF;
33372:
33373: IF l_debug_mode = 'Y' THEN
33374: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : DELETE_MAPPING : Printing Input parameters';
33375: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33376: l_debug_level3);
33377: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_version_id'||':'||p_wp_task_version_id,
33378: l_debug_level3);
33371: END IF;
33372:
33373: IF l_debug_mode = 'Y' THEN
33374: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : DELETE_MAPPING : Printing Input parameters';
33375: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33376: l_debug_level3);
33377: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_version_id'||':'||p_wp_task_version_id,
33378: l_debug_level3);
33379: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_version_id'||':'||p_fp_task_version_id,
33373: IF l_debug_mode = 'Y' THEN
33374: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : DELETE_MAPPING : Printing Input parameters';
33375: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33376: l_debug_level3);
33377: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_version_id'||':'||p_wp_task_version_id,
33378: l_debug_level3);
33379: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_version_id'||':'||p_fp_task_version_id,
33380: l_debug_level3);
33381: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_id'||':'||p_wp_task_id,
33375: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33376: l_debug_level3);
33377: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_version_id'||':'||p_wp_task_version_id,
33378: l_debug_level3);
33379: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_version_id'||':'||p_fp_task_version_id,
33380: l_debug_level3);
33381: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_id'||':'||p_wp_task_id,
33382: l_debug_level3);
33383: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_id'||':'||p_fp_task_id,
33377: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_version_id'||':'||p_wp_task_version_id,
33378: l_debug_level3);
33379: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_version_id'||':'||p_fp_task_version_id,
33380: l_debug_level3);
33381: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_id'||':'||p_wp_task_id,
33382: l_debug_level3);
33383: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_id'||':'||p_fp_task_id,
33384: l_debug_level3);
33385: Pa_Debug.WRITE(g_pkg_name,'p_pm_wp_task_reference'||':'||p_pm_wp_task_reference,
33379: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_version_id'||':'||p_fp_task_version_id,
33380: l_debug_level3);
33381: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_id'||':'||p_wp_task_id,
33382: l_debug_level3);
33383: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_id'||':'||p_fp_task_id,
33384: l_debug_level3);
33385: Pa_Debug.WRITE(g_pkg_name,'p_pm_wp_task_reference'||':'||p_pm_wp_task_reference,
33386: l_debug_level3);
33387: Pa_Debug.WRITE(g_pkg_name,'p_pm_fp_task_reference'||':'||p_pm_fp_task_reference,
33381: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_id'||':'||p_wp_task_id,
33382: l_debug_level3);
33383: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_id'||':'||p_fp_task_id,
33384: l_debug_level3);
33385: Pa_Debug.WRITE(g_pkg_name,'p_pm_wp_task_reference'||':'||p_pm_wp_task_reference,
33386: l_debug_level3);
33387: Pa_Debug.WRITE(g_pkg_name,'p_pm_fp_task_reference'||':'||p_pm_fp_task_reference,
33388: l_debug_level3);
33389: Pa_Debug.WRITE(g_pkg_name,'p_wp_structure_version_id'||':'||p_wp_structure_version_id,
33383: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_id'||':'||p_fp_task_id,
33384: l_debug_level3);
33385: Pa_Debug.WRITE(g_pkg_name,'p_pm_wp_task_reference'||':'||p_pm_wp_task_reference,
33386: l_debug_level3);
33387: Pa_Debug.WRITE(g_pkg_name,'p_pm_fp_task_reference'||':'||p_pm_fp_task_reference,
33388: l_debug_level3);
33389: Pa_Debug.WRITE(g_pkg_name,'p_wp_structure_version_id'||':'||p_wp_structure_version_id,
33390: l_debug_level3);
33391: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
33385: Pa_Debug.WRITE(g_pkg_name,'p_pm_wp_task_reference'||':'||p_pm_wp_task_reference,
33386: l_debug_level3);
33387: Pa_Debug.WRITE(g_pkg_name,'p_pm_fp_task_reference'||':'||p_pm_fp_task_reference,
33388: l_debug_level3);
33389: Pa_Debug.WRITE(g_pkg_name,'p_wp_structure_version_id'||':'||p_wp_structure_version_id,
33390: l_debug_level3);
33391: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
33392: l_debug_level3);
33393:
33387: Pa_Debug.WRITE(g_pkg_name,'p_pm_fp_task_reference'||':'||p_pm_fp_task_reference,
33388: l_debug_level3);
33389: Pa_Debug.WRITE(g_pkg_name,'p_wp_structure_version_id'||':'||p_wp_structure_version_id,
33390: l_debug_level3);
33391: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
33392: l_debug_level3);
33393:
33394: END IF;
33395: --Validate for input parameters
33393:
33394: END IF;
33395: --Validate for input parameters
33396: IF l_debug_mode = 'Y' THEN
33397: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : DELETE_MAPPING : Validating Input parameters';
33398: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33399: l_debug_level3);
33400: END IF;
33401:
33394: END IF;
33395: --Validate for input parameters
33396: IF l_debug_mode = 'Y' THEN
33397: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : DELETE_MAPPING : Validating Input parameters';
33398: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33399: l_debug_level3);
33400: END IF;
33401:
33402: --If task ids or names are passed , then we need to derive task_version_ids to be used by the DELETE_MAPPING API.
33432: l_project_id := p_project_id;
33433: END IF;
33434:
33435: IF p_debug_mode = 'Y' THEN
33436: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'DELETE_MAPPING'||'Project ID:'||l_project_id;
33437: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33438: END IF;
33439: --1.1 Get the task ids if these are null
33440: --WP TASK ID
33433: END IF;
33434:
33435: IF p_debug_mode = 'Y' THEN
33436: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'DELETE_MAPPING'||'Project ID:'||l_project_id;
33437: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33438: END IF;
33439: --1.1 Get the task ids if these are null
33440: --WP TASK ID
33441: IF( (p_wp_task_id IS NULL OR p_wp_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
33541: x_msg_count := l_msg_count;
33542: x_msg_data := l_msg_data;
33543:
33544: IF p_debug_mode = 'Y' THEN
33545: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'DELETE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.DELETE_MAPPING:'||x_return_status;
33546: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33547: END IF;
33548:
33549: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33542: x_msg_data := l_msg_data;
33543:
33544: IF p_debug_mode = 'Y' THEN
33545: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'DELETE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.DELETE_MAPPING:'||x_return_status;
33546: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33547: END IF;
33548:
33549: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33648: IF (p_commit = FND_API.G_TRUE) THEN
33649: savepoint CREATE_MAPPING_PUB;
33650: END IF;
33651:
33652: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
33653: IF l_debug_mode = 'Y' THEN
33654: PA_DEBUG.set_curr_function( p_function => 'CREATE_MAPPING',
33655: p_debug_mode => l_debug_mode );
33656: END IF;
33650: END IF;
33651:
33652: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
33653: IF l_debug_mode = 'Y' THEN
33654: PA_DEBUG.set_curr_function( p_function => 'CREATE_MAPPING',
33655: p_debug_mode => l_debug_mode );
33656: END IF;
33657:
33658: IF l_debug_mode = 'Y' THEN
33655: p_debug_mode => l_debug_mode );
33656: END IF;
33657:
33658: IF l_debug_mode = 'Y' THEN
33659: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : Printing Input parameters';
33660: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33661: l_debug_level3);
33662: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
33663: l_debug_level3);
33656: END IF;
33657:
33658: IF l_debug_mode = 'Y' THEN
33659: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : Printing Input parameters';
33660: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33661: l_debug_level3);
33662: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
33663: l_debug_level3);
33664: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
33658: IF l_debug_mode = 'Y' THEN
33659: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : Printing Input parameters';
33660: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33661: l_debug_level3);
33662: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
33663: l_debug_level3);
33664: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
33665: l_debug_level3);
33666: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
33660: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33661: l_debug_level3);
33662: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
33663: l_debug_level3);
33664: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
33665: l_debug_level3);
33666: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
33667: l_debug_level3);
33668: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
33662: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
33663: l_debug_level3);
33664: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
33665: l_debug_level3);
33666: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
33667: l_debug_level3);
33668: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
33669: l_debug_level3);
33670: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
33664: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
33665: l_debug_level3);
33666: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
33667: l_debug_level3);
33668: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
33669: l_debug_level3);
33670: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
33671: l_debug_level3);
33672: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
33666: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
33667: l_debug_level3);
33668: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
33669: l_debug_level3);
33670: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
33671: l_debug_level3);
33672: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
33673: l_debug_level3);
33674: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
33668: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
33669: l_debug_level3);
33670: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
33671: l_debug_level3);
33672: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
33673: l_debug_level3);
33674: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
33675: l_debug_level3);
33676: END IF;
33670: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
33671: l_debug_level3);
33672: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
33673: l_debug_level3);
33674: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
33675: l_debug_level3);
33676: END IF;
33677: --Validate for input parameters
33678: IF l_debug_mode = 'Y' THEN
33675: l_debug_level3);
33676: END IF;
33677: --Validate for input parameters
33678: IF l_debug_mode = 'Y' THEN
33679: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : Validating Input parameters';
33680: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33681: l_debug_level3);
33682: END IF;
33683:
33676: END IF;
33677: --Validate for input parameters
33678: IF l_debug_mode = 'Y' THEN
33679: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : Validating Input parameters';
33680: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33681: l_debug_level3);
33682: END IF;
33683:
33684: IF ( (p_project_id IS NULL OR p_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
33686: (p_proj_source_reference IS NULL OR p_proj_source_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
33687: )
33688: THEN
33689: IF l_debug_mode = 'Y' THEN
33690: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving Project id should be passed';
33691: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33692: l_debug_level3);
33693: END IF;
33694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33687: )
33688: THEN
33689: IF l_debug_mode = 'Y' THEN
33690: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving Project id should be passed';
33691: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33692: l_debug_level3);
33693: END IF;
33694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33695: END IF;
33700: ( p_mapped_task_name IS NULL OR p_mapped_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
33701: )
33702: THEN
33703: IF l_debug_mode = 'Y' THEN
33704: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving financial task version id should be passed';
33705: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33706: l_debug_level3);
33707: END IF;
33708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33701: )
33702: THEN
33703: IF l_debug_mode = 'Y' THEN
33704: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving financial task version id should be passed';
33705: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33706: l_debug_level3);
33707: END IF;
33708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33709: END IF;
33714: (p_wkp_task_name IS NULL OR p_wkp_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
33715: )
33716: THEN
33717: IF l_debug_mode = 'Y' THEN
33718: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving workplan task version id should be passed';
33719: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33720: l_debug_level3);
33721: END IF;
33722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33715: )
33716: THEN
33717: IF l_debug_mode = 'Y' THEN
33718: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving workplan task version id should be passed';
33719: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33720: l_debug_level3);
33721: END IF;
33722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33723: END IF;
33782: );
33783: END IF;
33784:
33785: IF p_debug_mode = 'Y' THEN
33786: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'Project ID:'||l_project_id;
33787: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33788: END IF;
33789:
33790: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33783: END IF;
33784:
33785: IF p_debug_mode = 'Y' THEN
33786: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'Project ID:'||l_project_id;
33787: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33788: END IF;
33789:
33790: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33807: , p_out_task_id => l_wkp_task_id
33808: , p_return_status => x_return_status );
33809:
33810: IF p_debug_mode = 'Y' THEN
33811: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'wkp_task_id:'||l_wkp_task_id;
33812: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33813: END IF;
33814:
33815: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33808: , p_return_status => x_return_status );
33809:
33810: IF p_debug_mode = 'Y' THEN
33811: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'wkp_task_id:'||l_wkp_task_id;
33812: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33813: END IF;
33814:
33815: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33833: , p_return_status => x_return_status );
33834:
33835: --Assign mapped task_id to px_mapped_task_id as it is in out parameter
33836: IF p_debug_mode = 'Y' THEN
33837: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
33838: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33839: END IF;
33840: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33834:
33835: --Assign mapped task_id to px_mapped_task_id as it is in out parameter
33836: IF p_debug_mode = 'Y' THEN
33837: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
33838: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33839: END IF;
33840: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33842: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33868: fetch cur_get_mapped_task_version_id into l_mapped_task_version_id;
33869: close cur_get_mapped_task_version_id ;
33870: END IF;
33871: IF p_debug_mode = 'Y' THEN
33872: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'Before Calling PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING:';
33873: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33874: END IF;
33875:
33876:
33869: close cur_get_mapped_task_version_id ;
33870: END IF;
33871: IF p_debug_mode = 'Y' THEN
33872: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'Before Calling PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING:';
33873: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33874: END IF;
33875:
33876:
33877: -- All other validations done in PA_DELIVERABLE_PUB.CREATE_DELIVERABLE
33897: x_msg_count := l_msg_count;
33898: x_msg_data := l_msg_data;
33899:
33900: IF p_debug_mode = 'Y' THEN
33901: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING:'||x_return_status;
33902: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33903: END IF;
33904:
33905: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33898: x_msg_data := l_msg_data;
33899:
33900: IF p_debug_mode = 'Y' THEN
33901: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING:'||x_return_status;
33902: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33903: END IF;
33904:
33905: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34010: IF (p_commit = FND_API.G_TRUE) THEN
34011: savepoint UPDATE_MAPPING_PUB;
34012: END IF;
34013:
34014: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34015: IF l_debug_mode = 'Y' THEN
34016: PA_DEBUG.set_curr_function( p_function => 'UPDATE_MAPPING',
34017: p_debug_mode => l_debug_mode );
34018: END IF;
34012: END IF;
34013:
34014: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34015: IF l_debug_mode = 'Y' THEN
34016: PA_DEBUG.set_curr_function( p_function => 'UPDATE_MAPPING',
34017: p_debug_mode => l_debug_mode );
34018: END IF;
34019:
34020: IF l_debug_mode = 'Y' THEN
34017: p_debug_mode => l_debug_mode );
34018: END IF;
34019:
34020: IF l_debug_mode = 'Y' THEN
34021: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : Printing Input parameters';
34022: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34023: l_debug_level3);
34024: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34025: l_debug_level3);
34018: END IF;
34019:
34020: IF l_debug_mode = 'Y' THEN
34021: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : Printing Input parameters';
34022: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34023: l_debug_level3);
34024: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34025: l_debug_level3);
34026: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34020: IF l_debug_mode = 'Y' THEN
34021: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : Printing Input parameters';
34022: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34023: l_debug_level3);
34024: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34025: l_debug_level3);
34026: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34027: l_debug_level3);
34028: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34022: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34023: l_debug_level3);
34024: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34025: l_debug_level3);
34026: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34027: l_debug_level3);
34028: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34029: l_debug_level3);
34030: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34024: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34025: l_debug_level3);
34026: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34027: l_debug_level3);
34028: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34029: l_debug_level3);
34030: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34031: l_debug_level3);
34032: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34026: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34027: l_debug_level3);
34028: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34029: l_debug_level3);
34030: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34031: l_debug_level3);
34032: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34033: l_debug_level3);
34034: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34028: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34029: l_debug_level3);
34030: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34031: l_debug_level3);
34032: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34033: l_debug_level3);
34034: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34035: l_debug_level3);
34036: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34030: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34031: l_debug_level3);
34032: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34033: l_debug_level3);
34034: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34035: l_debug_level3);
34036: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34037: l_debug_level3);
34038: END IF;
34032: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34033: l_debug_level3);
34034: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34035: l_debug_level3);
34036: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34037: l_debug_level3);
34038: END IF;
34039: --Validate for input parameters
34040: IF l_debug_mode = 'Y' THEN
34037: l_debug_level3);
34038: END IF;
34039: --Validate for input parameters
34040: IF l_debug_mode = 'Y' THEN
34041: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : Validating Input parameters';
34042: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34043: l_debug_level3);
34044: END IF;
34045:
34038: END IF;
34039: --Validate for input parameters
34040: IF l_debug_mode = 'Y' THEN
34041: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : Validating Input parameters';
34042: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34043: l_debug_level3);
34044: END IF;
34045:
34046: IF ( (p_project_id IS NULL OR p_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
34048: (p_proj_source_reference IS NULL OR p_proj_source_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
34049: )
34050: THEN
34051: IF l_debug_mode = 'Y' THEN
34052: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : At least one of the parameters for deriving Project id should be passed';
34053: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34054: l_debug_level3);
34055: END IF;
34056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34049: )
34050: THEN
34051: IF l_debug_mode = 'Y' THEN
34052: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : At least one of the parameters for deriving Project id should be passed';
34053: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34054: l_debug_level3);
34055: END IF;
34056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34057: END IF;
34065: ( p_wkp_task_name IS NULL OR p_wkp_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
34066: )
34067: THEN
34068: IF l_debug_mode = 'Y' THEN
34069: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : At least one of the parameters for deriving workplan task version id should be passed';
34070: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34071: l_debug_level3);
34072: END IF;
34073: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34066: )
34067: THEN
34068: IF l_debug_mode = 'Y' THEN
34069: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : At least one of the parameters for deriving workplan task version id should be passed';
34070: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34071: l_debug_level3);
34072: END IF;
34073: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34074: END IF;
34133: );
34134: END IF;
34135:
34136: IF p_debug_mode = 'Y' THEN
34137: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'Project ID:'||l_project_id;
34138: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34139: END IF;
34140:
34141: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34134: END IF;
34135:
34136: IF p_debug_mode = 'Y' THEN
34137: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'Project ID:'||l_project_id;
34138: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34139: END IF;
34140:
34141: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34156: , p_out_task_id => l_wkp_task_id
34157: , p_return_status => x_return_status );
34158:
34159: IF p_debug_mode = 'Y' THEN
34160: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'wkp_task_id:'||l_wkp_task_id;
34161: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34162: END IF;
34163:
34164: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34157: , p_return_status => x_return_status );
34158:
34159: IF p_debug_mode = 'Y' THEN
34160: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'wkp_task_id:'||l_wkp_task_id;
34161: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34162: END IF;
34163:
34164: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34181: , p_out_task_id => l_mapped_task_id
34182: , p_return_status => x_return_status );
34183:
34184: IF p_debug_mode = 'Y' THEN
34185: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
34186: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34187: END IF;
34188: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34182: , p_return_status => x_return_status );
34183:
34184: IF p_debug_mode = 'Y' THEN
34185: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
34186: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34187: END IF;
34188: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34190: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34215:
34216: END IF;
34217:
34218: IF p_debug_mode = 'Y' THEN
34219: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'Before Calling PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING:';
34220: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34221: END IF;
34222:
34223:
34216: END IF;
34217:
34218: IF p_debug_mode = 'Y' THEN
34219: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'Before Calling PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING:';
34220: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34221: END IF;
34222:
34223:
34224: -- All other validations done in PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING
34245: x_msg_count := l_msg_count;
34246: x_msg_data := l_msg_data;
34247:
34248: IF p_debug_mode = 'Y' THEN
34249: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING:'||x_return_status;
34250: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34251: END IF;
34252:
34253: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34246: x_msg_data := l_msg_data;
34247:
34248: IF p_debug_mode = 'Y' THEN
34249: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING:'||x_return_status;
34250: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34251: END IF;
34252:
34253: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34326: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
34327: FND_MSG_PUB.initialize;
34328: END IF;
34329:
34330: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34331: IF l_debug_mode = 'Y' THEN
34332: PA_DEBUG.set_curr_function( p_function => 'PROCESS_TASK_TABLE',
34333: p_debug_mode => l_debug_mode );
34334: END IF;
34328: END IF;
34329:
34330: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34331: IF l_debug_mode = 'Y' THEN
34332: PA_DEBUG.set_curr_function( p_function => 'PROCESS_TASK_TABLE',
34333: p_debug_mode => l_debug_mode );
34334: END IF;
34335:
34336: IF l_debug_mode = 'Y' THEN
34333: p_debug_mode => l_debug_mode );
34334: END IF;
34335:
34336: IF l_debug_mode = 'Y' THEN
34337: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Printing Input parameters';
34338: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34339: l_debug_level3);
34340: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34341: l_debug_level3);
34334: END IF;
34335:
34336: IF l_debug_mode = 'Y' THEN
34337: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Printing Input parameters';
34338: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34339: l_debug_level3);
34340: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34341: l_debug_level3);
34342: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34336: IF l_debug_mode = 'Y' THEN
34337: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Printing Input parameters';
34338: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34339: l_debug_level3);
34340: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34341: l_debug_level3);
34342: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34343: l_debug_level3);
34344: END IF;
34338: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34339: l_debug_level3);
34340: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34341: l_debug_level3);
34342: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34343: l_debug_level3);
34344: END IF;
34345: --Validate for input parameters
34346: IF l_debug_mode = 'Y' THEN
34343: l_debug_level3);
34344: END IF;
34345: --Validate for input parameters
34346: IF l_debug_mode = 'Y' THEN
34347: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Validating Input parameters';
34348: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34349: l_debug_level3);
34350: END IF;
34351:
34344: END IF;
34345: --Validate for input parameters
34346: IF l_debug_mode = 'Y' THEN
34347: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Validating Input parameters';
34348: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34349: l_debug_level3);
34350: END IF;
34351:
34352: IF ( (p_project_id IS NULL OR p_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
34354: (p_proj_source_reference IS NULL OR p_proj_source_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
34355: )
34356: THEN
34357: IF l_debug_mode = 'Y' THEN
34358: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : At least one of the parameters for deriving Project id should be passed';
34359: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34360: l_debug_level3);
34361: END IF;
34362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34355: )
34356: THEN
34357: IF l_debug_mode = 'Y' THEN
34358: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : At least one of the parameters for deriving Project id should be passed';
34359: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34360: l_debug_level3);
34361: END IF;
34362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34363: END IF;
34364:
34365: IF ( p_tasks_in_tbl IS NULL OR p_tasks_in_tbl.count <= 0 )
34366: THEN
34367: IF l_debug_mode = 'Y' THEN
34368: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Empty or NULL Task Table';
34369: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34370: l_debug_level3);
34371: END IF;
34372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34365: IF ( p_tasks_in_tbl IS NULL OR p_tasks_in_tbl.count <= 0 )
34366: THEN
34367: IF l_debug_mode = 'Y' THEN
34368: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Empty or NULL Task Table';
34369: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34370: l_debug_level3);
34371: END IF;
34372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34373: END IF;
34388: );
34389: END IF;
34390:
34391: IF p_debug_mode = 'Y' THEN
34392: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'PROCESS_TASK_TABLE'||'Project ID:'||l_project_id;
34393: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34394: END IF;
34395:
34396: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34389: END IF;
34390:
34391: IF p_debug_mode = 'Y' THEN
34392: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'PROCESS_TASK_TABLE'||'Project ID:'||l_project_id;
34393: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34394: END IF;
34395:
34396: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;