[Home] [Help]
64: pa_debug.write(l_module_name, 'p_structure_id ='||p_structure_id , l_debug_level3);
65: pa_debug.write(l_module_name, 'p_debug_mode ='||p_debug_mode , l_debug_level3);
66: END IF;
67:
68: p_return_status := FND_API.G_RET_STS_SUCCESS;
69:
70: -- Get segment1 for AMG messages
71: OPEN l_amg_project_csr( p_project_id );
72: FETCH l_amg_project_csr INTO l_amg_segment1;
189: END LOOP;
190:
191: IF p_multiple_task_msg = 'F'
192: THEN
193: RAISE FND_API.G_EXC_ERROR;
194: END IF;
195:
196: END IF;
197:
196: END IF;
197:
198: EXCEPTION
199:
200: WHEN FND_API.G_EXC_ERROR
201: THEN
202:
203: p_return_status := FND_API.G_RET_STS_ERROR;
204:
199:
200: WHEN FND_API.G_EXC_ERROR
201: THEN
202:
203: p_return_status := FND_API.G_RET_STS_ERROR;
204:
205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
206: THEN
207:
201: THEN
202:
203: p_return_status := FND_API.G_RET_STS_ERROR;
204:
205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
206: THEN
207:
208: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
209:
204:
205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
206: THEN
207:
208: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
209:
210: WHEN OTHERS THEN
211:
212: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
208: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
209:
210: WHEN OTHERS THEN
211:
212: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213:
214: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
215: THEN
216: FND_MSG_PUB.add_exc_msg
448: END IF;
449: END IF;
450:
451:
452: x_return_status := FND_API.G_RET_STS_SUCCESS;
453: EXCEPTION
454: WHEN API_ERROR THEN
455: x_return_status := FND_API.G_RET_STS_ERROR;
456: rollback to create_dflt_structure;
451:
452: x_return_status := FND_API.G_RET_STS_SUCCESS;
453: EXCEPTION
454: WHEN API_ERROR THEN
455: x_return_status := FND_API.G_RET_STS_ERROR;
456: rollback to create_dflt_structure;
457: WHEN OTHERS THEN
458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
459: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
454: WHEN API_ERROR THEN
455: x_return_status := FND_API.G_RET_STS_ERROR;
456: rollback to create_dflt_structure;
457: WHEN OTHERS THEN
458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
459: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
460: p_procedure_name => 'CREATE_DEFAULT_STRUCTURE',
461: p_error_text => SUBSTRB(SQLERRM,1,240));
462: rollback to create_dflt_structure;
796: CLOSE cur_pa_proj_elem_vers2;
797: END LOOP; --task loop end.
798: END LOOP;
799:
800: x_return_status := FND_API.G_RET_STS_SUCCESS;
801: EXCEPTION
802: WHEN API_ERROR THEN
803: x_return_status := FND_API.G_RET_STS_ERROR;
804: rollback to create_dflt_task_struc;
799:
800: x_return_status := FND_API.G_RET_STS_SUCCESS;
801: EXCEPTION
802: WHEN API_ERROR THEN
803: x_return_status := FND_API.G_RET_STS_ERROR;
804: rollback to create_dflt_task_struc;
805: WHEN OTHERS THEN
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
802: WHEN API_ERROR THEN
803: x_return_status := FND_API.G_RET_STS_ERROR;
804: rollback to create_dflt_task_struc;
805: WHEN OTHERS THEN
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
808: p_procedure_name => 'CREATE_DEFAULT_TASK_STRUCTURE',
809: p_error_text => SUBSTRB(SQLERRM,1,240));
810: rollback to create_dflt_task_struc;
1841: ,x_return_status => l_return_status
1842: ,x_msg_count => l_msg_count
1843: ,x_msg_data => l_msg_data);
1844:
1845: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1846: x_msg_count := l_msg_count;
1847: x_msg_data := l_msg_data;
1848: RAISE API_ERROR;
1849: end if;
1866: ,x_return_status => l_return_status
1867: ,x_msg_count => l_msg_count
1868: ,x_msg_data => l_msg_data );
1869:
1870: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1871: x_msg_count := l_msg_count;
1872: x_msg_data := l_msg_data;
1873: RAISE API_ERROR;
1874: end if;
1917: ,x_msg_count => l_msg_count
1918: ,x_msg_data => l_msg_data
1919: );
1920:
1921: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1922: raise api_error;
1923: END IF;
1924: END IF;
1925: --end inherit task type
2145: ,p_attribute3 => ''
2146: ,p_attribute4 => ''
2147: ,p_attribute5 => '');
2148: END IF;
2149: RAISE FND_API.G_EXC_ERROR;
2150: END IF;
2151: END IF;
2152: --Bug 6153503 end
2153: --End add rtarway, 3908013
2305: when others then
2306: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
2307: p_procedure_name => 'CREATE_PROJECT',
2308: p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
2309: raise fnd_api.g_exc_error;
2310: end;
2311:
2312: -- Calling pa_fp_planning_transaction_pub.delete_planning_transactions for higher level tasks.
2313:
2325: when others then
2326: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
2327: p_procedure_name => 'CREATE_PROJECT',
2328: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
2329: raise fnd_api.g_exc_error;
2330: end;
2331:
2332: /* Bug # 3420093 - Adding Progress Management modifications to create_task flow. */
2333:
2331:
2332: /* Bug # 3420093 - Adding Progress Management modifications to create_task flow. */
2333:
2334:
2335: x_return_status := FND_API.G_RET_STS_SUCCESS;
2336: EXCEPTION
2337: WHEN API_ERROR THEN
2338: x_return_status := FND_API.G_RET_STS_ERROR;
2339: rollback to create_task_struc;
2334:
2335: x_return_status := FND_API.G_RET_STS_SUCCESS;
2336: EXCEPTION
2337: WHEN API_ERROR THEN
2338: x_return_status := FND_API.G_RET_STS_ERROR;
2339: rollback to create_task_struc;
2340: WHEN OTHERS THEN
2341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2342: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
2337: WHEN API_ERROR THEN
2338: x_return_status := FND_API.G_RET_STS_ERROR;
2339: rollback to create_task_struc;
2340: WHEN OTHERS THEN
2341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2342: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
2343: p_procedure_name => 'create_task_structure',
2344: p_error_text => SUBSTRB(SQLERRM,1,240));
2345: rollback to create_task_struc;
2822: ,p_structure_type => p_structure_type
2823: ,p_out_task_id => l_task_id
2824: ,p_return_status => l_return_status);
2825:
2826: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2827: THEN
2828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2829: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2830: THEN
2824: ,p_return_status => l_return_status);
2825:
2826: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2827: THEN
2828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2829: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2830: THEN
2831: RAISE FND_API.G_EXC_ERROR;
2832: END IF;
2825:
2826: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2827: THEN
2828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2829: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2830: THEN
2831: RAISE FND_API.G_EXC_ERROR;
2832: END IF;
2833: END IF;
2827: THEN
2828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2829: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2830: THEN
2831: RAISE FND_API.G_EXC_ERROR;
2832: END IF;
2833: END IF;
2834: --End add by rtarway for BUG 3666023
2835:
3140: , p_msg_name => l_message_name
3141: , p_token1 => 'REQUESTID'
3142: , p_value1 => l_conc_request_id);
3143:
3144: RAISE FND_API.G_EXC_ERROR;
3145: end if;
3146:
3147: -- End fix for Bug # 4373055.
3148:
3409: ,p_attribute3 => ''
3410: ,p_attribute4 => ''
3411: ,p_attribute5 => '');
3412: END IF;
3413: RAISE FND_API.G_EXC_ERROR;
3414: END IF;
3415:
3416: --Bug 6153503 end
3417: --End add rtarway, 3908013
3583: when others then
3584: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
3585: p_procedure_name => 'CREATE_PROJECT',
3586: p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
3587: raise fnd_api.g_exc_error;
3588: end;
3589:
3590: l_add_task_ver_ids_prm := PA_NUM_1000_NUM();
3591: l_add_planned_effort_prm := PA_NUM_1000_NUM();
3645: when others then
3646: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
3647: p_procedure_name => 'CREATE_PROJECT',
3648: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
3649: raise fnd_api.g_exc_error;
3650: end;
3651: END IF ; --bug 7358214
3652: /* Bug # 3420093 - Adding Progress Management modifications to update_task flow. */
3653:
3681: /* end if; */
3682:
3683: -- Progress Management Changes. Bug # 3420093.
3684:
3685: x_return_status := FND_API.G_RET_STS_SUCCESS;
3686: EXCEPTION
3687: WHEN API_ERROR THEN
3688: x_return_status := FND_API.G_RET_STS_ERROR;
3689: rollback to update_task_struc;
3684:
3685: x_return_status := FND_API.G_RET_STS_SUCCESS;
3686: EXCEPTION
3687: WHEN API_ERROR THEN
3688: x_return_status := FND_API.G_RET_STS_ERROR;
3689: rollback to update_task_struc;
3690: WHEN OTHERS THEN
3691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3692: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3687: WHEN API_ERROR THEN
3688: x_return_status := FND_API.G_RET_STS_ERROR;
3689: rollback to update_task_struc;
3690: WHEN OTHERS THEN
3691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3692: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3693: p_procedure_name => 'update_task_structure',
3694: p_error_text => SUBSTRB(SQLERRM,1,240));
3695: rollback to update_task_struc;
3825: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3826: ,p_msg_name => 'PA_PS_TASK_NOT_DELETED');
3827: raise api_error;
3828: END IF;
3829: x_return_status := FND_API.G_RET_STS_SUCCESS;
3830:
3831: EXCEPTION
3832: WHEN API_ERROR THEN
3833: x_return_status := FND_API.G_RET_STS_ERROR;
3829: x_return_status := FND_API.G_RET_STS_SUCCESS;
3830:
3831: EXCEPTION
3832: WHEN API_ERROR THEN
3833: x_return_status := FND_API.G_RET_STS_ERROR;
3834: rollback to delete_task_struc;
3835: WHEN OTHERS THEN
3836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3837: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3832: WHEN API_ERROR THEN
3833: x_return_status := FND_API.G_RET_STS_ERROR;
3834: rollback to delete_task_struc;
3835: WHEN OTHERS THEN
3836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3837: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3838: p_procedure_name => 'delete_task_structure',
3839: p_error_text => SUBSTRB(SQLERRM,1,240));
3840: rollback to delete_task_struc;
3990: p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3991: p_procedure_name => 'delete_project_structure',
3992: p_error_text => SUBSTR('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
3993:
3994: RAISE FND_API.G_EXC_ERROR;
3995:
3996: END;
3997:
3998:
3995:
3996: END;
3997:
3998:
3999: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4000:
4001: RAISE FND_API.G_EXC_ERROR;
4002:
4003: END IF;
3997:
3998:
3999: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4000:
4001: RAISE FND_API.G_EXC_ERROR;
4002:
4003: END IF;
4004:
4005: x_return_status := FND_API.G_RET_STS_SUCCESS;
4001: RAISE FND_API.G_EXC_ERROR;
4002:
4003: END IF;
4004:
4005: x_return_status := FND_API.G_RET_STS_SUCCESS;
4006:
4007: EXCEPTION
4008: WHEN API_ERROR THEN
4009: x_return_status := FND_API.G_RET_STS_ERROR;
4005: x_return_status := FND_API.G_RET_STS_SUCCESS;
4006:
4007: EXCEPTION
4008: WHEN API_ERROR THEN
4009: x_return_status := FND_API.G_RET_STS_ERROR;
4010: rollback to delete_project_struc;
4011: WHEN OTHERS THEN
4012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4013: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4008: WHEN API_ERROR THEN
4009: x_return_status := FND_API.G_RET_STS_ERROR;
4010: rollback to delete_project_struc;
4011: WHEN OTHERS THEN
4012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4013: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4014: p_procedure_name => 'delete_project_structure',
4015: p_error_text => SUBSTRB(SQLERRM,1,240));
4016: rollback to delete_project_struc;
4322: if l_msg_count > 0 then
4323: x_msg_count := l_msg_count;
4324: if x_msg_count = 1 then
4325: pa_interface_utils_pub.get_messages
4326: (p_encoded => FND_API.G_TRUE,
4327: p_msg_index => 1,
4328: p_msg_count => l_msg_count,
4329: p_msg_data => l_msg_data,
4330: p_data => l_data,
4352: if l_msg_count > 0 then
4353: x_msg_count := l_msg_count;
4354: if x_msg_count = 1 then
4355: pa_interface_utils_pub.get_messages
4356: (p_encoded => FND_API.G_TRUE,
4357: p_msg_index => 1,
4358: p_msg_count => l_msg_count,
4359: p_msg_data => l_msg_data,
4360: p_data => l_data,
4436: END IF;
4437: END LOOP;
4438: END LOOP;
4439: END IF;
4440: x_return_status := FND_API.G_RET_STS_SUCCESS;
4441: EXCEPTION
4442: WHEN API_ERROR THEN
4443: x_return_status := FND_API.G_RET_STS_ERROR;
4444: rollback to create_delete_wp_struc;
4439: END IF;
4440: x_return_status := FND_API.G_RET_STS_SUCCESS;
4441: EXCEPTION
4442: WHEN API_ERROR THEN
4443: x_return_status := FND_API.G_RET_STS_ERROR;
4444: rollback to create_delete_wp_struc;
4445: WHEN OTHERS THEN
4446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4447: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4442: WHEN API_ERROR THEN
4443: x_return_status := FND_API.G_RET_STS_ERROR;
4444: rollback to create_delete_wp_struc;
4445: WHEN OTHERS THEN
4446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4447: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4448: p_procedure_name => 'create_delete_workplan_struc',
4449: p_error_text => SUBSTRB(SQLERRM,1,240));
4450: rollback to create_delete_wp_struc;
4517:
4518: --copying structrues and tasks
4519: PA_PROJ_TASK_STRUC_PUB.copy_structures_tasks_bulk
4520: (
4521: p_init_msg_list => FND_API.G_FALSE
4522: ,p_src_project_id => p_src_project_id
4523: ,p_dest_project_id => p_dest_project_id
4524: ,p_delta => p_delta
4525: ,p_copy_task_flag => p_copy_task_flag
4565: if l_msg_count > 0 then
4566: x_msg_count := l_msg_count;
4567: if x_msg_count = 1 then
4568: pa_interface_utils_pub.get_messages
4569: (p_encoded => FND_API.G_TRUE,
4570: p_msg_index => 1,
4571: p_msg_count => l_msg_count,
4572: p_msg_data => l_msg_data,
4573: p_data => l_data,
4576: end if;
4577: raise API_ERROR;
4578: end if;
4579:
4580: x_return_status := FND_API.G_RET_STS_SUCCESS;
4581: EXCEPTION
4582: WHEN API_ERROR THEN
4583: x_return_status := FND_API.G_RET_STS_ERROR;
4584: rollback to cp_struc;
4579:
4580: x_return_status := FND_API.G_RET_STS_SUCCESS;
4581: EXCEPTION
4582: WHEN API_ERROR THEN
4583: x_return_status := FND_API.G_RET_STS_ERROR;
4584: rollback to cp_struc;
4585: WHEN OTHERS THEN
4586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4587: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4582: WHEN API_ERROR THEN
4583: x_return_status := FND_API.G_RET_STS_ERROR;
4584: rollback to cp_struc;
4585: WHEN OTHERS THEN
4586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4587: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4588: p_procedure_name => 'Copy_Structure',
4589: p_error_text => SUBSTRB(SQLERRM,1,240));
4590: rollback to cp_struc;
4670:
4671: END LOOP;
4672: END IF;
4673: CLOSE cur_pa_proj_elem_vers;
4674: x_return_status := FND_API.G_RET_STS_SUCCESS;
4675: EXCEPTION
4676: WHEN API_ERROR THEN
4677: x_return_status := FND_API.G_RET_STS_ERROR;
4678: rollback to clean_struc;
4673: CLOSE cur_pa_proj_elem_vers;
4674: x_return_status := FND_API.G_RET_STS_SUCCESS;
4675: EXCEPTION
4676: WHEN API_ERROR THEN
4677: x_return_status := FND_API.G_RET_STS_ERROR;
4678: rollback to clean_struc;
4679: WHEN OTHERS THEN
4680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4681: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4676: WHEN API_ERROR THEN
4677: x_return_status := FND_API.G_RET_STS_ERROR;
4678: rollback to clean_struc;
4679: WHEN OTHERS THEN
4680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4681: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4682: p_procedure_name => 'Clean_unwanted_tasks',
4683: p_error_text => SUBSTRB(SQLERRM,1,240));
4684: rollback to clean_struc;
4782: WHERE PM_SOURCE_REFERENCE = p_pm_parent_task_reference
4783: AND project_id = p_project_id
4784: AND OBJECT_TYPE = 'PA_TASKS';
4785: BEGIN
4786: x_return_status := FND_API.G_RET_STS_SUCCESS;
4787:
4788: OPEN cur_pa_proj_elems;
4789: FETCH cur_pa_proj_elems INTO x_parent_task_id;
4790: IF cur_pa_proj_elems%NOTFOUND
4788: OPEN cur_pa_proj_elems;
4789: FETCH cur_pa_proj_elems INTO x_parent_task_id;
4790: IF cur_pa_proj_elems%NOTFOUND
4791: THEN
4792: x_return_status := FND_API.G_RET_STS_ERROR;
4793: END IF;
4794:
4795: CLOSE cur_pa_proj_elems;
4796: EXCEPTION WHEN OTHERS THEN
4793: END IF;
4794:
4795: CLOSE cur_pa_proj_elems;
4796: EXCEPTION WHEN OTHERS THEN
4797: x_return_status := FND_API.G_RET_STS_ERROR;
4798: END convert_pm_parent_task_ref;
4799:
4800: -- API name : publish_structure
4801: -- Type : PL/sql Public procedure
4810: -- Notes: This api is a wrapper called from AMG
4811:
4812: PROCEDURE publish_structure(
4813: p_api_version IN NUMBER := 1.0
4814: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4815: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4816: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4817: ,p_validation_level IN VARCHAR2 := 100
4818: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4811:
4812: PROCEDURE publish_structure(
4813: p_api_version IN NUMBER := 1.0
4814: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4815: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4816: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4817: ,p_validation_level IN VARCHAR2 := 100
4818: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4819: ,p_debug_mode IN VARCHAR2 := 'N'
4812: PROCEDURE publish_structure(
4813: p_api_version IN NUMBER := 1.0
4814: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4815: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4816: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4817: ,p_validation_level IN VARCHAR2 := 100
4818: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4819: ,p_debug_mode IN VARCHAR2 := 'N'
4820: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4869: -- Notes: This api is a wrapper called from AMG
4870:
4871: PROCEDURE delete_structure_version(
4872: p_api_version IN NUMBER := 1.0
4873: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4874: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4875: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4876: ,p_validation_level IN VARCHAR2 := 100
4877: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4870:
4871: PROCEDURE delete_structure_version(
4872: p_api_version IN NUMBER := 1.0
4873: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4874: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4875: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4876: ,p_validation_level IN VARCHAR2 := 100
4877: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4878: ,p_debug_mode IN VARCHAR2 := 'N'
4871: PROCEDURE delete_structure_version(
4872: p_api_version IN NUMBER := 1.0
4873: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4874: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4875: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4876: ,p_validation_level IN VARCHAR2 := 100
4877: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4878: ,p_debug_mode IN VARCHAR2 := 'N'
4879: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4977: p_project_id,
4978: p_structure_type,
4979: l_return_status,
4980: l_error_message_code);
4981: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4982: --PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
4983: --,p_msg_name => l_error_message_code);
4984: --raise FND_API.G_EXC_ERROR;
4985:
4980: l_error_message_code);
4981: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4982: --PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
4983: --,p_msg_name => l_error_message_code);
4984: --raise FND_API.G_EXC_ERROR;
4985:
4986: -- Bug 3075609. When the structure type exists we need to ignore the error.
4987: -- This check has been used just to return with out doing any further
4988: -- processing.
4986: -- Bug 3075609. When the structure type exists we need to ignore the error.
4987: -- This check has been used just to return with out doing any further
4988: -- processing.
4989: IF l_error_message_code <> 'PA_PS_STRUC_TYPE_EXISTS' THEN
4990: x_return_status := FND_API.G_RET_STS_ERROR; -- Bug3044915
4991: x_msg_data := l_error_message_code ; -- Bug3044915
4992: x_msg_count := FND_MSG_PUB.count_msg; -- Bug3044915
4993: ELSE
4994: x_return_status := FND_API.G_RET_STS_SUCCESS;
4990: x_return_status := FND_API.G_RET_STS_ERROR; -- Bug3044915
4991: x_msg_data := l_error_message_code ; -- Bug3044915
4992: x_msg_count := FND_MSG_PUB.count_msg; -- Bug3044915
4993: ELSE
4994: x_return_status := FND_API.G_RET_STS_SUCCESS;
4995: x_msg_data := NULL;
4996: x_msg_count := NULL;
4997: END IF;
4998: Return;
5023: );
5024: IF x_structure_id IS NULL OR l_return_status <> 'S' THEN
5025: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
5026: ,p_msg_name => 'PA_PS_NO_STRUC_CREATED');
5027: raise FND_API.G_EXC_ERROR;
5028: END IF;
5029: --Create structure version
5030: OPEN cur_elem_ver_seq;
5031: FETCH cur_elem_ver_seq INTO x_structure_version_id;
5077: IF x_structure_version_id IS NULL THEN
5078: PA_UTILS.ADD_MESSAGE(
5079: p_app_short_name => 'PA'
5080: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5081: raise FND_API.G_EXC_ERROR;
5082: END IF;
5083: --Get structure version number
5084: OPEN get_working_ver_num(p_project_id, x_structure_id);
5085: FETCH get_working_ver_num INTO l_struc_ver_number;
5142: IF l_return_status <> 'S' THEN
5143: PA_UTILS.ADD_MESSAGE(
5144: p_app_short_name => 'PA'
5145: ,p_msg_name => 'PA_PS_NO_STRUC_SCH_VER_CREATED');
5146: raise FND_API.G_EXC_ERROR;
5147: END IF;
5148: x_return_status := FND_API.G_RET_STS_SUCCESS;
5149: EXCEPTION
5150: WHEN FND_API.G_EXC_ERROR THEN
5144: p_app_short_name => 'PA'
5145: ,p_msg_name => 'PA_PS_NO_STRUC_SCH_VER_CREATED');
5146: raise FND_API.G_EXC_ERROR;
5147: END IF;
5148: x_return_status := FND_API.G_RET_STS_SUCCESS;
5149: EXCEPTION
5150: WHEN FND_API.G_EXC_ERROR THEN
5151: x_msg_count := FND_MSG_PUB.count_msg;
5152: x_return_status := FND_API.G_RET_STS_ERROR;
5146: raise FND_API.G_EXC_ERROR;
5147: END IF;
5148: x_return_status := FND_API.G_RET_STS_SUCCESS;
5149: EXCEPTION
5150: WHEN FND_API.G_EXC_ERROR THEN
5151: x_msg_count := FND_MSG_PUB.count_msg;
5152: x_return_status := FND_API.G_RET_STS_ERROR;
5153: WHEN OTHERS THEN
5154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5148: x_return_status := FND_API.G_RET_STS_SUCCESS;
5149: EXCEPTION
5150: WHEN FND_API.G_EXC_ERROR THEN
5151: x_msg_count := FND_MSG_PUB.count_msg;
5152: x_return_status := FND_API.G_RET_STS_ERROR;
5153: WHEN OTHERS THEN
5154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5155: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5156: p_procedure_name => 'CREATE_STRUCTURE',
5150: WHEN FND_API.G_EXC_ERROR THEN
5151: x_msg_count := FND_MSG_PUB.count_msg;
5152: x_return_status := FND_API.G_RET_STS_ERROR;
5153: WHEN OTHERS THEN
5154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5155: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5156: p_procedure_name => 'CREATE_STRUCTURE',
5157: p_error_text => SUBSTRB(SQLERRM,1,240));
5158: raise;
5255: PA_UTILS.ADD_MESSAGE(
5256: p_app_short_name => 'PA'
5257: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5258: CLOSE c2;
5259: RAISE FND_API.G_EXC_ERROR;
5260: END IF;
5261: CLOSE c2;
5262:
5263: IF l_proj_element_id IS NOT NULL
5271: THEN
5272: PA_UTILS.ADD_MESSAGE(
5273: p_app_short_name => 'PA'
5274: ,p_msg_name => 'PA_PS_STRUC_VER_NAM_UNIQUE');
5275: RAISE FND_API.G_EXC_ERROR;
5276: END IF;
5277: END IF;
5278:
5279: IF (p_structure_type = 'FINANCIAL') THEN
5292: PA_UTILS.ADD_MESSAGE(
5293: p_app_short_name => 'PA'
5294: --,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5295: ,p_msg_name => 'PA_PS_WORKING_STRUC_VER_EXIST'); --bug # 3713107
5296: RAISE FND_API.G_EXC_ERROR;
5297: END IF;
5298: CLOSE c4;
5299: --create a new financial structure version
5300:
5349: IF x_structure_version_id IS NULL THEN
5350: PA_UTILS.ADD_MESSAGE(
5351: p_app_short_name => 'PA'
5352: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5353: raise FND_API.G_EXC_ERROR;
5354: END IF;
5355:
5356: --Get structure version number
5357: OPEN get_working_ver_num(p_project_id, l_proj_element_id);
5402: IF l_return_status <> 'S' THEN
5403: PA_UTILS.ADD_MESSAGE(
5404: p_app_short_name => 'PA'
5405: ,p_msg_name => 'PA_PS_NO_STRUC_SCH_VER_CREATED');
5406: raise FND_API.G_EXC_ERROR;
5407: END IF;
5408:
5409: ELSE
5410: --a version exists. Cannot create.
5410: --a version exists. Cannot create.
5411: PA_UTILS.ADD_MESSAGE(
5412: p_app_short_name => 'PA'
5413: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5414: RAISE FND_API.G_EXC_ERROR;
5415: END IF;
5416: ELSE
5417: /*
5418: --check if this is workplan type structure only
5421: --cannot create because this structure contains financial information also
5422: PA_UTILS.ADD_MESSAGE(
5423: p_app_short_name => 'PA'
5424: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5425: RAISE FND_API.G_EXC_ERROR;
5426: END IF;
5427: */
5428: IF NVL( IS_WP_VERSIONING_ENABLED( p_project_id ), 'N' ) = 'N'
5429: THEN
5430: --cannot create because versioning is not enabled.
5431: PA_UTILS.ADD_MESSAGE(
5432: p_app_short_name => 'PA'
5433: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5434: RAISE FND_API.G_EXC_ERROR;
5435: END IF;
5436: --create a new workplan structure version
5437: OPEN cur_elem_ver_seq;
5438: FETCH cur_elem_ver_seq INTO x_structure_version_id;
5484: IF x_structure_version_id IS NULL THEN
5485: PA_UTILS.ADD_MESSAGE(
5486: p_app_short_name => 'PA'
5487: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5488: raise FND_API.G_EXC_ERROR;
5489: END IF;
5490:
5491: --Get structure version number
5492: OPEN get_working_ver_num(p_project_id, l_proj_element_id);
5546: IF l_return_status <> 'S' THEN
5547: PA_UTILS.ADD_MESSAGE(
5548: p_app_short_name => 'PA'
5549: ,p_msg_name => 'PA_PS_NO_STRUC_SCH_VER_CREATED');
5550: raise FND_API.G_EXC_ERROR;
5551: END IF;
5552: -- Bug 4574032 Begin
5553: BEGIN
5554: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions
5564: WHEN OTHERS THEN
5565: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5566: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5567: p_error_text => SUBSTRB('call of pa_fp_planning_transaction_pub.add_planning_transactions failed. sqlerrm= :'||SQLERRM,1,240));
5568: raise fnd_api.g_exc_error;
5569: END;
5570: IF l_return_status <> 'S' THEN
5571: raise FND_API.G_EXC_ERROR;
5572: END IF;
5567: p_error_text => SUBSTRB('call of pa_fp_planning_transaction_pub.add_planning_transactions failed. sqlerrm= :'||SQLERRM,1,240));
5568: raise fnd_api.g_exc_error;
5569: END;
5570: IF l_return_status <> 'S' THEN
5571: raise FND_API.G_EXC_ERROR;
5572: END IF;
5573: -- Bug 4574032 End
5574: END IF;
5575: ELSE
5597: );
5598: END IF;
5599: END IF;
5600: EXCEPTION
5601: WHEN FND_API.G_EXC_ERROR THEN
5602: x_msg_count := FND_MSG_PUB.count_msg;
5603: x_return_status := FND_API.G_RET_STS_ERROR;
5604: WHEN OTHERS THEN
5605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5599: END IF;
5600: EXCEPTION
5601: WHEN FND_API.G_EXC_ERROR THEN
5602: x_msg_count := FND_MSG_PUB.count_msg;
5603: x_return_status := FND_API.G_RET_STS_ERROR;
5604: WHEN OTHERS THEN
5605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5606: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5607: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5601: WHEN FND_API.G_EXC_ERROR THEN
5602: x_msg_count := FND_MSG_PUB.count_msg;
5603: x_return_status := FND_API.G_RET_STS_ERROR;
5604: WHEN OTHERS THEN
5605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5606: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5607: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5608: p_error_text => SUBSTRB(SQLERRM,1,240));
5609: END create_update_struct_ver;
6160: , p_pm_task_reference => p_tasks_in(i).pm_parent_task_reference
6161: , p_out_task_id => v_parent_task_id
6162: , p_return_status => l_return_status );
6163:
6164: /*IF l_return_status <> FND_API.G_RET_STS_SUCCESS
6165: THEN
6166: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6167: THEN
6168: pa_interface_utils_pub.map_new_amg_msg
6175: ,p_attribute3 => ''
6176: ,p_attribute4 => ''
6177: ,p_attribute5 => '');
6178: END IF;
6179: RAISE FND_API.G_EXC_ERROR;
6180: END IF;
6181: */
6182: ELSE
6183: v_parent_task_id := null;
6365: l_outline_level(l_outline_level.count) := null;
6366:
6367: /*--bug 2856033
6368: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
6369: p_commit => FND_API.G_FALSE,
6370: p_element_versions => l_tasks_ver_ids,
6371: x_return_status => l_return_status,
6372: x_msg_count => l_msg_count,
6373: x_msg_data => l_msg_data);
6371: x_return_status => l_return_status,
6372: x_msg_count => l_msg_count,
6373: x_msg_data => l_msg_data);
6374:
6375: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6376: x_msg_count := FND_MSG_PUB.count_msg;
6377: if x_msg_count = 1 then
6378: pa_interface_utils_pub.get_messages
6379: (p_encoded => FND_API.G_TRUE,
6375: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6376: x_msg_count := FND_MSG_PUB.count_msg;
6377: if x_msg_count = 1 then
6378: pa_interface_utils_pub.get_messages
6379: (p_encoded => FND_API.G_TRUE,
6380: p_msg_index => 1,
6381: p_msg_count => l_msg_count,
6382: p_msg_data => l_msg_data,
6383: p_data => l_data,
6396: ,x_return_status => l_return_status
6397: ,x_msg_count => l_msg_count
6398: ,x_msg_data => l_msg_data );
6399:
6400: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6401: x_msg_count := FND_MSG_PUB.count_msg;
6402: x_return_status := l_return_status ; --bug 3044915
6403: if x_msg_count = 1 then
6404: pa_interface_utils_pub.get_messages
6401: x_msg_count := FND_MSG_PUB.count_msg;
6402: x_return_status := l_return_status ; --bug 3044915
6403: if x_msg_count = 1 then
6404: pa_interface_utils_pub.get_messages
6405: (p_encoded => FND_API.G_TRUE,
6406: p_msg_index => 1,
6407: p_msg_count => l_msg_count,
6408: p_msg_data => l_msg_data,
6409: p_data => l_data,
6449: l_outline_level(l_outline_level.count) := null;
6450:
6451: /*--bug 2856033
6452: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
6453: p_commit => FND_API.G_FALSE,
6454: p_element_versions => l_tasks_ver_ids,
6455: x_return_status => l_return_status,
6456: x_msg_count => l_msg_count,
6457: x_msg_data => l_msg_data);
6455: x_return_status => l_return_status,
6456: x_msg_count => l_msg_count,
6457: x_msg_data => l_msg_data);
6458:
6459: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6460: x_msg_count := FND_MSG_PUB.count_msg;
6461: if x_msg_count = 1 then
6462: pa_interface_utils_pub.get_messages
6463: (p_encoded => FND_API.G_TRUE,
6459: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6460: x_msg_count := FND_MSG_PUB.count_msg;
6461: if x_msg_count = 1 then
6462: pa_interface_utils_pub.get_messages
6463: (p_encoded => FND_API.G_TRUE,
6464: p_msg_index => 1,
6465: p_msg_count => l_msg_count,
6466: p_msg_data => l_msg_data,
6467: p_data => l_data,
6481: ,x_return_status => l_return_status
6482: ,x_msg_count => l_msg_count
6483: ,x_msg_data => l_msg_data );
6484:
6485: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6486: x_msg_count := FND_MSG_PUB.count_msg;
6487: x_return_status := l_return_status ; --bug 3044915
6488: if x_msg_count = 1 then
6489: pa_interface_utils_pub.get_messages
6486: x_msg_count := FND_MSG_PUB.count_msg;
6487: x_return_status := l_return_status ; --bug 3044915
6488: if x_msg_count = 1 then
6489: pa_interface_utils_pub.get_messages
6490: (p_encoded => FND_API.G_TRUE,
6491: p_msg_index => 1,
6492: p_msg_count => l_msg_count,
6493: p_msg_data => l_msg_data,
6494: p_data => l_data,
6497: end if;
6498: raise API_ERROR;
6499: end if;
6500: END IF;
6501: x_return_status := FND_API.G_RET_STS_SUCCESS; -- Bug 3044915
6502: END recalc_task_weightings;
6503:
6504: FUNCTION GET_MAX_LAST_UPD_DT_WRKNG_VER
6505: ( p_structure_version_id IN NUMBER
6569: -- p_shared VARCHAR2 Y Whether source/destination project is shared or not
6570: -- p_publish_person_id NUMBER Y The person id required for publishing a version
6571: -- p_dest_template_flag VARCHAR2 Y Creating a template or a project
6572: PROCEDURE copy_src_financial_version( p_api_version IN NUMBER := 1.0
6573: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6574: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
6575: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
6576: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
6577: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6570: -- p_publish_person_id NUMBER Y The person id required for publishing a version
6571: -- p_dest_template_flag VARCHAR2 Y Creating a template or a project
6572: PROCEDURE copy_src_financial_version( p_api_version IN NUMBER := 1.0
6573: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6574: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
6575: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
6576: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
6577: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6578: ,p_debug_mode IN VARCHAR2 := 'N'
6571: -- p_dest_template_flag VARCHAR2 Y Creating a template or a project
6572: PROCEDURE copy_src_financial_version( p_api_version IN NUMBER := 1.0
6573: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6574: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
6575: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
6576: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
6577: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6578: ,p_debug_mode IN VARCHAR2 := 'N'
6579: ,p_src_project_id IN NUMBER
6572: PROCEDURE copy_src_financial_version( p_api_version IN NUMBER := 1.0
6573: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6574: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
6575: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
6576: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
6577: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6578: ,p_debug_mode IN VARCHAR2 := 'N'
6579: ,p_src_project_id IN NUMBER
6580: ,p_dest_project_id IN NUMBER
6652: l_login_id NUMBER := FND_GLOBAL.LOGIN_ID;
6653: BEGIN
6654:
6655: x_msg_count := 0;
6656: x_return_status := FND_API.G_RET_STS_SUCCESS;
6657: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6658:
6659: IF (p_commit = FND_API.G_TRUE) THEN
6660: SAVEPOINT copy_src_fin_ver;
6655: x_msg_count := 0;
6656: x_return_status := FND_API.G_RET_STS_SUCCESS;
6657: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6658:
6659: IF (p_commit = FND_API.G_TRUE) THEN
6660: SAVEPOINT copy_src_fin_ver;
6661: END IF;
6662:
6663: IF p_init_msg_list = FND_API.G_TRUE THEN
6659: IF (p_commit = FND_API.G_TRUE) THEN
6660: SAVEPOINT copy_src_fin_ver;
6661: END IF;
6662:
6663: IF p_init_msg_list = FND_API.G_TRUE THEN
6664: FND_MSG_PUB.initialize;
6665: END IF;
6666:
6667: IF l_debug_mode = 'Y' THEN
6695: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6696: l_debug_level3);
6697: END IF;
6698:
6699: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6700: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6701: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6702: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6703: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6696: l_debug_level3);
6697: END IF;
6698:
6699: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6700: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6701: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6702: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6703: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6704: )
6697: END IF;
6698:
6699: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6700: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6701: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6702: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6703: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6704: )
6705: THEN
6698:
6699: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6700: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6701: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6702: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6703: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6704: )
6705: THEN
6706: IF l_debug_mode = 'Y' THEN
6699: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6700: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6701: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6702: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6703: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6704: )
6705: THEN
6706: IF l_debug_mode = 'Y' THEN
6707: Pa_Debug.g_err_stage:= 'PA_PROJ_TASK_STRUC_PUB : copy_src_financial_version :
6920: AND ppevs.element_version_id = l_src_fin_version_id
6921: AND ppev.attribute15 = ppevs.element_version_id
6922: AND ppev.project_id = p_dest_project_id ;
6923:
6924: IF (p_commit = FND_API.G_TRUE) THEN
6925: COMMIT;
6926: END IF;
6927:
6928: EXCEPTION
6927:
6928: EXCEPTION
6929:
6930: WHEN Invalid_Arg_Exc_WP THEN
6931: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6932: x_msg_count := 1;
6933: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_src_financial_version : NULL parameters passed';
6934:
6935: IF p_commit = FND_API.G_TRUE THEN
6931: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6932: x_msg_count := 1;
6933: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_src_financial_version : NULL parameters passed';
6934:
6935: IF p_commit = FND_API.G_TRUE THEN
6936: ROLLBACK TO copy_src_fin_ver;
6937: END IF;
6938:
6939: Fnd_Msg_Pub.add_exc_msg
6949: END IF;
6950: RAISE;
6951:
6952: WHEN OTHERS THEN
6953: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6954: x_msg_count := 1;
6955: x_msg_data := SQLERRM;
6956:
6957: IF p_commit = FND_API.G_TRUE THEN
6953: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6954: x_msg_count := 1;
6955: x_msg_data := SQLERRM;
6956:
6957: IF p_commit = FND_API.G_TRUE THEN
6958: ROLLBACK TO copy_src_fin_ver;
6959: END IF;
6960:
6961: Fnd_Msg_Pub.add_exc_msg
6994: -- p_target_start_date DATE Y The start date of the destination project
6995: -- p_target_finish_date DATE Y The finish date of the destination project
6996: -- p_calendar_id NUMBER Y The calendar id
6997: PROCEDURE copy_src_financial_ver_tasks( p_api_version IN NUMBER := 1.0
6998: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6999: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
7000: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
7001: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
7002: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6995: -- p_target_finish_date DATE Y The finish date of the destination project
6996: -- p_calendar_id NUMBER Y The calendar id
6997: PROCEDURE copy_src_financial_ver_tasks( p_api_version IN NUMBER := 1.0
6998: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6999: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
7000: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
7001: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
7002: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7003: ,p_debug_mode IN VARCHAR2 := 'N'
6996: -- p_calendar_id NUMBER Y The calendar id
6997: PROCEDURE copy_src_financial_ver_tasks( p_api_version IN NUMBER := 1.0
6998: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6999: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
7000: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
7001: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
7002: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7003: ,p_debug_mode IN VARCHAR2 := 'N'
7004: ,p_src_project_id IN NUMBER
6997: PROCEDURE copy_src_financial_ver_tasks( p_api_version IN NUMBER := 1.0
6998: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6999: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
7000: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
7001: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
7002: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7003: ,p_debug_mode IN VARCHAR2 := 'N'
7004: ,p_src_project_id IN NUMBER
7005: ,p_dest_project_id IN NUMBER
7156: BEGIN
7157:
7158:
7159: x_msg_count := 0;
7160: x_return_status := FND_API.G_RET_STS_SUCCESS;
7161: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7162:
7163: IF (p_commit = FND_API.G_TRUE) THEN
7164: SAVEPOINT copy_src_fin_ver_tasks;
7159: x_msg_count := 0;
7160: x_return_status := FND_API.G_RET_STS_SUCCESS;
7161: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7162:
7163: IF (p_commit = FND_API.G_TRUE) THEN
7164: SAVEPOINT copy_src_fin_ver_tasks;
7165: END IF;
7166:
7167: IF p_init_msg_list = FND_API.G_TRUE THEN
7163: IF (p_commit = FND_API.G_TRUE) THEN
7164: SAVEPOINT copy_src_fin_ver_tasks;
7165: END IF;
7166:
7167: IF p_init_msg_list = FND_API.G_TRUE THEN
7168: FND_MSG_PUB.initialize;
7169: END IF;
7170:
7171: IF l_debug_mode = 'Y' THEN
7208: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
7209: l_debug_level3);
7210: END IF;
7211:
7212: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
7213: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
7214: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
7215: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
7216: ( p_copy_ppevSchedules_flag IS NULL OR p_copy_ppevSchedules_flag = FND_API.G_MISS_NUM ) AND
7209: l_debug_level3);
7210: END IF;
7211:
7212: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
7213: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
7214: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
7215: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
7216: ( p_copy_ppevSchedules_flag IS NULL OR p_copy_ppevSchedules_flag = FND_API.G_MISS_NUM ) AND
7217: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
7210: END IF;
7211:
7212: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
7213: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
7214: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
7215: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
7216: ( p_copy_ppevSchedules_flag IS NULL OR p_copy_ppevSchedules_flag = FND_API.G_MISS_NUM ) AND
7217: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
7218: )
7211:
7212: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
7213: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
7214: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
7215: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
7216: ( p_copy_ppevSchedules_flag IS NULL OR p_copy_ppevSchedules_flag = FND_API.G_MISS_NUM ) AND
7217: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
7218: )
7219: THEN
7212: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
7213: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
7214: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
7215: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
7216: ( p_copy_ppevSchedules_flag IS NULL OR p_copy_ppevSchedules_flag = FND_API.G_MISS_NUM ) AND
7217: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
7218: )
7219: THEN
7220: IF l_debug_mode = 'Y' THEN
7213: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
7214: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
7215: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
7216: ( p_copy_ppevSchedules_flag IS NULL OR p_copy_ppevSchedules_flag = FND_API.G_MISS_NUM ) AND
7217: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
7218: )
7219: THEN
7220: IF l_debug_mode = 'Y' THEN
7221: Pa_Debug.g_err_stage:= 'PA_PROJ_TASK_STRUC_PUB : copy_src_financial_ver_tasks : p_src_project_id,
7750: AND ppev2.project_id = p_src_project_id
7751: AND ppev2.parent_structure_version_id = l_src_fin_version_id ;
7752: END IF; --If p_copy_ppevSchedules_flag = 'Y'
7753:
7754: IF (p_commit = FND_API.G_TRUE) THEN
7755: COMMIT;
7756: END IF;
7757:
7758: IF l_debug_mode = 'Y' THEN
7760: END IF;
7761: EXCEPTION
7762:
7763: WHEN Invalid_Arg_Exc_WP THEN
7764: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7765: x_msg_count := 1;
7766: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_src_financial_ver_tasks : NULL parameters passed';
7767:
7768: IF p_commit = FND_API.G_TRUE THEN
7764: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7765: x_msg_count := 1;
7766: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_src_financial_ver_tasks : NULL parameters passed';
7767:
7768: IF p_commit = FND_API.G_TRUE THEN
7769: ROLLBACK TO copy_src_fin_ver_tasks;
7770: END IF;
7771:
7772: Fnd_Msg_Pub.add_exc_msg
7782: END IF;
7783: RAISE;
7784:
7785: WHEN OTHERS THEN
7786: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7787: x_msg_count := 1;
7788: x_msg_data := SQLERRM;
7789:
7790: IF p_commit = FND_API.G_TRUE THEN
7786: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7787: x_msg_count := 1;
7788: x_msg_data := SQLERRM;
7789:
7790: IF p_commit = FND_API.G_TRUE THEN
7791: ROLLBACK TO copy_src_fin_ver_tasks;
7792: END IF;
7793:
7794: Fnd_Msg_Pub.add_exc_msg
7828: -- p_target_finish_date DATE Y The finish date of the destination project
7829: -- p_calendar_id NUMBER Y The calendar id
7830: PROCEDURE copy_structures_tasks_bulk
7831: ( p_api_version IN NUMBER := 1.0
7832: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7833: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
7834: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
7835: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
7836: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7829: -- p_calendar_id NUMBER Y The calendar id
7830: PROCEDURE copy_structures_tasks_bulk
7831: ( p_api_version IN NUMBER := 1.0
7832: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7833: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
7834: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
7835: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
7836: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7837: ,p_debug_mode IN VARCHAR2 := 'N'
7830: PROCEDURE copy_structures_tasks_bulk
7831: ( p_api_version IN NUMBER := 1.0
7832: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7833: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
7834: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
7835: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
7836: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7837: ,p_debug_mode IN VARCHAR2 := 'N'
7838: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7831: ( p_api_version IN NUMBER := 1.0
7832: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7833: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
7834: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
7835: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
7836: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7837: ,p_debug_mode IN VARCHAR2 := 'N'
7838: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7839: ,p_src_project_id IN NUMBER
8166:
8167: BEGIN
8168:
8169: x_msg_count := 0;
8170: x_return_status := FND_API.G_RET_STS_SUCCESS;
8171: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8172:
8173: IF (p_commit = FND_API.G_TRUE) THEN
8174: SAVEPOINT copy_struc_tasks_bulk;
8169: x_msg_count := 0;
8170: x_return_status := FND_API.G_RET_STS_SUCCESS;
8171: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8172:
8173: IF (p_commit = FND_API.G_TRUE) THEN
8174: SAVEPOINT copy_struc_tasks_bulk;
8175: END IF;
8176:
8177: IF p_init_msg_list = FND_API.G_TRUE THEN
8173: IF (p_commit = FND_API.G_TRUE) THEN
8174: SAVEPOINT copy_struc_tasks_bulk;
8175: END IF;
8176:
8177: IF p_init_msg_list = FND_API.G_TRUE THEN
8178: FND_MSG_PUB.initialize;
8179: END IF;
8180:
8181: IF l_debug_mode = 'Y' THEN
8220: END IF;
8221:
8222: --If source and destination project are the same
8223: IF p_src_project_id = p_dest_project_id THEN
8224: x_return_status := FND_API.G_RET_STS_SUCCESS;
8225: RETURN;
8226: END IF;
8227:
8228: --Check whether WP structure is enabled for the source project
8279: ,x_msg_count => x_msg_count
8280: ,x_Msg_data => x_msg_data
8281: );
8282:
8283: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8284: RAISE FND_API.G_EXC_ERROR;
8285: END IF;
8286:
8287: --Update back the attributes column in pa_proj_elements and pa_proj_element_versions with actual data from source project
8280: ,x_Msg_data => x_msg_data
8281: );
8282:
8283: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8284: RAISE FND_API.G_EXC_ERROR;
8285: END IF;
8286:
8287: --Update back the attributes column in pa_proj_elements and pa_proj_element_versions with actual data from source project
8288: UPDATE pa_proj_elements ppe1
8298: WHERE project_id = p_dest_project_id ;
8299:
8300: END IF;
8301:
8302: x_return_status := FND_API.G_RET_STS_SUCCESS ;
8303:
8304: IF (p_commit = FND_API.G_TRUE) THEN
8305: COMMIT;
8306: END IF;
8300: END IF;
8301:
8302: x_return_status := FND_API.G_RET_STS_SUCCESS ;
8303:
8304: IF (p_commit = FND_API.G_TRUE) THEN
8305: COMMIT;
8306: END IF;
8307:
8308: RETURN;
10004: , x_return_status => l_return_status
10005: , x_msg_count => l_msg_count
10006: , x_msg_data => l_msg_data );
10007:
10008: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10009: x_msg_count := FND_MSG_PUB.count_msg;
10010: IF x_msg_count = 1 THEN
10011: x_msg_data := l_msg_data;
10012: END IF;
10009: x_msg_count := FND_MSG_PUB.count_msg;
10010: IF x_msg_count = 1 THEN
10011: x_msg_data := l_msg_data;
10012: END IF;
10013: RAISE FND_API.G_EXC_ERROR;
10014: END IF;
10015: END IF; --3916763
10016: END IF;
10017: ELSE --IF THERE IS NO WP VERSION SELECTED FOR COPYING
10031: ,x_msg_count => l_msg_count
10032: ,x_msg_data => l_msg_data
10033: );
10034:
10035: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10036: x_msg_count := FND_MSG_PUB.count_msg;
10037: IF x_msg_count = 1 THEN
10038: x_msg_data := l_msg_data;
10039: END IF;
10036: x_msg_count := FND_MSG_PUB.count_msg;
10037: IF x_msg_count = 1 THEN
10038: x_msg_data := l_msg_data;
10039: END IF;
10040: RAISE FND_API.G_EXC_ERROR;
10041: END IF;
10042:
10043: --The following API call will copy the tasks belonging to the financial version in the source project into
10044: --the destination project
10054: ,x_return_status => l_return_status
10055: ,x_msg_count => l_msg_count
10056: ,x_msg_data => l_msg_data
10057: );
10058: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10059: x_msg_count := FND_MSG_PUB.count_msg;
10060: IF x_msg_count = 1 THEN
10061: x_msg_data := l_msg_data;
10062: END IF;
10059: x_msg_count := FND_MSG_PUB.count_msg;
10060: IF x_msg_count = 1 THEN
10061: x_msg_data := l_msg_data;
10062: END IF;
10063: RAISE FND_API.G_EXC_ERROR;
10064: END IF;
10065:
10066: END IF;--If shared and copy financial tasks flag is checked
10067:
10190: ,x_return_status => l_return_status
10191: ,x_msg_count => l_msg_count
10192: ,x_msg_data => l_msg_data
10193: );
10194: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10195: x_msg_count := FND_MSG_PUB.count_msg;
10196: IF x_msg_count = 1 THEN
10197: x_msg_data := l_msg_data;
10198: END IF;
10195: x_msg_count := FND_MSG_PUB.count_msg;
10196: IF x_msg_count = 1 THEN
10197: x_msg_data := l_msg_data;
10198: END IF;
10199: RAISE FND_API.G_EXC_ERROR;
10200: END IF;
10201: --bug 3912603, insert records into pa_proj_elem_ver_Schedule, Satish, end
10202:
10203: END IF;
10225: ,x_msg_count => l_msg_count
10226: ,x_msg_data => l_msg_data
10227: );
10228:
10229: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10230: x_msg_count := FND_MSG_PUB.count_msg;
10231: IF x_msg_count = 1 THEN
10232: x_msg_data := l_msg_data;
10233: END IF;
10230: x_msg_count := FND_MSG_PUB.count_msg;
10231: IF x_msg_count = 1 THEN
10232: x_msg_data := l_msg_data;
10233: END IF;
10234: RAISE FND_API.G_EXC_ERROR;
10235: END IF;
10236:
10237: --If copy financial tasks flag is checked
10238: IF 'Y' = l_fin_tasks_flag THEN
10255: ,x_return_status => l_return_status
10256: ,x_msg_count => l_msg_count
10257: ,x_msg_data => l_msg_data
10258: );
10259: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10260: x_msg_count := FND_MSG_PUB.count_msg;
10261: IF x_msg_count = 1 THEN
10262: x_msg_data := l_msg_data;
10263: END IF;
10260: x_msg_count := FND_MSG_PUB.count_msg;
10261: IF x_msg_count = 1 THEN
10262: x_msg_data := l_msg_data;
10263: END IF;
10264: RAISE FND_API.G_EXC_ERROR;
10265: END IF;
10266: END IF;
10267:
10268: END IF;--If split and financial is enabled
10461: x_msg_count => l_msg_count,
10462: x_msg_data => l_msg_data
10463: );
10464:
10465: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10466: x_msg_count := FND_MSG_PUB.count_msg;
10467: IF x_msg_count = 1 THEN
10468: x_msg_data := l_msg_data;
10469: END IF;
10466: x_msg_count := FND_MSG_PUB.count_msg;
10467: IF x_msg_count = 1 THEN
10468: x_msg_data := l_msg_data;
10469: END IF;
10470: RAISE FND_API.G_EXC_ERROR;
10471: END IF;
10472: END IF;
10473: END IF;
10474:
10489: X_Return_Status => X_Return_Status,
10490: X_Msg_Count => X_Msg_Count,
10491: X_Msg_Data => X_Msg_Data
10492: );
10493: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10494: RAISE FND_API.G_EXC_ERROR;
10495: END IF;
10496:
10497: OPEN cur_get_flag('WP_INTER_PROJ_DEPEND_FLAG');
10490: X_Msg_Count => X_Msg_Count,
10491: X_Msg_Data => X_Msg_Data
10492: );
10493: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10494: RAISE FND_API.G_EXC_ERROR;
10495: END IF;
10496:
10497: OPEN cur_get_flag('WP_INTER_PROJ_DEPEND_FLAG');
10498: FETCH cur_get_flag INTO l_wp_inter_proj_depend_flag;
10505: X_Return_Status => X_Return_Status,
10506: X_Msg_Count => X_Msg_Count,
10507: X_Msg_Data => X_Msg_Data
10508: );
10509: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10510: RAISE FND_API.G_EXC_ERROR;
10511: END IF;
10512: END IF;
10513: END ;--Finished copying Intra and Inter Project Dependencies
10506: X_Msg_Count => X_Msg_Count,
10507: X_Msg_Data => X_Msg_Data
10508: );
10509: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10510: RAISE FND_API.G_EXC_ERROR;
10511: END IF;
10512: END IF;
10513: END ;--Finished copying Intra and Inter Project Dependencies
10514:
10550: ,x_return_status => x_return_status
10551: ,x_msg_count => x_msg_count
10552: ,x_Msg_data => x_msg_data
10553: );
10554: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10555: RAISE FND_API.G_EXC_ERROR;
10556: END IF;
10557: END IF;
10558:
10551: ,x_msg_count => x_msg_count
10552: ,x_Msg_data => x_msg_data
10553: );
10554: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10555: RAISE FND_API.G_EXC_ERROR;
10556: END IF;
10557: END IF;
10558:
10559: OPEN cur_get_flag('WP_RES_ASSIGN_FLAG');
10598: ,x_return_status => x_return_status
10599: ,x_msg_count => x_msg_count
10600: ,x_Msg_data => x_msg_data
10601: );
10602: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10603: RAISE FND_API.G_EXC_ERROR;
10604: END IF;
10605: ELSE
10606: IF l_debug_mode = 'Y' THEN
10599: ,x_msg_count => x_msg_count
10600: ,x_Msg_data => x_msg_data
10601: );
10602: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10603: RAISE FND_API.G_EXC_ERROR;
10604: END IF;
10605: ELSE
10606: IF l_debug_mode = 'Y' THEN
10607: Pa_Debug.WRITE(G_PKG_NAME, 'Calling copy_wp_budget_versions ', l_debug_level3);
10618: ,x_return_status => x_return_status
10619: ,x_msg_count => x_msg_count
10620: ,x_Msg_data => x_msg_data
10621: );
10622: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10623: RAISE FND_API.G_EXC_ERROR;
10624: END IF;
10625: END IF;
10626:
10619: ,x_msg_count => x_msg_count
10620: ,x_Msg_data => x_msg_data
10621: );
10622: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10623: RAISE FND_API.G_EXC_ERROR;
10624: END IF;
10625: END IF;
10626:
10627: IF ( 'Y' = l_dlv_enabled AND 'Y' = l_wp_deliverables_flag ) THEN
10640: ,x_msg_count => x_msg_count
10641: ,x_Msg_data => x_msg_data
10642: );
10643:
10644: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10645: RAISE FND_API.G_EXC_ERROR;
10646: END IF;
10647: END IF;
10648: END;
10641: ,x_Msg_data => x_msg_data
10642: );
10643:
10644: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10645: RAISE FND_API.G_EXC_ERROR;
10646: END IF;
10647: END IF;
10648: END;
10649:
10689: );
10690: IF l_debug_mode = 'Y' THEN
10691: Pa_Debug.WRITE(G_PKG_NAME, 'After Call SUBMIT_WORKPLAN x_return_status='||x_return_status, l_debug_level3);
10692: END IF;
10693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10694: RAISE FND_API.G_EXC_ERROR;
10695: END IF;
10696: END IF;
10697: --3916763 End
10690: IF l_debug_mode = 'Y' THEN
10691: Pa_Debug.WRITE(G_PKG_NAME, 'After Call SUBMIT_WORKPLAN x_return_status='||x_return_status, l_debug_level3);
10692: END IF;
10693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10694: RAISE FND_API.G_EXC_ERROR;
10695: END IF;
10696: END IF;
10697: --3916763 End
10698:
10695: END IF;
10696: END IF;
10697: --3916763 End
10698:
10699: x_return_status := FND_API.G_RET_STS_SUCCESS ;
10700:
10701: -- Added for CBS phase 2 16470603
10702:
10703: l_Cbs_Enabled := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => p_src_project_id);
10710: p_Target_Project_Id =>p_dest_project_id,
10711: X_Return_Status =>X_Return_Status,
10712: X_Msg_Data =>X_Msg_Data,
10713: X_Msg_Count=>X_Msg_Count);
10714: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10715: RAISE FND_API.G_EXC_ERROR;
10716: END IF;
10717: IF l_debug_mode = 'Y' THEN
10718: Pa_Debug.WRITE(G_PKG_NAME, ' Created Alterante tasks for cbs enabled projects', l_debug_level3);
10711: X_Return_Status =>X_Return_Status,
10712: X_Msg_Data =>X_Msg_Data,
10713: X_Msg_Count=>X_Msg_Count);
10714: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10715: RAISE FND_API.G_EXC_ERROR;
10716: END IF;
10717: IF l_debug_mode = 'Y' THEN
10718: Pa_Debug.WRITE(G_PKG_NAME, ' Created Alterante tasks for cbs enabled projects', l_debug_level3);
10719: END IF;
10718: Pa_Debug.WRITE(G_PKG_NAME, ' Created Alterante tasks for cbs enabled projects', l_debug_level3);
10719: END IF;
10720: END IF;-- Added for CBS phase 2 16470603
10721:
10722: IF (p_commit = FND_API.G_TRUE) THEN
10723: COMMIT;
10724: END IF;
10725:
10726: IF (p_debug_mode = 'Y') THEN
10729: END IF;
10730:
10731: EXCEPTION
10732:
10733: WHEN FND_API.G_EXC_ERROR THEN
10734:
10735: x_return_status := Fnd_Api.G_RET_STS_ERROR;
10736:
10737: IF p_commit = FND_API.G_TRUE THEN
10731: EXCEPTION
10732:
10733: WHEN FND_API.G_EXC_ERROR THEN
10734:
10735: x_return_status := Fnd_Api.G_RET_STS_ERROR;
10736:
10737: IF p_commit = FND_API.G_TRUE THEN
10738: ROLLBACK TO copy_struc_tasks_bulk;
10739: END IF;
10733: WHEN FND_API.G_EXC_ERROR THEN
10734:
10735: x_return_status := Fnd_Api.G_RET_STS_ERROR;
10736:
10737: IF p_commit = FND_API.G_TRUE THEN
10738: ROLLBACK TO copy_struc_tasks_bulk;
10739: END IF;
10740:
10741: l_msg_count := Fnd_Msg_Pub.count_msg;
10741: l_msg_count := Fnd_Msg_Pub.count_msg;
10742: IF l_msg_count = 1 AND x_msg_data IS NULL
10743: THEN
10744: Pa_Interface_Utils_Pub.get_messages
10745: ( p_encoded => Fnd_Api.G_FALSE
10746: , p_msg_index => 1
10747: , p_msg_count => l_msg_count
10748: , p_msg_data => l_msg_data
10749: , p_data => l_data
10758: Pa_Debug.reset_curr_function;
10759: END IF;
10760:
10761: WHEN Invalid_Arg_Exc_WP THEN
10762: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10763: x_msg_count := 1;
10764: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_structures_tasks_bulk : NULL parameters passed';
10765:
10766: IF p_commit = FND_API.G_TRUE THEN
10762: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10763: x_msg_count := 1;
10764: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_structures_tasks_bulk : NULL parameters passed';
10765:
10766: IF p_commit = FND_API.G_TRUE THEN
10767: ROLLBACK TO copy_struc_tasks_bulk;
10768: END IF;
10769:
10770: Fnd_Msg_Pub.add_exc_msg
10780: END IF;
10781: RAISE;
10782:
10783: WHEN OTHERS THEN
10784: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10785: x_msg_count := 1;
10786: x_msg_data := SQLERRM;
10787:
10788: IF p_commit = FND_API.G_TRUE THEN
10784: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10785: x_msg_count := 1;
10786: x_msg_data := SQLERRM;
10787:
10788: IF p_commit = FND_API.G_TRUE THEN
10789: ROLLBACK TO copy_struc_tasks_bulk;
10790: END IF;
10791:
10792: Fnd_Msg_Pub.add_exc_msg
10847:
10848: END get_adjusted_dates;
10849:
10850: PROCEDURE copy_structures_bulk
10851: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
10852: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
10853: ,p_validation_level IN VARCHAR2 := 100
10854: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
10855: ,p_debug_mode IN VARCHAR2 := 'N'
10848: END get_adjusted_dates;
10849:
10850: PROCEDURE copy_structures_bulk
10851: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
10852: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
10853: ,p_validation_level IN VARCHAR2 := 100
10854: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
10855: ,p_debug_mode IN VARCHAR2 := 'N'
10856: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
11140: pa_debug.init_err_stack ('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk'); --For bug 4252182
11141: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk begin');
11142: END IF;
11143:
11144: IF (p_commit = FND_API.G_TRUE) THEN
11145: savepoint copy_structure_bulk_pvt;
11146: END IF;
11147:
11148: -- Check if source and destination project are the same
11146: END IF;
11147:
11148: -- Check if source and destination project are the same
11149: if p_src_project_id = p_dest_project_id then
11150: x_return_status := FND_API.G_RET_STS_SUCCESS;
11151: return;
11152: end if;
11153: l_dest_template_flag := p_dest_template_flag; --bug 2805602
11154: l_src_template_flag := p_src_template_flag; --bug 2805602
11408: x_err_stack => x_err_stack);
11409:
11410: if ( x_err_code > 0 or x_err_code < 0 ) then
11411: x_msg_data := x_err_stage;
11412: raise FND_API.G_EXC_ERROR;
11413: end if;
11414:
11415: --Split; Creating Financial tasks
11416: INSERT INTO pa_proj_elements(
12483: ,x_msg_count => x_msg_count
12484: ,x_msg_data => x_msg_data
12485: ,x_return_status => x_return_status
12486: );
12487: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12488: THEN
12489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12490: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12491: THEN
12485: ,x_return_status => x_return_status
12486: );
12487: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12488: THEN
12489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12490: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12491: THEN
12492: RAISE FND_API.G_EXC_ERROR;
12493: END IF;
12486: );
12487: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12488: THEN
12489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12490: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12491: THEN
12492: RAISE FND_API.G_EXC_ERROR;
12493: END IF;
12494: ELSIF nvl(l_create_wk_version,'N') = 'Y' THEN
12488: THEN
12489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12490: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12491: THEN
12492: RAISE FND_API.G_EXC_ERROR;
12493: END IF;
12494: ELSIF nvl(l_create_wk_version,'N') = 'Y' THEN
12495: l_structure_ver_name := substr(l_project_name||l_append||l_suffix, 1, 240);
12496:
12503: ,x_msg_count => x_msg_count
12504: ,x_msg_data => x_msg_data
12505: ,x_return_status => x_return_status
12506: );
12507: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12508: THEN
12509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12510: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12511: THEN
12505: ,x_return_status => x_return_status
12506: );
12507: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12508: THEN
12509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12510: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12511: THEN
12512: RAISE FND_API.G_EXC_ERROR;
12513: END IF;
12506: );
12507: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12508: THEN
12509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12510: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12511: THEN
12512: RAISE FND_API.G_EXC_ERROR;
12513: END IF;
12514: END IF;
12508: THEN
12509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12510: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12511: THEN
12512: RAISE FND_API.G_EXC_ERROR;
12513: END IF;
12514: END IF;
12515:
12516: FOR k in 1..l_dest_str_versions_tbl.count LOOP
13174: x_msg_count => l_msg_count,
13175: x_msg_data => l_msg_data
13176: );
13177:
13178: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
13179: x_msg_count := FND_MSG_PUB.count_msg;
13180: if x_msg_count = 1 then
13181: x_msg_data := l_msg_data;
13182: end if;
13179: x_msg_count := FND_MSG_PUB.count_msg;
13180: if x_msg_count = 1 then
13181: x_msg_data := l_msg_data;
13182: end if;
13183: raise FND_API.G_EXC_ERROR;
13184: end if;
13185:
13186: END IF;
13187: END IF;
13223: WHEN OTHERS THEN
13224: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13225: p_procedure_name => 'copy_structures_bulk',
13226: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
13227: RAISE FND_API.G_EXC_ERROR;
13228: END;
13229: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13230: RAISE FND_API.G_EXC_ERROR;
13231: END IF;
13225: p_procedure_name => 'copy_structures_bulk',
13226: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
13227: RAISE FND_API.G_EXC_ERROR;
13228: END;
13229: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13230: RAISE FND_API.G_EXC_ERROR;
13231: END IF;
13232: End;
13233: -- till here by skannoji
13226: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
13227: RAISE FND_API.G_EXC_ERROR;
13228: END;
13229: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13230: RAISE FND_API.G_EXC_ERROR;
13231: END IF;
13232: End;
13233: -- till here by skannoji
13234: ------------------------------------------------------------------------------
13310: ,x_return_status => l_return_status
13311: ,x_msg_count => l_msg_count
13312: ,x_msg_data => l_msg_data);
13313:
13314: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
13315: x_msg_count := FND_MSG_PUB.count_msg;
13316: if x_msg_count = 1 then
13317: x_msg_data := l_msg_data;
13318: end if;
13315: x_msg_count := FND_MSG_PUB.count_msg;
13316: if x_msg_count = 1 then
13317: x_msg_data := l_msg_data;
13318: end if;
13319: raise FND_API.G_EXC_ERROR;
13320: end if;
13321:
13322: ELSIF l_shared = 'N' AND NVL( l_task_weight_basis, 'X' ) = 'DURATION' --Split then call the api twice.
13323: THEN
13333: ,x_return_status => l_return_status
13334: ,x_msg_count => l_msg_count
13335: ,x_msg_data => l_msg_data);
13336:
13337: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
13338: x_msg_count := FND_MSG_PUB.count_msg;
13339: if x_msg_count = 1 then
13340: x_msg_data := l_msg_data;
13341: end if;
13338: x_msg_count := FND_MSG_PUB.count_msg;
13339: if x_msg_count = 1 then
13340: x_msg_data := l_msg_data;
13341: end if;
13342: raise FND_API.G_EXC_ERROR;
13343: end if;
13344:
13345:
13346: OPEN cur_str_vers( l_fn_str_id );
13355: ,x_return_status => l_return_status
13356: ,x_msg_count => l_msg_count
13357: ,x_msg_data => l_msg_data);
13358:
13359: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
13360: x_msg_count := FND_MSG_PUB.count_msg;
13361: if x_msg_count = 1 then
13362: x_msg_data := l_msg_data;
13363: end if;
13360: x_msg_count := FND_MSG_PUB.count_msg;
13361: if x_msg_count = 1 then
13362: x_msg_data := l_msg_data;
13363: end if;
13364: raise FND_API.G_EXC_ERROR;
13365: end if;
13366:
13367: END IF;
13368: END;
13369: --End 3035902 maansari
13370: */
13371:
13372:
13373: x_return_status := FND_API.G_RET_STS_SUCCESS;
13374:
13375:
13376: IF (p_debug_mode = 'Y') THEN
13377: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk END');
13377: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk END');
13378: END IF;
13379:
13380: EXCEPTION
13381: when FND_API.G_EXC_ERROR then
13382: if p_commit = FND_API.G_TRUE then
13383: rollback to copy_structure_bulk_pvt;
13384: end if;
13385: x_return_status := FND_API.G_RET_STS_ERROR;
13378: END IF;
13379:
13380: EXCEPTION
13381: when FND_API.G_EXC_ERROR then
13382: if p_commit = FND_API.G_TRUE then
13383: rollback to copy_structure_bulk_pvt;
13384: end if;
13385: x_return_status := FND_API.G_RET_STS_ERROR;
13386: when FND_API.G_EXC_UNEXPECTED_ERROR then
13381: when FND_API.G_EXC_ERROR then
13382: if p_commit = FND_API.G_TRUE then
13383: rollback to copy_structure_bulk_pvt;
13384: end if;
13385: x_return_status := FND_API.G_RET_STS_ERROR;
13386: when FND_API.G_EXC_UNEXPECTED_ERROR then
13387: if p_commit = FND_API.G_TRUE then
13388: rollback to copy_structure_bulk_pvt;
13389: end if;
13382: if p_commit = FND_API.G_TRUE then
13383: rollback to copy_structure_bulk_pvt;
13384: end if;
13385: x_return_status := FND_API.G_RET_STS_ERROR;
13386: when FND_API.G_EXC_UNEXPECTED_ERROR then
13387: if p_commit = FND_API.G_TRUE then
13388: rollback to copy_structure_bulk_pvt;
13389: end if;
13390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13383: rollback to copy_structure_bulk_pvt;
13384: end if;
13385: x_return_status := FND_API.G_RET_STS_ERROR;
13386: when FND_API.G_EXC_UNEXPECTED_ERROR then
13387: if p_commit = FND_API.G_TRUE then
13388: rollback to copy_structure_bulk_pvt;
13389: end if;
13390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13391: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13386: when FND_API.G_EXC_UNEXPECTED_ERROR then
13387: if p_commit = FND_API.G_TRUE then
13388: rollback to copy_structure_bulk_pvt;
13389: end if;
13390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13391: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13392: p_procedure_name => 'copy_structures_bulk',
13393: p_error_text => SUBSTRB(SQLERRM,1,240));
13394: when OTHERS then
13391: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13392: p_procedure_name => 'copy_structures_bulk',
13393: p_error_text => SUBSTRB(SQLERRM,1,240));
13394: when OTHERS then
13395: if p_commit = FND_API.G_TRUE then
13396: rollback to copy_structure_bulk_pvt;
13397: end if;
13398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13399: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13394: when OTHERS then
13395: if p_commit = FND_API.G_TRUE then
13396: rollback to copy_structure_bulk_pvt;
13397: end if;
13398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13399: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13400: p_procedure_name => 'copy_structures_bulk',
13401: p_error_text => SUBSTRB(SQLERRM,1,240));
13402: raise;
13559: ,x_return_status => l_return_status
13560: ,x_msg_count => l_msg_count
13561: ,x_msg_data => l_msg_data);
13562:
13563: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
13564: x_msg_count := FND_MSG_PUB.count_msg;
13565: x_return_status := l_return_status ; -- Bug 3044915
13566: if x_msg_count = 1 then
13567: pa_interface_utils_pub.get_messages
13564: x_msg_count := FND_MSG_PUB.count_msg;
13565: x_return_status := l_return_status ; -- Bug 3044915
13566: if x_msg_count = 1 then
13567: pa_interface_utils_pub.get_messages
13568: (p_encoded => FND_API.G_TRUE,
13569: p_msg_index => 1,
13570: p_msg_count => l_msg_count,
13571: p_msg_data => l_msg_data,
13572: p_data => l_data,
13574: x_msg_data := l_data;
13575: end if;
13576: raise API_ERROR;
13577: end if;
13578: x_return_status := FND_API.G_RET_STS_SUCCESS; -- Bug3044915
13579:
13580: -- Start Changes for Bug 6633233
13581: EXCEPTION
13582: WHEN API_ERROR THEN
13579:
13580: -- Start Changes for Bug 6633233
13581: EXCEPTION
13582: WHEN API_ERROR THEN
13583: x_return_status := FND_API.G_RET_STS_ERROR;
13584:
13585: WHEN OTHERS THEN
13586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13587: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13582: WHEN API_ERROR THEN
13583: x_return_status := FND_API.G_RET_STS_ERROR;
13584:
13585: WHEN OTHERS THEN
13586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13587: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13588: p_procedure_name => 'ROLLUP_DATES',
13589: p_error_text => SUBSTRB(SQLERRM,1,240));
13590: raise;
14175:
14176: BEGIN
14177: l_tcnt := 0; -- added for bug 8301015
14178:
14179: IF p_commit = FND_API.G_TRUE THEN
14180: SAVEPOINT process_task_struc;
14181: END IF;
14182:
14183: IF p_init_msg_list = FND_API.G_TRUE THEN
14179: IF p_commit = FND_API.G_TRUE THEN
14180: SAVEPOINT process_task_struc;
14181: END IF;
14182:
14183: IF p_init_msg_list = FND_API.G_TRUE THEN
14184: FND_MSG_PUB.initialize;
14185: END IF;
14186:
14187: x_msg_count := 0;
14184: FND_MSG_PUB.initialize;
14185: END IF;
14186:
14187: x_msg_count := 0;
14188: x_return_status := FND_API.G_RET_STS_SUCCESS;
14189: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
14190:
14191: -- Moved down this code during UT.
14192: IF l_debug_mode = 'Y' THEN
14498: p_msg_data => x_msg_data,
14499: p_return_status => x_return_status,
14500: p_function_allowed => l_add_task_security);
14501:
14502: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14503: IF l_debug_mode = 'Y' THEN
14504: pa_debug.g_err_stage := 'Error obtaining the value of add task function allowed' ;
14505: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14506: END IF;
14515: p_msg_data => x_msg_data,
14516: p_return_status => x_return_status,
14517: p_function_allowed => l_update_task_security);
14518:
14519: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14520: IF l_debug_mode = 'Y' THEN
14521: pa_debug.g_err_stage := 'Error obtaining the value of update task function allowed' ;
14522: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14523: END IF;
14608: ,x_msg_count => x_msg_count
14609: ,x_msg_data => x_msg_data
14610: );
14611:
14612: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14613: IF l_debug_mode = 'Y' THEN
14614: pa_debug.g_err_stage := 'Error obtaining the structure version id' ;
14615: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14616: END IF;
14755: ,p_attribute3 => ''
14756: ,p_attribute4 => ''
14757: ,p_attribute5 => '');
14758: END IF;
14759: px_tasks_out_tbl(i).return_status := FND_API.G_RET_STS_ERROR ;
14760: RAISE Invalid_Arg_Exc_WP;
14761: ELSE
14762: -- We need the differenciator only in the update project context.
14763: -- This is not done in create context to avoid cursor opening for each task.
14780: l_proj_elem_ver_rowid := null;
14781: l_obj_rel_rvn := null;
14782:
14783: -- Initialize the return status for the task record to success.
14784: px_tasks_out_tbl(i).return_status := FND_API.G_RET_STS_SUCCESS;
14785:
14786:
14787: -- Validation block
14788: -- validate security, task_reference and task names in appropriate contexts.
14831: ,p_attribute3 => ''
14832: ,p_attribute4 => ''
14833: ,p_attribute5 => '');
14834: END IF;
14835: px_tasks_out_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
14836: RAISE Invalid_Arg_Exc_WP;
14837: END IF;
14838:
14839: --ADUT. The task name cannot be null. For financial tasks this is
14855: ,p_attribute4 => ''
14856: ,p_attribute5 => '');
14857: END IF;
14858:
14859: px_tasks_out_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
14860: RAISE Invalid_Arg_Exc_WP;
14861: END IF;
14862: END IF; -- IF p_structure_type = 'WORKPLAN' THEN
14863:
14951: , p_out_task_id => l_cur_pa_tasks_rec.parent_task_id
14952: , p_return_status => x_return_status );
14953:
14954: px_tasks_out_tbl(i).return_status := x_return_status;
14955: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
14956: THEN
14957: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14958: THEN
14959: pa_interface_utils_pub.map_new_amg_msg
15089: , p_out_task_id => l_cur_pa_tasks_rec.parent_task_id
15090: , p_return_status => x_return_status );
15091:
15092: px_tasks_out_tbl(i).return_status := x_return_status;
15093: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
15094: THEN
15095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
15096: THEN
15097: pa_interface_utils_pub.map_new_amg_msg
15251: END IF; -- before calling create or update TASK
15252:
15253: /*Bug 11689028 start*/
15254: handle_task_number_change(p_project_id, l_task_in_rec.pa_task_id, l_task_in_rec.pa_task_number, p_tasks_in_tbl , l_structure_id, l_debug_mode, x_return_status) ;
15255: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15256: IF l_debug_mode = 'Y' THEN
15257: pa_debug.g_err_stage := 'Error calling handle_task_number_change : ' || l_task_in_rec.pa_task_id ;
15258: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
15259: END IF;
15277: END IF;
15278: PA_TASK_PUB1.create_task(
15279: p_api_version => p_api_version_number
15280: ,p_commit => p_commit
15281: ,p_validate_only => FND_API.G_FALSE
15282: ,p_calling_module => p_calling_module
15283: ,p_debug_mode => l_debug_mode
15284: ,p_init_msg_list => FND_API.G_FALSE
15285: ,p_object_type => 'PA_TASKS'
15280: ,p_commit => p_commit
15281: ,p_validate_only => FND_API.G_FALSE
15282: ,p_calling_module => p_calling_module
15283: ,p_debug_mode => l_debug_mode
15284: ,p_init_msg_list => FND_API.G_FALSE
15285: ,p_object_type => 'PA_TASKS'
15286: ,p_project_id => p_project_id
15287: ,p_structure_id => l_structure_id
15288: ,p_task_number => l_task_in_rec.pa_task_number -- l_cur_pa_tasks_rec.task_number bug 6193314
15318: l_err_task_number := l_cur_pa_tasks_rec.task_number;
15319:
15320: px_tasks_out_tbl(i).return_status := x_return_status;
15321:
15322: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15323: IF l_debug_mode = 'Y' THEN
15324: pa_debug.g_err_stage := 'Error calling create task : ' || l_task_id ;
15325: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15326: END IF;
15359: -- Bug 6717386
15360:
15361: PA_TASK_PUB1.Update_Task(
15362: p_calling_module => 'AMG'
15363: ,p_init_msg_list => FND_API.G_FALSE
15364: ,p_task_id => l_task_in_rec.pa_task_id
15365: ,p_task_number => l_task_in_rec.pa_task_number
15366: ,p_task_name => l_task_in_rec.long_task_name
15367: ,p_task_description => l_task_in_rec.task_description
15393: l_err_task_number := l_task_in_rec.pa_task_number;
15394:
15395: px_tasks_out_tbl(i).return_status := x_return_status;
15396:
15397: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15398: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
15399: ,p_msg_name => 'PA_PS_TASK_NOT_UPDATED'
15400: /* ADDED PROJECT_ID AND TASK_ID TOKENS FOR BUG 4219451 */
15401: ,p_token1 => 'PROJECT'
15460: --Call Update_One_Task to update financial attributes
15461: PA_PROJECT_PVT.Update_One_Task
15462: (
15463: p_api_version_number => p_api_version_number,
15464: p_commit => FND_API.G_FALSE,
15465: p_msg_count => x_msg_count,
15466: p_msg_data => x_msg_data,
15467: p_return_status => x_return_status,
15468: p_pm_product_code => p_pm_product_code,
15548: --End of changes 3-6822387651
15549: );
15550: px_tasks_out_tbl(i).return_status := x_return_status;
15551:
15552: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15553: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
15554: ,p_msg_name => 'PA_PS_TASK_NOT_UPDATED'
15555: /* ADDED PROJECT_ID AND TASK_ID TOKENS FOR BUG 4219451 */
15556: ,p_token1 => 'PROJECT'
15954: ,p_attribute3 => ''
15955: ,p_attribute4 => ''
15956: ,p_attribute5 => '');
15957: END IF;
15958: RAISE FND_API.G_EXC_ERROR;
15959: END IF;
15960: END IF;
15961: --Bug 6153503
15962: ELSE -- update task case
16124: ,p_attribute3 => ''
16125: ,p_attribute4 => ''
16126: ,p_attribute5 => '');
16127: END IF;
16128: RAISE FND_API.G_EXC_ERROR;
16129: END IF;
16130: --Bug 6153503 end
16131:
16132:
16165: pa_debug.write(l_module_name,pa_debug.g_err_stage,
16166: l_debug_level6);
16167: END IF;
16168:
16169: x_return_status := FND_API.G_RET_STS_ERROR;
16170: px_tasks_out_tbl(i).return_status := x_return_status;
16171: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16172: p_msg_name => l_error_msg_code);
16173: Raise Invalid_Arg_Exc_WP;
16376: ,x_return_status => x_return_status
16377: ,x_msg_count => x_msg_count
16378: ,x_msg_data => x_msg_data
16379: );
16380: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
16381: raise Invalid_Arg_Exc_WP;
16382: END IF;
16383: END IF;--for p_create_task_version_only = 'N'
16384: END IF;-- for p_structure_version_id IS NOT NULL
16505:
16506: PA_RELATIONSHIP_PUB.Create_Relationship
16507: (
16508: p_api_version => p_api_version_number
16509: ,p_init_msg_list => FND_API.G_FALSE
16510: ,p_commit => p_commit
16511: ,p_validate_only => FND_API.G_FALSE
16512: ,p_calling_module => p_calling_module
16513: ,p_debug_mode => l_debug_mode
16507: (
16508: p_api_version => p_api_version_number
16509: ,p_init_msg_list => FND_API.G_FALSE
16510: ,p_commit => p_commit
16511: ,p_validate_only => FND_API.G_FALSE
16512: ,p_calling_module => p_calling_module
16513: ,p_debug_mode => l_debug_mode
16514: ,p_project_id_from => p_project_id
16515: ,p_structure_id_from => l_structure_id
16529: ,x_msg_data => x_msg_data
16530: );
16531:
16532: px_tasks_out_tbl(i).return_status := x_return_status;
16533: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16534: IF l_debug_mode = 'Y' THEN
16535: pa_debug.g_err_stage := 'Error calling create relationship : ' || l_task_version_id ;
16536: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16537: END IF;
16557:
16558: PA_RELATIONSHIP_PVT.Update_Relationship
16559: (
16560: p_api_version => p_api_version_number
16561: ,p_init_msg_list => FND_API.G_FALSE
16562: ,p_commit => p_commit
16563: ,p_validate_only => FND_API.G_FALSE
16564: ,p_calling_module => p_calling_module
16565: ,p_debug_mode => l_debug_mode
16559: (
16560: p_api_version => p_api_version_number
16561: ,p_init_msg_list => FND_API.G_FALSE
16562: ,p_commit => p_commit
16563: ,p_validate_only => FND_API.G_FALSE
16564: ,p_calling_module => p_calling_module
16565: ,p_debug_mode => l_debug_mode
16566: ,p_object_relationship_id => l_relationship_id
16567: ,p_project_id_from => null
16582: );
16583:
16584: px_tasks_out_tbl(i).return_status := x_return_status;
16585:
16586: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16587: IF l_debug_mode = 'Y' THEN
16588: pa_debug.g_err_stage := 'Error calling create relationship : ' || l_task_version_id ;
16589: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16590: END IF;
16743: END IF;
16744:
16745: PA_TASK_PUB1.Create_Schedule_Version(
16746: p_element_version_id => l_task_version_id
16747: ,p_init_msg_list => FND_API.G_FALSE
16748: ,p_scheduled_start_date => l_scheduled_start_date
16749: ,p_scheduled_end_date => l_scheduled_finish_date
16750: ,p_calendar_id => l_task_in_rec.calendar_id
16751: ,p_obligation_start_date => l_task_in_rec.obligation_start_date
16800: -- end Bug 3654243 -------------------------------------------------------------------------
16801: );
16802:
16803: px_tasks_out_tbl(i).return_status := x_return_status;
16804: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16805: IF l_debug_mode = 'Y' THEN
16806: pa_debug.g_err_stage := 'Error calling create schedule version : ' || l_task_version_id ;
16807: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16808: END IF;
16841: WHEN OTHERS THEN
16842: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
16843: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
16844: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
16845: raise fnd_api.g_exc_error;
16846: END;
16847:
16848: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16849: x_msg_count := FND_MSG_PUB.count_msg;
16844: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
16845: raise fnd_api.g_exc_error;
16846: END;
16847:
16848: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16849: x_msg_count := FND_MSG_PUB.count_msg;
16850: raise fnd_api.g_exc_error;
16851: END IF;
16852: END IF; -- if l_add_task_ver_ids.exists(1) ends here
16846: END;
16847:
16848: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16849: x_msg_count := FND_MSG_PUB.count_msg;
16850: raise fnd_api.g_exc_error;
16851: END IF;
16852: END IF; -- if l_add_task_ver_ids.exists(1) ends here
16853: l_add_task_ver_ids.delete;
16854: l_add_planned_effort.delete;
16882: --if tasks are updated in bulk.
16883: --This should set for every single task.
16884: PA_TASK_PUB1.Update_Schedule_Version(
16885: p_calling_module => p_calling_module
16886: ,p_init_msg_list => FND_API.G_FALSE
16887: ,p_pev_schedule_id => l_ver_sch_attr_rec.pev_schedule_id
16888: ,p_calendar_id => l_task_in_rec.calendar_id
16889: ,p_scheduled_start_date => l_task_in_rec.scheduled_start_date
16890: ,p_scheduled_end_date => l_task_in_rec.scheduled_finish_date
16947: --end bug 4149392
16948:
16949: px_tasks_out_tbl(i).return_status := x_return_status;
16950:
16951: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16952: IF l_debug_mode = 'Y' THEN
16953: pa_debug.g_err_stage := 'Error calling update schedule version : ' || l_task_version_id ;
16954: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16955: END IF;
17068: x_return_status => l_return_status,
17069: x_msg_count => l_msg_count,
17070: x_msg_data => l_msg_data);
17071:
17072: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
17073: PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
17074: END IF;
17075:
17076: END IF;
17086: x_return_status => l_return_status,
17087: x_msg_count => l_msg_count,
17088: x_msg_data => l_msg_data);
17089:
17090: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
17091: PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
17092: END IF;
17093:
17094: END IF;
17098: /* Start of 13931870
17099: x_msg_count := l_msg_count;
17100: IF (x_msg_count = 1) THEN
17101: pa_interface_utils_pub.get_messages(
17102: p_encoded => FND_API.G_TRUE,
17103: p_msg_index => 1,
17104: p_data => l_data,
17105: p_msg_index_out => l_msg_index_out);
17106: x_msg_data := l_data;
17105: p_msg_index_out => l_msg_index_out);
17106: x_msg_data := l_data;
17107: END IF;
17108: End of 13931870*/
17109: RAISE FND_API.G_EXC_ERROR;
17110: END IF;
17111:
17112: EXIT when l_tcnt = l_task_dates.Last;
17113: l_tcnt := l_task_dates.NEXT(l_tcnt);
17264: ,x_return_status => l_return_status
17265: ,x_msg_count => l_msg_count
17266: ,x_msg_data => l_msg_data);
17267:
17268: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
17269: Raise Invalid_Arg_Exc_WP;
17270: end if;
17271: --END IF;
17272:
17286: ,x_return_status => l_return_status
17287: ,x_msg_count => l_msg_count
17288: ,x_msg_data => l_msg_data );
17289:
17290: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
17291: Raise Invalid_Arg_Exc_WP;
17292: end if;
17293: END IF;
17294: END IF;
17318: ,x_msg_count => x_msg_count
17319: ,x_msg_data => x_msg_data
17320: );
17321:
17322: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17323: IF l_debug_mode = 'Y' THEN
17324: pa_debug.g_err_stage := 'Error in task status rollup : ' || l_structure_version_id ;
17325: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17326: END IF;
17350: ,x_msg_count => x_msg_count
17351: ,x_msg_data => x_msg_data
17352: ,x_return_status => x_return_status
17353: );
17354: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17355: IF l_debug_mode = 'Y' THEN
17356: pa_debug.g_err_stage := 'Error in rollup dates : ' || l_structure_version_id ;
17357: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17358: END IF;
17381: ,x_msg_count => x_msg_count
17382: ,x_msg_data => x_msg_data
17383: ,x_return_status => x_return_status
17384: );
17385: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17386: IF l_debug_mode = 'Y' THEN
17387: pa_debug.g_err_stage := 'Error in recalculate task weightings : ' || l_structure_version_id ;
17388: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17389: END IF;
17424: ,x_msg_count => x_msg_count
17425: ,x_msg_data => x_msg_data ) ;
17426:
17427: -- Changed the way in which the error is handled.
17428: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17429: IF l_debug_mode = 'Y' THEN
17430: pa_debug.g_err_stage := 'Error in process_wbs_updates : ';
17431: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17432: END IF;
17448: ,x_return_status => x_return_status
17449: ,x_msg_count => x_msg_count
17450: ,x_msg_data => x_msg_data ) ;
17451: -- Changed the way in which the error is handled.
17452: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17453: IF l_debug_mode = 'Y' THEN
17454: pa_debug.g_err_stage := 'Error in process_wbs_updates_conc_wrp : ';
17455: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
17456: END IF;
17497: WHEN OTHERS THEN
17498: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
17499: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
17500: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
17501: raise fnd_api.g_exc_error;
17502: END;
17503:
17504: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17505: x_msg_count := FND_MSG_PUB.count_msg;
17500: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
17501: raise fnd_api.g_exc_error;
17502: END;
17503:
17504: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17505: x_msg_count := FND_MSG_PUB.count_msg;
17506: raise fnd_api.g_exc_error;
17507: END IF;
17508: END IF; -- l_add_task_ver_ids.exists(1) THEN
17502: END;
17503:
17504: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17505: x_msg_count := FND_MSG_PUB.count_msg;
17506: raise fnd_api.g_exc_error;
17507: END IF;
17508: END IF; -- l_add_task_ver_ids.exists(1) THEN
17509:
17510: IF nvl(p_tasks_in_tbl.LAST,0) > 0 THEN
17635: WHEN OTHERS THEN
17636: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
17637: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
17638: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
17639: raise fnd_api.g_exc_error;
17640: END;
17641:
17642: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17643: x_msg_count := FND_MSG_PUB.count_msg;
17638: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
17639: raise fnd_api.g_exc_error;
17640: END;
17641:
17642: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17643: x_msg_count := FND_MSG_PUB.count_msg;
17644: raise fnd_api.g_exc_error;
17645: END IF;
17646: END IF; -- l_del_task_ver_ids.exists(1) THEN
17640: END;
17641:
17642: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17643: x_msg_count := FND_MSG_PUB.count_msg;
17644: raise fnd_api.g_exc_error;
17645: END IF;
17646: END IF; -- l_del_task_ver_ids.exists(1) THEN
17647: l_del_task_ver_ids.delete;
17648: end if;
17668: WHEN OTHERS THEN
17669: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
17670: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
17671: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
17672: raise fnd_api.g_exc_error;
17673: END;
17674:
17675: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17676: x_msg_count := FND_MSG_PUB.count_msg;
17671: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
17672: raise fnd_api.g_exc_error;
17673: END;
17674:
17675: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17676: x_msg_count := FND_MSG_PUB.count_msg;
17677: raise fnd_api.g_exc_error;
17678: END IF;
17679: END IF; -- l_del_task_ver_ids.exists(1) THEN
17673: END;
17674:
17675: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17676: x_msg_count := FND_MSG_PUB.count_msg;
17677: raise fnd_api.g_exc_error;
17678: END IF;
17679: END IF; -- l_del_task_ver_ids.exists(1) THEN
17680: END IF; --((p_structure_type = 'WORKPLAN' AND p_is_wp_separate_from_fn = 'Y') OR p_is_wp_separate_from_fn = 'N' )
17681: --Amit : Bug 3964548 End
17742: -- when others then
17743: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17744: -- p_procedure_name => 'CREATE_PROJECT',
17745: -- p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
17746: -- raise fnd_api.g_exc_error;
17747: -- end;
17748: --
17749: -- -- Calling pa_fp_planning_transaction_pub.delete_planning_transactions for higher level tasks.
17750: --
17769: -- when others then
17770: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17771: -- p_procedure_name => 'CREATE_PROJECT',
17772: -- p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
17773: -- raise fnd_api.g_exc_error;
17774: -- end;
17775: --
17776: --/* Bug # 3420093 - Adding Progress Management modifications to create_project flow. */
17777: --
17830: -- when others then
17831: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17832: -- p_procedure_name => 'CREATE_PROJECT',
17833: -- p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
17834: -- raise fnd_api.g_exc_error;
17835: -- end;
17836: --
17837: -- -- Calling pa_fp_planning_transaction_pub.delete_planning_transactions for higher level tasks.
17838: --
17856: -- when others then
17857: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17858: -- p_procedure_name => 'CREATE_PROJECT',
17859: -- p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
17860: -- raise fnd_api.g_exc_error;
17861: -- end;
17862:
17863: --/* Bug # 3420093 - Adding Progress Management modifications to update_project flow. */
17864:
17874:
17875: EXCEPTION
17876:
17877: /* Start of Bug13931870 */
17878: WHEN fnd_api.g_exc_error THEN
17879:
17880: IF l_debug_mode = 'Y' THEN
17881: pa_debug.g_err_stage:= 'In fnd_api.g_exc_error exception block';
17882: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17877: /* Start of Bug13931870 */
17878: WHEN fnd_api.g_exc_error THEN
17879:
17880: IF l_debug_mode = 'Y' THEN
17881: pa_debug.g_err_stage:= 'In fnd_api.g_exc_error exception block';
17882: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17883: l_debug_level4);
17884: END IF;
17885:
17882: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17883: l_debug_level4);
17884: END IF;
17885:
17886: x_return_status := FND_API.G_RET_STS_ERROR;
17887: l_msg_count := FND_MSG_PUB.count_msg;
17888:
17889: IF get_structure%ISOPEN THEN
17890: CLOSE get_structure;
17933:
17934:
17935: IF l_msg_count = 1 and x_msg_data IS NULL THEN
17936: PA_INTERFACE_UTILS_PUB.get_messages
17937: (p_encoded => FND_API.G_TRUE
17938: ,p_msg_index => 1
17939: ,p_msg_count => l_msg_count
17940: ,p_msg_data => l_msg_data
17941: ,p_data => l_data
17949: IF l_debug_mode = 'Y' THEN
17950: pa_debug.reset_curr_function;
17951: END IF;
17952:
17953: IF p_commit = FND_API.G_TRUE THEN
17954: rollback to process_task_struc;
17955: END IF;
17956:
17957: RETURN;
17964: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17965: l_debug_level4);
17966: END IF;
17967:
17968: x_return_status := FND_API.G_RET_STS_ERROR;
17969: l_msg_count := FND_MSG_PUB.count_msg;
17970:
17971: -- IF cur_auto_pub_flag%ISOPEN THEN
17972: -- CLOSE cur_auto_pub_flag;
18018: END IF;
18019:
18020: IF l_msg_count = 1 and x_msg_data IS NULL THEN
18021: PA_INTERFACE_UTILS_PUB.get_messages
18022: (p_encoded => FND_API.G_TRUE
18023: ,p_msg_index => 1
18024: ,p_msg_count => l_msg_count
18025: ,p_msg_data => l_msg_data
18026: ,p_data => l_data
18034: IF l_debug_mode = 'Y' THEN
18035: pa_debug.reset_curr_function;
18036: END IF;
18037:
18038: IF p_commit = FND_API.G_TRUE THEN
18039: rollback to process_task_struc;
18040: END IF;
18041:
18042: RETURN;
18042: RETURN;
18043:
18044: WHEN others THEN
18045:
18046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18047: x_msg_count := 1;
18048: x_msg_data := SQLERRM;
18049:
18050: -- IF cur_auto_pub_flag%ISOPEN THEN
18109: pa_debug.reset_curr_function;
18110:
18111: END IF;
18112:
18113: IF p_commit = FND_API.G_TRUE THEN
18114: rollback to process_task_struc;
18115: END IF;
18116:
18117: -- rollback to process_task_struc; Commented during UT.
18174: if l_msg_count > 0 then
18175: x_msg_count := l_msg_count;
18176: if x_msg_count = 1 then
18177: pa_interface_utils_pub.get_messages
18178: (p_encoded => FND_API.G_TRUE,
18179: p_msg_index => 1,
18180: p_msg_count => l_msg_count,
18181: p_msg_data => l_msg_data,
18182: p_data => l_data,
18186: raise API_ERROR;
18187: end if;
18188: */
18189:
18190: x_return_status := FND_API.G_RET_STS_SUCCESS;
18191: EXCEPTION
18192: WHEN API_ERROR THEN
18193: x_return_status := FND_API.G_RET_STS_ERROR;
18194: rollback to plan_tasks;
18189:
18190: x_return_status := FND_API.G_RET_STS_SUCCESS;
18191: EXCEPTION
18192: WHEN API_ERROR THEN
18193: x_return_status := FND_API.G_RET_STS_ERROR;
18194: rollback to plan_tasks;
18195: WHEN OTHERS THEN
18196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18197: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
18192: WHEN API_ERROR THEN
18193: x_return_status := FND_API.G_RET_STS_ERROR;
18194: rollback to plan_tasks;
18195: WHEN OTHERS THEN
18196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18197: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
18198: p_procedure_name => 'delete_fin_plan_from_task',
18199: p_error_text => SUBSTRB(SQLERRM,1,240));
18200: rollback to plan_tasks;
18214: ==================================================================*/
18215:
18216: PROCEDURE PROCESS_WBS_UPDATES_WRP
18217: ( p_api_version_number IN NUMBER := 1.0
18218: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
18219: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18220: ,p_calling_context IN VARCHAR2 := 'UPDATE'
18221: ,p_project_id IN pa_projects_all.project_id%TYPE
18222: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
18215:
18216: PROCEDURE PROCESS_WBS_UPDATES_WRP
18217: ( p_api_version_number IN NUMBER := 1.0
18218: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
18219: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18220: ,p_calling_context IN VARCHAR2 := 'UPDATE'
18221: ,p_project_id IN pa_projects_all.project_id%TYPE
18222: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
18223: ,p_pub_struc_ver_id IN NUMBER := NULL
18275: RAISE Invalid_Arg_Exc_WP;
18276: END IF;
18277: --Bug# 5973460
18278:
18279: IF p_init_msg_list = FND_API.G_TRUE THEN
18280: FND_MSG_PUB.initialize;
18281: END IF;
18282:
18283: x_msg_count := 0;
18280: FND_MSG_PUB.initialize;
18281: END IF;
18282:
18283: x_msg_count := 0;
18284: x_return_status := FND_API.G_RET_STS_SUCCESS;
18285: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18286:
18287: IF l_debug_mode = 'Y' THEN
18288: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_WRP';
18377: ,x_return_status => x_return_status
18378: ,x_msg_count => x_msg_count
18379: ,x_msg_data => x_msg_data
18380: );
18381: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18382: IF l_debug_mode = 'Y' THEN
18383: pa_debug.g_err_stage := 'Error calling online wbs update process ';
18384: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18385: END IF;
18396: ,x_return_status => x_return_status
18397: ,x_msg_count => x_msg_count
18398: ,x_msg_data => x_msg_data
18399: );
18400: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18401: IF l_debug_mode = 'Y' THEN
18402: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
18403: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18404: END IF;
18416: EXCEPTION
18417:
18418: WHEN Invalid_Arg_Exc_WP THEN
18419:
18420: x_return_status := FND_API.G_RET_STS_ERROR;
18421: l_msg_count := FND_MSG_PUB.count_msg;
18422:
18423: IF cur_task_count%ISOPEN THEN
18424: CLOSE cur_task_count;
18425: END IF;
18426:
18427: IF l_msg_count = 1 and x_msg_data IS NULL THEN
18428: PA_INTERFACE_UTILS_PUB.get_messages
18429: (p_encoded => FND_API.G_TRUE
18430: ,p_msg_index => 1
18431: ,p_msg_count => l_msg_count
18432: ,p_msg_data => l_msg_data
18433: ,p_data => l_data
18444: RETURN;
18445:
18446: WHEN others THEN
18447:
18448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18449: x_msg_count := 1;
18450: x_msg_data := SQLERRM;
18451:
18452: IF cur_task_count%ISOPEN THEN
18475: ==================================================================*/
18476:
18477: PROCEDURE PROCESS_WBS_UPDATES_CONC_WRP
18478: ( p_api_version_number IN NUMBER := 1.0
18479: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
18480: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18481: ,p_calling_context IN VARCHAR2 := 'UPDATE'
18482: ,p_project_id IN pa_projects_all.project_id%TYPE
18483: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
18476:
18477: PROCEDURE PROCESS_WBS_UPDATES_CONC_WRP
18478: ( p_api_version_number IN NUMBER := 1.0
18479: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
18480: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18481: ,p_calling_context IN VARCHAR2 := 'UPDATE'
18482: ,p_project_id IN pa_projects_all.project_id%TYPE
18483: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
18484: ,p_pub_struc_ver_id IN NUMBER := NULL
18556:
18557: -- 4683461 Done
18558:
18559: BEGIN
18560: IF p_init_msg_list = FND_API.G_TRUE THEN
18561: FND_MSG_PUB.initialize;
18562: END IF;
18563:
18564: x_msg_count := 0;
18561: FND_MSG_PUB.initialize;
18562: END IF;
18563:
18564: x_msg_count := 0;
18565: x_return_status := FND_API.G_RET_STS_SUCCESS;
18566: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18567:
18568: IF l_debug_mode = 'Y' THEN
18569: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC_WRP';
18771: ,x_return_status => x_return_status
18772: ,x_msg_count => x_msg_count
18773: ,x_msg_data => x_msg_data
18774: );
18775: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18776: IF l_debug_mode = 'Y' THEN
18777: pa_debug.g_err_stage := 'Error calling the financial planning API after submitting the concurrent request';
18778: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18779: END IF;
18795: EXCEPTION
18796:
18797: WHEN Invalid_Arg_Exc_WP THEN
18798:
18799: x_return_status := FND_API.G_RET_STS_ERROR;
18800: l_msg_count := FND_MSG_PUB.count_msg;
18801:
18802: IF l_msg_count = 1 and x_msg_data IS NULL THEN
18803: PA_INTERFACE_UTILS_PUB.get_messages
18800: l_msg_count := FND_MSG_PUB.count_msg;
18801:
18802: IF l_msg_count = 1 and x_msg_data IS NULL THEN
18803: PA_INTERFACE_UTILS_PUB.get_messages
18804: (p_encoded => FND_API.G_TRUE
18805: ,p_msg_index => 1
18806: ,p_msg_count => l_msg_count
18807: ,p_msg_data => l_msg_data
18808: ,p_data => l_data
18819: RETURN;
18820:
18821: WHEN others THEN
18822:
18823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18824: x_msg_count := 1;
18825: x_msg_data := SQLERRM;
18826:
18827: FND_MSG_PUB.add_exc_msg
18941: ,x_return_status => l_return_status
18942: ,x_msg_count => l_msg_count
18943: ,x_msg_data => l_msg_data
18944: );
18945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18946: IF l_debug_mode = 'Y' THEN
18947: pa_debug.g_err_stage := 'Error calling process wbs updates API ';
18948: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18949: END IF;
18991: ,x_msg_count => l_msg_count
18992: ,x_msg_data => l_msg_data
18993: );
18994:
18995: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18996: IF l_debug_mode = 'Y' THEN
18997: pa_debug.g_err_stage := 'Error calling change workplan status ';
18998: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18999: END IF;
19008: ,x_msg_data => l_msg_data
19009: ,x_return_status => l_return_status
19010: ) ;
19011:
19012: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19013: IF l_debug_mode = 'Y' THEN
19014: pa_debug.g_err_stage := 'Error starting project execution workflow';
19015: pa_debug.log_message(p_message => pa_debug.g_err_stage);
19016: END IF;
19040: retcode := '2';
19041:
19042: IF l_msg_count >= 1 THEN
19043: PA_INTERFACE_UTILS_PUB.get_messages
19044: (p_encoded => FND_API.G_FALSE -- Bug 4348814 : Made false from true FND_API.G_TRUE
19045: ,p_msg_index => 1
19046: ,p_msg_count => l_msg_count
19047: ,p_msg_data => l_msg_data
19048: ,p_data => l_data
19109: ,x_return_status => l_return_status
19110: ,x_msg_count => l_msg_count
19111: ,x_msg_data => l_msg_data);
19112:
19113: if (l_return_status = FND_API.G_RET_STS_SUCCESS) then
19114:
19115: commit;
19116:
19117: end if;
19194: ,x_return_status => l_return_status
19195: ,x_msg_count => l_msg_count
19196: ,x_msg_data => l_msg_data);
19197:
19198: if (l_return_status = FND_API.G_RET_STS_SUCCESS) then
19199:
19200: commit;
19201:
19202: end if;
19226: ==================================================================*/
19227:
19228: PROCEDURE PROCESS_WBS_UPDATES
19229: ( p_api_version_number IN NUMBER := 1.0
19230: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
19231: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
19232: ,p_calling_context IN VARCHAR2 := 'UPDATE'
19233: ,p_project_id IN pa_projects_all.project_id%TYPE
19234: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
19227:
19228: PROCEDURE PROCESS_WBS_UPDATES
19229: ( p_api_version_number IN NUMBER := 1.0
19230: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
19231: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
19232: ,p_calling_context IN VARCHAR2 := 'UPDATE'
19233: ,p_project_id IN pa_projects_all.project_id%TYPE
19234: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
19235: ,p_pub_struc_ver_id IN NUMBER := NULL
19361: l_plan_version_id NUMBER; --bug 4587145
19362: l_pub_wp_ok VARCHAR2(1) := 'N'; --bug 5029112
19363:
19364: BEGIN
19365: IF p_commit = FND_API.G_TRUE THEN
19366: savepoint process_wbs_updates;
19367: END IF;
19368:
19369: IF p_init_msg_list = FND_API.G_TRUE THEN
19365: IF p_commit = FND_API.G_TRUE THEN
19366: savepoint process_wbs_updates;
19367: END IF;
19368:
19369: IF p_init_msg_list = FND_API.G_TRUE THEN
19370: FND_MSG_PUB.initialize;
19371: END IF;
19372:
19373: x_msg_count := 0;
19370: FND_MSG_PUB.initialize;
19371: END IF;
19372:
19373: x_msg_count := 0;
19374: x_return_status := FND_API.G_RET_STS_SUCCESS;
19375: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
19376:
19377: IF l_debug_mode = 'Y' THEN
19378: pa_debug.write(G_PKG_NAME, 'Entering PROCESS_WBS_UPDATES', 3);
19438: pa_debug.write(G_PKG_NAME, 'Calling populate_pji_tab_for_plan' , 3);
19439: END IF;
19440:
19441: pa_progress_pub.populate_pji_tab_for_plan(
19442: p_init_msg_list => FND_API.G_FALSE
19443: ,p_commit => FND_API.G_FALSE
19444: ,p_project_id => p_Project_ID
19445: ,p_structure_version_id => p_structure_version_id
19446: ,p_baselined_str_ver_id => p_structure_version_id
19439: END IF;
19440:
19441: pa_progress_pub.populate_pji_tab_for_plan(
19442: p_init_msg_list => FND_API.G_FALSE
19443: ,p_commit => FND_API.G_FALSE
19444: ,p_project_id => p_Project_ID
19445: ,p_structure_version_id => p_structure_version_id
19446: ,p_baselined_str_ver_id => p_structure_version_id
19447: ,p_structure_type => 'WORKPLAN'
19453: IF l_debug_mode = 'Y' THEN
19454: pa_debug.write(G_PKG_NAME, 'After populate_pji_tab_for_plan x_return_status='|| x_return_status, 3);
19455: END IF;
19456:
19457: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19458: raise Invalid_Arg_Exc_WP;
19459: END IF;
19460: IF l_debug_mode = 'Y' THEN
19461: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROGRESS_PVT', 3);
19461: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROGRESS_PVT', 3);
19462: END IF;
19463:
19464: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
19465: p_init_msg_list => FND_API.G_FALSE
19466: ,p_commit => FND_API.G_FALSE
19467: ,p_project_id => p_Project_ID
19468: ,p_structure_version_id => p_structure_version_id
19469: ,p_as_of_date => l_as_of_date
19462: END IF;
19463:
19464: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
19465: p_init_msg_list => FND_API.G_FALSE
19466: ,p_commit => FND_API.G_FALSE
19467: ,p_project_id => p_Project_ID
19468: ,p_structure_version_id => p_structure_version_id
19469: ,p_as_of_date => l_as_of_date
19470: ,p_wp_rollup_method => l_task_weight_basis_code
19477: IF l_debug_mode = 'Y' THEN
19478: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROGRESS_PVT x_return_status='|| x_return_status, 3);
19479: END IF;
19480:
19481: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19482: raise Invalid_Arg_Exc_WP;
19483: END IF;
19484: IF l_debug_mode = 'Y' THEN
19485: pa_debug.write(G_PKG_NAME, 'Calling PROGRAM_ROLLUP_PVT', 3);
19485: pa_debug.write(G_PKG_NAME, 'Calling PROGRAM_ROLLUP_PVT', 3);
19486: END IF;
19487:
19488: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
19489: p_init_msg_list => FND_API.G_FALSE
19490: ,p_commit => FND_API.G_FALSE
19491: ,p_validate_only => FND_API.G_FALSE
19492: ,p_calling_module => p_calling_context
19493: ,p_project_id => p_Project_ID
19486: END IF;
19487:
19488: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
19489: p_init_msg_list => FND_API.G_FALSE
19490: ,p_commit => FND_API.G_FALSE
19491: ,p_validate_only => FND_API.G_FALSE
19492: ,p_calling_module => p_calling_context
19493: ,p_project_id => p_Project_ID
19494: ,p_as_of_date => l_as_of_date
19487:
19488: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
19489: p_init_msg_list => FND_API.G_FALSE
19490: ,p_commit => FND_API.G_FALSE
19491: ,p_validate_only => FND_API.G_FALSE
19492: ,p_calling_module => p_calling_context
19493: ,p_project_id => p_Project_ID
19494: ,p_as_of_date => l_as_of_date
19495: ,p_structure_type => 'WORKPLAN'
19501: IF l_debug_mode = 'Y' THEN
19502: pa_debug.write(G_PKG_NAME, 'After PROGRAM_ROLLUP_PVT x_return_status='|| x_return_status, 3);
19503: END IF;
19504:
19505: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19506: raise Invalid_Arg_Exc_WP;
19507: END IF; --- bug 4492493
19508:
19509: -- Begin code to fix Bug # 4262985.
19548: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed in Apply Progress Mode: SQLERRM='||SQLERRM,1,240));
19549: RAISE Invalid_Arg_Exc_WP;
19550: END;
19551:
19552: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19553: raise Invalid_Arg_Exc_WP;
19554: END IF;
19555: END IF; -- l_update_wbs_flag = 'Y'
19556:
19572: END IF;
19573:
19574: END IF;
19575:
19576: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19577: raise Invalid_Arg_Exc_WP;
19578: END IF;
19579:
19580: ELSE -- IF (p_calling_context = 'ONLINE_APPLY_PROGRESS' OR p_calling_context = 'CONC_APPLY_PROGRESS') THEN
19616: END IF;
19617:
19618: /*
19619: IF nvl(l_structure_type_flag,'N') = 'Y' THEN
19620: x_return_status := FND_API.G_RET_STS_SUCCESS;
19621: -- Call the financial planning API.
19622: pa_fp_refresh_elements_pub.refresh_planning_elements(
19623: p_project_id => p_project_id
19624: ,p_request_id => l_request_id
19625: ,x_return_status => x_return_status
19626: ,x_msg_count => x_msg_count
19627: ,x_msg_data => x_msg_data
19628: );
19629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19630: IF l_debug_mode = 'Y' THEN
19631: pa_debug.g_err_stage := 'Error calling the financial planning API';
19632: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
19633: END IF;
19642: AND p_calling_context IN ( 'ONLINE_UPDATE', 'CONC_UPDATE' ) --bug 4472071
19643: AND ( l_share_flag = 'N' OR l_workplan_type = 'N' ) --call WBS maint only if the project is either split financial or financial only.
19644: then
19645:
19646: x_return_status := FND_API.G_RET_STS_SUCCESS;
19647:
19648: -- Call the PJI API.
19649:
19650: PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT(
19660: ,x_return_status => x_return_status
19661: ,x_online_flag => l_out_online_flag
19662: );
19663:
19664: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
19665:
19666: if l_debug_mode = 'Y' then
19667:
19668: pa_debug.g_err_stage := 'Error calling the financial planning API';
19844: ' working verison:SQLERRM='||SQLERRM,1,120));
19845: RAISE Invalid_Arg_Exc_WP;
19846: END;
19847:
19848: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19849: Raise Invalid_Arg_Exc_WP;
19850: END IF;
19851:
19852: --end bug 4587145
19879: IF l_debug_mode = 'Y' THEN
19880: pa_debug.write(G_PKG_NAME, 'After Copy_Intra_Dependency X_Return_Status='||X_Return_Status, 3);
19881: END IF;
19882:
19883: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19884: RAISE Invalid_Arg_Exc_WP;
19885: END IF;
19886:
19887: IF l_debug_mode = 'Y' THEN
19900: IF l_debug_mode = 'Y' THEN
19901: pa_debug.write(G_PKG_NAME, 'After Publish_Inter_Proj_Dep X_Return_Status='||X_Return_Status, 3);
19902: END IF;
19903:
19904: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19905: RAISE Invalid_Arg_Exc_WP;
19906: END IF;
19907:
19908: IF l_debug_mode = 'Y' THEN
19922: IF l_debug_mode = 'Y' THEN
19923: pa_debug.write(G_PKG_NAME, 'After Copy_OG_Lnk_For_Subproj_Ass X_Return_Status='||X_Return_Status, 3);
19924: END IF;
19925:
19926: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19927: RAISE Invalid_Arg_Exc_WP;
19928: END IF;
19929:
19930:
19943: IF l_debug_mode = 'Y' THEN
19944: pa_debug.write(G_PKG_NAME, 'After Move_CI_Lnk_For_subproj_step1 X_Return_Status='||X_Return_Status, 3);
19945: END IF;
19946:
19947: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19948: RAISE Invalid_Arg_Exc_WP;
19949: END IF;
19950:
19951: IF l_debug_mode = 'Y' THEN
19967: IF l_debug_mode = 'Y' THEN
19968: pa_debug.write(G_PKG_NAME, 'After copy_mapping X_Return_Status='||X_Return_Status, 3);
19969: END IF;
19970:
19971: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19972: RAISE Invalid_Arg_Exc_WP;
19973: END IF;
19974:
19975: DECLARE
20022: p_error_text => SUBSTRB('Call of PA_FP_COPY_FROM_PKG.copy_wp_budget_versions failed: SQLERRM='||SQLERRM,1,240));
20023: RAISE Invalid_Arg_Exc_WP;
20024: END;
20025:
20026: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20027: RAISE Invalid_Arg_Exc_WP;
20028: END IF;
20029: END;
20030:
20173: IF l_debug_mode = 'Y' THEN
20174: pa_debug.write(G_PKG_NAME, 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for entire grid in PUBLISH mode x_return_status='||x_return_status, 3);
20175: END IF;
20176:
20177: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20178: RAISE Invalid_Arg_Exc_WP;
20179: END IF;
20180: END IF;
20181:
20212: IF l_debug_mode = 'Y' THEN
20213: pa_debug.write(G_PKG_NAME, 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for published structure version in PUBLISH mode x_return_status='||x_return_status, 3);
20214: END IF;
20215:
20216: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20217: RAISE Invalid_Arg_Exc_WP;
20218: END IF;
20219:
20220: END IF;
20238: IF l_debug_mode = 'Y' THEN
20239: pa_debug.write(G_PKG_NAME, 'After Task_Stat_Pushdown_Rollup x_return_status='|| x_return_status, 3);
20240: END IF;
20241:
20242: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20243: RAISE Invalid_Arg_Exc_WP;
20244: END IF;
20245: --End bug 4555289
20246:
20280: RAISE Invalid_Arg_Exc_WP;
20281: END;
20282: --endbug 3762882
20283:
20284: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20285: Raise Invalid_Arg_Exc_WP;
20286: END IF;
20287:
20288: -- Added this for FP_M changes -- Bhumesh
20302: IF l_debug_mode = 'Y' THEN
20303: pa_debug.write(G_PKG_NAME, 'After Pull_Summarized_Actuals x_return_status='|| x_return_status, 3);
20304: END IF;
20305:
20306: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20307: RAISE Invalid_Arg_Exc_WP;
20308: END IF;
20309:
20310: --bug 4232150 Moved from above to be called after summarization.
20323: pa_debug.write(G_PKG_NAME, 'Calling UPDATE_PROJECT_DATES', 3);
20324: END IF;
20325:
20326: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
20327: p_validate_only => FND_API.G_FALSE
20328: ,p_project_id => l_project_id
20329: ,p_date_type => 'SCHEDULED'
20330: ,p_start_date => l_scheduled_start_date
20331: ,p_finish_date => l_scheduled_finish_date
20372: IF l_debug_mode = 'Y' THEN
20373: pa_debug.write(G_PKG_NAME, 'After COPY_PROJECT_DATES x_return_status='|| x_return_status, 3);
20374: END IF;
20375:
20376: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20377: raise Invalid_Arg_Exc_WP;
20378: END IF;
20379:
20380: END IF;
20405: IF l_debug_mode = 'Y' THEN
20406: pa_debug.write(G_PKG_NAME, 'After Publish_Progress x_return_status='|| x_return_status, 3);
20407: END IF;
20408:
20409: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20410: raise Invalid_Arg_Exc_WP;
20411: END IF;
20412: END IF; -- p_pub_prog_flag = 'Y' THEN
20413:
20442: IF l_debug_mode = 'Y' THEN
20443: pa_debug.write(G_PKG_NAME, 'After COPY_PROGRESS_ACT_ETC x_return_status='|| x_return_status, 3);
20444: END IF;
20445:
20446: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20447: raise Invalid_Arg_Exc_WP;
20448: END IF;
20449:
20450: --bug 4149392
20498: RAISE Invalid_Arg_Exc_WP;
20499: END;
20500: -- Bug 4284444
20501:
20502: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20503: Raise Invalid_Arg_Exc_WP;
20504: END IF;
20505:
20506: --end bug 4149392
20512: pa_debug.write(G_PKG_NAME, 'Calling populate_pji_tab_for_plan' , 3);
20513: END IF;
20514:
20515: pa_progress_pub.populate_pji_tab_for_plan(
20516: p_init_msg_list => FND_API.G_FALSE
20517: ,p_commit => FND_API.G_FALSE
20518: ,p_project_id => l_Project_ID
20519: ,p_structure_version_id => l_pub_ver_id
20520: ,p_baselined_str_ver_id => PA_PROJECT_STRUCTURE_UTILS.Get_Baseline_Struct_Ver(l_Project_ID)
20513: END IF;
20514:
20515: pa_progress_pub.populate_pji_tab_for_plan(
20516: p_init_msg_list => FND_API.G_FALSE
20517: ,p_commit => FND_API.G_FALSE
20518: ,p_project_id => l_Project_ID
20519: ,p_structure_version_id => l_pub_ver_id
20520: ,p_baselined_str_ver_id => PA_PROJECT_STRUCTURE_UTILS.Get_Baseline_Struct_Ver(l_Project_ID)
20521: ,p_structure_type => 'WORKPLAN'
20529: IF l_debug_mode = 'Y' THEN
20530: pa_debug.write(G_PKG_NAME, 'After populate_pji_tab_for_plan x_return_status='|| x_return_status, 3);
20531: END IF;
20532:
20533: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20534: raise Invalid_Arg_Exc_WP;
20535: END IF;
20536:
20537: IF l_debug_mode = 'Y' THEN
20538: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROGRESS_PVT', 3);
20539: END IF;
20540:
20541: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
20542: p_init_msg_list => FND_API.G_FALSE
20543: ,p_commit => FND_API.G_FALSE
20544: ,p_project_id => l_Project_ID
20545: ,p_structure_version_id => l_pub_ver_id
20546: ,p_as_of_date => l_as_of_date
20539: END IF;
20540:
20541: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
20542: p_init_msg_list => FND_API.G_FALSE
20543: ,p_commit => FND_API.G_FALSE
20544: ,p_project_id => l_Project_ID
20545: ,p_structure_version_id => l_pub_ver_id
20546: ,p_as_of_date => l_as_of_date
20547: ,p_wp_rollup_method => l_task_weight_basis_code
20555: IF l_debug_mode = 'Y' THEN
20556: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROGRESS_PVT x_return_status='|| x_return_status, 3);
20557: END IF;
20558:
20559: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20560: raise Invalid_Arg_Exc_WP;
20561: END IF;
20562: -- 4575855 : Do not call PROGRAM_ROLLUP_PVT
20563: -- instead we are calling now ROLLUP_PROG_FROM_SUBPROJS
20568: pa_debug.write(G_PKG_NAME, 'Calling PROGRAM_ROLLUP_PVT', 3);
20569: END IF;
20570:
20571: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
20572: p_init_msg_list => FND_API.G_FALSE
20573: ,p_commit => FND_API.G_FALSE
20574: ,p_validate_only => FND_API.G_FALSE
20575: ,p_project_id => l_Project_ID
20576: ,p_as_of_date => l_as_of_date
20569: END IF;
20570:
20571: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
20572: p_init_msg_list => FND_API.G_FALSE
20573: ,p_commit => FND_API.G_FALSE
20574: ,p_validate_only => FND_API.G_FALSE
20575: ,p_project_id => l_Project_ID
20576: ,p_as_of_date => l_as_of_date
20577: ,p_structure_type => 'WORKPLAN'
20570:
20571: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
20572: p_init_msg_list => FND_API.G_FALSE
20573: ,p_commit => FND_API.G_FALSE
20574: ,p_validate_only => FND_API.G_FALSE
20575: ,p_project_id => l_Project_ID
20576: ,p_as_of_date => l_as_of_date
20577: ,p_structure_type => 'WORKPLAN'
20578: ,p_structure_ver_id => l_pub_ver_id
20583: IF l_debug_mode = 'Y' THEN
20584: pa_debug.write(G_PKG_NAME, 'After PROGRAM_ROLLUP_PVT x_return_status='|| x_return_status, 3);
20585: END IF;
20586:
20587: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20588: raise Invalid_Arg_Exc_WP;
20589: END IF;
20590: */
20591: END IF; -- p_pub_prog_flag = 'Y' AND l_as_of_date IS NOT NULL THEN
20596: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROG_FROM_SUBPROJS', 3);
20597: END IF;
20598:
20599: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
20600: p_init_msg_list => FND_API.G_FALSE
20601: ,p_commit => FND_API.G_FALSE
20602: ,p_validate_only => FND_API.G_FALSE
20603: ,p_project_id => l_Project_ID
20604: ,p_structure_version_id => l_pub_ver_id
20597: END IF;
20598:
20599: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
20600: p_init_msg_list => FND_API.G_FALSE
20601: ,p_commit => FND_API.G_FALSE
20602: ,p_validate_only => FND_API.G_FALSE
20603: ,p_project_id => l_Project_ID
20604: ,p_structure_version_id => l_pub_ver_id
20605: ,x_return_status => x_return_status
20598:
20599: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
20600: p_init_msg_list => FND_API.G_FALSE
20601: ,p_commit => FND_API.G_FALSE
20602: ,p_validate_only => FND_API.G_FALSE
20603: ,p_project_id => l_Project_ID
20604: ,p_structure_version_id => l_pub_ver_id
20605: ,x_return_status => x_return_status
20606: ,x_msg_count => x_msg_count
20609: IF l_debug_mode = 'Y' THEN
20610: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROG_FROM_SUBPROJS x_return_status='|| x_return_status, 3);
20611: END IF;
20612:
20613: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20614: raise Invalid_Arg_Exc_WP;
20615: END IF;
20616:
20617: --bug 3851528
20631: IF l_debug_mode = 'Y' THEN
20632: pa_debug.write(G_PKG_NAME, 'After clear_prog_outdated_flag x_return_status='|| x_return_status, 3);
20633: END IF;
20634:
20635: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20636: raise Invalid_Arg_Exc_WP;
20637: END IF;
20638: END IF; -- p_pub_prog_flag = 'Y' THEN
20639: --end bug 4019845, publishing changes
20666: IF l_debug_mode = 'Y' THEN
20667: pa_debug.write(G_PKG_NAME, 'After UPDATE_PARENT_WBS_FLAG_DIRTY x_return_status='|| x_return_status, 3);
20668: END IF;
20669:
20670: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20671: raise Invalid_Arg_Exc_WP;
20672: END IF;
20673: */
20674:
20690: IF l_debug_mode = 'Y' THEN
20691: pa_debug.write(G_PKG_NAME, 'After pa_proj_task_struc_pub.set_update_wbs_flag for published version x_return_status='|| x_return_status, 3);
20692: END IF;
20693:
20694: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20695: raise Invalid_Arg_Exc_WP;
20696: END IF;
20697: --bug 4479392
20698:
20738: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed in Update Mode: SQLERRM='||SQLERRM,1,240));
20739: RAISE Invalid_Arg_Exc_WP;
20740: END;
20741:
20742: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20743: Raise Invalid_Arg_Exc_WP;
20744: END IF;
20745:
20746: --copy task bug 4186512
20795:
20796: --end copy task bug 4186512
20797:
20798: -- Bug 4284444
20799: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20800: Raise Invalid_Arg_Exc_WP;
20801: END IF;
20802:
20803: -- Bug 4284444 : Commented the below code
20828: IF l_debug_mode = 'Y' THEN
20829: pa_debug.write(G_PKG_NAME, 'After PROCESS_TASK_WEIGHTAGE x_return_status='|| x_return_status, 3);
20830: END IF;
20831:
20832: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20833: Raise Invalid_Arg_Exc_WP;
20834: END IF;
20835: END IF;
20836: --bug 3035902 maansari
20839: -- Bug 3764224 : Moved populate_pji_tab_for_plan in RE_ROLLUP_PROGRESS
20840: -- Bug 3693757 : 13-Jul-04 PJI tmp1 table shd be populated so that rollup API can access actuals values in RE_ROLLUP_PROGRESS
20841: /* BEGIN
20842: pa_progress_pub.populate_pji_tab_for_plan(
20843: p_init_msg_list => FND_API.G_FALSE,
20844: p_project_id => p_project_id,
20845: p_structure_version_id => p_structure_version_id,
20846: -- p_baselined_str_ver_id => l_baselined_str_ver_id,
20847: p_structure_type => 'WORKPLAN',
20849: x_msg_count => x_msg_count,
20850: x_msg_data => x_msg_data
20851: );
20852:
20853: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20854: Raise Invalid_Arg_Exc_WP;
20855: END IF;
20856: EXCEPTION
20857: WHEN OTHERS THEN
20857: WHEN OTHERS THEN
20858: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20859: p_procedure_name => 'PROCESS_WBS_UPDATES',
20860: p_error_text => SUBSTRB('PA_PROGRESS_PUB.populate_pji_tab_for_plan:'||SQLERRM,1,240));
20861: RAISE FND_API.G_EXC_ERROR;
20862: END;
20863: */
20864:
20865: IF nvl(l_structure_type_flag,'N') = 'Y' THEN --fpm progress management changes
20885: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROG_FROM_SUBPROJS', 3);
20886: END IF;
20887:
20888: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
20889: p_init_msg_list => FND_API.G_FALSE
20890: ,p_commit => FND_API.G_FALSE
20891: ,p_validate_only => FND_API.G_FALSE
20892: ,p_project_id => p_project_id
20893: ,p_structure_version_id => l_pub_ver_id
20886: END IF;
20887:
20888: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
20889: p_init_msg_list => FND_API.G_FALSE
20890: ,p_commit => FND_API.G_FALSE
20891: ,p_validate_only => FND_API.G_FALSE
20892: ,p_project_id => p_project_id
20893: ,p_structure_version_id => l_pub_ver_id
20894: ,x_return_status => x_return_status
20887:
20888: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
20889: p_init_msg_list => FND_API.G_FALSE
20890: ,p_commit => FND_API.G_FALSE
20891: ,p_validate_only => FND_API.G_FALSE
20892: ,p_project_id => p_project_id
20893: ,p_structure_version_id => l_pub_ver_id
20894: ,x_return_status => x_return_status
20895: ,x_msg_count => x_msg_count
20898: IF l_debug_mode = 'Y' THEN
20899: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROG_FROM_SUBPROJS x_return_status='|| x_return_status, 3);
20900: END IF;
20901:
20902: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20903: raise Invalid_Arg_Exc_WP;
20904: END IF;
20905: END IF;
20906:
20905: END IF;
20906:
20907: END IF;
20908:
20909: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20910: Raise Invalid_Arg_Exc_WP;
20911: END IF;
20912:
20913: --bug 4541039
20928: IF l_debug_mode = 'Y' THEN
20929: pa_debug.write(G_PKG_NAME, 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for entire grid in UPDATE mode x_return_status='||x_return_status, 3);
20930: END IF;
20931:
20932: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20933: RAISE Invalid_Arg_Exc_WP;
20934: END IF;
20935: END IF;
20936: --end bug 4541039
20974: IF l_debug_mode = 'Y' THEN
20975: pa_debug.write(G_PKG_NAME, 'After PROCESS_TASK_WEIGHTAGE in Copy Project Mode x_return_status='|| x_return_status, 3);
20976: END IF;
20977:
20978: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20979: Raise Invalid_Arg_Exc_WP;
20980: END IF;
20981: END IF;
20982: END IF;
21020: Failed in Update Mode: SQLERRM='||SQLERRM,1,240));
21021: RAISE Invalid_Arg_Exc_WP;
21022: END;
21023:
21024: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21025: Raise Invalid_Arg_Exc_WP;
21026: END IF;
21027: -- End Bug # 4611373.
21028:
21043: IF l_debug_mode = 'Y' THEN
21044: pa_debug.write(G_PKG_NAME, 'After set_update_wbs_flag x_return_status='|| x_return_status, 3);
21045: END IF;
21046:
21047: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21048: Raise Invalid_Arg_Exc_WP;
21049: END IF;
21050:
21051: IF p_commit = FND_API.G_TRUE THEN
21047: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21048: Raise Invalid_Arg_Exc_WP;
21049: END IF;
21050:
21051: IF p_commit = FND_API.G_TRUE THEN
21052: commit;
21053: END IF;
21054:
21055: IF l_debug_mode = 'Y' THEN
21059: EXCEPTION
21060:
21061: WHEN Invalid_Arg_Exc_WP THEN
21062:
21063: x_return_status := FND_API.G_RET_STS_ERROR;
21064: l_msg_count := FND_MSG_PUB.count_msg;
21065:
21066: IF cur_structure_type%ISOPEN THEN
21067: CLOSE cur_structure_type;
21068: END IF;
21069:
21070: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21071: PA_INTERFACE_UTILS_PUB.get_messages
21072: (p_encoded => FND_API.G_TRUE
21073: ,p_msg_index => 1
21074: ,p_msg_count => l_msg_count
21075: ,p_msg_data => l_msg_data
21076: ,p_data => l_data
21083: IF l_debug_mode = 'Y' THEN
21084: pa_debug.reset_curr_function;
21085: END IF;
21086:
21087: IF p_commit = FND_API.G_TRUE THEN
21088: rollback to process_wbs_updates;
21089: END IF;
21090:
21091: RETURN;
21091: RETURN;
21092:
21093: WHEN others THEN
21094:
21095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21096: x_msg_count := 1;
21097: x_msg_data := SQLERRM;
21098:
21099: IF cur_structure_type%ISOPEN THEN
21111: l_debug_level5);
21112: pa_debug.reset_curr_function;
21113: END IF;
21114:
21115: IF p_commit = FND_API.G_TRUE THEN
21116: rollback to process_wbs_updates;
21117: END IF;
21118:
21119: RAISE;
21274:
21275: l_plan_version_id NUMBER; --bug 4726889
21276:
21277: BEGIN
21278: IF p_commit = FND_API.G_TRUE THEN
21279: savepoint process_task_weightage;
21280: END IF;
21281:
21282: IF p_init_msg_list = FND_API.G_TRUE THEN
21278: IF p_commit = FND_API.G_TRUE THEN
21279: savepoint process_task_weightage;
21280: END IF;
21281:
21282: IF p_init_msg_list = FND_API.G_TRUE THEN
21283: FND_MSG_PUB.initialize;
21284: END IF;
21285:
21286: x_msg_count := 0;
21283: FND_MSG_PUB.initialize;
21284: END IF;
21285:
21286: x_msg_count := 0;
21287: x_return_status := FND_API.G_RET_STS_SUCCESS;
21288: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21289:
21290: IF l_debug_mode = 'Y' THEN
21291: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_WEIGHTAGE';
21594: END IF;
21595: END IF;
21596: END;
21597:
21598: IF p_commit = FND_API.G_TRUE THEN
21599: commit;
21600: END IF;
21601:
21602: IF l_debug_mode = 'Y' THEN
21608: EXCEPTION
21609:
21610: WHEN Invalid_Arg_Exc_WP THEN
21611:
21612: x_return_status := FND_API.G_RET_STS_ERROR;
21613: l_msg_count := FND_MSG_PUB.count_msg;
21614:
21615: IF cur_task_info%ISOPEN THEN
21616: CLOSE cur_task_info;
21617: END IF;
21618:
21619: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21620: PA_INTERFACE_UTILS_PUB.get_messages
21621: (p_encoded => FND_API.G_TRUE
21622: ,p_msg_index => 1
21623: ,p_msg_count => l_msg_count
21624: ,p_msg_data => l_msg_data
21625: ,p_data => l_data
21632: IF l_debug_mode = 'Y' THEN
21633: pa_debug.reset_curr_function;
21634: END IF;
21635:
21636: IF p_commit = FND_API.G_TRUE THEN
21637: rollback to process_task_weightage;
21638: END IF;
21639:
21640: RETURN;
21640: RETURN;
21641:
21642: WHEN others THEN
21643:
21644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21645: x_msg_count := 1;
21646: x_msg_data := SQLERRM;
21647:
21648: IF cur_task_info%ISOPEN THEN
21660: l_debug_level5);
21661: pa_debug.reset_curr_function;
21662: END IF;
21663:
21664: IF p_commit = FND_API.G_TRUE THEN
21665: rollback to process_task_weightage;
21666: END IF;
21667:
21668: RAISE;
21701: l_debug_level5 CONSTANT NUMBER := 5;
21702:
21703: BEGIN
21704:
21705: IF p_commit = FND_API.G_TRUE THEN
21706: savepoint set_update_wbs_flag;
21707: END IF;
21708:
21709: IF p_init_msg_list = FND_API.G_TRUE THEN
21705: IF p_commit = FND_API.G_TRUE THEN
21706: savepoint set_update_wbs_flag;
21707: END IF;
21708:
21709: IF p_init_msg_list = FND_API.G_TRUE THEN
21710: FND_MSG_PUB.initialize;
21711: END IF;
21712:
21713: x_msg_count := 0;
21710: FND_MSG_PUB.initialize;
21711: END IF;
21712:
21713: x_msg_count := 0;
21714: x_return_status := FND_API.G_RET_STS_SUCCESS;
21715: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21716:
21717: IF l_debug_mode = 'Y' THEN
21718: pa_debug.g_err_stage:= 'Entering SET_UPDATE_WBS_FLAG';
21753: Set process_update_wbs_flag = p_update_wbs_flag
21754: Where project_id = p_project_id
21755: And element_version_id = p_structure_version_id;
21756:
21757: IF p_commit = FND_API.G_TRUE THEN
21758: commit;
21759: END IF;
21760: END IF;
21761: IF l_debug_mode = 'Y' THEN
21767: EXCEPTION
21768:
21769: WHEN Invalid_Arg_Exc_WP THEN
21770:
21771: x_return_status := FND_API.G_RET_STS_ERROR;
21772: l_msg_count := FND_MSG_PUB.count_msg;
21773:
21774: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21775: PA_INTERFACE_UTILS_PUB.get_messages
21772: l_msg_count := FND_MSG_PUB.count_msg;
21773:
21774: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21775: PA_INTERFACE_UTILS_PUB.get_messages
21776: (p_encoded => FND_API.G_TRUE
21777: ,p_msg_index => 1
21778: ,p_msg_count => l_msg_count
21779: ,p_msg_data => l_msg_data
21780: ,p_data => l_data
21787: IF l_debug_mode = 'Y' THEN
21788: pa_debug.reset_curr_function;
21789: END IF;
21790:
21791: IF p_commit = FND_API.G_TRUE THEN
21792: rollback to set_update_wbs_flag;
21793: END IF;
21794:
21795: RETURN;
21795: RETURN;
21796:
21797: WHEN others THEN
21798:
21799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21800: x_msg_count := 1;
21801: x_msg_data := SQLERRM;
21802:
21803: FND_MSG_PUB.add_exc_msg
21811: l_debug_level5);
21812: pa_debug.reset_curr_function;
21813: END IF;
21814:
21815: IF p_commit = FND_API.G_TRUE THEN
21816: rollback to set_update_wbs_flag;
21817: END IF;
21818:
21819: RAISE;
21820: END SET_UPDATE_WBS_FLAG;
21821:
21822: -- This API is a wrapper API called for FORMS which in turn
21823: -- calls PROCESS_WBS_UPDATES_WRP, as from FORM the remote
21824: -- package level constants FND_API.G_TRUE , FND_API.G_FLASE
21825: -- can not be reffered .
21826:
21827: PROCEDURE PROCESS_WBS_UPDATES_WRP_FORM
21828: ( p_project_id IN pa_projects_all.project_id%TYPE
21844: -- Not doing the validation of input parameter
21845: -- as it is done in the the called API.
21846:
21847: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
21848: ( p_commit => FND_API.G_TRUE
21849: ,p_calling_context => 'UPDATE'
21850: ,p_project_id => p_project_id
21851: ,p_structure_version_id => p_structure_version_id
21852: ,x_return_status => x_return_status
21852: ,x_return_status => x_return_status
21853: ,x_msg_count => x_msg_count
21854: ,x_msg_data => x_msg_data) ;
21855:
21856: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21857: IF l_debug_mode = 'Y' THEN
21858: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
21859: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21860: END IF;
21863:
21864: EXCEPTION
21865: WHEN Invalid_Arg_Exc_WP THEN
21866:
21867: x_return_status := FND_API.G_RET_STS_ERROR;
21868: l_msg_count := FND_MSG_PUB.count_msg;
21869: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21870: PA_INTERFACE_UTILS_PUB.get_messages
21871: (p_encoded => FND_API.G_TRUE
21867: x_return_status := FND_API.G_RET_STS_ERROR;
21868: l_msg_count := FND_MSG_PUB.count_msg;
21869: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21870: PA_INTERFACE_UTILS_PUB.get_messages
21871: (p_encoded => FND_API.G_TRUE
21872: ,p_msg_index => 1
21873: ,p_msg_count => l_msg_count
21874: ,p_msg_data => l_msg_data
21875: ,p_data => l_data
21884: END IF;
21885: RETURN;
21886: WHEN others THEN
21887:
21888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21889: x_msg_count := 1;
21890: x_msg_data := SQLERRM;
21891:
21892: FND_MSG_PUB.add_exc_msg
21944: l_debug_mode VARCHAR2(1);
21945: BEGIN
21946:
21947: x_msg_count := 0;
21948: x_return_status := FND_API.G_RET_STS_SUCCESS;
21949: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21950: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_dest_project_id);
21951:
21952: /* The following is the simple solution for this.
21993: ,x_return_status => x_return_status
21994: ,x_msg_count => x_msg_count
21995: ,x_msg_data => x_msg_data);
21996:
21997: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21998: IF l_debug_mode = 'Y' THEN
21999: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
22000: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
22001: END IF;
22021: ,x_return_status => x_return_status
22022: ,x_msg_count => x_msg_count
22023: ,x_msg_data => x_msg_data);
22024:
22025: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22026: IF l_debug_mode = 'Y' THEN
22027: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
22028: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
22029: END IF;
22051: ,x_return_status => x_return_status
22052: ,x_msg_count => x_msg_count
22053: ,x_msg_data => x_msg_data);
22054:
22055: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22056: IF l_debug_mode = 'Y' THEN
22057: pa_debug.g_err_stage := 'Error calling update WBS WRP ';
22058: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
22059: END IF;
22064: END IF;
22065: EXCEPTION
22066: WHEN Invalid_Arg_Exc_WP THEN
22067:
22068: x_return_status := FND_API.G_RET_STS_ERROR;
22069: l_msg_count := FND_MSG_PUB.count_msg;
22070: IF l_msg_count = 1 and x_msg_data IS NULL THEN
22071: PA_INTERFACE_UTILS_PUB.get_messages
22072: (p_encoded => FND_API.G_TRUE
22068: x_return_status := FND_API.G_RET_STS_ERROR;
22069: l_msg_count := FND_MSG_PUB.count_msg;
22070: IF l_msg_count = 1 and x_msg_data IS NULL THEN
22071: PA_INTERFACE_UTILS_PUB.get_messages
22072: (p_encoded => FND_API.G_TRUE
22073: ,p_msg_index => 1
22074: ,p_msg_count => l_msg_count
22075: ,p_msg_data => l_msg_data
22076: ,p_data => l_data
22085: END IF;
22086: RETURN;
22087: WHEN others THEN
22088:
22089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22090: x_msg_count := 1;
22091: x_msg_data := SQLERRM;
22092:
22093: FND_MSG_PUB.add_exc_msg
22106:
22107: --hsiu: bug 3254091
22108: PROCEDURE Update_Current_Phase
22109: ( p_api_version_number IN NUMBER := 1.0
22110: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
22111: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
22112: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
22113: ,p_validation_level IN VARCHAR2 := 100
22114: ,p_debug_mode IN VARCHAR2 := 'N'
22107: --hsiu: bug 3254091
22108: PROCEDURE Update_Current_Phase
22109: ( p_api_version_number IN NUMBER := 1.0
22110: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
22111: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
22112: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
22113: ,p_validation_level IN VARCHAR2 := 100
22114: ,p_debug_mode IN VARCHAR2 := 'N'
22115: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
22108: PROCEDURE Update_Current_Phase
22109: ( p_api_version_number IN NUMBER := 1.0
22110: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
22111: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
22112: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
22113: ,p_validation_level IN VARCHAR2 := 100
22114: ,p_debug_mode IN VARCHAR2 := 'N'
22115: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
22116: ,p_user_id IN NUMBER := FND_GLOBAL.USER_ID
22115: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
22116: ,p_user_id IN NUMBER := FND_GLOBAL.USER_ID
22117: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
22118: ,p_project_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
22119: ,p_current_lifecycle_phase_id IN NUMBER := FND_API.G_MISS_NUM
22120: ,p_current_lifecycle_phase IN VARCHAR2 := FND_API.G_MISS_CHAR
22121: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
22122: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
22123: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
22116: ,p_user_id IN NUMBER := FND_GLOBAL.USER_ID
22117: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
22118: ,p_project_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
22119: ,p_current_lifecycle_phase_id IN NUMBER := FND_API.G_MISS_NUM
22120: ,p_current_lifecycle_phase IN VARCHAR2 := FND_API.G_MISS_CHAR
22121: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
22122: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
22123: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
22124: )
22176: l_msg_index_out NUMBER;
22177:
22178: BEGIN
22179: --Clear Error Messages.
22180: IF p_init_msg_list = FND_API.G_TRUE THEN
22181: FND_MSG_PUB.initialize;
22182: END IF;
22183:
22184: --set savepoint
22181: FND_MSG_PUB.initialize;
22182: END IF;
22183:
22184: --set savepoint
22185: IF p_commit = FND_API.G_TRUE THEN
22186: SAVEPOINT update_current_phase;
22187: END IF;
22188:
22189: x_msg_count := 0;
22186: SAVEPOINT update_current_phase;
22187: END IF;
22188:
22189: x_msg_count := 0;
22190: x_return_status := FND_API.G_RET_STS_SUCCESS;
22191:
22192: --Project name to id Conversion
22193: IF ((p_project_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND (p_project_name IS NOT NULL)) OR
22194: ((p_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND (p_project_id IS NOT NULL)) THEN
22197: p_project_id => p_project_id,
22198: x_project_id => l_project_id,
22199: x_return_status => l_return_status,
22200: x_error_msg_code => l_error_msg_code);
22201: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22202: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
22203: p_msg_name => l_error_msg_code);
22204: RAISE API_ERROR;
22205: END IF;
22224: -- gboomina Bug 8586393 - end
22225: CLOSE cur_get_wp_attr;
22226:
22227: --Current Phase name to id conversion
22228: IF ((p_current_lifecycle_phase_id <> FND_API.G_MISS_NUM) AND (p_current_lifecycle_phase_id is not NULL)) OR
22229: ((p_current_lifecycle_phase <> FND_API.G_MISS_CHAR) AND (p_current_lifecycle_phase is not NULL)) then
22230: PA_WORKPLAN_ATTR_UTILS.CHECK_LIFECYCLE_PHASE_NAME_ID
22231: ( p_lifecycle_id => l_life_cycle_version_id
22232: ,p_current_lifecycle_phase_id => p_current_lifecycle_phase_id
22225: CLOSE cur_get_wp_attr;
22226:
22227: --Current Phase name to id conversion
22228: IF ((p_current_lifecycle_phase_id <> FND_API.G_MISS_NUM) AND (p_current_lifecycle_phase_id is not NULL)) OR
22229: ((p_current_lifecycle_phase <> FND_API.G_MISS_CHAR) AND (p_current_lifecycle_phase is not NULL)) then
22230: PA_WORKPLAN_ATTR_UTILS.CHECK_LIFECYCLE_PHASE_NAME_ID
22231: ( p_lifecycle_id => l_life_cycle_version_id
22232: ,p_current_lifecycle_phase_id => p_current_lifecycle_phase_id
22233: ,p_current_lifecycle_phase => p_current_lifecycle_phase
22235: ,x_current_lifecycle_phase_id => l_current_phase_version_id
22236: ,x_return_status => l_return_status
22237: ,x_error_msg_code => l_error_msg_code);
22238:
22239: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
22240: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
22241: RAISE API_ERROR;
22242: END IF;
22243: END IF;
22286: ,x_msg_count => l_msg_count
22287: ,x_msg_data => l_msg_data
22288: );
22289:
22290: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
22291: x_msg_count := FND_MSG_PUB.count_msg;
22292: if x_msg_count = 1 then
22293: pa_interface_utils_pub.get_messages
22294: (p_encoded => FND_API.G_TRUE,
22290: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
22291: x_msg_count := FND_MSG_PUB.count_msg;
22292: if x_msg_count = 1 then
22293: pa_interface_utils_pub.get_messages
22294: (p_encoded => FND_API.G_TRUE,
22295: p_msg_index => 1,
22296: p_msg_count => l_msg_count,
22297: p_msg_data => l_msg_data,
22298: p_data => l_data,
22301: end if;
22302: raise API_ERROR;
22303: END IF;
22304:
22305: x_return_status := FND_API.G_RET_STS_SUCCESS;
22306:
22307: if p_commit = FND_API.G_TRUE then
22308: commit work;
22309: end if;
22303: END IF;
22304:
22305: x_return_status := FND_API.G_RET_STS_SUCCESS;
22306:
22307: if p_commit = FND_API.G_TRUE then
22308: commit work;
22309: end if;
22310:
22311: EXCEPTION
22309: end if;
22310:
22311: EXCEPTION
22312: WHEN API_ERROR THEN
22313: x_return_status := FND_API.G_RET_STS_ERROR;
22314: IF p_commit = FND_API.G_TRUE THEN
22315: rollback to update_current_phase;
22316: END IF;
22317: WHEN OTHERS THEN
22310:
22311: EXCEPTION
22312: WHEN API_ERROR THEN
22313: x_return_status := FND_API.G_RET_STS_ERROR;
22314: IF p_commit = FND_API.G_TRUE THEN
22315: rollback to update_current_phase;
22316: END IF;
22317: WHEN OTHERS THEN
22318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22314: IF p_commit = FND_API.G_TRUE THEN
22315: rollback to update_current_phase;
22316: END IF;
22317: WHEN OTHERS THEN
22318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22319: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
22320: p_procedure_name => 'update_current_phase',
22321: p_error_text => SUBSTRB(SQLERRM,1,240));
22322: IF p_commit = FND_API.G_TRUE THEN
22318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22319: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
22320: p_procedure_name => 'update_current_phase',
22321: p_error_text => SUBSTRB(SQLERRM,1,240));
22322: IF p_commit = FND_API.G_TRUE THEN
22323: rollback to update_current_phase;
22324: END IF;
22325: raise;
22326: END Update_Current_Phase;
22506: ,x_msg_data => x_msg_data);
22507: END IF;
22508: CLOSE get_pred_id;
22509:
22510: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
22511: return;
22512: END IF;
22513:
22514: End Loop;
22600: End GET_SHARE_TYPE;
22601: --Added by rtarway for FP.M Development
22602:
22603: procedure delete_intra_dependency (p_element_version_id IN NUMBER,
22604: p_commit IN VARCHAR2 := FND_API.G_FALSE,
22605: p_debug_mode IN VARCHAR2 := 'N',
22606: x_return_status OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
22607: IS
22608: l_object_type VARCHAR2(80);
22612: pa_debug.init_err_stack('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY');
22613: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY Begin');
22614: END IF;
22615: --
22616: IF (p_commit = FND_API.G_TRUE) THEN
22617: savepoint delete_intra_dependency;
22618: END IF;
22619: BEGIN
22620: SELECT object_type
22623: WHERE ELEMENT_VERSION_ID = p_element_version_id;
22624: EXCEPTION
22625: WHEN NO_DATA_FOUND THEN
22626: fnd_message.set_name('PA','PA_RECORD_NOT_FOUND');
22627: x_return_status := FND_API.G_RET_STS_ERROR;
22628: WHEN OTHERS THEN
22629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22630: raise;
22631: END;
22625: WHEN NO_DATA_FOUND THEN
22626: fnd_message.set_name('PA','PA_RECORD_NOT_FOUND');
22627: x_return_status := FND_API.G_RET_STS_ERROR;
22628: WHEN OTHERS THEN
22629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22630: raise;
22631: END;
22632: IF l_object_type='PA_TASKS' THEN
22633: BEGIN
22641: AND por.object_type_from = 'PA_TASKS'
22642: AND por.object_type_to = 'PA_TASKS');
22643: IF SQL%NOTFOUND THEN
22644: fnd_message.set_name('PA','PA_RECORD_NOT_FOUND');
22645: x_return_status := FND_API.G_RET_STS_ERROR;
22646: END IF;
22647: EXCEPTION
22648: WHEN OTHERS THEN
22649: x_return_status := FND_API.G_RET_STS_ERROR;
22645: x_return_status := FND_API.G_RET_STS_ERROR;
22646: END IF;
22647: EXCEPTION
22648: WHEN OTHERS THEN
22649: x_return_status := FND_API.G_RET_STS_ERROR;
22650: raise;
22651: END;
22652: ELSIF l_object_type='PA_STRUCTURES' THEN
22653: BEGIN
22664: AND por.object_type_to = 'PA_TASKS'
22665: AND por.object_id_from1 = ppev.ELEMENT_VERSION_ID);
22666: IF SQL%NOTFOUND THEN
22667: fnd_message.set_name('PA','PA_RECORD_NOT_FOUND');
22668: x_return_status := FND_API.G_RET_STS_ERROR;
22669: END IF;
22670: EXCEPTION
22671: WHEN OTHERS THEN
22672: x_return_status := FND_API.G_RET_STS_ERROR;
22668: x_return_status := FND_API.G_RET_STS_ERROR;
22669: END IF;
22670: EXCEPTION
22671: WHEN OTHERS THEN
22672: x_return_status := FND_API.G_RET_STS_ERROR;
22673: raise;
22674: END;
22675: END IF;
22676: --
22673: raise;
22674: END;
22675: END IF;
22676: --
22677: x_return_status := FND_API.G_RET_STS_SUCCESS;
22678: --
22679: IF (p_commit = FND_API.G_TRUE) THEN
22680: COMMIT;
22681: END IF;
22675: END IF;
22676: --
22677: x_return_status := FND_API.G_RET_STS_SUCCESS;
22678: --
22679: IF (p_commit = FND_API.G_TRUE) THEN
22680: COMMIT;
22681: END IF;
22682: --
22683: IF (p_debug_mode = 'Y') THEN
22684: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY END');
22685: END IF;
22686: EXCEPTION
22687: WHEN API_ERROR THEN
22688: x_return_status := FND_API.G_RET_STS_ERROR;
22689: rollback to delete_intra_dependency;
22690: WHEN OTHERS THEN
22691: IF (p_commit = FND_API.G_TRUE) THEN
22692: ROLLBACK TO delete_intra_dependency;
22687: WHEN API_ERROR THEN
22688: x_return_status := FND_API.G_RET_STS_ERROR;
22689: rollback to delete_intra_dependency;
22690: WHEN OTHERS THEN
22691: IF (p_commit = FND_API.G_TRUE) THEN
22692: ROLLBACK TO delete_intra_dependency;
22693: END IF;
22694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22695: FND_MSG_PUB.add_exc_msg(
22690: WHEN OTHERS THEN
22691: IF (p_commit = FND_API.G_TRUE) THEN
22692: ROLLBACK TO delete_intra_dependency;
22693: END IF;
22694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22695: FND_MSG_PUB.add_exc_msg(
22696: p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
22697: p_procedure_name => 'delete_intra_dependency',
22698: p_error_text => SUBSTRB(SQLERRM,1,240));