[Home] [Help]
708: -- Standard begin of API savepoint
709:
710: SAVEPOINT create_project_pub;
711:
712: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
713: -- Standard call to check for call compatibility.
714:
715:
716: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4981:
4982: -- Made the following changes for post FP K one off. Bug 2931183
4983: -- Performance changes.
4984: IF l_debug_mode = 'Y' THEN
4985: pa_debug.g_err_stage := 'Calling PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
4986: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
4987: END IF;
4988:
4989: --Set the global variable G_OP_VALIDATE_FLAG.
4982: -- Made the following changes for post FP K one off. Bug 2931183
4983: -- Performance changes.
4984: IF l_debug_mode = 'Y' THEN
4985: pa_debug.g_err_stage := 'Calling PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
4986: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
4987: END IF;
4988:
4989: --Set the global variable G_OP_VALIDATE_FLAG.
4990: --BUG 4218977
5010: );
5011:
5012: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5013: IF l_debug_mode = 'Y' THEN
5014: pa_debug.g_err_stage := 'Errors in PROCESS_TASK_STRUCTURE_BULK ' ;
5015: pa_debug.write(g_module_name,pa_debug.g_err_stage,4);
5016: END IF;
5017: p_multiple_task_msg := 'F';
5018: END IF;
5011:
5012: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5013: IF l_debug_mode = 'Y' THEN
5014: pa_debug.g_err_stage := 'Errors in PROCESS_TASK_STRUCTURE_BULK ' ;
5015: pa_debug.write(g_module_name,pa_debug.g_err_stage,4);
5016: END IF;
5017: p_multiple_task_msg := 'F';
5018: END IF;
5019:
5017: p_multiple_task_msg := 'F';
5018: END IF;
5019:
5020: IF l_debug_mode = 'Y' THEN
5021: pa_debug.g_err_stage := 'Returned from PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
5022: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5023: END IF;
5024:
5025: /* Post FP K one off. Bug 2931183
5018: END IF;
5019:
5020: IF l_debug_mode = 'Y' THEN
5021: pa_debug.g_err_stage := 'Returned from PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
5022: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5023: END IF;
5024:
5025: /* Post FP K one off. Bug 2931183
5026: Commenting this code as this is done in PA_PROJ_TASK_STRUC_PUB.process_task_structure_bulk.
5329:
5330: G_DLVR_STRUCTURE_ENABLED := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_in_rec.created_from_project_id);
5331:
5332: IF l_debug_mode = 'Y' THEN
5333: pa_debug.g_err_stage := 'Deliverable Enabled ['||G_DLVR_STRUCTURE_ENABLED||']';
5334: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
5335: END IF;
5336:
5337: i := p_deliverables_in.first();
5330: G_DLVR_STRUCTURE_ENABLED := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_in_rec.created_from_project_id);
5331:
5332: IF l_debug_mode = 'Y' THEN
5333: pa_debug.g_err_stage := 'Deliverable Enabled ['||G_DLVR_STRUCTURE_ENABLED||']';
5334: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
5335: END IF;
5336:
5337: i := p_deliverables_in.first();
5338:
9275: G_tasks_in_tbl(G_tasks_tbl_count).gen_etc_source_code := p_gen_etc_source_code;
9276: G_tasks_in_tbl(G_tasks_tbl_count).adj_on_std_inv := p_adj_on_std_inv;
9277: -- set the new params - bug #3654243 -------------------------------------------------
9278:
9279: pa_debug.write('load_tasks','p_etc_effort'||p_etc_effort,3);
9280: pa_debug.write('load_tasks','p_percent_complete'||p_percent_complete,3);
9281:
9282: -- Progress Management Changes. Bug # 3420093.
9283: G_tasks_in_tbl(G_tasks_tbl_count).etc_effort := p_etc_effort;
9276: G_tasks_in_tbl(G_tasks_tbl_count).adj_on_std_inv := p_adj_on_std_inv;
9277: -- set the new params - bug #3654243 -------------------------------------------------
9278:
9279: pa_debug.write('load_tasks','p_etc_effort'||p_etc_effort,3);
9280: pa_debug.write('load_tasks','p_percent_complete'||p_percent_complete,3);
9281:
9282: -- Progress Management Changes. Bug # 3420093.
9283: G_tasks_in_tbl(G_tasks_tbl_count).etc_effort := p_etc_effort;
9284: G_tasks_in_tbl(G_tasks_tbl_count).percent_complete := p_percent_complete;
10916: END IF;
10917:
10918: p_return_status := FND_API.G_RET_STS_SUCCESS;
10919:
10920: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
10921:
10922: --
10923: -- If structure_version_id has been provided
10924: -- check to see if this version is updatable
10935:
10936:
10937: --bug 4619824
10938: IF l_debug_mode = 'Y' THEN
10939: pa_debug.g_err_stage := 'Checking if the project is a program project';
10940: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10941: END IF;
10942:
10943: IF p_pm_product_code IS NOT NULL
10936:
10937: --bug 4619824
10938: IF l_debug_mode = 'Y' THEN
10939: pa_debug.g_err_stage := 'Checking if the project is a program project';
10940: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10941: END IF;
10942:
10943: IF p_pm_product_code IS NOT NULL
10944: AND p_pm_product_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
10953: END IF;
10954: --end bug 4619824
10955:
10956: IF l_debug_mode = 'Y' THEN
10957: pa_debug.g_err_stage := 'Calling PA_PROJECT_STRUCTURE_UTILS.is_structure_version_updatable' || p_structure_in.structure_version_id;
10958: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10959: END IF;
10960:
10961: IF ( l_structure_version_id IS NOT NULL AND l_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )
10954: --end bug 4619824
10955:
10956: IF l_debug_mode = 'Y' THEN
10957: pa_debug.g_err_stage := 'Calling PA_PROJECT_STRUCTURE_UTILS.is_structure_version_updatable' || p_structure_in.structure_version_id;
10958: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10959: END IF;
10960:
10961: IF ( l_structure_version_id IS NOT NULL AND l_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )
10962: THEN
10982:
10983: if (p_update_mode = 'PA_UPD_WBS_ATTR') and (p_pm_product_code <> 'WORKPLAN') then -- Bug # 4758888.
10984:
10985: IF l_debug_mode = 'Y' THEN
10986: pa_debug.g_err_stage := 'Before calling pa_project_structure_utils.lock_unlock_wp_str_autonomous for LOCKING'||
10987: 'p_project_in.pa_project_id='||p_project_in.pa_project_id||
10988: '-l_structure_version_id='||l_structure_version_id;
10989: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10990: END IF;
10985: IF l_debug_mode = 'Y' THEN
10986: pa_debug.g_err_stage := 'Before calling pa_project_structure_utils.lock_unlock_wp_str_autonomous for LOCKING'||
10987: 'p_project_in.pa_project_id='||p_project_in.pa_project_id||
10988: '-l_structure_version_id='||l_structure_version_id;
10989: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10990: END IF;
10991:
10992: pa_project_structure_utils.lock_unlock_wp_str_autonomous
10993: (p_project_id => p_project_in.pa_project_id
10998: ,x_msg_count => l_x_msg_count
10999: ,x_msg_data => l_x_msg_data);
11000:
11001: IF l_debug_mode = 'Y' THEN
11002: pa_debug.g_err_stage := 'After calling pa_project_structure_utils.lock_unlock_wp_str_autonomous for LOCKING'||
11003: 'l_x_return_status='||l_x_return_status;
11004: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11005: END IF;
11006:
11000:
11001: IF l_debug_mode = 'Y' THEN
11002: pa_debug.g_err_stage := 'After calling pa_project_structure_utils.lock_unlock_wp_str_autonomous for LOCKING'||
11003: 'l_x_return_status='||l_x_return_status;
11004: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11005: END IF;
11006:
11007: IF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11008: THEN
11052:
11053: struct_ver_updatable := PA_PROJECT_STRUCTURE_UTILS.is_structure_version_updatable(l_structure_version_id);
11054:
11055: IF l_debug_mode = 'Y' THEN
11056: pa_debug.g_err_stage := 'struct_ver_updatable='||struct_ver_updatable;
11057: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11058: END IF;
11059:
11060: IF (struct_ver_updatable IS NULL OR struct_ver_updatable = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
11053: struct_ver_updatable := PA_PROJECT_STRUCTURE_UTILS.is_structure_version_updatable(l_structure_version_id);
11054:
11055: IF l_debug_mode = 'Y' THEN
11056: pa_debug.g_err_stage := 'struct_ver_updatable='||struct_ver_updatable;
11057: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11058: END IF;
11059:
11060: IF (struct_ver_updatable IS NULL OR struct_ver_updatable = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
11061: OR struct_ver_updatable = 'N')
11213: --bug 2471668
11214: -- convert pm_project_reference to id
11215:
11216: IF l_debug_mode = 'Y' THEN
11217: pa_debug.g_err_stage := 'Performing ref to id conversion...';
11218: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11219: END IF;
11220:
11221:
11214: -- convert pm_project_reference to id
11215:
11216: IF l_debug_mode = 'Y' THEN
11217: pa_debug.g_err_stage := 'Performing ref to id conversion...';
11218: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11219: END IF;
11220:
11221:
11222: Pa_project_pvt.Convert_pm_projref_to_id (
11239: --bug 2471668
11240:
11241:
11242: IF l_debug_mode = 'Y' THEN
11243: pa_debug.g_err_stage := 'Performing security check...';
11244: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11245: END IF;
11246:
11247: -- As part of enforcing project security, which would determine
11240:
11241:
11242: IF l_debug_mode = 'Y' THEN
11243: pa_debug.g_err_stage := 'Performing security check...';
11244: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11245: END IF;
11246:
11247: -- As part of enforcing project security, which would determine
11248: -- whether the user has the necessary privileges to update the project
11391: --bug 2738747
11392: G_WP_STR_EXISTS := PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( l_project_id );
11393:
11394: IF l_debug_mode = 'Y' THEN
11395: pa_debug.g_err_stage := 'G_Published_version_exists='||G_Published_version_exists;
11396: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11397: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11398: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11399: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11392: G_WP_STR_EXISTS := PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( l_project_id );
11393:
11394: IF l_debug_mode = 'Y' THEN
11395: pa_debug.g_err_stage := 'G_Published_version_exists='||G_Published_version_exists;
11396: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11397: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11398: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11399: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11400: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11393:
11394: IF l_debug_mode = 'Y' THEN
11395: pa_debug.g_err_stage := 'G_Published_version_exists='||G_Published_version_exists;
11396: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11397: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11398: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11399: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11400: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11401: pa_debug.g_err_stage := 'G_WP_STR_EXISTS='||G_WP_STR_EXISTS;
11394: IF l_debug_mode = 'Y' THEN
11395: pa_debug.g_err_stage := 'G_Published_version_exists='||G_Published_version_exists;
11396: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11397: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11398: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11399: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11400: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11401: pa_debug.g_err_stage := 'G_WP_STR_EXISTS='||G_WP_STR_EXISTS;
11402: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11395: pa_debug.g_err_stage := 'G_Published_version_exists='||G_Published_version_exists;
11396: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11397: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11398: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11399: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11400: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11401: pa_debug.g_err_stage := 'G_WP_STR_EXISTS='||G_WP_STR_EXISTS;
11402: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11403: END IF;
11396: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11397: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11398: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11399: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11400: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11401: pa_debug.g_err_stage := 'G_WP_STR_EXISTS='||G_WP_STR_EXISTS;
11402: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11403: END IF;
11404:
11397: pa_debug.g_err_stage := 'G_IS_WP_SEPARATE_FROM_FN='||G_IS_WP_SEPARATE_FROM_FN;
11398: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11399: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11400: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11401: pa_debug.g_err_stage := 'G_WP_STR_EXISTS='||G_WP_STR_EXISTS;
11402: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11403: END IF;
11404:
11405:
11398: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11399: pa_debug.g_err_stage := 'G_IS_WP_VERSIONING_ENABLED='||G_IS_WP_VERSIONING_ENABLED;
11400: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11401: pa_debug.g_err_stage := 'G_WP_STR_EXISTS='||G_WP_STR_EXISTS;
11402: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11403: END IF;
11404:
11405:
11406: --bug 2876703 --update_project
11506: END IF;
11507: --bug 2738747
11508:
11509: IF l_debug_mode = 'Y' THEN
11510: pa_debug.g_err_stage := 'l_structure_type='||l_structure_type;
11511: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11512: END IF;
11513:
11514:
11507: --bug 2738747
11508:
11509: IF l_debug_mode = 'Y' THEN
11510: pa_debug.g_err_stage := 'l_structure_type='||l_structure_type;
11511: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11512: END IF;
11513:
11514:
11515: -- Need to fetch information from pa_project_types
11521: l_service_type_code, l_revaluate_funding,l_include_gains_and_losses;
11522: CLOSE l_project_type_csr;
11523:
11524: IF l_debug_mode = 'Y' THEN
11525: pa_debug.g_err_stage := 'Preparing to update project level data...';
11526: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11527: END IF;
11528:
11529:
11522: CLOSE l_project_type_csr;
11523:
11524: IF l_debug_mode = 'Y' THEN
11525: pa_debug.g_err_stage := 'Preparing to update project level data...';
11526: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11527: END IF;
11528:
11529:
11530:
15503: END IF;
15504: END IF;
15505:
15506: IF l_debug_mode = 'Y' THEN
15507: pa_debug.write(l_module_name,'l_b_sys_program_flag_fg=' || l_b_sys_program_flag_fg,3);
15508: pa_debug.write(l_module_name,'l_b_allow_multi_prog_rollup_fg='||l_b_allow_multi_prog_rollup_fg,3);
15509: END IF;
15510:
15511: IF l_b_sys_program_flag_fg = 'Y' OR
15504: END IF;
15505:
15506: IF l_debug_mode = 'Y' THEN
15507: pa_debug.write(l_module_name,'l_b_sys_program_flag_fg=' || l_b_sys_program_flag_fg,3);
15508: pa_debug.write(l_module_name,'l_b_allow_multi_prog_rollup_fg='||l_b_allow_multi_prog_rollup_fg,3);
15509: END IF;
15510:
15511: IF l_b_sys_program_flag_fg = 'Y' OR
15512: l_b_allow_multi_prog_rollup_fg = 'Y'
15512: l_b_allow_multi_prog_rollup_fg = 'Y'
15513: THEN
15514:
15515: IF l_debug_mode = 'Y' THEN
15516: pa_debug.write(l_module_name,'Before Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15517: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15518: pa_debug.write(l_module_name,'p_project_in.sys_program_flag='||p_project_in.sys_program_flag,3);
15519: pa_debug.write(l_module_name,'p_project_in.allow_multi_program_rollup='||p_project_in.allow_multi_program_rollup,3);
15520: END IF;
15513: THEN
15514:
15515: IF l_debug_mode = 'Y' THEN
15516: pa_debug.write(l_module_name,'Before Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15517: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15518: pa_debug.write(l_module_name,'p_project_in.sys_program_flag='||p_project_in.sys_program_flag,3);
15519: pa_debug.write(l_module_name,'p_project_in.allow_multi_program_rollup='||p_project_in.allow_multi_program_rollup,3);
15520: END IF;
15521:
15514:
15515: IF l_debug_mode = 'Y' THEN
15516: pa_debug.write(l_module_name,'Before Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15517: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15518: pa_debug.write(l_module_name,'p_project_in.sys_program_flag='||p_project_in.sys_program_flag,3);
15519: pa_debug.write(l_module_name,'p_project_in.allow_multi_program_rollup='||p_project_in.allow_multi_program_rollup,3);
15520: END IF;
15521:
15522: PA_PROJECT_PUB.SETUP_PROJECT_AS_PROGRAM(
15515: IF l_debug_mode = 'Y' THEN
15516: pa_debug.write(l_module_name,'Before Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15517: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15518: pa_debug.write(l_module_name,'p_project_in.sys_program_flag='||p_project_in.sys_program_flag,3);
15519: pa_debug.write(l_module_name,'p_project_in.allow_multi_program_rollup='||p_project_in.allow_multi_program_rollup,3);
15520: END IF;
15521:
15522: PA_PROJECT_PUB.SETUP_PROJECT_AS_PROGRAM(
15523: p_api_version => p_api_version_number
15532: , x_return_status => l_return_status
15533: );
15534:
15535: IF l_debug_mode = 'Y' THEN
15536: pa_debug.write(l_module_name,'After Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15537: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15538: pa_debug.write(l_module_name,'l_return_status='||l_return_status,3);
15539: END IF;
15540:
15533: );
15534:
15535: IF l_debug_mode = 'Y' THEN
15536: pa_debug.write(l_module_name,'After Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15537: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15538: pa_debug.write(l_module_name,'l_return_status='||l_return_status,3);
15539: END IF;
15540:
15541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15534:
15535: IF l_debug_mode = 'Y' THEN
15536: pa_debug.write(l_module_name,'After Calling SETUP_PROJECT_AS_PROGRAM in Update_Project flow' ,3);
15537: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15538: pa_debug.write(l_module_name,'l_return_status='||l_return_status,3);
15539: END IF;
15540:
15541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15542: THEN
16397: dbms_sql.close_cursor (l_cursor);
16398: END IF;
16399: END IF;-- Skip below update to avoid locking issue when called from Bulk_Update_Task_Lite
16400: IF l_debug_mode = 'Y' THEN
16401: pa_debug.g_err_stage := 'Done with updating project level data...';
16402: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16403: END IF;
16404:
16405: -- anlee
16398: END IF;
16399: END IF;-- Skip below update to avoid locking issue when called from Bulk_Update_Task_Lite
16400: IF l_debug_mode = 'Y' THEN
16401: pa_debug.g_err_stage := 'Done with updating project level data...';
16402: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16403: END IF;
16404:
16405: -- anlee
16406: -- Added for intermedia search
16414: ,p_project_description => l_ctx_desc
16415: ,x_return_status => l_return_status );
16416:
16417: IF l_debug_mode = 'Y' THEN
16418: pa_debug.g_err_stage := 'After calling PA_PROJECT_CTX_SEARCH_PVT.UPDATE_ROW l_return_status='||l_return_status;
16419: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16420: END IF;
16421:
16422:
16415: ,x_return_status => l_return_status );
16416:
16417: IF l_debug_mode = 'Y' THEN
16418: pa_debug.g_err_stage := 'After calling PA_PROJECT_CTX_SEARCH_PVT.UPDATE_ROW l_return_status='||l_return_status;
16419: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16420: END IF;
16421:
16422:
16423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16467: ,x_msg_count => l_msg_count
16468: ,x_msg_data => l_msg_data);
16469:
16470: IF l_debug_mode = 'Y' THEN
16471: pa_debug.g_err_stage := 'After calling PA_OPPORTUNITY_MGT_PVT.MODIFY_PROJECT_ATTRIBUTES l_return_status='||l_return_status;
16472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16473: END IF;
16474:
16475:
16468: ,x_msg_data => l_msg_data);
16469:
16470: IF l_debug_mode = 'Y' THEN
16471: pa_debug.g_err_stage := 'After calling PA_OPPORTUNITY_MGT_PVT.MODIFY_PROJECT_ATTRIBUTES l_return_status='||l_return_status;
16472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16473: END IF;
16474:
16475:
16476: if l_return_status <> 'S' then
16710: ,x_return_status => l_return_status
16711: );
16712:
16713: IF l_debug_mode = 'Y' THEN
16714: pa_debug.g_err_stage := 'After calling PA_PROJ_TASK_STRUC_PUB.create_structure l_return_status='||l_return_status;
16715: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16716: END IF;
16717:
16718:
16711: );
16712:
16713: IF l_debug_mode = 'Y' THEN
16714: pa_debug.g_err_stage := 'After calling PA_PROJ_TASK_STRUC_PUB.create_structure l_return_status='||l_return_status;
16715: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16716: END IF;
16717:
16718:
16719: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16757: ,x_return_status => l_return_status
16758: );
16759:
16760: IF l_debug_mode = 'Y' THEN
16761: pa_debug.g_err_stage := 'After calling PA_PROJ_TASK_STRUC_PUB.create_update_struct_ver l_return_status='||l_return_status;
16762: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16763: END IF;
16764:
16765:
16758: );
16759:
16760: IF l_debug_mode = 'Y' THEN
16761: pa_debug.g_err_stage := 'After calling PA_PROJ_TASK_STRUC_PUB.create_update_struct_ver l_return_status='||l_return_status;
16762: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16763: END IF;
16764:
16765:
16766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16799: ,x_msg_data => l_msg_data
16800: ,x_return_status => l_return_status );
16801:
16802: IF l_debug_mode = 'Y' THEN
16803: pa_debug.g_err_stage := 'After calling PA_PROJ_TASK_STRUC_PUB.create_tasks_versions_only l_return_status='||l_return_status;
16804: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16805: END IF;
16806:
16807:
16800: ,x_return_status => l_return_status );
16801:
16802: IF l_debug_mode = 'Y' THEN
16803: pa_debug.g_err_stage := 'After calling PA_PROJ_TASK_STRUC_PUB.create_tasks_versions_only l_return_status='||l_return_status;
16804: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16805: END IF;
16806:
16807:
16808: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16818:
16819:
16820: -- For bug2931183 Adding to keep a track of structure version id to be updated
16821: IF l_debug_mode = 'Y' THEN
16822: pa_debug.g_err_stage := ' the value of l_structure_type' || l_structure_type;
16823: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16824: END IF;
16825:
16826: IF l_structure_version_id IS NULL
16819:
16820: -- For bug2931183 Adding to keep a track of structure version id to be updated
16821: IF l_debug_mode = 'Y' THEN
16822: pa_debug.g_err_stage := ' the value of l_structure_type' || l_structure_type;
16823: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16824: END IF;
16825:
16826: IF l_structure_version_id IS NULL
16827: THEN
16848: l_update_structure_version_id := l_structure_version_id;
16849: END IF;
16850:
16851: IF l_debug_mode = 'Y' THEN
16852: pa_debug.g_err_stage := ' the value of l_update_structure_version_id' || l_update_structure_version_id;
16853: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16854: END IF;
16855:
16856:
16849: END IF;
16850:
16851: IF l_debug_mode = 'Y' THEN
16852: pa_debug.g_err_stage := ' the value of l_update_structure_version_id' || l_update_structure_version_id;
16853: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16854: END IF;
16855:
16856:
16857: --Project Structures
17270: END IF ;
17271: /* End changes for bug 10043448*/
17272:
17273: IF l_debug_mode = 'Y' THEN
17274: pa_debug.write(l_module_name,'Calling update Task',3);
17275: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(i).etc_effort,3);
17276: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(i).percent_complete,3);
17277: END IF;
17278: ----dbms_output.put_line('value of p_tasks_in(i).pa_task_number before calling update_task'||p_tasks_in(i).pa_task_number);
17271: /* End changes for bug 10043448*/
17272:
17273: IF l_debug_mode = 'Y' THEN
17274: pa_debug.write(l_module_name,'Calling update Task',3);
17275: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(i).etc_effort,3);
17276: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(i).percent_complete,3);
17277: END IF;
17278: ----dbms_output.put_line('value of p_tasks_in(i).pa_task_number before calling update_task'||p_tasks_in(i).pa_task_number);
17279:
17272:
17273: IF l_debug_mode = 'Y' THEN
17274: pa_debug.write(l_module_name,'Calling update Task',3);
17275: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(i).etc_effort,3);
17276: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(i).percent_complete,3);
17277: END IF;
17278: ----dbms_output.put_line('value of p_tasks_in(i).pa_task_number before calling update_task'||p_tasks_in(i).pa_task_number);
17279:
17280: Update_Task (
17443: ,p_adj_on_std_inv =>p_tasks_in(i).adj_on_std_inv /* Added for 12.2Payroll billing ER 11899223 */
17444: );
17445:
17446: IF l_debug_mode = 'Y' THEN
17447: pa_debug.g_err_stage := 'After update_task first call...l_return_status=||l_return_status';
17448: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17449: END IF;
17450:
17451:
17444: );
17445:
17446: IF l_debug_mode = 'Y' THEN
17447: pa_debug.g_err_stage := 'After update_task first call...l_return_status=||l_return_status';
17448: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17449: END IF;
17450:
17451:
17452: ----dbms_output.put_line('Value of return status of update_task' ||l_return_status);
17506: end loop;
17507: --Project Structures
17508:
17509: IF l_debug_mode = 'Y' THEN
17510: pa_debug.write(l_module_name,'Calling update Task',3);
17511: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).etc_effort,3);
17512: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).percent_complete,3);
17513: END IF;
17514: Update_Task (
17507: --Project Structures
17508:
17509: IF l_debug_mode = 'Y' THEN
17510: pa_debug.write(l_module_name,'Calling update Task',3);
17511: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).etc_effort,3);
17512: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).percent_complete,3);
17513: END IF;
17514: Update_Task (
17515: p_api_version_number => p_api_version_number,
17508:
17509: IF l_debug_mode = 'Y' THEN
17510: pa_debug.write(l_module_name,'Calling update Task',3);
17511: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).etc_effort,3);
17512: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).percent_complete,3);
17513: END IF;
17514: Update_Task (
17515: p_api_version_number => p_api_version_number,
17516: p_commit => FND_API.G_FALSE,
17724:
17725: ); -- modified p_update_task_structure value for bug 3548473 : Bug 3627124
17726:
17727: IF l_debug_mode = 'Y' THEN
17728: pa_debug.g_err_stage := 'After update_task second call...l_return_status=||l_return_status';
17729: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17730: END IF;
17731:
17732:
17725: ); -- modified p_update_task_structure value for bug 3548473 : Bug 3627124
17726:
17727: IF l_debug_mode = 'Y' THEN
17728: pa_debug.g_err_stage := 'After update_task second call...l_return_status=||l_return_status';
17729: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17730: END IF;
17731:
17732:
17733: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17852: p_service_type_code => l_service_type_code,
17853: p_task_id => l_task_id);
17854:
17855: IF l_debug_mode = 'Y' THEN
17856: pa_debug.g_err_stage := 'After PA_PROJECT_PVT.add_task_round_one...l_return_status=||l_return_status';
17857: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17858: END IF;
17859:
17860:
17853: p_task_id => l_task_id);
17854:
17855: IF l_debug_mode = 'Y' THEN
17856: pa_debug.g_err_stage := 'After PA_PROJECT_PVT.add_task_round_one...l_return_status=||l_return_status';
17857: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17858: END IF;
17859:
17860:
17861: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17956: --project structure
17957: ); -- modified p_update_task_structure value for bug 3548473 : 3627124
17958:
17959: IF l_debug_mode = 'Y' THEN
17960: pa_debug.g_err_stage := 'After calling PA_PROJECT_PVT.add_task_round_two l_return_status='||l_return_status;
17961: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17962: END IF;
17963:
17964:
17957: ); -- modified p_update_task_structure value for bug 3548473 : 3627124
17958:
17959: IF l_debug_mode = 'Y' THEN
17960: pa_debug.g_err_stage := 'After calling PA_PROJECT_PVT.add_task_round_two l_return_status='||l_return_status;
17961: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17962: END IF;
17963:
17964:
17965: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18456: --Added for bug 2931183
18457: IF nvl(p_pm_product_code,'WORKPLAN') <> 'WORKPLAN' AND p_pass_entire_structure = 'Y' -- bug 3548473 : 3627124
18458: THEN
18459: IF l_debug_mode = 'Y' THEN
18460: pa_debug.g_err_stage := 'Calling PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
18461: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18462: END IF;
18463:
18464: PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK(
18457: IF nvl(p_pm_product_code,'WORKPLAN') <> 'WORKPLAN' AND p_pass_entire_structure = 'Y' -- bug 3548473 : 3627124
18458: THEN
18459: IF l_debug_mode = 'Y' THEN
18460: pa_debug.g_err_stage := 'Calling PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
18461: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18462: END IF;
18463:
18464: PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK(
18465: p_api_version_number => p_api_version_number
18481: ,x_msg_data => p_msg_data
18482: );
18483:
18484: IF l_debug_mode = 'Y' THEN
18485: pa_debug.g_err_stage := 'After PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK...p_return_status=||p_return_status';
18486: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18487: END IF;
18488:
18489:
18482: );
18483:
18484: IF l_debug_mode = 'Y' THEN
18485: pa_debug.g_err_stage := 'After PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK...p_return_status=||p_return_status';
18486: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18487: END IF;
18488:
18489:
18490: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18488:
18489:
18490: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18491: IF l_debug_mode = 'Y' THEN
18492: pa_debug.g_err_stage := 'Errors in PROCESS_TASK_STRUCTURE_BULK ' ;
18493: pa_debug.write(l_module_name,pa_debug.g_err_stage,4);
18494: END IF;
18495: p_multiple_task_msg := 'F';
18496: RAISE FND_API.G_EXC_ERROR;
18489:
18490: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18491: IF l_debug_mode = 'Y' THEN
18492: pa_debug.g_err_stage := 'Errors in PROCESS_TASK_STRUCTURE_BULK ' ;
18493: pa_debug.write(l_module_name,pa_debug.g_err_stage,4);
18494: END IF;
18495: p_multiple_task_msg := 'F';
18496: RAISE FND_API.G_EXC_ERROR;
18497: END IF;
18496: RAISE FND_API.G_EXC_ERROR;
18497: END IF;
18498:
18499: IF l_debug_mode = 'Y' THEN
18500: pa_debug.g_err_stage := 'Returned from PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
18501: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18502: END IF;
18503: END IF; --for p_pm_product_code is not workplan
18504:
18497: END IF;
18498:
18499: IF l_debug_mode = 'Y' THEN
18500: pa_debug.g_err_stage := 'Returned from PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
18501: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18502: END IF;
18503: END IF; --for p_pm_product_code is not workplan
18504:
18505: -- Bug 6163090 Moved the code here from above
21635: ELSIF l_verify_ok_flag = 'Y' THEN
21636: SELECT pa_obj_status_changes_s.NEXTVAL INTO l_obj_status_change_id FROM dual;
21637:
21638: IF (l_debug_mode = 'Y') THEN
21639: pa_debug.debug('Calling PA_OBJ_STATUS_CHANGES_PKG.INSERT_ROW');
21640: pa_debug.debug('Project_id '|| l_project_rec.project_id);
21641: pa_debug.debug('Old project_status_code '|| l_project_rec.project_status_code);
21642: pa_debug.debug('New project_status_code'|| p_project_in.project_status_code);
21643: END IF;
21636: SELECT pa_obj_status_changes_s.NEXTVAL INTO l_obj_status_change_id FROM dual;
21637:
21638: IF (l_debug_mode = 'Y') THEN
21639: pa_debug.debug('Calling PA_OBJ_STATUS_CHANGES_PKG.INSERT_ROW');
21640: pa_debug.debug('Project_id '|| l_project_rec.project_id);
21641: pa_debug.debug('Old project_status_code '|| l_project_rec.project_status_code);
21642: pa_debug.debug('New project_status_code'|| p_project_in.project_status_code);
21643: END IF;
21644:
21637:
21638: IF (l_debug_mode = 'Y') THEN
21639: pa_debug.debug('Calling PA_OBJ_STATUS_CHANGES_PKG.INSERT_ROW');
21640: pa_debug.debug('Project_id '|| l_project_rec.project_id);
21641: pa_debug.debug('Old project_status_code '|| l_project_rec.project_status_code);
21642: pa_debug.debug('New project_status_code'|| p_project_in.project_status_code);
21643: END IF;
21644:
21645: OPEN cur_get_system_status(l_project_rec.project_status_code);
21638: IF (l_debug_mode = 'Y') THEN
21639: pa_debug.debug('Calling PA_OBJ_STATUS_CHANGES_PKG.INSERT_ROW');
21640: pa_debug.debug('Project_id '|| l_project_rec.project_id);
21641: pa_debug.debug('Old project_status_code '|| l_project_rec.project_status_code);
21642: pa_debug.debug('New project_status_code'|| p_project_in.project_status_code);
21643: END IF;
21644:
21645: OPEN cur_get_system_status(l_project_rec.project_status_code);
21646: FETCH cur_get_system_status INTO l_old_sys_status;
21650: FETCH cur_get_system_status INTO l_new_sys_status;
21651: CLOSE cur_get_system_status;
21652:
21653: IF (l_debug_mode = 'Y') THEN
21654: pa_debug.debug('Old project_sys_status_code '|| l_old_sys_status);
21655: pa_debug.debug('New project_sys_status_code '|| l_new_sys_status);
21656: END IF;
21657:
21658: --For inserting status change comment into the status history table
21651: CLOSE cur_get_system_status;
21652:
21653: IF (l_debug_mode = 'Y') THEN
21654: pa_debug.debug('Old project_sys_status_code '|| l_old_sys_status);
21655: pa_debug.debug('New project_sys_status_code '|| l_new_sys_status);
21656: END IF;
21657:
21658: --For inserting status change comment into the status history table
21659: PA_OBJ_STATUS_CHANGES_PKG.INSERT_ROW
21673: X_LAST_UPDATE_DATE => sysdate,
21674: X_LAST_UPDATE_LOGIN => fnd_global.user_id );
21675:
21676: IF (l_debug_mode = 'Y') THEN
21677: pa_debug.debug(' Updated PA_PROJECTS_ALL for status history');
21678: END IF;
21679:
21680: --Fix for bug#9110781 Ends
21681:
22243: AND p_structure_in.structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
22244: THEN
22245:
22246: IF l_debug_mode = 'Y' THEN
22247: pa_debug.g_err_stage := 'Before calling pa_project_structure_utils.lock_unlock_wp_str for UNLOCKING'||
22248: 'p_project_in.pa_project_id='||p_project_in.pa_project_id||
22249: '-l_structure_version_id='||l_structure_version_id;
22250: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
22251: END IF;
22246: IF l_debug_mode = 'Y' THEN
22247: pa_debug.g_err_stage := 'Before calling pa_project_structure_utils.lock_unlock_wp_str for UNLOCKING'||
22248: 'p_project_in.pa_project_id='||p_project_in.pa_project_id||
22249: '-l_structure_version_id='||l_structure_version_id;
22250: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
22251: END IF;
22252:
22253: pa_project_structure_utils.lock_unlock_wp_str
22254: (p_project_id => p_project_in.pa_project_id
22259: ,x_msg_count => l_x_msg_count
22260: ,x_msg_data => l_x_msg_data);
22261:
22262: IF l_debug_mode = 'Y' THEN
22263: pa_debug.g_err_stage := 'After calling pa_project_structure_utils.lock_unlock_wp_str for UNLOCKING'||
22264: 'l_x_return_status='||l_x_return_status;
22265: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
22266: END IF;
22267:
22261:
22262: IF l_debug_mode = 'Y' THEN
22263: pa_debug.g_err_stage := 'After calling pa_project_structure_utils.lock_unlock_wp_str for UNLOCKING'||
22264: 'l_x_return_status='||l_x_return_status;
22265: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
22266: END IF;
22267:
22268: IF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
22269: THEN
29070: -- Standard begin of API savepoint.
29071:
29072: savepoint APPLY_LP_PROG_ON_CWV;
29073:
29074: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
29075:
29076: -- Standard call to check for call compatibility.
29077:
29078: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
29332: -- assign a value to the global counter for this table
29333: G_deliverables_in_tbl_count := G_deliverables_in_tbl_count + 1;
29334:
29335: IF p_debug_mode = 'Y' THEN
29336: pa_debug.g_err_stage := 'Loading deliverable ['|| p_deliverable_short_name||'] element [ '||G_deliverables_in_tbl_count ||']';
29337: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29338: END IF;
29339:
29340: -- assign incoming parameters to the global table fields
29333: G_deliverables_in_tbl_count := G_deliverables_in_tbl_count + 1;
29334:
29335: IF p_debug_mode = 'Y' THEN
29336: pa_debug.g_err_stage := 'Loading deliverable ['|| p_deliverable_short_name||'] element [ '||G_deliverables_in_tbl_count ||']';
29337: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29338: END IF;
29339:
29340: -- assign incoming parameters to the global table fields
29341: G_deliverables_in_tbl(G_deliverables_in_tbl_count).deliverable_name := p_deliverable_name ;
29675: -- assign a value to the global counter for this table
29676: G_dlvr_actions_in_tbl_count := G_dlvr_actions_in_tbl_count + 1;
29677:
29678: IF p_debug_mode = 'Y' THEN
29679: pa_debug.g_err_stage := 'Loading action ['|| p_action_name||'] element [ '||G_dlvr_actions_in_tbl_count ||']';
29680: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29681: END IF;
29682:
29683: -- assign incoming parameters to the global table fields
29676: G_dlvr_actions_in_tbl_count := G_dlvr_actions_in_tbl_count + 1;
29677:
29678: IF p_debug_mode = 'Y' THEN
29679: pa_debug.g_err_stage := 'Loading action ['|| p_action_name||'] element [ '||G_dlvr_actions_in_tbl_count ||']';
29680: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
29681: END IF;
29682:
29683: -- assign incoming parameters to the global table fields
29684: G_deliverable_actions_in_tbl(G_dlvr_actions_in_tbl_count).action_name := p_action_name ;
30168: RAISE FND_API.G_EXC_ERROR;
30169: END IF;
30170:
30171: IF p_debug_mode = 'Y' THEN
30172: PA_DEBUG.set_curr_function( p_function => l_api_name,
30173: p_debug_mode => p_debug_mode );
30174: pa_debug.g_err_stage:= 'Inside '||l_api_name;
30175: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30176: END IF;
30170:
30171: IF p_debug_mode = 'Y' THEN
30172: PA_DEBUG.set_curr_function( p_function => l_api_name,
30173: p_debug_mode => p_debug_mode );
30174: pa_debug.g_err_stage:= 'Inside '||l_api_name;
30175: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30176: END IF;
30177:
30178: -- Set API return status to success
30171: IF p_debug_mode = 'Y' THEN
30172: PA_DEBUG.set_curr_function( p_function => l_api_name,
30173: p_debug_mode => p_debug_mode );
30174: pa_debug.g_err_stage:= 'Inside '||l_api_name;
30175: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30176: END IF;
30177:
30178: -- Set API return status to success
30179: x_return_status := FND_API.G_RET_STS_SUCCESS;
30204: p_return_status => x_return_status,
30205: p_function_allowed => l_function_allowed);
30206:
30207: IF p_debug_mode = 'Y' THEN
30208: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
30209: END IF;
30210:
30211: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30230: , p_return_status => x_return_status
30231: );
30232:
30233: IF p_debug_mode = 'Y' THEN
30234: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
30235: END IF;
30236:
30237: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30249: , p_out_task_id => l_task_id
30250: , p_return_status => x_return_status );
30251:
30252: IF p_debug_mode = 'Y' THEN
30253: pa_debug.write(g_pkg_name,'Task Ref to ID Return Status ['||x_return_status||']Task ID['||l_task_id||']',3) ;
30254: END IF;
30255:
30256: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30292: , x_unique_flag => l_unique_flag
30293: , x_return_status => x_return_status );
30294:
30295: IF p_debug_mode = 'Y' THEN
30296: pa_debug.write(g_pkg_name,'Dlvr Reference Unique Return Status ['||x_return_status||']Unique['||l_unique_flag||']',3) ;
30297: END IF;
30298:
30299: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30316: FROM Pa_Projects_All
30317: WHERE project_id = l_project_id;
30318:
30319: IF p_debug_mode = 'Y' THEN
30320: pa_debug.g_err_stage := 'Creating deliverable ['|| p_deliverable_short_name||']['||p_pm_deliverable_reference||']['
30321: ||p_deliverable_owner_id||']['||p_deliverable_Type_id||']['||l_project_id||']['||l_task_id||']';
30322: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30323: END IF;
30324:
30318:
30319: IF p_debug_mode = 'Y' THEN
30320: pa_debug.g_err_stage := 'Creating deliverable ['|| p_deliverable_short_name||']['||p_pm_deliverable_reference||']['
30321: ||p_deliverable_owner_id||']['||p_deliverable_Type_id||']['||l_project_id||']['||l_task_id||']';
30322: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30323: END IF;
30324:
30325: -- Check if deliverable is enabled for project.
30326: -- If not then first enable it before creating the deliverable.
30329: -- check for target project, whether deliverable is enabled or not
30330: -- if deliverable is not enabled and deliverables are loaded, throw error message
30331:
30332: IF p_debug_mode = 'Y' THEN
30333: pa_debug.g_err_stage := 'Deliverable Enabled ['||G_DLVR_STRUCTURE_ENABLED||']';
30334: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30335: END IF;
30336:
30337: IF G_DLVR_STRUCTURE_ENABLED IS NULL THEN
30330: -- if deliverable is not enabled and deliverables are loaded, throw error message
30331:
30332: IF p_debug_mode = 'Y' THEN
30333: pa_debug.g_err_stage := 'Deliverable Enabled ['||G_DLVR_STRUCTURE_ENABLED||']';
30334: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30335: END IF;
30336:
30337: IF G_DLVR_STRUCTURE_ENABLED IS NULL THEN
30338: G_DLVR_STRUCTURE_ENABLED := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_id);
30337: IF G_DLVR_STRUCTURE_ENABLED IS NULL THEN
30338: G_DLVR_STRUCTURE_ENABLED := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_id);
30339:
30340: IF p_debug_mode = 'Y' THEN
30341: pa_debug.g_err_stage := 'Deliverable Enabled ['||G_DLVR_STRUCTURE_ENABLED||']';
30342: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30343: END IF;
30344: END IF;
30345:
30338: G_DLVR_STRUCTURE_ENABLED := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_id);
30339:
30340: IF p_debug_mode = 'Y' THEN
30341: pa_debug.g_err_stage := 'Deliverable Enabled ['||G_DLVR_STRUCTURE_ENABLED||']';
30342: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30343: END IF;
30344: END IF;
30345:
30346: IF G_DLVR_STRUCTURE_ENABLED = 'N' THEN
30357: /*
30358: l_dlvr_enabled := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_id);
30359:
30360: IF p_debug_mode = 'Y' THEN
30361: pa_debug.g_err_stage := 'Deliverable Enabled ['||l_dlvr_enabled||']';
30362: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30363: END IF;
30364:
30365: IF ( l_dlvr_enabled = 'N' ) THEN
30358: l_dlvr_enabled := Pa_Project_Structure_Utils.Check_Deliverable_Enabled(l_project_id);
30359:
30360: IF p_debug_mode = 'Y' THEN
30361: pa_debug.g_err_stage := 'Deliverable Enabled ['||l_dlvr_enabled||']';
30362: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30363: END IF;
30364:
30365: IF ( l_dlvr_enabled = 'N' ) THEN
30366:
30376: , x_msg_data => x_msg_data
30377: );
30378:
30379: IF p_debug_mode = 'Y' THEN
30380: pa_debug.write(g_pkg_name,'Pa_Deliverable_Utils.enable_deliverable Return Status ['||x_return_status||']',3) ;
30381: END IF;
30382:
30383: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30475:
30476: l_deliverable_element_id := px_deliverable_id ;
30477:
30478: IF p_debug_mode = 'Y' THEN
30479: pa_debug.g_err_stage := 'Created deliverable ['|| l_deliverable_element_id||']['||x_return_status||']';
30480: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30481: END IF;
30482:
30483:
30476: l_deliverable_element_id := px_deliverable_id ;
30477:
30478: IF p_debug_mode = 'Y' THEN
30479: pa_debug.g_err_stage := 'Created deliverable ['|| l_deliverable_element_id||']['||x_return_status||']';
30480: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30481: END IF;
30482:
30483:
30484: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30497: ,x_dlvr_default_status_code => l_status_code
30498: );
30499:
30500: IF p_debug_mode = 'Y' THEN
30501: pa_debug.g_err_stage := 'Dlvr Type allow action creation ['|| l_dlvr_action_enabled||']';
30502: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30503: END IF;
30504:
30505: -- invoke the api pa_actions_pub.create_dlvr_action_wrapper
30498: );
30499:
30500: IF p_debug_mode = 'Y' THEN
30501: pa_debug.g_err_stage := 'Dlvr Type allow action creation ['|| l_dlvr_action_enabled||']';
30502: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30503: END IF;
30504:
30505: -- invoke the api pa_actions_pub.create_dlvr_action_wrapper
30506: -- to create actions for the deliverable, insert records
30526: i := p_action_in_tbl.next(i);
30527: END LOOP;
30528:
30529: IF p_debug_mode = 'Y' THEN
30530: pa_debug.g_err_stage := 'About to Create ['|| i_actn ||'] out of ['||i ||'] Actn enabled ['||l_dlvr_action_enabled||']';
30531: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30532: END IF;
30533:
30534:
30527: END LOOP;
30528:
30529: IF p_debug_mode = 'Y' THEN
30530: pa_debug.g_err_stage := 'About to Create ['|| i_actn ||'] out of ['||i ||'] Actn enabled ['||l_dlvr_action_enabled||']';
30531: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30532: END IF;
30533:
30534:
30535: IF (i_actn > 0 ) THEN
30551: , x_msg_count => x_msg_count
30552: , x_msg_data => x_msg_data);
30553:
30554: IF p_debug_mode = 'Y' THEN
30555: pa_debug.g_err_stage := 'Returned after Create actions for ['|| i_actn ||'] action return['||x_return_status||']';
30556: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30557: END IF;
30558:
30559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30552: , x_msg_data => x_msg_data);
30553:
30554: IF p_debug_mode = 'Y' THEN
30555: pa_debug.g_err_stage := 'Returned after Create actions for ['|| i_actn ||'] action return['||x_return_status||']';
30556: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30557: END IF;
30558:
30559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30591: COMMIT;
30592: END IF;
30593:
30594: IF p_debug_mode = 'Y' THEN
30595: pa_debug.reset_curr_function;
30596: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
30597: END IF;
30598:
30599: EXCEPTION
30592: END IF;
30593:
30594: IF p_debug_mode = 'Y' THEN
30595: pa_debug.reset_curr_function;
30596: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
30597: END IF;
30598:
30599: EXCEPTION
30600: WHEN FND_API.G_EXC_ERROR THEN
30603: ROLLBACK TO CREATE_DELIVERABLE_PUB;
30604: --END IF;
30605:
30606: IF p_debug_mode = 'Y' THEN
30607: pa_debug.reset_curr_function;
30608: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
30609: END IF;
30610: x_return_status := FND_API.G_RET_STS_ERROR;
30611: x_msg_count := FND_MSG_PUB.count_msg;
30604: --END IF;
30605:
30606: IF p_debug_mode = 'Y' THEN
30607: pa_debug.reset_curr_function;
30608: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
30609: END IF;
30610: x_return_status := FND_API.G_RET_STS_ERROR;
30611: x_msg_count := FND_MSG_PUB.count_msg;
30612:
30627: ROLLBACK TO CREATE_DELIVERABLE_PUB;
30628: --END IF;
30629:
30630: IF p_debug_mode = 'Y' THEN
30631: pa_debug.reset_curr_function;
30632: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
30633: END IF;
30634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30635: x_msg_count := FND_MSG_PUB.count_msg;
30628: --END IF;
30629:
30630: IF p_debug_mode = 'Y' THEN
30631: pa_debug.reset_curr_function;
30632: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
30633: END IF;
30634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30635: x_msg_count := FND_MSG_PUB.count_msg;
30636:
30655: x_msg_count := 1;
30656: x_msg_data := SQLERRM;
30657:
30658: IF p_debug_mode = 'Y' THEN
30659: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
30660: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
30661: pa_debug.reset_curr_function;
30662: END IF;
30663:
30656: x_msg_data := SQLERRM;
30657:
30658: IF p_debug_mode = 'Y' THEN
30659: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
30660: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
30661: pa_debug.reset_curr_function;
30662: END IF;
30663:
30664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
30657:
30658: IF p_debug_mode = 'Y' THEN
30659: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
30660: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
30661: pa_debug.reset_curr_function;
30662: END IF;
30663:
30664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
30665: FND_MSG_PUB.add_exc_msg
30813: FND_MSG_PUB.initialize;
30814: END IF;
30815:
30816: IF p_debug_mode = 'Y' THEN
30817: PA_DEBUG.set_curr_function( p_function => l_api_name,
30818: p_debug_mode => p_debug_mode );
30819: pa_debug.g_err_stage:= 'Inside '||l_api_name;
30820: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30821: END IF;
30815:
30816: IF p_debug_mode = 'Y' THEN
30817: PA_DEBUG.set_curr_function( p_function => l_api_name,
30818: p_debug_mode => p_debug_mode );
30819: pa_debug.g_err_stage:= 'Inside '||l_api_name;
30820: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30821: END IF;
30822:
30823: -- Set API return status to success
30816: IF p_debug_mode = 'Y' THEN
30817: PA_DEBUG.set_curr_function( p_function => l_api_name,
30818: p_debug_mode => p_debug_mode );
30819: pa_debug.g_err_stage:= 'Inside '||l_api_name;
30820: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30821: END IF;
30822:
30823: -- Set API return status to success
30824: x_return_status := FND_API.G_RET_STS_SUCCESS;
30833: p_return_status => x_return_status,
30834: p_function_allowed => l_function_allowed);
30835:
30836: IF p_debug_mode = 'Y' THEN
30837: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
30838: END IF;
30839:
30840: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30867: , p_return_status => x_return_status
30868: );
30869:
30870: IF p_debug_mode = 'Y' THEN
30871: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
30872: END IF;
30873:
30874: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30885: , p_out_deliverable_id => l_deliverable_id
30886: , p_return_status => x_return_status);
30887:
30888: IF p_debug_mode = 'Y' THEN
30889: pa_debug.write(g_pkg_name,'Dlvr Reference Ref to ID ['||l_deliverable_id||'] Return Status ['||x_return_status||']',3) ;
30890: END IF;
30891:
30892: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30927: , x_return_status => x_return_status
30928: );
30929:
30930: IF p_debug_mode = 'Y' THEN
30931: pa_debug.write(g_pkg_name,'Action Reference Unique Return Status ['||x_return_status||']Unique['||l_unique_flag||']',3) ;
30932: END IF;
30933:
30934: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30957: ,x_dlvr_default_status_code => l_status_code
30958: );
30959:
30960: IF p_debug_mode = 'Y' THEN
30961: pa_debug.g_err_stage := 'Dlvr Type allow action creation ['|| l_dlvr_action_enabled||']';
30962: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30963: END IF;
30964:
30965: -- Populate the table with input parameters
30958: );
30959:
30960: IF p_debug_mode = 'Y' THEN
30961: pa_debug.g_err_stage := 'Dlvr Type allow action creation ['|| l_dlvr_action_enabled||']';
30962: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30963: END IF;
30964:
30965: -- Populate the table with input parameters
30966: ---- --dbms_output.put_line('loading');
31074: , x_msg_count => l_msg_count
31075: , x_msg_data => l_msg_data);
31076:
31077: IF p_debug_mode = 'Y' THEN
31078: pa_debug.g_err_stage := 'Returned from Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper ['|| x_return_status||']';
31079: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
31080: END IF;
31081:
31082: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31075: , x_msg_data => l_msg_data);
31076:
31077: IF p_debug_mode = 'Y' THEN
31078: pa_debug.g_err_stage := 'Returned from Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper ['|| x_return_status||']';
31079: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
31080: END IF;
31081:
31082: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31090: COMMIT;
31091: END IF;
31092:
31093: IF p_debug_mode = 'Y' THEN
31094: pa_debug.reset_curr_function;
31095: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
31096: END IF;
31097:
31098: EXCEPTION
31091: END IF;
31092:
31093: IF p_debug_mode = 'Y' THEN
31094: pa_debug.reset_curr_function;
31095: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
31096: END IF;
31097:
31098: EXCEPTION
31099: WHEN FND_API.G_EXC_ERROR THEN
31122:
31123: END IF;
31124:
31125: IF p_debug_mode = 'Y' THEN
31126: pa_debug.reset_curr_function;
31127: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31128: END IF;
31129:
31130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
31123: END IF;
31124:
31125: IF p_debug_mode = 'Y' THEN
31126: pa_debug.reset_curr_function;
31127: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31128: END IF;
31129:
31130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
31131: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31153:
31154: END IF;
31155:
31156: IF p_debug_mode = 'Y' THEN
31157: pa_debug.reset_curr_function;
31158: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31159: END IF;
31160:
31161: WHEN OTHERS THEN
31154: END IF;
31155:
31156: IF p_debug_mode = 'Y' THEN
31157: pa_debug.reset_curr_function;
31158: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31159: END IF;
31160:
31161: WHEN OTHERS THEN
31162: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31168: x_msg_count := 1;
31169: x_msg_data := SQLERRM;
31170:
31171: IF p_debug_mode = 'Y' THEN
31172: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31173: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31174: pa_debug.reset_curr_function;
31175: END IF;
31176:
31169: x_msg_data := SQLERRM;
31170:
31171: IF p_debug_mode = 'Y' THEN
31172: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31173: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31174: pa_debug.reset_curr_function;
31175: END IF;
31176:
31177:
31170:
31171: IF p_debug_mode = 'Y' THEN
31172: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31173: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31174: pa_debug.reset_curr_function;
31175: END IF;
31176:
31177:
31178: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31297: savepoint UPDATE_DELIVERABLE_PUB;
31298: --END IF;
31299:
31300: IF p_debug_mode = 'Y' THEN
31301: PA_DEBUG.set_curr_function( p_function => l_api_name,
31302: p_debug_mode => p_debug_mode );
31303: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31304: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31305: END IF;
31299:
31300: IF p_debug_mode = 'Y' THEN
31301: PA_DEBUG.set_curr_function( p_function => l_api_name,
31302: p_debug_mode => p_debug_mode );
31303: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31304: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31305: END IF;
31306:
31307: -- Validation check for product code : Bug 3651113
31300: IF p_debug_mode = 'Y' THEN
31301: PA_DEBUG.set_curr_function( p_function => l_api_name,
31302: p_debug_mode => p_debug_mode );
31303: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31304: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31305: END IF;
31306:
31307: -- Validation check for product code : Bug 3651113
31308:
31355: p_return_status => x_return_status,
31356: p_function_allowed => l_function_allowed);
31357:
31358: IF p_debug_mode = 'Y' THEN
31359: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
31360: END IF;
31361:
31362: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31390: , p_return_status => x_return_status
31391: );
31392:
31393: IF p_debug_mode = 'Y' THEN
31394: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
31395: END IF;
31396:
31397: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31412: , p_out_task_id => l_task_id
31413: , p_return_status => x_return_status );
31414:
31415: IF p_debug_mode = 'Y' THEN
31416: pa_debug.write(g_pkg_name,'Task Ref to ID Return Status ['||x_return_status||']Task ID['||l_task_id||']',3) ;
31417: END IF;
31418:
31419: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31432: , p_return_status => x_return_status
31433: );
31434:
31435: IF p_debug_mode = 'Y' THEN
31436: pa_debug.write(g_pkg_name,'Dlvr Reference Ref to ID ['||l_deliverable_id||'] Return Status ['||x_return_status||']',3) ;
31437: END IF;
31438:
31439: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31446: FETCH C_vers INTO l_deliverable_version_id;
31447: CLOSE C_vers;
31448:
31449: IF p_debug_mode = 'Y' THEN
31450: pa_debug.write(g_pkg_name,'Updatinging deliverable ['|| p_deliverable_short_name||']['||l_deliverable_id||']['||l_project_id||']['||l_task_id||']',3);
31451: END IF;
31452:
31453: -- All other validations done in PA_DELIVERABLE_PUB.UPDATE_DELIVERABLE
31454: --invoke the api to Update deliverable
31510: x_msg_count := l_msg_count;
31511: x_msg_data := l_msg_data;
31512:
31513: IF p_debug_mode = 'Y' THEN
31514: pa_debug.g_err_stage := 'Pa_Deliverable_Pub.Update_Deliverable return status ['||x_return_status||']';
31515: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
31516: END IF;
31517:
31518: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31511: x_msg_data := l_msg_data;
31512:
31513: IF p_debug_mode = 'Y' THEN
31514: pa_debug.g_err_stage := 'Pa_Deliverable_Pub.Update_Deliverable return status ['||x_return_status||']';
31515: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
31516: END IF;
31517:
31518: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31580: );
31581: END IF;
31582:
31583: IF p_debug_mode = 'Y' THEN
31584: pa_debug.write(g_pkg_name,'Dlvr Action Reference Valid Return Status ['||x_return_status||']Action ID['||l_action_id||']',3) ;
31585: END IF;
31586:
31587: IF (l_action_id is NOT NULL) THEN
31588: -- action is an existing action and is to be updated
31624: i := p_action_in_tbl.next(i); -- added for bug# 3749447, next was not done
31625: END LOOP;
31626:
31627: IF p_debug_mode = 'Y' THEN
31628: pa_debug.write(g_pkg_name,'Uploaded action detail for Updation/Insertion upd ['||i_actn_upd||'] ins ['||i_actn_ins||'] tot ['||i_actn||']',3) ;
31629: END IF;
31630:
31631: IF (i_actn_upd > 0 ) THEN
31632:
31646: , x_msg_count => l_msg_count
31647: , x_msg_data => l_msg_data);
31648:
31649: IF p_debug_mode = 'Y' THEN
31650: pa_debug.write(g_pkg_name,'Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper upd return status['||x_return_status||']',3) ;
31651: END IF;
31652:
31653: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31676: , x_msg_count => l_msg_count
31677: , x_msg_data => l_msg_data);
31678:
31679: IF p_debug_mode = 'Y' THEN
31680: pa_debug.write(g_pkg_name,'Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper upd return status['||x_return_status||']',3) ;
31681: END IF;
31682:
31683: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31693: COMMIT;
31694: END IF;
31695:
31696: IF p_debug_mode = 'Y' THEN
31697: pa_debug.reset_curr_function;
31698: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
31699: END IF;
31700:
31701: EXCEPTION
31694: END IF;
31695:
31696: IF p_debug_mode = 'Y' THEN
31697: pa_debug.reset_curr_function;
31698: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
31699: END IF;
31700:
31701: EXCEPTION
31702: WHEN FND_API.G_EXC_ERROR THEN
31705: ROLLBACK TO UPDATE_DELIVERABLE_PUB;
31706: --END IF;
31707:
31708: IF p_debug_mode = 'Y' THEN
31709: pa_debug.reset_curr_function;
31710: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31711: END IF;
31712: x_return_status := FND_API.G_RET_STS_ERROR;
31713: x_msg_count := FND_MSG_PUB.count_msg;
31706: --END IF;
31707:
31708: IF p_debug_mode = 'Y' THEN
31709: pa_debug.reset_curr_function;
31710: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31711: END IF;
31712: x_return_status := FND_API.G_RET_STS_ERROR;
31713: x_msg_count := FND_MSG_PUB.count_msg;
31714:
31729: ROLLBACK TO UPDATE_DELIVERABLE_PUB;
31730: --END IF;
31731:
31732: IF p_debug_mode = 'Y' THEN
31733: pa_debug.reset_curr_function;
31734: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31735: END IF;
31736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31737: x_msg_count := FND_MSG_PUB.count_msg;
31730: --END IF;
31731:
31732: IF p_debug_mode = 'Y' THEN
31733: pa_debug.reset_curr_function;
31734: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31735: END IF;
31736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31737: x_msg_count := FND_MSG_PUB.count_msg;
31738:
31757: x_msg_count := 1;
31758: x_msg_data := SQLERRM;
31759:
31760: IF p_debug_mode = 'Y' THEN
31761: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31762: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31763: pa_debug.reset_curr_function;
31764: END IF;
31765:
31758: x_msg_data := SQLERRM;
31759:
31760: IF p_debug_mode = 'Y' THEN
31761: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31762: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31763: pa_debug.reset_curr_function;
31764: END IF;
31765:
31766:
31759:
31760: IF p_debug_mode = 'Y' THEN
31761: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
31762: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31763: pa_debug.reset_curr_function;
31764: END IF;
31765:
31766:
31767: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31895: FND_MSG_PUB.initialize;
31896: END IF;
31897:
31898: IF p_debug_mode = 'Y' THEN
31899: PA_DEBUG.set_curr_function( p_function => l_api_name,
31900: p_debug_mode => p_debug_mode );
31901: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31902: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31903: END IF;
31897:
31898: IF p_debug_mode = 'Y' THEN
31899: PA_DEBUG.set_curr_function( p_function => l_api_name,
31900: p_debug_mode => p_debug_mode );
31901: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31902: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31903: END IF;
31904: -- Set API return status to success
31905: x_return_status := FND_API.G_RET_STS_SUCCESS;
31898: IF p_debug_mode = 'Y' THEN
31899: PA_DEBUG.set_curr_function( p_function => l_api_name,
31900: p_debug_mode => p_debug_mode );
31901: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31902: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31903: END IF;
31904: -- Set API return status to success
31905: x_return_status := FND_API.G_RET_STS_SUCCESS;
31906:
31946: , p_return_status => x_return_status
31947: );
31948:
31949: IF p_debug_mode = 'Y' THEN
31950: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
31951: END IF;
31952:
31953: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31964: , p_out_deliverable_id => l_deliverable_id
31965: , p_return_status => x_return_status);
31966:
31967: IF p_debug_mode = 'Y' THEN
31968: pa_debug.write(g_pkg_name,'Dlvr Reference Ref to ID Return Status ['||x_return_status,3) ;
31969: END IF;
31970:
31971: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31984: , p_out_action_id => l_action_id
31985: , p_return_status => x_return_status);
31986:
31987: IF p_debug_mode = 'Y' THEN
31988: pa_debug.write(g_pkg_name,'Convert_pm_actionref_to_id Return Status ['||x_return_status,3) ;
31989: END IF;
31990:
31991: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32123: COMMIT;
32124: END IF;
32125:
32126: IF p_debug_mode = 'Y' THEN
32127: pa_debug.reset_curr_function;
32128: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32129: END IF;
32130:
32131: EXCEPTION
32124: END IF;
32125:
32126: IF p_debug_mode = 'Y' THEN
32127: pa_debug.reset_curr_function;
32128: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32129: END IF;
32130:
32131: EXCEPTION
32132: WHEN FND_API.G_EXC_ERROR THEN
32135: ROLLBACK TO update_deliverable_actions_pub;
32136: --END IF;
32137:
32138: IF p_debug_mode = 'Y' THEN
32139: pa_debug.reset_curr_function;
32140: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32141: END IF;
32142: x_return_status := FND_API.G_RET_STS_ERROR;
32143: x_msg_count := FND_MSG_PUB.count_msg;
32136: --END IF;
32137:
32138: IF p_debug_mode = 'Y' THEN
32139: pa_debug.reset_curr_function;
32140: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32141: END IF;
32142: x_return_status := FND_API.G_RET_STS_ERROR;
32143: x_msg_count := FND_MSG_PUB.count_msg;
32144:
32159: ROLLBACK TO update_deliverable_actions_pub;
32160: --END IF;
32161:
32162: IF p_debug_mode = 'Y' THEN
32163: pa_debug.reset_curr_function;
32164: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32165: END IF;
32166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32167: x_msg_count := FND_MSG_PUB.count_msg;
32160: --END IF;
32161:
32162: IF p_debug_mode = 'Y' THEN
32163: pa_debug.reset_curr_function;
32164: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32165: END IF;
32166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32167: x_msg_count := FND_MSG_PUB.count_msg;
32168:
32187: x_msg_count := 1;
32188: x_msg_data := SQLERRM;
32189:
32190: IF p_debug_mode = 'Y' THEN
32191: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32192: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32193: pa_debug.reset_curr_function;
32194: END IF;
32195:
32188: x_msg_data := SQLERRM;
32189:
32190: IF p_debug_mode = 'Y' THEN
32191: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32192: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32193: pa_debug.reset_curr_function;
32194: END IF;
32195:
32196: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
32189:
32190: IF p_debug_mode = 'Y' THEN
32191: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32192: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32193: pa_debug.reset_curr_function;
32194: END IF;
32195:
32196: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
32197: FND_MSG_PUB.add_exc_msg
32227: l_project_id NUMBER;
32228: l_function_allowed VARCHAR2(1);
32229: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
32230:
32231: l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
32232: l_msg_index_out NUMBER;
32233: l_msg_count NUMBER ;
32234: l_data VARCHAR2(2000);
32235: l_msg_data VARCHAR2(2000);
32246: savepoint DELETE_DELIVERABLE_PUB;
32247: --END IF;
32248:
32249: IF l_debug_mode = 'Y' THEN
32250: PA_DEBUG.set_curr_function( p_function => l_api_name,
32251: p_debug_mode => l_debug_mode );
32252: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32253: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32254: END IF;
32248:
32249: IF l_debug_mode = 'Y' THEN
32250: PA_DEBUG.set_curr_function( p_function => l_api_name,
32251: p_debug_mode => l_debug_mode );
32252: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32253: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32254: END IF;
32255:
32256: -- Set API return status to success
32249: IF l_debug_mode = 'Y' THEN
32250: PA_DEBUG.set_curr_function( p_function => l_api_name,
32251: p_debug_mode => l_debug_mode );
32252: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32253: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32254: END IF;
32255:
32256: -- Set API return status to success
32257: x_return_status := FND_API.G_RET_STS_SUCCESS;
32266: p_return_status => x_return_status,
32267: p_function_allowed => l_function_allowed);
32268:
32269: IF l_debug_mode = 'Y' THEN
32270: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
32271: END IF;
32272:
32273: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32292: , p_return_status => x_return_status
32293: );
32294:
32295: IF l_debug_mode = 'Y' THEN
32296: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
32297: END IF;
32298:
32299: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32312: , p_return_status => x_return_status
32313: );
32314:
32315: IF l_debug_mode = 'Y' THEN
32316: pa_debug.write(g_pkg_name,'Dlvr Reference Valid Return Status ['||x_return_status||']Dlvr ID['||l_deliverable_id||']',3) ;
32317: END IF;
32318:
32319: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32325: -- Derive deliverable version ID and call api Delete Deliverable. It
32326: l_dlvr_version_id := Pa_Deliverable_Utils.Get_Deliverable_Version_Id (l_deliverable_id, null, l_project_id) ;
32327:
32328: IF l_debug_mode = 'Y' THEN
32329: pa_debug.write(g_pkg_name,'Derived Dlvr Version ID ['||l_dlvr_version_id||'] for Dlvr ID['||l_deliverable_id||']',3) ;
32330: END IF;
32331:
32332: -- deletes the corresponding actions and associations also.
32333: IF ( l_dlvr_version_id IS NOT NULL )
32350: ,x_msg_count => x_msg_count
32351: ,x_msg_data => x_msg_data );
32352:
32353: IF l_debug_mode = 'Y' THEN
32354: pa_debug.write(g_pkg_name,' after pa_deliverable_pvt.delete_deliverable ['||x_return_status||']',3) ;
32355: END IF;
32356:
32357: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32367: COMMIT;
32368: END IF;
32369:
32370: IF l_debug_mode = 'Y' THEN
32371: pa_debug.reset_curr_function;
32372: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32373: END IF;
32374:
32375: EXCEPTION
32368: END IF;
32369:
32370: IF l_debug_mode = 'Y' THEN
32371: pa_debug.reset_curr_function;
32372: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32373: END IF;
32374:
32375: EXCEPTION
32376: WHEN FND_API.G_EXC_ERROR THEN
32399:
32400: END IF;
32401:
32402: IF l_debug_mode = 'Y' THEN
32403: pa_debug.reset_curr_function;
32404: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32405: END IF;
32406:
32407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32400: END IF;
32401:
32402: IF l_debug_mode = 'Y' THEN
32403: pa_debug.reset_curr_function;
32404: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32405: END IF;
32406:
32407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32408: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32429: x_msg_count := l_msg_count;
32430: END IF;
32431:
32432: IF l_debug_mode = 'Y' THEN
32433: pa_debug.reset_curr_function;
32434: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32435: END IF;
32436:
32437: WHEN OTHERS THEN
32430: END IF;
32431:
32432: IF l_debug_mode = 'Y' THEN
32433: pa_debug.reset_curr_function;
32434: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32435: END IF;
32436:
32437: WHEN OTHERS THEN
32438: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32444: x_msg_count := 1;
32445: x_msg_data := SQLERRM;
32446:
32447: IF l_debug_mode = 'Y' THEN
32448: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32449: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32450: pa_debug.reset_curr_function;
32451: END IF;
32452:
32445: x_msg_data := SQLERRM;
32446:
32447: IF l_debug_mode = 'Y' THEN
32448: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32449: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32450: pa_debug.reset_curr_function;
32451: END IF;
32452:
32453: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32446:
32447: IF l_debug_mode = 'Y' THEN
32448: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32449: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32450: pa_debug.reset_curr_function;
32451: END IF;
32452:
32453: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32454: FND_MSG_PUB.add_exc_msg
32482: )
32483:
32484: IS
32485: l_api_name VARCHAR2(30) := 'Delete_Deliverable_Actions';
32486: l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
32487:
32488: l_project_id NUMBER ;
32489: l_action_id NUMBER;
32490: l_action_version_id NUMBER;
32511: savepoint DELETE_DELIVERABLE_ACTION_PUB;
32512: --END IF;
32513:
32514: IF l_debug_mode = 'Y' THEN
32515: PA_DEBUG.set_curr_function( p_function => l_api_name,
32516: p_debug_mode => l_debug_mode );
32517: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32518: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32519: END IF;
32513:
32514: IF l_debug_mode = 'Y' THEN
32515: PA_DEBUG.set_curr_function( p_function => l_api_name,
32516: p_debug_mode => l_debug_mode );
32517: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32518: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32519: END IF;
32520: -- Set API return status to success
32521: x_return_status := FND_API.G_RET_STS_SUCCESS;
32514: IF l_debug_mode = 'Y' THEN
32515: PA_DEBUG.set_curr_function( p_function => l_api_name,
32516: p_debug_mode => l_debug_mode );
32517: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32518: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32519: END IF;
32520: -- Set API return status to success
32521: x_return_status := FND_API.G_RET_STS_SUCCESS;
32522:
32530: p_return_status => x_return_status,
32531: p_function_allowed => l_function_allowed);
32532:
32533: IF l_debug_mode = 'Y' THEN
32534: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
32535: END IF;
32536:
32537: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32565: , p_return_status => x_return_status
32566: );
32567:
32568: IF l_debug_mode = 'Y' THEN
32569: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
32570: END IF;
32571:
32572: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32584: , p_return_status => x_return_status
32585: );
32586:
32587: IF l_debug_mode = 'Y' THEN
32588: pa_debug.write(g_pkg_name,'Dlvr Reference Valid Return Status ['||x_return_status||']Dlvr ID['||l_deliverable_id||']',3) ;
32589: END IF;
32590:
32591: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32605: ,p_return_status => x_return_status
32606: );
32607:
32608: IF l_debug_mode = 'Y' THEN
32609: pa_debug.write(g_pkg_name,'Dlvr Action Reference Valid Return Status ['||x_return_status||']Action ID['||l_action_id||']',3) ;
32610: END IF;
32611:
32612: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32618: -- Derive Deliverable_version_id
32619: l_dlvr_version_id := Pa_Deliverable_Utils.Get_Deliverable_Version_Id (l_deliverable_id, null, l_project_id) ;
32620:
32621: IF l_debug_mode = 'Y' THEN
32622: pa_debug.write(g_pkg_name,'Derived Dlvr Version ID ['||l_dlvr_version_id||'] for Dlvr ID['||l_deliverable_id||']',3) ;
32623: END IF;
32624:
32625: -- Derive Action_version_id and Function Code
32626: l_action_version_id := Pa_Deliverable_Utils.Get_Action_Version_Id (l_action_id, null, l_project_id) ;
32626: l_action_version_id := Pa_Deliverable_Utils.Get_Action_Version_Id (l_action_id, null, l_project_id) ;
32627: l_function_code := Pa_Deliverable_Utils.GET_FUNCTION_CODE(l_action_id) ;
32628:
32629: IF l_debug_mode = 'Y' THEN
32630: pa_debug.write(g_pkg_name,'Derived Action version ID ['||l_action_version_id||']and function code ['||l_function_code||']',3) ;
32631: END IF;
32632:
32633: -- Calling Actions API to delete actions.
32634:
32652: ,x_msg_data => x_msg_data
32653: ) ;
32654:
32655: IF l_debug_mode = 'Y' THEN
32656: pa_debug.write(g_pkg_name,' after pa_actions_pvt.DELETE_DLV_ACTION ['||x_return_status||']',3) ;
32657: END IF;
32658:
32659: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32667: COMMIT;
32668: END IF;
32669:
32670: IF l_debug_mode = 'Y' THEN
32671: pa_debug.reset_curr_function;
32672: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32673: END IF;
32674:
32675: EXCEPTION
32668: END IF;
32669:
32670: IF l_debug_mode = 'Y' THEN
32671: pa_debug.reset_curr_function;
32672: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32673: END IF;
32674:
32675: EXCEPTION
32676: WHEN FND_API.G_EXC_ERROR THEN
32699:
32700: END IF;
32701:
32702: IF l_debug_mode = 'Y' THEN
32703: pa_debug.reset_curr_function;
32704: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32705: END IF;
32706:
32707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32700: END IF;
32701:
32702: IF l_debug_mode = 'Y' THEN
32703: pa_debug.reset_curr_function;
32704: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32705: END IF;
32706:
32707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32708: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32730:
32731: END IF;
32732:
32733: IF l_debug_mode = 'Y' THEN
32734: pa_debug.reset_curr_function;
32735: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32736: END IF;
32737:
32738: WHEN OTHERS THEN
32731: END IF;
32732:
32733: IF l_debug_mode = 'Y' THEN
32734: pa_debug.reset_curr_function;
32735: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32736: END IF;
32737:
32738: WHEN OTHERS THEN
32739: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32745: x_msg_count := 1;
32746: x_msg_data := SQLERRM;
32747:
32748: IF l_debug_mode = 'Y' THEN
32749: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32750: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32751: pa_debug.reset_curr_function;
32752: END IF;
32753:
32746: x_msg_data := SQLERRM;
32747:
32748: IF l_debug_mode = 'Y' THEN
32749: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32750: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32751: pa_debug.reset_curr_function;
32752: END IF;
32753:
32754: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32747:
32748: IF l_debug_mode = 'Y' THEN
32749: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
32750: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32751: pa_debug.reset_curr_function;
32752: END IF;
32753:
32754: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32755: FND_MSG_PUB.add_exc_msg
32788: l_deliverable_id NUMBER;
32789: l_dlvr_version_id NUMBER;
32790: l_function_code Pa_Proj_Elements.function_code%TYPE;
32791: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
32792: l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
32793:
32794: l_function_allowed VARCHAR2(1);
32795: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
32796:
32811: savepoint DELETE_DLV_TO_TASK_ASSCN_PUB;
32812: --END IF;
32813:
32814: IF l_debug_mode = 'Y' THEN
32815: PA_DEBUG.set_curr_function( p_function => l_api_name,
32816: p_debug_mode => l_debug_mode );
32817: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32818: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32819: END IF;
32813:
32814: IF l_debug_mode = 'Y' THEN
32815: PA_DEBUG.set_curr_function( p_function => l_api_name,
32816: p_debug_mode => l_debug_mode );
32817: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32818: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32819: END IF;
32820:
32821: -- Set API return status to success
32814: IF l_debug_mode = 'Y' THEN
32815: PA_DEBUG.set_curr_function( p_function => l_api_name,
32816: p_debug_mode => l_debug_mode );
32817: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32818: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32819: END IF;
32820:
32821: -- Set API return status to success
32822: x_return_status := FND_API.G_RET_STS_SUCCESS;
32954: COMMIT;
32955: END IF;
32956:
32957: IF l_debug_mode = 'Y' THEN
32958: pa_debug.reset_curr_function;
32959: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32960: END IF;
32961:
32962: EXCEPTION
32955: END IF;
32956:
32957: IF l_debug_mode = 'Y' THEN
32958: pa_debug.reset_curr_function;
32959: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32960: END IF;
32961:
32962: EXCEPTION
32963: WHEN FND_API.G_EXC_ERROR THEN
32985: x_msg_count := l_msg_count;
32986: END IF;
32987:
32988: IF l_debug_mode = 'Y' THEN
32989: pa_debug.reset_curr_function;
32990: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32991: END IF;
32992:
32993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32986: END IF;
32987:
32988: IF l_debug_mode = 'Y' THEN
32989: pa_debug.reset_curr_function;
32990: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32991: END IF;
32992:
32993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32994: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33015: x_msg_count := l_msg_count;
33016: END IF;
33017:
33018: IF l_debug_mode = 'Y' THEN
33019: pa_debug.reset_curr_function;
33020: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
33021: END IF;
33022:
33023: WHEN OTHERS THEN
33016: END IF;
33017:
33018: IF l_debug_mode = 'Y' THEN
33019: pa_debug.reset_curr_function;
33020: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
33021: END IF;
33022:
33023: WHEN OTHERS THEN
33024: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33030: x_msg_count := 1;
33031: x_msg_data := SQLERRM;
33032:
33033: IF l_debug_mode = 'Y' THEN
33034: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33035: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33036: pa_debug.reset_curr_function;
33037: END IF;
33038:
33031: x_msg_data := SQLERRM;
33032:
33033: IF l_debug_mode = 'Y' THEN
33034: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33035: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33036: pa_debug.reset_curr_function;
33037: END IF;
33038:
33039: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33032:
33033: IF l_debug_mode = 'Y' THEN
33034: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33035: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33036: pa_debug.reset_curr_function;
33037: END IF;
33038:
33039: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33040: FND_MSG_PUB.add_exc_msg
33100: savepoint ASSOCIATE_DLV_TO_TASK_PUB;
33101: --END IF;
33102:
33103: IF p_debug_mode = 'Y' THEN
33104: PA_DEBUG.set_curr_function( p_function => l_api_name,
33105: p_debug_mode => p_debug_mode );
33106: pa_debug.g_err_stage:= 'Inside '||l_api_name;
33107: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33108: END IF;
33102:
33103: IF p_debug_mode = 'Y' THEN
33104: PA_DEBUG.set_curr_function( p_function => l_api_name,
33105: p_debug_mode => p_debug_mode );
33106: pa_debug.g_err_stage:= 'Inside '||l_api_name;
33107: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33108: END IF;
33109:
33110: -- Set API return status to success
33103: IF p_debug_mode = 'Y' THEN
33104: PA_DEBUG.set_curr_function( p_function => l_api_name,
33105: p_debug_mode => p_debug_mode );
33106: pa_debug.g_err_stage:= 'Inside '||l_api_name;
33107: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33108: END IF;
33109:
33110: -- Set API return status to success
33111: x_return_status := FND_API.G_RET_STS_SUCCESS;
33247: COMMIT;
33248: END IF;
33249:
33250: IF p_debug_mode = 'Y' THEN
33251: pa_debug.reset_curr_function;
33252: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
33253: END IF;
33254:
33255: EXCEPTION
33248: END IF;
33249:
33250: IF p_debug_mode = 'Y' THEN
33251: pa_debug.reset_curr_function;
33252: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
33253: END IF;
33254:
33255: EXCEPTION
33256: WHEN FND_API.G_EXC_ERROR THEN
33279: x_msg_count := l_msg_count;
33280: END IF;
33281:
33282: IF p_debug_mode = 'Y' THEN
33283: pa_debug.reset_curr_function;
33284: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
33285: END IF;
33286:
33287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33280: END IF;
33281:
33282: IF p_debug_mode = 'Y' THEN
33283: pa_debug.reset_curr_function;
33284: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
33285: END IF;
33286:
33287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33288: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33309: x_msg_count := l_msg_count;
33310: END IF;
33311:
33312: IF p_debug_mode = 'Y' THEN
33313: pa_debug.reset_curr_function;
33314: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
33315: END IF;
33316:
33317: WHEN OTHERS THEN
33310: END IF;
33311:
33312: IF p_debug_mode = 'Y' THEN
33313: pa_debug.reset_curr_function;
33314: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
33315: END IF;
33316:
33317: WHEN OTHERS THEN
33318: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33324: x_msg_count := 1;
33325: x_msg_data := SQLERRM;
33326:
33327: IF p_debug_mode = 'Y' THEN
33328: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33329: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33330: pa_debug.reset_curr_function;
33331: END IF;
33332:
33325: x_msg_data := SQLERRM;
33326:
33327: IF p_debug_mode = 'Y' THEN
33328: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33329: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33330: pa_debug.reset_curr_function;
33331: END IF;
33332:
33333: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33326:
33327: IF p_debug_mode = 'Y' THEN
33328: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33329: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33330: pa_debug.reset_curr_function;
33331: END IF;
33332:
33333: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33334: FND_MSG_PUB.add_exc_msg
33387: savepoint ASSOCIATE_DLV_TO_TASK_ASSIGN;
33388: --END IF;
33389:
33390: IF p_debug_mode = 'Y' THEN
33391: PA_DEBUG.set_curr_function( p_function => l_api_name,
33392: p_debug_mode => p_debug_mode );
33393: pa_debug.g_err_stage:= 'Inside '||l_api_name;
33394: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33395: END IF;
33389:
33390: IF p_debug_mode = 'Y' THEN
33391: PA_DEBUG.set_curr_function( p_function => l_api_name,
33392: p_debug_mode => p_debug_mode );
33393: pa_debug.g_err_stage:= 'Inside '||l_api_name;
33394: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33395: END IF;
33396:
33397: -- Set API return status to success
33390: IF p_debug_mode = 'Y' THEN
33391: PA_DEBUG.set_curr_function( p_function => l_api_name,
33392: p_debug_mode => p_debug_mode );
33393: pa_debug.g_err_stage:= 'Inside '||l_api_name;
33394: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33395: END IF;
33396:
33397: -- Set API return status to success
33398: x_return_status := FND_API.G_RET_STS_SUCCESS;
33482: ,x_return_status => x_return_status
33483: ) ;
33484:
33485: IF p_debug_mode = 'Y' THEN
33486: pa_debug.write(g_pkg_name,'PA_TASK_ASSIGNMENTS_PUB.Convert_PM_TARef_To_ID ret status'||x_return_status||
33487: ']task assign ref['||l_task_assign_reference||']task assign id['||l_task_assign_id||']',3) ;
33488: END IF;
33489:
33490: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33528: COMMIT;
33529: END IF;
33530:
33531: IF p_debug_mode = 'Y' THEN
33532: pa_debug.reset_curr_function;
33533: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
33534: END IF;
33535:
33536: EXCEPTION
33529: END IF;
33530:
33531: IF p_debug_mode = 'Y' THEN
33532: pa_debug.reset_curr_function;
33533: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
33534: END IF;
33535:
33536: EXCEPTION
33537: WHEN FND_API.G_EXC_ERROR THEN
33559: x_msg_count := l_msg_count;
33560: END IF;
33561:
33562: IF p_debug_mode = 'Y' THEN
33563: pa_debug.reset_curr_function;
33564: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
33565: END IF;
33566:
33567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33560: END IF;
33561:
33562: IF p_debug_mode = 'Y' THEN
33563: pa_debug.reset_curr_function;
33564: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
33565: END IF;
33566:
33567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33568: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33588: x_msg_count := l_msg_count;
33589: END IF;
33590:
33591: IF p_debug_mode = 'Y' THEN
33592: pa_debug.reset_curr_function;
33593: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
33594: END IF;
33595:
33596: WHEN OTHERS THEN
33589: END IF;
33590:
33591: IF p_debug_mode = 'Y' THEN
33592: pa_debug.reset_curr_function;
33593: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
33594: END IF;
33595:
33596: WHEN OTHERS THEN
33597: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33603: x_msg_count := 1;
33604: x_msg_data := SQLERRM;
33605:
33606: IF p_debug_mode = 'Y' THEN
33607: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33608: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33609: pa_debug.reset_curr_function;
33610: END IF;
33611:
33604: x_msg_data := SQLERRM;
33605:
33606: IF p_debug_mode = 'Y' THEN
33607: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33608: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33609: pa_debug.reset_curr_function;
33610: END IF;
33611:
33612: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33605:
33606: IF p_debug_mode = 'Y' THEN
33607: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33608: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33609: pa_debug.reset_curr_function;
33610: END IF;
33611:
33612: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33613: FND_MSG_PUB.add_exc_msg
33681: savepoint ASSOCIATE_DLV_TO_TASK_ASSIGN;
33682: --END IF;
33683:
33684: IF p_debug_mode = 'Y' THEN
33685: PA_DEBUG.set_curr_function( p_function => l_api_name,
33686: p_debug_mode => p_debug_mode );
33687: pa_debug.g_err_stage:= 'Inside '||l_api_name;
33688: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33689: END IF;
33683:
33684: IF p_debug_mode = 'Y' THEN
33685: PA_DEBUG.set_curr_function( p_function => l_api_name,
33686: p_debug_mode => p_debug_mode );
33687: pa_debug.g_err_stage:= 'Inside '||l_api_name;
33688: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33689: END IF;
33690:
33691: -- Set API return status to success
33684: IF p_debug_mode = 'Y' THEN
33685: PA_DEBUG.set_curr_function( p_function => l_api_name,
33686: p_debug_mode => p_debug_mode );
33687: pa_debug.g_err_stage:= 'Inside '||l_api_name;
33688: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33689: END IF;
33690:
33691: -- Set API return status to success
33692: x_return_status := FND_API.G_RET_STS_SUCCESS;
33749: ,x_return_status => x_return_status
33750: ) ;
33751:
33752: IF p_debug_mode = 'Y' THEN
33753: pa_debug.write(g_pkg_name,'PA_TASK_ASSIGNMENTS_PUB.Convert_PM_TARef_To_ID ret status'||x_return_status||
33754: ']task assign ref['||l_task_assign_reference||']task assign id['||l_task_assign_id||']',3) ;
33755: END IF;
33756:
33757: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33801: ) ;
33802: */
33803:
33804: IF p_debug_mode = 'Y' THEN
33805: pa_debug.g_err_stage:= ' l_object_relationship_Id is ' || l_object_relationship_Id;
33806: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33807: END IF ;
33808:
33809: -- Added below api call to delete a TA to a DLVR association
33802: */
33803:
33804: IF p_debug_mode = 'Y' THEN
33805: pa_debug.g_err_stage:= ' l_object_relationship_Id is ' || l_object_relationship_Id;
33806: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33807: END IF ;
33808:
33809: -- Added below api call to delete a TA to a DLVR association
33810: -- passing calling context as TASK_ASSIGNMENT and for calling context TASK_ASSIGNMENT
33833: COMMIT;
33834: END IF;
33835:
33836: IF p_debug_mode = 'Y' THEN
33837: pa_debug.reset_curr_function;
33838: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
33839: END IF;
33840:
33841: EXCEPTION
33834: END IF;
33835:
33836: IF p_debug_mode = 'Y' THEN
33837: pa_debug.reset_curr_function;
33838: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
33839: END IF;
33840:
33841: EXCEPTION
33842: WHEN FND_API.G_EXC_ERROR THEN
33864: x_msg_count := l_msg_count;
33865: END IF;
33866:
33867: IF p_debug_mode = 'Y' THEN
33868: pa_debug.reset_curr_function;
33869: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
33870: END IF;
33871:
33872: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33865: END IF;
33866:
33867: IF p_debug_mode = 'Y' THEN
33868: pa_debug.reset_curr_function;
33869: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
33870: END IF;
33871:
33872: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33873: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33894: x_msg_count := l_msg_count;
33895: END IF;
33896:
33897: IF p_debug_mode = 'Y' THEN
33898: pa_debug.reset_curr_function;
33899: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
33900: END IF;
33901:
33902: WHEN OTHERS THEN
33895: END IF;
33896:
33897: IF p_debug_mode = 'Y' THEN
33898: pa_debug.reset_curr_function;
33899: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
33900: END IF;
33901:
33902: WHEN OTHERS THEN
33903: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33909: x_msg_count := 1;
33910: x_msg_data := SQLERRM;
33911:
33912: IF p_debug_mode = 'Y' THEN
33913: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33914: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33915: pa_debug.reset_curr_function;
33916: END IF;
33917:
33910: x_msg_data := SQLERRM;
33911:
33912: IF p_debug_mode = 'Y' THEN
33913: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33914: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33915: pa_debug.reset_curr_function;
33916: END IF;
33917:
33918: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33911:
33912: IF p_debug_mode = 'Y' THEN
33913: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
33914: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33915: pa_debug.reset_curr_function;
33916: END IF;
33917:
33918: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33919: FND_MSG_PUB.add_exc_msg
33988: -- IF (p_commit = FND_API.G_TRUE) THEN
33989: savepoint DELETE_MAPPING_PUB;
33990: -- END IF;
33991:
33992: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
33993: IF l_debug_mode = 'Y' THEN
33994: PA_DEBUG.set_curr_function( p_function => 'DELETE_MAPPING',
33995: p_debug_mode => l_debug_mode );
33996: END IF;
33990: -- END IF;
33991:
33992: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
33993: IF l_debug_mode = 'Y' THEN
33994: PA_DEBUG.set_curr_function( p_function => 'DELETE_MAPPING',
33995: p_debug_mode => l_debug_mode );
33996: END IF;
33997:
33998: IF l_debug_mode = 'Y' THEN
33995: p_debug_mode => l_debug_mode );
33996: END IF;
33997:
33998: IF l_debug_mode = 'Y' THEN
33999: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : DELETE_MAPPING : Printing Input parameters';
34000: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34001: l_debug_level3);
34002: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_version_id'||':'||p_wp_task_version_id,
34003: l_debug_level3);
33996: END IF;
33997:
33998: IF l_debug_mode = 'Y' THEN
33999: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : DELETE_MAPPING : Printing Input parameters';
34000: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34001: l_debug_level3);
34002: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_version_id'||':'||p_wp_task_version_id,
34003: l_debug_level3);
34004: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_version_id'||':'||p_fp_task_version_id,
33998: IF l_debug_mode = 'Y' THEN
33999: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : DELETE_MAPPING : Printing Input parameters';
34000: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34001: l_debug_level3);
34002: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_version_id'||':'||p_wp_task_version_id,
34003: l_debug_level3);
34004: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_version_id'||':'||p_fp_task_version_id,
34005: l_debug_level3);
34006: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_id'||':'||p_wp_task_id,
34000: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34001: l_debug_level3);
34002: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_version_id'||':'||p_wp_task_version_id,
34003: l_debug_level3);
34004: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_version_id'||':'||p_fp_task_version_id,
34005: l_debug_level3);
34006: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_id'||':'||p_wp_task_id,
34007: l_debug_level3);
34008: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_id'||':'||p_fp_task_id,
34002: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_version_id'||':'||p_wp_task_version_id,
34003: l_debug_level3);
34004: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_version_id'||':'||p_fp_task_version_id,
34005: l_debug_level3);
34006: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_id'||':'||p_wp_task_id,
34007: l_debug_level3);
34008: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_id'||':'||p_fp_task_id,
34009: l_debug_level3);
34010: Pa_Debug.WRITE(g_pkg_name,'p_pm_wp_task_reference'||':'||p_pm_wp_task_reference,
34004: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_version_id'||':'||p_fp_task_version_id,
34005: l_debug_level3);
34006: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_id'||':'||p_wp_task_id,
34007: l_debug_level3);
34008: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_id'||':'||p_fp_task_id,
34009: l_debug_level3);
34010: Pa_Debug.WRITE(g_pkg_name,'p_pm_wp_task_reference'||':'||p_pm_wp_task_reference,
34011: l_debug_level3);
34012: Pa_Debug.WRITE(g_pkg_name,'p_pm_fp_task_reference'||':'||p_pm_fp_task_reference,
34006: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_id'||':'||p_wp_task_id,
34007: l_debug_level3);
34008: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_id'||':'||p_fp_task_id,
34009: l_debug_level3);
34010: Pa_Debug.WRITE(g_pkg_name,'p_pm_wp_task_reference'||':'||p_pm_wp_task_reference,
34011: l_debug_level3);
34012: Pa_Debug.WRITE(g_pkg_name,'p_pm_fp_task_reference'||':'||p_pm_fp_task_reference,
34013: l_debug_level3);
34014: Pa_Debug.WRITE(g_pkg_name,'p_wp_structure_version_id'||':'||p_wp_structure_version_id,
34008: Pa_Debug.WRITE(g_pkg_name,'p_fp_task_id'||':'||p_fp_task_id,
34009: l_debug_level3);
34010: Pa_Debug.WRITE(g_pkg_name,'p_pm_wp_task_reference'||':'||p_pm_wp_task_reference,
34011: l_debug_level3);
34012: Pa_Debug.WRITE(g_pkg_name,'p_pm_fp_task_reference'||':'||p_pm_fp_task_reference,
34013: l_debug_level3);
34014: Pa_Debug.WRITE(g_pkg_name,'p_wp_structure_version_id'||':'||p_wp_structure_version_id,
34015: l_debug_level3);
34016: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34010: Pa_Debug.WRITE(g_pkg_name,'p_pm_wp_task_reference'||':'||p_pm_wp_task_reference,
34011: l_debug_level3);
34012: Pa_Debug.WRITE(g_pkg_name,'p_pm_fp_task_reference'||':'||p_pm_fp_task_reference,
34013: l_debug_level3);
34014: Pa_Debug.WRITE(g_pkg_name,'p_wp_structure_version_id'||':'||p_wp_structure_version_id,
34015: l_debug_level3);
34016: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34017: l_debug_level3);
34018:
34012: Pa_Debug.WRITE(g_pkg_name,'p_pm_fp_task_reference'||':'||p_pm_fp_task_reference,
34013: l_debug_level3);
34014: Pa_Debug.WRITE(g_pkg_name,'p_wp_structure_version_id'||':'||p_wp_structure_version_id,
34015: l_debug_level3);
34016: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34017: l_debug_level3);
34018:
34019: END IF;
34020: --Validate for input parameters
34018:
34019: END IF;
34020: --Validate for input parameters
34021: IF l_debug_mode = 'Y' THEN
34022: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : DELETE_MAPPING : Validating Input parameters';
34023: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34024: l_debug_level3);
34025: END IF;
34026:
34019: END IF;
34020: --Validate for input parameters
34021: IF l_debug_mode = 'Y' THEN
34022: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : DELETE_MAPPING : Validating Input parameters';
34023: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34024: l_debug_level3);
34025: END IF;
34026:
34027: --If task ids or names are passed , then we need to derive task_version_ids to be used by the DELETE_MAPPING API.
34057: l_project_id := p_project_id;
34058: END IF;
34059:
34060: IF p_debug_mode = 'Y' THEN
34061: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'DELETE_MAPPING'||'Project ID:'||l_project_id;
34062: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34063: END IF;
34064: --1.1 Get the task ids if these are null
34065: --WP TASK ID
34058: END IF;
34059:
34060: IF p_debug_mode = 'Y' THEN
34061: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'DELETE_MAPPING'||'Project ID:'||l_project_id;
34062: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34063: END IF;
34064: --1.1 Get the task ids if these are null
34065: --WP TASK ID
34066: IF( (p_wp_task_id IS NULL OR p_wp_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
34166: x_msg_count := l_msg_count;
34167: x_msg_data := l_msg_data;
34168:
34169: IF p_debug_mode = 'Y' THEN
34170: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'DELETE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.DELETE_MAPPING:'||x_return_status;
34171: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34172: END IF;
34173:
34174: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34167: x_msg_data := l_msg_data;
34168:
34169: IF p_debug_mode = 'Y' THEN
34170: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'DELETE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.DELETE_MAPPING:'||x_return_status;
34171: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34172: END IF;
34173:
34174: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34273: IF (p_commit = FND_API.G_TRUE) THEN
34274: savepoint CREATE_MAPPING_PUB;
34275: END IF;
34276:
34277: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34278: IF l_debug_mode = 'Y' THEN
34279: PA_DEBUG.set_curr_function( p_function => 'CREATE_MAPPING',
34280: p_debug_mode => l_debug_mode );
34281: END IF;
34275: END IF;
34276:
34277: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34278: IF l_debug_mode = 'Y' THEN
34279: PA_DEBUG.set_curr_function( p_function => 'CREATE_MAPPING',
34280: p_debug_mode => l_debug_mode );
34281: END IF;
34282:
34283: IF l_debug_mode = 'Y' THEN
34280: p_debug_mode => l_debug_mode );
34281: END IF;
34282:
34283: IF l_debug_mode = 'Y' THEN
34284: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : Printing Input parameters';
34285: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34286: l_debug_level3);
34287: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34288: l_debug_level3);
34281: END IF;
34282:
34283: IF l_debug_mode = 'Y' THEN
34284: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : Printing Input parameters';
34285: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34286: l_debug_level3);
34287: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34288: l_debug_level3);
34289: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34283: IF l_debug_mode = 'Y' THEN
34284: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : Printing Input parameters';
34285: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34286: l_debug_level3);
34287: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34288: l_debug_level3);
34289: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34290: l_debug_level3);
34291: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34285: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34286: l_debug_level3);
34287: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34288: l_debug_level3);
34289: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34290: l_debug_level3);
34291: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34292: l_debug_level3);
34293: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34287: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34288: l_debug_level3);
34289: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34290: l_debug_level3);
34291: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34292: l_debug_level3);
34293: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34294: l_debug_level3);
34295: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34289: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34290: l_debug_level3);
34291: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34292: l_debug_level3);
34293: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34294: l_debug_level3);
34295: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34296: l_debug_level3);
34297: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34291: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34292: l_debug_level3);
34293: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34294: l_debug_level3);
34295: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34296: l_debug_level3);
34297: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34298: l_debug_level3);
34299: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34293: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34294: l_debug_level3);
34295: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34296: l_debug_level3);
34297: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34298: l_debug_level3);
34299: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34300: l_debug_level3);
34301: END IF;
34295: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34296: l_debug_level3);
34297: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34298: l_debug_level3);
34299: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34300: l_debug_level3);
34301: END IF;
34302: --Validate for input parameters
34303: IF l_debug_mode = 'Y' THEN
34300: l_debug_level3);
34301: END IF;
34302: --Validate for input parameters
34303: IF l_debug_mode = 'Y' THEN
34304: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : Validating Input parameters';
34305: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34306: l_debug_level3);
34307: END IF;
34308:
34301: END IF;
34302: --Validate for input parameters
34303: IF l_debug_mode = 'Y' THEN
34304: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : Validating Input parameters';
34305: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34306: l_debug_level3);
34307: END IF;
34308:
34309: IF ( (p_project_id IS NULL OR p_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
34311: (p_proj_source_reference IS NULL OR p_proj_source_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
34312: )
34313: THEN
34314: IF l_debug_mode = 'Y' THEN
34315: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving Project id should be passed';
34316: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34317: l_debug_level3);
34318: END IF;
34319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34312: )
34313: THEN
34314: IF l_debug_mode = 'Y' THEN
34315: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving Project id should be passed';
34316: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34317: l_debug_level3);
34318: END IF;
34319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34320: END IF;
34325: ( p_mapped_task_name IS NULL OR p_mapped_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
34326: )
34327: THEN
34328: IF l_debug_mode = 'Y' THEN
34329: 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';
34330: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34331: l_debug_level3);
34332: END IF;
34333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34326: )
34327: THEN
34328: IF l_debug_mode = 'Y' THEN
34329: 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';
34330: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34331: l_debug_level3);
34332: END IF;
34333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34334: END IF;
34339: (p_wkp_task_name IS NULL OR p_wkp_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
34340: )
34341: THEN
34342: IF l_debug_mode = 'Y' THEN
34343: 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';
34344: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34345: l_debug_level3);
34346: END IF;
34347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34340: )
34341: THEN
34342: IF l_debug_mode = 'Y' THEN
34343: 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';
34344: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34345: l_debug_level3);
34346: END IF;
34347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34348: END IF;
34407: );
34408: END IF;
34409:
34410: IF p_debug_mode = 'Y' THEN
34411: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'Project ID:'||l_project_id;
34412: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34413: END IF;
34414:
34415: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34408: END IF;
34409:
34410: IF p_debug_mode = 'Y' THEN
34411: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'Project ID:'||l_project_id;
34412: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34413: END IF;
34414:
34415: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34432: , p_out_task_id => l_wkp_task_id
34433: , p_return_status => x_return_status );
34434:
34435: IF p_debug_mode = 'Y' THEN
34436: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'wkp_task_id:'||l_wkp_task_id;
34437: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34438: END IF;
34439:
34440: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34433: , p_return_status => x_return_status );
34434:
34435: IF p_debug_mode = 'Y' THEN
34436: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'wkp_task_id:'||l_wkp_task_id;
34437: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34438: END IF;
34439:
34440: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34458: , p_return_status => x_return_status );
34459:
34460: --Assign mapped task_id to px_mapped_task_id as it is in out parameter
34461: IF p_debug_mode = 'Y' THEN
34462: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
34463: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34464: END IF;
34465: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34459:
34460: --Assign mapped task_id to px_mapped_task_id as it is in out parameter
34461: IF p_debug_mode = 'Y' THEN
34462: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
34463: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34464: END IF;
34465: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34467: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34493: fetch cur_get_mapped_task_version_id into l_mapped_task_version_id;
34494: close cur_get_mapped_task_version_id ;
34495: END IF;
34496: IF p_debug_mode = 'Y' THEN
34497: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'Before Calling PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING:';
34498: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34499: END IF;
34500:
34501:
34494: close cur_get_mapped_task_version_id ;
34495: END IF;
34496: IF p_debug_mode = 'Y' THEN
34497: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'Before Calling PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING:';
34498: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34499: END IF;
34500:
34501:
34502: -- All other validations done in PA_DELIVERABLE_PUB.CREATE_DELIVERABLE
34522: x_msg_count := l_msg_count;
34523: x_msg_data := l_msg_data;
34524:
34525: IF p_debug_mode = 'Y' THEN
34526: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING:'||x_return_status;
34527: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34528: END IF;
34529:
34530: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34523: x_msg_data := l_msg_data;
34524:
34525: IF p_debug_mode = 'Y' THEN
34526: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING:'||x_return_status;
34527: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34528: END IF;
34529:
34530: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34635: IF (p_commit = FND_API.G_TRUE) THEN
34636: savepoint UPDATE_MAPPING_PUB;
34637: END IF;
34638:
34639: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34640: IF l_debug_mode = 'Y' THEN
34641: PA_DEBUG.set_curr_function( p_function => 'UPDATE_MAPPING',
34642: p_debug_mode => l_debug_mode );
34643: END IF;
34637: END IF;
34638:
34639: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34640: IF l_debug_mode = 'Y' THEN
34641: PA_DEBUG.set_curr_function( p_function => 'UPDATE_MAPPING',
34642: p_debug_mode => l_debug_mode );
34643: END IF;
34644:
34645: IF l_debug_mode = 'Y' THEN
34642: p_debug_mode => l_debug_mode );
34643: END IF;
34644:
34645: IF l_debug_mode = 'Y' THEN
34646: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : Printing Input parameters';
34647: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34648: l_debug_level3);
34649: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34650: l_debug_level3);
34643: END IF;
34644:
34645: IF l_debug_mode = 'Y' THEN
34646: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : Printing Input parameters';
34647: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34648: l_debug_level3);
34649: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34650: l_debug_level3);
34651: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34645: IF l_debug_mode = 'Y' THEN
34646: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : Printing Input parameters';
34647: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34648: l_debug_level3);
34649: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34650: l_debug_level3);
34651: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34652: l_debug_level3);
34653: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34647: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34648: l_debug_level3);
34649: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34650: l_debug_level3);
34651: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34652: l_debug_level3);
34653: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34654: l_debug_level3);
34655: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34649: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34650: l_debug_level3);
34651: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34652: l_debug_level3);
34653: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34654: l_debug_level3);
34655: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34656: l_debug_level3);
34657: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34651: Pa_Debug.WRITE(g_pkg_name,'p_mapped_task_name'||':'||p_mapped_task_name,
34652: l_debug_level3);
34653: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34654: l_debug_level3);
34655: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34656: l_debug_level3);
34657: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34658: l_debug_level3);
34659: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34653: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_id'||':'||p_wkp_task_id,
34654: l_debug_level3);
34655: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34656: l_debug_level3);
34657: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34658: l_debug_level3);
34659: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34660: l_debug_level3);
34661: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34655: Pa_Debug.WRITE(g_pkg_name,'p_wkp_task_name'||':'||p_wkp_task_name,
34656: l_debug_level3);
34657: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34658: l_debug_level3);
34659: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34660: l_debug_level3);
34661: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34662: l_debug_level3);
34663: END IF;
34657: Pa_Debug.WRITE(g_pkg_name,'p_wkp_structure_version_id'||':'||p_wkp_structure_version_id,
34658: l_debug_level3);
34659: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34660: l_debug_level3);
34661: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34662: l_debug_level3);
34663: END IF;
34664: --Validate for input parameters
34665: IF l_debug_mode = 'Y' THEN
34662: l_debug_level3);
34663: END IF;
34664: --Validate for input parameters
34665: IF l_debug_mode = 'Y' THEN
34666: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : Validating Input parameters';
34667: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34668: l_debug_level3);
34669: END IF;
34670:
34663: END IF;
34664: --Validate for input parameters
34665: IF l_debug_mode = 'Y' THEN
34666: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : Validating Input parameters';
34667: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34668: l_debug_level3);
34669: END IF;
34670:
34671: IF ( (p_project_id IS NULL OR p_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
34673: (p_proj_source_reference IS NULL OR p_proj_source_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
34674: )
34675: THEN
34676: IF l_debug_mode = 'Y' THEN
34677: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : At least one of the parameters for deriving Project id should be passed';
34678: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34679: l_debug_level3);
34680: END IF;
34681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34674: )
34675: THEN
34676: IF l_debug_mode = 'Y' THEN
34677: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : At least one of the parameters for deriving Project id should be passed';
34678: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34679: l_debug_level3);
34680: END IF;
34681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34682: END IF;
34690: ( p_wkp_task_name IS NULL OR p_wkp_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
34691: )
34692: THEN
34693: IF l_debug_mode = 'Y' THEN
34694: 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';
34695: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34696: l_debug_level3);
34697: END IF;
34698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34691: )
34692: THEN
34693: IF l_debug_mode = 'Y' THEN
34694: 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';
34695: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34696: l_debug_level3);
34697: END IF;
34698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34699: END IF;
34758: );
34759: END IF;
34760:
34761: IF p_debug_mode = 'Y' THEN
34762: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'Project ID:'||l_project_id;
34763: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34764: END IF;
34765:
34766: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34759: END IF;
34760:
34761: IF p_debug_mode = 'Y' THEN
34762: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'Project ID:'||l_project_id;
34763: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34764: END IF;
34765:
34766: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34781: , p_out_task_id => l_wkp_task_id
34782: , p_return_status => x_return_status );
34783:
34784: IF p_debug_mode = 'Y' THEN
34785: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'wkp_task_id:'||l_wkp_task_id;
34786: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34787: END IF;
34788:
34789: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34782: , p_return_status => x_return_status );
34783:
34784: IF p_debug_mode = 'Y' THEN
34785: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'wkp_task_id:'||l_wkp_task_id;
34786: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34787: END IF;
34788:
34789: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34806: , p_out_task_id => l_mapped_task_id
34807: , p_return_status => x_return_status );
34808:
34809: IF p_debug_mode = 'Y' THEN
34810: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
34811: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34812: END IF;
34813: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34807: , p_return_status => x_return_status );
34808:
34809: IF p_debug_mode = 'Y' THEN
34810: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
34811: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34812: END IF;
34813: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34815: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34840:
34841: END IF;
34842:
34843: IF p_debug_mode = 'Y' THEN
34844: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'Before Calling PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING:';
34845: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34846: END IF;
34847:
34848:
34841: END IF;
34842:
34843: IF p_debug_mode = 'Y' THEN
34844: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'Before Calling PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING:';
34845: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34846: END IF;
34847:
34848:
34849: -- All other validations done in PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING
34870: x_msg_count := l_msg_count;
34871: x_msg_data := l_msg_data;
34872:
34873: IF p_debug_mode = 'Y' THEN
34874: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING:'||x_return_status;
34875: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34876: END IF;
34877:
34878: -- 10053423
34871: x_msg_data := l_msg_data;
34872:
34873: IF p_debug_mode = 'Y' THEN
34874: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING:'||x_return_status;
34875: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34876: END IF;
34877:
34878: -- 10053423
34879: IF l_debug_mode = 'Y' THEN
34876: END IF;
34877:
34878: -- 10053423
34879: IF l_debug_mode = 'Y' THEN
34880: pa_debug.reset_curr_function;
34881: pa_debug.write(g_pkg_name, l_api_name || ': Exiting succesfully', 5);
34882: END IF;
34883:
34884: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34877:
34878: -- 10053423
34879: IF l_debug_mode = 'Y' THEN
34880: pa_debug.reset_curr_function;
34881: pa_debug.write(g_pkg_name, l_api_name || ': Exiting succesfully', 5);
34882: END IF;
34883:
34884: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34894: END IF;
34895: x_return_status := FND_API.G_RET_STS_ERROR;
34896: -- Bug 10053423
34897: IF l_debug_mode = 'Y' THEN
34898: pa_debug.reset_curr_function;
34899: pa_debug.write(g_pkg_name, l_api_name || ': Inside G_EXC_ERROR exception', 5);
34900: END IF;
34901:
34902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34895: x_return_status := FND_API.G_RET_STS_ERROR;
34896: -- Bug 10053423
34897: IF l_debug_mode = 'Y' THEN
34898: pa_debug.reset_curr_function;
34899: pa_debug.write(g_pkg_name, l_api_name || ': Inside G_EXC_ERROR exception', 5);
34900: END IF;
34901:
34902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34903: IF (p_commit = FND_API.G_TRUE) THEN
34905: END IF;
34906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34907: -- Bug 10053423
34908: IF l_debug_mode = 'Y' THEN
34909: pa_debug.reset_curr_function;
34910: pa_debug.write(g_pkg_name, l_api_name || ': Inside G_EXC_UNEXPECTED_ERROR exception', 5);
34911: END IF;
34912:
34913: WHEN OTHERS THEN
34906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34907: -- Bug 10053423
34908: IF l_debug_mode = 'Y' THEN
34909: pa_debug.reset_curr_function;
34910: pa_debug.write(g_pkg_name, l_api_name || ': Inside G_EXC_UNEXPECTED_ERROR exception', 5);
34911: END IF;
34912:
34913: WHEN OTHERS THEN
34914: IF (p_commit = FND_API.G_TRUE) THEN
34916: END IF;
34917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34918: -- Bug 10053423
34919: IF l_debug_mode = 'Y' THEN
34920: pa_debug.reset_curr_function;
34921: pa_debug.write(g_pkg_name, l_api_name || ': Inside OTHERS exception', 5);
34922: END IF;
34923:
34924: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34918: -- Bug 10053423
34919: IF l_debug_mode = 'Y' THEN
34920: pa_debug.reset_curr_function;
34921: pa_debug.write(g_pkg_name, l_api_name || ': Inside OTHERS exception', 5);
34922: END IF;
34923:
34924: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34925: FND_MSG_PUB.add_exc_msg
34972: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
34973: FND_MSG_PUB.initialize;
34974: END IF;
34975:
34976: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34977: IF l_debug_mode = 'Y' THEN
34978: PA_DEBUG.set_curr_function( p_function => 'PROCESS_TASK_TABLE',
34979: p_debug_mode => l_debug_mode );
34980: END IF;
34974: END IF;
34975:
34976: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34977: IF l_debug_mode = 'Y' THEN
34978: PA_DEBUG.set_curr_function( p_function => 'PROCESS_TASK_TABLE',
34979: p_debug_mode => l_debug_mode );
34980: END IF;
34981:
34982: IF l_debug_mode = 'Y' THEN
34979: p_debug_mode => l_debug_mode );
34980: END IF;
34981:
34982: IF l_debug_mode = 'Y' THEN
34983: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Printing Input parameters';
34984: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34985: l_debug_level3);
34986: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34987: l_debug_level3);
34980: END IF;
34981:
34982: IF l_debug_mode = 'Y' THEN
34983: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Printing Input parameters';
34984: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34985: l_debug_level3);
34986: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34987: l_debug_level3);
34988: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34982: IF l_debug_mode = 'Y' THEN
34983: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Printing Input parameters';
34984: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34985: l_debug_level3);
34986: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34987: l_debug_level3);
34988: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34989: l_debug_level3);
34990: END IF;
34984: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34985: l_debug_level3);
34986: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34987: l_debug_level3);
34988: Pa_Debug.WRITE(g_pkg_name,'p_proj_source_reference'||':'||p_proj_source_reference,
34989: l_debug_level3);
34990: END IF;
34991: --Validate for input parameters
34992: IF l_debug_mode = 'Y' THEN
34989: l_debug_level3);
34990: END IF;
34991: --Validate for input parameters
34992: IF l_debug_mode = 'Y' THEN
34993: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Validating Input parameters';
34994: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34995: l_debug_level3);
34996: END IF;
34997:
34990: END IF;
34991: --Validate for input parameters
34992: IF l_debug_mode = 'Y' THEN
34993: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Validating Input parameters';
34994: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34995: l_debug_level3);
34996: END IF;
34997:
34998: IF ( (p_project_id IS NULL OR p_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
35000: (p_proj_source_reference IS NULL OR p_proj_source_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
35001: )
35002: THEN
35003: IF l_debug_mode = 'Y' THEN
35004: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : At least one of the parameters for deriving Project id should be passed';
35005: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
35006: l_debug_level3);
35007: END IF;
35008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35001: )
35002: THEN
35003: IF l_debug_mode = 'Y' THEN
35004: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : At least one of the parameters for deriving Project id should be passed';
35005: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
35006: l_debug_level3);
35007: END IF;
35008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35009: END IF;
35010:
35011: IF ( p_tasks_in_tbl IS NULL OR p_tasks_in_tbl.count <= 0 )
35012: THEN
35013: IF l_debug_mode = 'Y' THEN
35014: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Empty or NULL Task Table';
35015: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
35016: l_debug_level3);
35017: END IF;
35018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35011: IF ( p_tasks_in_tbl IS NULL OR p_tasks_in_tbl.count <= 0 )
35012: THEN
35013: IF l_debug_mode = 'Y' THEN
35014: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Empty or NULL Task Table';
35015: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
35016: l_debug_level3);
35017: END IF;
35018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35019: END IF;
35034: );
35035: END IF;
35036:
35037: IF p_debug_mode = 'Y' THEN
35038: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'PROCESS_TASK_TABLE'||'Project ID:'||l_project_id;
35039: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
35040: END IF;
35041:
35042: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35035: END IF;
35036:
35037: IF p_debug_mode = 'Y' THEN
35038: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'PROCESS_TASK_TABLE'||'Project ID:'||l_project_id;
35039: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
35040: END IF;
35041:
35042: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39680: t_str varchar2(1);
39681:
39682: BEGIN
39683:
39684: pa_debug.init_err_stack ('PA_PROJECT_PUB.BULK_MOVE_TASKS_LITE');
39685:
39686: x_return_status := FND_API.G_RET_STS_SUCCESS ;
39687:
39688:
39697: CLOSE cur_proj_id;
39698:
39699:
39700: IF (p_debug_mode = 'Y') THEN
39701: pa_debug.debug('PA_PROJECT_PUB.BULK_MOVE_TASKS_LITE begin');
39702: END IF;
39703:
39704: IF (p_commit = FND_API.G_TRUE) THEN
39705: savepoint BULK_MOVE_TASKS_LITE ;
40204: t_str varchar2(1);
40205:
40206: BEGIN
40207:
40208: pa_debug.init_err_stack ('PA_PROJECT_PUB.BULK_INDENT_TASKS_LITE');
40209:
40210: IF (p_debug_mode = 'Y') THEN
40211: pa_debug.debug('PA_PROJECT_PUB.BULK_INDENT_TASKS_LITE begin');
40212: END IF;
40207:
40208: pa_debug.init_err_stack ('PA_PROJECT_PUB.BULK_INDENT_TASKS_LITE');
40209:
40210: IF (p_debug_mode = 'Y') THEN
40211: pa_debug.debug('PA_PROJECT_PUB.BULK_INDENT_TASKS_LITE begin');
40212: END IF;
40213:
40214: IF (p_commit = FND_API.G_TRUE) THEN
40215: savepoint BULK_INDENT_TASKS_LITE;
41290: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41291: END IF;
41292:
41293: IF (p_debug_mode = 'Y') THEN
41294: pa_debug.debug('PA_PROJECT_PUB.BULK_INDENT_TASKS_LITE END');
41295: END IF;
41296:
41297: EXCEPTION
41298: when FND_API.G_EXC_ERROR then
41659: t_str varchar2(1);
41660:
41661: BEGIN
41662:
41663: pa_debug.init_err_stack ('PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE');
41664:
41665: IF (p_debug_mode = 'Y') THEN
41666: pa_debug.debug('PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE begin');
41667: END IF;
41662:
41663: pa_debug.init_err_stack ('PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE');
41664:
41665: IF (p_debug_mode = 'Y') THEN
41666: pa_debug.debug('PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE begin');
41667: END IF;
41668:
41669: IF (p_commit = FND_API.G_TRUE) THEN
41670: savepoint BULK_OUTDENT_TASKS_LITE;
41861: , src_proj_element_id
41862: , p_task_version_id),'N') = 'Y') then
41863:
41864: IF (p_debug_mode = 'Y') THEN
41865: pa_debug.debug('ERROR - PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE ');
41866: END IF;
41867:
41868: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41869: p_msg_name => 'PA_PS_TASK_HAS_SUB_PROJ');
42807: COMMIT;
42808: END IF;
42809:
42810: IF (p_debug_mode = 'Y') THEN
42811: pa_debug.debug('PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE END');
42812: END IF;
42813:
42814: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42815: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
43023: message varchar2(2000);
43024: t_str varchar2(1);
43025:
43026: BEGIN
43027: pa_debug.init_err_stack ('PA_PROJECT_PUB.STRUCTURE_ROLLUP');
43028:
43029: IF (p_debug_mode = 'Y') THEN
43030: pa_debug.debug('PA_PROJECT_PUB.STRUCTURE_ROLLUP begin');
43031: END IF;
43026: BEGIN
43027: pa_debug.init_err_stack ('PA_PROJECT_PUB.STRUCTURE_ROLLUP');
43028:
43029: IF (p_debug_mode = 'Y') THEN
43030: pa_debug.debug('PA_PROJECT_PUB.STRUCTURE_ROLLUP begin');
43031: END IF;
43032:
43033: IF (p_commit = FND_API.G_TRUE) THEN
43034: savepoint STRUCTURE_ROLLUP;
43209: end loop;
43210: end if;
43211: x_return_status := FND_API.G_RET_STS_SUCCESS;
43212: IF (p_debug_mode = 'Y') THEN
43213: pa_debug.debug('PA_PROJECT_PUB.STRUCTURE_ROLLUP END');
43214: END IF;
43215: if p_commit = FND_API.G_TRUE then
43216: COMMIT;
43217: end if;
43348:
43349:
43350:
43351: BEGIN
43352: pa_debug.init_err_stack ('PA_PROJECT_PUB.ADD_COST_CODE_TO_TASK');
43353:
43354: IF (l_debug_mode = 'Y') THEN
43355: pa_debug.debug('PA_PROJECT_PUB.ADD_COST_CODE_TO_TASK begin');
43356: END IF;
43351: BEGIN
43352: pa_debug.init_err_stack ('PA_PROJECT_PUB.ADD_COST_CODE_TO_TASK');
43353:
43354: IF (l_debug_mode = 'Y') THEN
43355: pa_debug.debug('PA_PROJECT_PUB.ADD_COST_CODE_TO_TASK begin');
43356: END IF;
43357: IF p_pa_project_id is not null then
43358: l_project_id:=p_pa_project_id;
43359: ELSE
43641: WHERE PROJ_ELEMENT_ID=c_task_id and CBS_ELEMENT_ID=c_cbs_lem_id;
43642:
43643:
43644: BEGIN
43645: pa_debug.init_err_stack ('PA_PROJECT_PUB.DELETE_COST_CODE_FROM_TASK');
43646:
43647: IF (l_debug_mode = 'Y') THEN
43648: pa_debug.debug('PA_PROJECT_PUB.DELETE_COST_CODE_FROM_TASK begin');
43649: END IF;
43644: BEGIN
43645: pa_debug.init_err_stack ('PA_PROJECT_PUB.DELETE_COST_CODE_FROM_TASK');
43646:
43647: IF (l_debug_mode = 'Y') THEN
43648: pa_debug.debug('PA_PROJECT_PUB.DELETE_COST_CODE_FROM_TASK begin');
43649: END IF;
43650: IF p_pa_project_id is not null then
43651: l_project_id:=p_pa_project_id;
43652: ELSE