[Home] [Help]
313:
314: CURSOR cur_chk_ref_task
315: IS
316: SELECT 'x'
317: FROM pa_proj_element_versions
318: WHERE object_type = 'PA_STRUCTURES'
319: AND element_version_id = p_ref_task_id; --Just making sure ref_task_id does not contain
320: --structure version id.
321:
1679:
1680: CURSOR cur_struc_id
1681: IS
1682: SELECT a.proj_element_id
1683: FROM pa_proj_element_versions a, pa_proj_element_versions b
1684: WHERE a.element_version_id = b.parent_structure_version_id
1685: AND b.proj_element_id = p_task_id;
1686:
1687: CURSOR get_task_types_attr(c_task_type_id NUMBER) IS
1696: --hsiu task status changes
1697: cursor get_latest_task_ver_id IS
1698: select b.parent_structure_version_id, b.element_version_id
1699: from pa_proj_elements a,
1700: pa_proj_element_versions b,
1701: pa_proj_elem_ver_structure c
1702: where a.proj_element_id = p_task_id
1703: and a.project_id = b.project_id
1704: and a.proj_element_id = b.proj_element_id
1729: --
1730: --Bug 3475920
1731: CURSOR get_task_versions_id(cp_task_id NUMBER,cp_project_id NUMBER) IS
1732: SELECT ppev.element_Version_id
1733: FROM pa_proj_element_versions ppev,
1734: pa_proj_elem_ver_structure ppevs
1735: WHERE ppev.project_id = cp_project_id
1736: and ppev.proj_element_id = cp_task_id
1737: and ppev.project_id = ppevs.project_id
1739: and ppevs.status_code <> 'STRUCTURE_PUBLISHED';
1740: --
1741: CURSOR get_task_versions_id2(cp_task_id NUMBER,cp_project_id NUMBER) IS
1742: SELECT ppev.element_Version_id
1743: FROM pa_proj_element_versions ppev,
1744: pa_proj_elem_ver_structure ppevs
1745: WHERE ppev.project_id = cp_project_id
1746: and ppev.proj_element_id = cp_task_id
1747: and ppev.project_id = ppevs.project_id
3145: l_relationship_id NUMBER;
3146:
3147: l_link_task_flag VARCHAR2(1);
3148:
3149: l_attribute_category PA_PROJ_ELEMENT_VERSIONS.attribute_category%TYPE;
3150: l_attribute1 PA_PROJ_ELEMENT_VERSIONS.attribute1%TYPE;
3151: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3152: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3153: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3146:
3147: l_link_task_flag VARCHAR2(1);
3148:
3149: l_attribute_category PA_PROJ_ELEMENT_VERSIONS.attribute_category%TYPE;
3150: l_attribute1 PA_PROJ_ELEMENT_VERSIONS.attribute1%TYPE;
3151: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3152: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3153: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3154: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3147: l_link_task_flag VARCHAR2(1);
3148:
3149: l_attribute_category PA_PROJ_ELEMENT_VERSIONS.attribute_category%TYPE;
3150: l_attribute1 PA_PROJ_ELEMENT_VERSIONS.attribute1%TYPE;
3151: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3152: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3153: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3154: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3155: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3148:
3149: l_attribute_category PA_PROJ_ELEMENT_VERSIONS.attribute_category%TYPE;
3150: l_attribute1 PA_PROJ_ELEMENT_VERSIONS.attribute1%TYPE;
3151: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3152: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3153: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3154: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3155: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3156: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3149: l_attribute_category PA_PROJ_ELEMENT_VERSIONS.attribute_category%TYPE;
3150: l_attribute1 PA_PROJ_ELEMENT_VERSIONS.attribute1%TYPE;
3151: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3152: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3153: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3154: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3155: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3156: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3157: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3150: l_attribute1 PA_PROJ_ELEMENT_VERSIONS.attribute1%TYPE;
3151: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3152: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3153: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3154: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3155: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3156: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3157: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3158: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3151: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3152: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3153: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3154: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3155: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3156: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3157: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3158: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3159: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3152: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3153: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3154: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3155: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3156: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3157: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3158: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3159: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3160: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3153: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3154: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3155: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3156: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3157: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3158: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3159: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3160: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3161: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3154: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3155: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3156: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3157: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3158: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3159: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3160: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3161: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3162: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3155: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3156: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3157: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3158: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3159: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3160: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3161: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3162: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3163: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3156: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3157: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3158: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3159: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3160: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3161: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3162: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3163: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3164: l_attribute15 PA_PROJ_ELEMENT_VERSIONS.attribute15%TYPE;
3157: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3158: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3159: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3160: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3161: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3162: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3163: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3164: l_attribute15 PA_PROJ_ELEMENT_VERSIONS.attribute15%TYPE;
3165: l_weighting_percentage PA_OBJECT_RELATIONSHIPS.weighting_percentage%TYPE;
3158: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3159: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3160: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3161: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3162: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3163: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3164: l_attribute15 PA_PROJ_ELEMENT_VERSIONS.attribute15%TYPE;
3165: l_weighting_percentage PA_OBJECT_RELATIONSHIPS.weighting_percentage%TYPE;
3166:
3159: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3160: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3161: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3162: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3163: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3164: l_attribute15 PA_PROJ_ELEMENT_VERSIONS.attribute15%TYPE;
3165: l_weighting_percentage PA_OBJECT_RELATIONSHIPS.weighting_percentage%TYPE;
3166:
3167: CURSOR cur_proj_elems
3160: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3161: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3162: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3163: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3164: l_attribute15 PA_PROJ_ELEMENT_VERSIONS.attribute15%TYPE;
3165: l_weighting_percentage PA_OBJECT_RELATIONSHIPS.weighting_percentage%TYPE;
3166:
3167: CURSOR cur_proj_elems
3168: IS
3166:
3167: CURSOR cur_proj_elems
3168: IS
3169: SELECT *
3170: FROM pa_proj_element_versions
3171: WHERE element_version_id = p_ref_task_version_id;
3172:
3173: --Pick the max display sequence in the heirarchy of the reference task id.
3174: CURSOR cur_proj_elem_ver
3182: FROM pa_object_relationships
3183: WHERE relationship_type = 'S'
3184: START WITH object_id_from1 = p_ref_task_version_id
3185: CONNECT BY object_id_from1 = PRIOR object_id_to1
3186: AND relationship_type = 'S' ) a, pa_proj_element_versions b
3187: WHERE a.object_id_to1 = b.element_version_id;
3188: */
3189: SELECT max( b.display_sequence )
3190: FROM pa_proj_element_versions b
3186: AND relationship_type = 'S' ) a, pa_proj_element_versions b
3187: WHERE a.object_id_to1 = b.element_version_id;
3188: */
3189: SELECT max( b.display_sequence )
3190: FROM pa_proj_element_versions b
3191: WHERE b.element_version_id IN
3192: ( SELECT object_id_to1
3193: FROM pa_object_relationships
3194: WHERE relationship_type = 'S'
3421:
3422: l_parent_struc_ver_id := v_cur_proj_elems_rec.parent_structure_version_id;
3423:
3424: SELECT proj_element_id INTO l_structure_id_from
3425: FROM pa_proj_element_versions
3426: WHERE element_version_id = v_cur_proj_elems_rec.parent_structure_version_id;
3427:
3428: l_structure_id_to := l_structure_id_from;
3429:
3530:
3531: --my_error_msg( 'In create_task_version pvt API Stage 3' );
3532:
3533:
3534: PA_PROJ_ELEMENT_VERSIONS_PKG.Insert_Row(
3535: X_ROW_ID => X_row_id
3536: ,X_ELEMENT_VERSION_ID => x_task_version_id
3537: ,X_PROJ_ELEMENT_ID => p_task_id
3538: ,X_OBJECT_TYPE => 'PA_TASKS'
3574: IF l_wbs_level <> 1 THEN
3575:
3576: --This IF/ELSE condition is added for BUg 4046026.
3577: --update the sequnce number
3578: UPDATE pa_proj_element_versions
3579: SET display_sequence = display_sequence + 1
3580: WHERE display_sequence > l_ref_seq_no
3581: AND element_version_id <> x_task_version_id
3582: AND parent_structure_version_id = v_cur_proj_elems_rec.parent_structure_version_id
3585: ;
3586: ELSE
3587: IF p_peer_or_sub = 'PEER' --Bug 4046026
3588: THEN
3589: UPDATE pa_proj_element_versions
3590: SET display_sequence = display_sequence + 1
3591: WHERE display_sequence > l_ref_seq_no
3592: AND element_version_id <> x_task_version_id
3593: AND parent_structure_version_id = v_cur_proj_elems_rec.parent_structure_version_id
3804: l_relationship_id NUMBER;
3805:
3806: l_wbs_level_diff NUMBER;
3807:
3808: l_attribute_category PA_PROJ_ELEMENT_VERSIONS.attribute_category%TYPE;
3809: l_attribute1 PA_PROJ_ELEMENT_VERSIONS.attribute1%TYPE;
3810: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3811: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3812: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3805:
3806: l_wbs_level_diff NUMBER;
3807:
3808: l_attribute_category PA_PROJ_ELEMENT_VERSIONS.attribute_category%TYPE;
3809: l_attribute1 PA_PROJ_ELEMENT_VERSIONS.attribute1%TYPE;
3810: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3811: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3812: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3813: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3806: l_wbs_level_diff NUMBER;
3807:
3808: l_attribute_category PA_PROJ_ELEMENT_VERSIONS.attribute_category%TYPE;
3809: l_attribute1 PA_PROJ_ELEMENT_VERSIONS.attribute1%TYPE;
3810: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3811: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3812: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3813: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3814: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3807:
3808: l_attribute_category PA_PROJ_ELEMENT_VERSIONS.attribute_category%TYPE;
3809: l_attribute1 PA_PROJ_ELEMENT_VERSIONS.attribute1%TYPE;
3810: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3811: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3812: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3813: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3814: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3815: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3808: l_attribute_category PA_PROJ_ELEMENT_VERSIONS.attribute_category%TYPE;
3809: l_attribute1 PA_PROJ_ELEMENT_VERSIONS.attribute1%TYPE;
3810: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3811: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3812: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3813: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3814: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3815: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3816: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3809: l_attribute1 PA_PROJ_ELEMENT_VERSIONS.attribute1%TYPE;
3810: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3811: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3812: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3813: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3814: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3815: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3816: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3817: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3810: l_attribute2 PA_PROJ_ELEMENT_VERSIONS.attribute2%TYPE;
3811: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3812: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3813: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3814: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3815: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3816: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3817: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3818: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3811: l_attribute3 PA_PROJ_ELEMENT_VERSIONS.attribute3%TYPE;
3812: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3813: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3814: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3815: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3816: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3817: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3818: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3819: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3812: l_attribute4 PA_PROJ_ELEMENT_VERSIONS.attribute4%TYPE;
3813: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3814: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3815: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3816: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3817: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3818: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3819: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3820: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3813: l_attribute5 PA_PROJ_ELEMENT_VERSIONS.attribute5%TYPE;
3814: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3815: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3816: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3817: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3818: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3819: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3820: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3821: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3814: l_attribute6 PA_PROJ_ELEMENT_VERSIONS.attribute6%TYPE;
3815: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3816: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3817: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3818: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3819: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3820: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3821: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3822: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3815: l_attribute7 PA_PROJ_ELEMENT_VERSIONS.attribute7%TYPE;
3816: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3817: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3818: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3819: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3820: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3821: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3822: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3823: l_attribute15 PA_PROJ_ELEMENT_VERSIONS.attribute15%TYPE;
3816: l_attribute8 PA_PROJ_ELEMENT_VERSIONS.attribute8%TYPE;
3817: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3818: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3819: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3820: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3821: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3822: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3823: l_attribute15 PA_PROJ_ELEMENT_VERSIONS.attribute15%TYPE;
3824: l_task_unpub_ver_status_code PA_PROJ_ELEMENT_VERSIONS.task_unpub_ver_status_code%TYPE;
3817: l_attribute9 PA_PROJ_ELEMENT_VERSIONS.attribute9%TYPE;
3818: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3819: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3820: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3821: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3822: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3823: l_attribute15 PA_PROJ_ELEMENT_VERSIONS.attribute15%TYPE;
3824: l_task_unpub_ver_status_code PA_PROJ_ELEMENT_VERSIONS.task_unpub_ver_status_code%TYPE;
3825:
3818: l_attribute10 PA_PROJ_ELEMENT_VERSIONS.attribute10%TYPE;
3819: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3820: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3821: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3822: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3823: l_attribute15 PA_PROJ_ELEMENT_VERSIONS.attribute15%TYPE;
3824: l_task_unpub_ver_status_code PA_PROJ_ELEMENT_VERSIONS.task_unpub_ver_status_code%TYPE;
3825:
3826: CURSOR cur_ref_task
3819: l_attribute11 PA_PROJ_ELEMENT_VERSIONS.attribute11%TYPE;
3820: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3821: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3822: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3823: l_attribute15 PA_PROJ_ELEMENT_VERSIONS.attribute15%TYPE;
3824: l_task_unpub_ver_status_code PA_PROJ_ELEMENT_VERSIONS.task_unpub_ver_status_code%TYPE;
3825:
3826: CURSOR cur_ref_task
3827: IS
3820: l_attribute12 PA_PROJ_ELEMENT_VERSIONS.attribute12%TYPE;
3821: l_attribute13 PA_PROJ_ELEMENT_VERSIONS.attribute13%TYPE;
3822: l_attribute14 PA_PROJ_ELEMENT_VERSIONS.attribute14%TYPE;
3823: l_attribute15 PA_PROJ_ELEMENT_VERSIONS.attribute15%TYPE;
3824: l_task_unpub_ver_status_code PA_PROJ_ELEMENT_VERSIONS.task_unpub_ver_status_code%TYPE;
3825:
3826: CURSOR cur_ref_task
3827: IS
3828: SELECT *
3825:
3826: CURSOR cur_ref_task
3827: IS
3828: SELECT *
3829: FROM pa_proj_element_versions
3830: WHERE element_version_id = p_ref_task_version_id;
3831:
3832:
3833: CURSOR cur_proj_elems
3836: display_sequence, wbs_number, wbs_level, parent_structure_version_id,
3837: attribute_category, attribute1, attribute2, attribute3, attribute4, attribute5,
3838: attribute6, attribute7, attribute8, attribute9, attribute10, attribute11, attribute12,
3839: attribute13, attribute14, attribute15, TASK_UNPUB_VER_STATUS_CODE
3840: FROM pa_proj_element_versions
3841: WHERE element_version_id = p_task_version_id
3842: AND object_type = 'PA_TASKS';
3843:
3844: CURSOR cur_child_tasks( c_task_version_id NUMBER )
3849: WHERE relationship_type = 'S'
3850: START WITH object_id_from1 = c_task_version_id
3851: CONNECT BY object_id_from1 = PRIOR object_id_to1
3852: AND relationship_type = prior relationship_type --bug 3919266
3853: AND relationship_type = 'S' ) a, pa_proj_element_versions b
3854: WHERE a.object_id_to1 = b.element_version_id
3855: ORDER BY 4;
3856:
3857: --bug 2832807
3856:
3857: --bug 2832807
3858: CURSOR cur_child_tasks2( c_task_version_id NUMBER )
3859: IS SELECT max( display_sequence )
3860: FROM pa_proj_element_versions
3861: WHERE element_version_id in ( SELECT object_id_to1
3862: FROM pa_object_relationships
3863: WHERE relationship_type = 'S'
3864: START WITH object_id_from1 = c_task_version_id
3869:
3870: --bug 2836264
3871: CURSOR cur_child_tasks3( c_task_version_id NUMBER ,c_ref_task_disp_seq NUMBER) -- Bug 6628382 modified existing cursor to restrict the tasks which are being moved to fall between the source and the destination task
3872: IS SELECT max( display_sequence )
3873: FROM pa_proj_element_versions
3874: WHERE element_version_id in ( SELECT object_id_to1
3875: FROM pa_object_relationships
3876: WHERE relationship_type = 'S'
3877: and object_id_to1 <> p_task_version_id
3884:
3885: --Added for Bug 6628382
3886: CURSOR cur_child_tasks4( c_task_version_id NUMBER) -- Bug 6628382. Added another cursor to compute the last child task of any task.
3887: IS SELECT max( display_sequence)
3888: FROM pa_proj_element_versions
3889: WHERE element_version_id in ( SELECT object_id_to1
3890: FROM pa_object_relationships
3891: WHERE relationship_type = 'S'
3892: and object_id_to1 <> p_task_version_id
3909: CURSOR cur_new_child
3910: IS
3911: SELECT por.object_id_to1, ppev.display_sequence, por.record_version_number, por.object_relationship_id
3912: FROM pa_object_relationships por,
3913: pa_proj_element_versions ppev
3914: WHERE object_id_from1 = p_ref_task_version_id
3915: AND object_id_to1 = element_version_id
3916: AND display_sequence > l_display_sequence
3917: AND relationship_type = 'S'
3966: CURSOR check_progress_allowed(c_element_version_id NUMBER)
3967: IS
3968: SELECT ptt.prog_entry_enable_flag
3969: FROM pa_task_types ptt,
3970: pa_proj_element_versions ppev,
3971: pa_proj_elements ppe
3972: WHERE ppev.element_version_id = c_element_version_id
3973: AND ppev.proj_element_id = ppe.proj_element_id
3974: AND ppe.TYPE_ID = ptt.task_type_id;
4254: l_no_of_tasks := 1;
4255:
4256: l_parent_struc_ver_id := v_cur_proj_elems_rec.parent_structure_version_id;
4257:
4258: PA_PROJ_ELEMENT_VERSIONS_PKG.Update_Row(
4259: X_ROW_ID => v_cur_proj_elems_rec.rowid
4260: ,X_ELEMENT_VERSION_ID => p_task_version_id
4261: ,X_PROJ_ELEMENT_ID => v_cur_proj_elems_rec.proj_element_id
4262: ,X_OBJECT_TYPE => v_cur_proj_elems_rec.object_type
4331:
4332:
4333: l_no_of_tasks := l_no_of_tasks + 1;
4334:
4335: UPDATE pa_proj_element_versions
4336: SET wbs_level = wbs_level + l_wbs_level_diff,
4337: display_sequence = decode( p_action, 'MOVE', l_new_display_sequence, display_sequence )
4338: WHERE element_version_id = cur_child_tasks_rec.object_id_to1;
4339:
4344: DECLARE
4345: CURSOR cur_update_with_null
4346: IS
4347: SELECT element_version_id, display_sequence
4348: FROM pa_proj_element_versions
4349: WHERE parent_structure_version_id = l_parent_struc_ver_id
4350: AND display_sequence < 0;
4351:
4352: TYPE CurrTasks IS RECORD( task_version_id NUMBER(15), display_sequence NUMBER(15) );
4357:
4358: --update display sequence of the tasks with NULL to update WBS_NUMBER.
4359: FOR cur_update_with_null_rec in cur_update_with_null LOOP
4360:
4361: UPDATE pa_proj_element_versions
4362: SET display_sequence = null
4363: WHERE element_version_id = cur_update_with_null_rec.element_version_id;
4364:
4365: l_TaskTab(i).task_version_id := cur_update_with_null_rec.element_version_id;
4380: ,p_parent_task_id => l_parent_of_task_version
4381: ,x_return_status => l_return_status );
4382:
4383: FOR k in 1..i-1 LOOP
4384: UPDATE pa_proj_element_versions
4385: SET display_sequence = l_TaskTab(k).display_sequence
4386: WHERE element_version_id = l_TaskTab(k).task_version_id;
4387: END LOOP;
4388:
4390: /*DECLARE
4391: CURSOR cur_print_wbs
4392: IS
4393: SELECT element_version_id, wbs_number
4394: FROM pa_proj_element_versions
4395: WHERE parent_structure_version_id = l_parent_struc_ver_id
4396: ORDER BY display_sequence;
4397: BEGIN
4398: FOR cur_print_wbs_rec in cur_print_wbs LOOP
4602: DECLARE
4603: CURSOR cur_print_wbs
4604: IS
4605: SELECT element_version_id, wbs_number
4606: FROM pa_proj_element_versions
4607: WHERE parent_structure_version_id = l_parent_struc_ver_id
4608: ORDER BY display_sequence;
4609: BEGIN
4610: FOR cur_print_wbs_rec in cur_print_wbs LOOP
4616: DECLARE
4617: CURSOR cur_affected_tasks
4618: IS
4619: SELECT element_version_id, parent_structure_version_id, display_sequence
4620: FROM pa_proj_element_versions
4621: WHERE parent_structure_version_id = l_parent_struc_ver_id
4622: AND ( ( l_move_direction = 'DOWN' and p_peer_or_sub = 'SUB' and
4623: display_sequence > nvl( l_task_last_child_seq_num, l_task_seq_num ) and display_sequence <= l_ref_task_seq_num ) OR
4624: ( l_move_direction = 'DOWN' and p_peer_or_sub = 'PEER' and
4663:
4664: --dbms_output.put_line( 'Affected tasks old display_sequence '|| cur_affected_tasks_rec.display_sequence );
4665: --dbms_output.put_line( 'Affected tasks l_new_display_sequence '|| l_new_display_sequence );
4666:
4667: UPDATE pa_proj_element_versions
4668: SET display_sequence = l_new_display_sequence
4669: WHERE element_version_id = cur_affected_tasks_rec.element_version_id;
4670:
4671: --update wbs number for affected tasks
4689: DECLARE
4690: CURSOR cur_actual_tasks
4691: IS
4692: SELECT element_version_id, display_sequence, parent_structure_version_id
4693: FROM pa_proj_element_versions
4694: WHERE parent_structure_version_id = l_parent_struc_ver_id
4695: AND display_sequence < 0
4696: ORDER BY display_sequence desc;
4697: BEGIN
4712: --**
4713:
4714: --dbms_output.put_line( 'TAsk sequence number '||l_new_display_sequence );
4715:
4716: UPDATE pa_proj_element_versions
4717: SET display_sequence = l_new_display_sequence
4718: WHERE element_version_id = cur_actual_tasks_rec.element_version_id;
4719:
4720: --update wbs number for actual tasks
4737: DECLARE
4738: CURSOR cur_affected_tasks
4739: IS
4740: SELECT element_version_id, parent_structure_version_id, display_sequence
4741: FROM pa_proj_element_versions
4742: WHERE parent_structure_version_id = l_parent_struc_ver_id
4743: AND display_sequence > nvl( l_ref_task_last_child_seq_num, l_ref_task_seq_num )
4744: ORDER BY display_sequence;
4745: BEGIN
4854: WHERE relationship_type = 'S'
4855: START WITH object_id_from1 = p_task_version_id
4856: CONNECT BY object_id_from1 = PRIOR object_id_to1
4857: AND relationship_type = prior relationship_type -- bug 3919266
4858: AND relationship_type = 'S' ) A, pa_proj_element_versions b
4859: ,pa_proj_elements c --bug 4573340
4860: WHERE a.object_id_to1 = b.element_version_id
4861: --bug 4573340
4862: and b.proj_element_id = c.proj_element_id
4865: --bug 4573340
4866: UNION
4867: SELECT a.object_relationship_id, element_version_id object_id_to1,
4868: a.record_version_number, wbs_level, b.display_sequence
4869: FROM pa_object_relationships a, pa_proj_element_versions b
4870: WHERE element_version_id = p_task_version_id
4871: AND object_id_to1 = p_task_version_id
4872: AND element_version_id = object_id_to1
4873: AND relationship_type = 'S'
4876:
4877: CURSOR cur_proj_elem_ver( p_task_id NUMBER )
4878: IS
4879: SELECT rowid,record_version_number, project_id, parent_structure_version_id, proj_element_id
4880: FROM pa_proj_element_versions
4881: WHERE element_version_id = p_task_id;
4882:
4883: CURSOR cur_sch_ver( p_task_id NUMBER, p_project_id NUMBER )
4884: IS
4903:
4904: CURSOR cur_chk_vers( x_proj_element_id NUMBER, x_task_version NUMBER )
4905: IS
4906: SELECT 'X'
4907: FROM pa_proj_element_versions
4908: WHERE proj_element_id = x_proj_element_id
4909: AND element_version_id <> x_task_version;
4910:
4911: CURSOR cur_proj_elems( x_proj_element_id NUMBER )
4931: IS
4932: select b.object_id_to1 object_id_to1
4933: from pa_object_relationships a,
4934: pa_object_relationships b,
4935: pa_proj_element_versions c,
4936: pa_proj_elements d
4937: where a.object_id_to1 = p_task_version_id
4938: and a.object_type_to = 'PA_TASKS'
4939: and a.object_id_from1 = b.object_id_from1
4977:
4978: --hsiu task status changes
4979: cursor get_latest_task_ver_id IS
4980: select b.parent_structure_version_id, b.element_version_id
4981: from pa_proj_element_versions b,
4982: pa_proj_elem_ver_structure c
4983: where b.element_version_id = p_task_version_id
4984: and b.project_id = c.project_id
4985: and b.parent_structure_version_id = c.element_version_id
5073: and prior object_type_to = object_type_from
5074: and prior object_id_to1 = object_id_from1
5075: UNION
5076: select element_version_id task_ver_id
5077: from pa_proj_element_versions
5078: where element_version_id = c_task_version_id;
5079: --end bug 4006401
5080:
5081: --bug 4110957
5079: --end bug 4006401
5080:
5081: --bug 4110957
5082: CURSOR get_tsk_cnt(c_struc_ver_id NUMBER) IS
5083: select count(1) from pa_proj_element_versions
5084: where object_type = 'PA_TASKS'
5085: and parent_structure_version_id = c_struc_ver_id;
5086: l_tsk_ver_cnt NUMBER;
5087: --end bug 4110957
5123: /*
5124: Begin
5125: SELECT project_id
5126: Into l_Project_ID
5127: FROM pa_proj_element_versions
5128: WHERE element_version_id = p_task_version_id and rownum < 2;
5129: End;
5130: */
5131: -- 4201927 end
5131: -- 4201927 end
5132:
5133: -- 4201927 added project_id column selection
5134: select proj_element_id, project_id into l_task_id , l_Project_ID -- 4201927
5135: from pa_proj_element_versions
5136: where element_version_id = p_task_version_id;
5137:
5138: -- 4201927 Retrieving structure sharding code once and using it for further processing
5139: l_structure_sharing_code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(l_Project_id); -- dthakker added
5270: IF nvl(l_shared,'N') = 'N' THEN
5271: l_delete_flag := 'Y';
5272: ELSE
5273: SELECT proj_element_id INTO l_structure_id
5274: FROM pa_proj_element_versions
5275: WHERE element_version_id = p_structure_version_id
5276: AND project_id = l_project_id;
5277:
5278: IF PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(
5561: IF nvl(l_shared,'N') = 'N' THEN
5562: l_delete_flag := 'Y';
5563: ELSE
5564: SELECT proj_element_id INTO l_structure_id
5565: FROM pa_proj_element_versions
5566: WHERE element_version_id = x_parent_struc_ver_id
5567: AND project_id = x_project_id;
5568:
5569: IF PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(
5808: END IF;
5809: raise FND_API.G_EXC_ERROR;
5810: END IF;
5811:
5812: PA_PROJ_ELEMENT_VERSIONS_PKG.Delete_Row( x_row_id );
5813:
5814: --Ansari
5815: --Call update wbs number
5816: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS (
6034: -- being deleted.
6035: -- Hence commenting out the update of RVN here.
6036:
6037: BEGIN
6038: UPDATE PA_PROJ_ELEMENT_VERSIONS
6039: SET display_sequence = PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, 0, l_task_cnt, 'DELETE', 'DOWN')
6040: -- record_version_number = record_version_number + 1
6041: WHERE parent_structure_version_id = x_parent_struc_ver_id
6042: AND (display_sequence > l_selected_seq_num)
6377:
6378: CURSOR cur_proj_elem_ver
6379: IS
6380: SELECT rowid, object_type, project_id, proj_element_id
6381: FROM pa_proj_element_versions
6382: WHERE element_version_id = p_element_version_id;
6383:
6384: cur_proj_elem_ver_rec cur_proj_elem_ver%ROWTYPE;
6385: X_Row_id VARCHAR2(255);
6385: X_Row_id VARCHAR2(255);
6386:
6387: cursor get_cal_id IS
6388: select a.calendar_id
6389: from pa_projects_all a, pa_proj_element_versions b
6390: where a.project_id = b.project_id
6391: and b.element_version_id = p_element_version_id;
6392:
6393: /* Bug 2791413 Begin */
6393: /* Bug 2791413 Begin */
6394: CURSOR get_project_id
6395: IS
6396: SELECT project_id,proj_element_id
6397: FROM pa_proj_element_versions
6398: WHERE element_version_id = p_element_version_id;
6399:
6400:
6401: cursor get_task_type_id(c_proj_element_id NUMBER) IS
6990: -- Added for FP_M changes 3305199 Bhumesh
6991: If PA_Project_Structure_Utils.Check_Third_Party_Sch_Flag(l_Project_ID)= 'Y' Then
6992:
6993: Select Parent_Structure_Version_ID INTO l_Structure_Version_ID
6994: From PA_Proj_Element_Versions
6995: Where Element_Version_ID = P_Element_Version_ID;
6996:
6997: PA_PROJECT_STRUCTURE_PVT1.update_sch_dirty_flag(
6998: p_structure_version_id => l_Structure_Version_ID
7309: l_update_flag VARCHAR2(1) := 'N';
7310: l_parent_struc_Ver_id NUMBER;
7311: cursor get_parent_struc_ver_id(c_elem_ver_id NUMBER) IS
7312: select parent_structure_version_id
7313: from pa_proj_element_versions
7314: where element_version_id = c_elem_ver_id;
7315:
7316: --3035902: process update flag changes
7317: l_weighting_basis VARCHAR2(30);
8369: IS
8370: CURSOR get_parent_task_type_attr IS
8371: select c.TYPE_ID , c.WQ_ITEM_CODE, c.WQ_UOM_CODE, c.WQ_ACTUAL_ENTRY_CODE,
8372: c.TASK_PROGRESS_ENTRY_PAGE_ID
8373: from pa_proj_element_versions a,
8374: pa_object_relationships b,
8375: pa_proj_elements c
8376: where b.object_id_to1 = p_task_version_id
8377: and b.object_type_to = 'PA_TASKS'
8603: CURSOR check_progress_allowed(c_element_version_id NUMBER)
8604: IS
8605: SELECT ptt.prog_entry_enable_flag
8606: FROM pa_task_types ptt,
8607: pa_proj_element_versions ppev,
8608: pa_proj_elements ppe
8609: WHERE ppev.element_version_id = c_element_version_id
8610: AND ppev.proj_element_id = ppe.proj_element_id
8611: AND ppe.TYPE_ID = ptt.task_type_id;
8761: and prior object_type_to = object_type_from;
8762:
8763: l_task_version_id NUMBER;
8764: BEGIN
8765: UPDATE pa_proj_element_versions
8766: set TASK_UNPUB_VER_STATUS_CODE = 'TO_BE_DELETED',
8767: RECORD_VERSION_NUMBER = NVL(RECORD_VERSION_NUMBER,1)+1,
8768: LAST_UPDATE_DATE = SYSDATE,
8769: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
8774: LOOP
8775: FETCH get_task_versions into l_task_version_id;
8776: EXIT WHEN get_task_versions%NOTFOUND;
8777:
8778: UPDATE pa_proj_element_versions
8779: set TASK_UNPUB_VER_STATUS_CODE = 'TO_BE_DELETED',
8780: RECORD_VERSION_NUMBER = NVL(RECORD_VERSION_NUMBER,1)+1,
8781: LAST_UPDATE_DATE = SYSDATE,
8782: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
8844: WHERE relationship_type = 'S'
8845: START WITH object_id_from1 = p_task_version_id
8846: CONNECT BY object_id_from1 = PRIOR object_id_to1
8847: AND relationship_type = PRIOR relationship_type --bug 3919266
8848: AND relationship_type = 'S' ) A, pa_proj_element_versions b
8849: ,pa_proj_elements c --bug 4573340
8850: WHERE a.object_id_to1 = b.element_version_id
8851: --bug 4573340
8852: and b.proj_element_id = c.proj_element_id
8855: --bug 4573340
8856: UNION
8857: SELECT a.object_relationship_id, element_version_id object_id_to1,
8858: a.record_version_number, wbs_level, b.display_sequence
8859: FROM pa_object_relationships a, pa_proj_element_versions b
8860: WHERE element_version_id = p_task_version_id
8861: AND object_id_to1 = p_task_version_id
8862: AND element_version_id = object_id_to1
8863: AND relationship_type = 'S'
8866:
8867: CURSOR cur_proj_elem_ver( p_task_id NUMBER )
8868: IS
8869: SELECT rowid,record_version_number, project_id, parent_structure_version_id, proj_element_id
8870: FROM pa_proj_element_versions
8871: WHERE element_version_id = p_task_id;
8872:
8873: CURSOR cur_sch_ver( p_task_id NUMBER, p_project_id NUMBER )
8874: IS
8893:
8894: CURSOR cur_chk_vers( x_proj_element_id NUMBER, x_task_version NUMBER )
8895: IS
8896: SELECT 'X'
8897: FROM pa_proj_element_versions
8898: WHERE proj_element_id = x_proj_element_id
8899: AND element_version_id <> x_task_version;
8900:
8901: CURSOR cur_proj_elems( x_proj_element_id NUMBER )
8961:
8962: --hsiu task status changes
8963: cursor get_latest_task_ver_id IS
8964: select b.parent_structure_version_id, b.element_version_id
8965: from pa_proj_element_versions b,
8966: pa_proj_elem_ver_structure c
8967: where b.element_version_id = p_task_version_id
8968: and b.project_id = c.project_id
8969: and b.parent_structure_version_id = c.element_version_id
9166: p_structure_version_id => x_parent_struc_ver_id
9167: ,p_structure_type => 'FINANCIAL' ) = 'Y') THEN
9168:
9169: SELECT proj_element_id INTO l_structure_id
9170: FROM pa_proj_element_versions
9171: WHERE element_version_id = x_parent_struc_ver_id
9172: AND project_id = x_project_id;
9173:
9174: IF (PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(
9341: END IF;
9342: raise FND_API.G_EXC_ERROR;
9343: END IF;
9344:
9345: PA_PROJ_ELEMENT_VERSIONS_PKG.Delete_Row( x_row_id );
9346:
9347: --Ansari
9348: --Call update wbs number
9349: --hsiu: bug 2800553: performance changes: not called when deleting structure
9508: -- Hence commenting out the update of RVN here.
9509:
9510:
9511: BEGIN
9512: UPDATE PA_PROJ_ELEMENT_VERSIONS
9513: SET display_sequence = PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, 0, l_task_cnt, 'DELETE', 'DOWN')
9514: -- record_version_number = record_version_number + 1
9515: WHERE parent_structure_version_id = x_parent_struc_ver_id
9516: AND (display_sequence > l_selected_seq_num)
9682: )
9683: IS
9684: CURSOR get_working_ver(c_option NUMBER) IS
9685: select a.element_version_id, c.object_id_from1
9686: from pa_proj_element_versions a,
9687: pa_proj_elem_ver_structure b,
9688: pa_object_relationships c
9689: where a.parent_structure_version_id = b.element_version_id
9690: and a.project_id = b.project_id
9695: and b.status_code <> 'STRUCTURE_PUBLISHED'
9696: and 1 = c_option
9697: UNION
9698: select a.element_version_id, c.object_id_from1
9699: from pa_proj_element_versions a,
9700: pa_proj_elem_ver_structure b,
9701: pa_object_relationships c
9702: where a.parent_structure_version_id = b.element_version_id
9703: and a.project_id = b.project_id
9789: ) IS
9790: CURSOR cur_task_hier( c_parent_structure_version_id NUMBER )
9791: IS
9792: SELECT proj_element_id, element_version_id
9793: FROM pa_proj_element_versions ppev,
9794: ( SELECT object_id_to1 from pa_object_relationships
9795: WHERE relationship_type = 'S'
9796: start with object_id_from1 = ( SELECT element_version_id
9797: FROM pa_proj_element_versions ppev
9793: FROM pa_proj_element_versions ppev,
9794: ( SELECT object_id_to1 from pa_object_relationships
9795: WHERE relationship_type = 'S'
9796: start with object_id_from1 = ( SELECT element_version_id
9797: FROM pa_proj_element_versions ppev
9798: WHERE ppev.proj_element_id = p_task_id
9799: AND ppev.parent_structure_version_id = c_parent_structure_version_id
9800: AND project_id = p_project_id
9801: AND object_type = 'PA_TASKS')
9813: AND status_code <> 'STRUCTURE_PUBLISHED';
9814:
9815: CURSOR cur_task_ver_ids( c_parent_structure_version_id NUMBER )
9816: IS
9817: SELECT element_version_id FROM pa_proj_element_versions WHERE parent_structure_version_id = c_parent_structure_version_id;
9818:
9819: TYPE task_id_rec_type IS RECORD
9820: (task_id NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
9821: task_version_id NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
9911: wrk_task_ids(j).task_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
9912: wrk_task_ids(j).new_task_flag = 'Y'
9913: THEN
9914: --Update version status for all those tasks that did not exist in the branch in latest pub ver.
9915: UPDATE pa_proj_element_versions
9916: SET TASK_UNPUB_VER_STATUS_CODE = 'TO_BE_DELETED'
9917: WHERE element_version_id = wrk_task_ids(j).task_version_id
9918: ;
9919: END IF;