[Home] [Help]
120: CURSOR Get_Latest_Pub_Ver(c_struc_type VARCHAR2, c_project_id NUMBER) IS
121: select pevs.element_version_id
122: from pa_proj_structure_types s,
123: pa_structure_types t,
124: pa_proj_elements pe,
125: pa_proj_elem_ver_structure pevs
126: where pe.object_type = 'PA_STRUCTURES'
127: and pe.project_id = c_project_id
128: and pe.proj_element_id = s.proj_element_id
3058: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Ver Id => '||p_src_struc_elem_ver_id);
3059: pa_debug.debug('Before PA_TASK_PUB1.CREATE_TASK Linking Task Name Number => '||p_lnk_task_name_number);
3060: END IF;
3061: --
3062: /* Creating linking task in the pa_proj_elements table*/
3063: PA_TASK_PUB1.CREATE_TASK
3064: ( p_validate_only => FND_API.G_FALSE
3065: ,p_object_type => 'PA_TASKS'
3066: ,p_project_id => p_src_proj_id
3093: END IF;
3094: --
3095: --Added the following code
3096: -- Modified from substr(x_lnk_task_elem_id,-1,1) to x_lnk_task_elem_id for bug #4480013
3097: UPDATE PA_PROJ_ELEMENTS
3098: SET ELEMENT_NUMBER = substr(p_lnk_task_name_number,0,25)||x_lnk_task_elem_id
3099: WHERE PROJ_ELEMENT_ID = x_lnk_task_elem_id;
3100: IF SQL%NOTFOUND THEN
3101: x_return_status:=FND_API.G_RET_STS_ERROR;
3446: -- -Created this procedure for subproject association
3447: --
3448: -- FPM bug 3450684
3449: --
3450: -- 03-DEC-2008 rkartha Bug#7427161: Modified the declaration of l_task_name with PA_PROJ_ELEMENTS.NAME%TYPE
3451: -- so as to avoid the numeric or value error.
3452: --
3453: Procedure Create_Subproject_Association(p_api_version IN NUMBER :=1.0,
3454: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3470: IS
3471: l_src_proj_sharing_code pa_projects_all.structure_sharing_code%type;
3472: l_dest_proj_sharing_code pa_projects_all.structure_sharing_code%type;
3473: --
3474: l_src_struc_elem_id pa_proj_elements.proj_element_id%type;
3475: l_src_struc_elem_ver_id pa_proj_element_versions.element_version_id%type;
3476: l_src_task_elem_id pa_proj_elements.proj_element_id%type;
3477: l_src_task_financial_flag pa_proj_element_versions.financial_task_flag%type;
3478: --
3472: l_dest_proj_sharing_code pa_projects_all.structure_sharing_code%type;
3473: --
3474: l_src_struc_elem_id pa_proj_elements.proj_element_id%type;
3475: l_src_struc_elem_ver_id pa_proj_element_versions.element_version_id%type;
3476: l_src_task_elem_id pa_proj_elements.proj_element_id%type;
3477: l_src_task_financial_flag pa_proj_element_versions.financial_task_flag%type;
3478: --
3479: l_dest_fin_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3480: l_dest_wp_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3477: l_src_task_financial_flag pa_proj_element_versions.financial_task_flag%type;
3478: --
3479: l_dest_fin_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3480: l_dest_wp_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3481: l_dest_wp_struct_element_id pa_proj_elements.proj_element_id%type:=0;
3482: l_dest_fin_struct_element_id pa_proj_elements.proj_element_id%type:=0;
3483: --
3484: l_parent_strucutre_version_id pa_proj_element_versions.element_version_id%type;
3485: --
3478: --
3479: l_dest_fin_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3480: l_dest_wp_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3481: l_dest_wp_struct_element_id pa_proj_elements.proj_element_id%type:=0;
3482: l_dest_fin_struct_element_id pa_proj_elements.proj_element_id%type:=0;
3483: --
3484: l_parent_strucutre_version_id pa_proj_element_versions.element_version_id%type;
3485: --
3486: l_src_str_fin_enable_fl CHAR(1):='N';
3534: where ppa.project_id = c_project_id;
3535:
3536: cursor cur_task_name (c_task_ver_id NUMBER) is
3537: select ppe.name
3538: from pa_proj_elements ppe, pa_proj_element_versions ppev
3539: where ppe.project_id = ppev.project_id
3540: and ppe.proj_element_id = ppev.proj_element_id
3541: and ppev.element_version_id = c_task_ver_id;
3542:
3543: l_proj_name VARCHAR2(30);
3544: l_prog_name VARCHAR2(30);
3545: -- l_task_name VARCHAR2(30); /* Bug#7427161 */
3546:
3547: l_task_name PA_PROJ_ELEMENTS.NAME%TYPE := NULL; /* Bug#7427161 */
3548:
3549: -- Bug # 4329284.
3550:
3551: BEGIN
4484: , porb.record_version_number lnk_record_ver_number -- Bug # 5072032.
4485: FROM pa_proj_element_versions ppev,
4486: pa_object_relationships pora,
4487: pa_object_relationships porb,
4488: pa_proj_elements ppe
4489: WHERE pora.relationship_type = 'S'
4490: AND ppev.project_id = cp_src_project_id
4491: AND pora.OBJECT_ID_FROM1 = cp_src_Task_ver_id
4492: AND pora.object_type_from = 'PA_TASKS'
4883: /* Cursor to get the linking task information present on that src structure version id*/
4884: CURSOR get_linking_task_info(cp_src_str_ver_id NUMBER) IS
4885: SELECT ppev.element_version_id lnk_task_ver_id,
4886: ppe.proj_element_id lnk_task_id
4887: FROM pa_proj_elements ppe,
4888: pa_proj_element_versions ppev
4889: WHERE ppe.proj_element_id = ppev.proj_element_id
4890: AND ppe.link_task_flag = 'Y'
4891: AND ppev.parent_structure_version_id = cp_src_str_ver_id