[Home] [Help]
484: --bug 8566495 anuragag
485: cursor get_parent_dates(p_task_id NUMBER) is
486: select scheduled_start_date,scheduled_finish_date from pa_proj_elem_ver_schedule where
487: element_version_id =
488: (select por.object_id_from1 from pa_proj_element_versions ppev,pa_object_relationships por
489: where ppev.proj_element_id = p_task_id
490: and ppev.element_version_id = por.object_id_to1
491: and relationship_subtype = 'TASK_TO_TASK'
492: );
670: --bug 8566495 anuragag
671: cursor get_parent_dates(p_task_id NUMBER) is
672: select scheduled_start_date,scheduled_finish_date from pa_proj_elem_ver_schedule where
673: element_version_id =
674: (select por.object_id_from1 from pa_proj_element_versions ppev,pa_object_relationships por
675: where ppev.proj_element_id = p_task_id
676: and ppev.element_version_id = por.object_id_to1
677: and relationship_subtype = 'TASK_TO_TASK'
678: );
1594: --WITH THE CHANGE IN THE DATA MODEL p_task_id will from now act as p_task_version_id
1595: CURSOR cur_wbs_above
1596: IS
1597: SELECT pt.wbs_level, pt.task_id, pt.top_task_id, pt.parent_task_id, ppev.display_sequence
1598: FROM pa_tasks pt, pa_proj_element_versions ppev
1599: WHERE pt.project_id = p_project_id
1600: AND ppev.proj_element_id = pt.task_id
1601: AND ppev.display_sequence = ( SELECT max( display_sequence )
1602: FROM pa_proj_element_versions
1598: FROM pa_tasks pt, pa_proj_element_versions ppev
1599: WHERE pt.project_id = p_project_id
1600: AND ppev.proj_element_id = pt.task_id
1601: AND ppev.display_sequence = ( SELECT max( display_sequence )
1602: FROM pa_proj_element_versions
1603: WHERE project_id = p_project_id
1604: AND display_sequence < ( SELECT display_sequence
1605: FROM pa_proj_element_versions
1606: WHERE project_id = p_project_id
1601: AND ppev.display_sequence = ( SELECT max( display_sequence )
1602: FROM pa_proj_element_versions
1603: WHERE project_id = p_project_id
1604: AND display_sequence < ( SELECT display_sequence
1605: FROM pa_proj_element_versions
1606: WHERE project_id = p_project_id
1607: AND proj_element_id = p_task_id ) );
1608: ---Get the wbs of the task being indented.
1609: /* CURSOR cur_wbs
1615:
1616: CURSOR cur_wbs
1617: IS
1618: SELECT pt.wbs_level, pt.top_task_id, pt.parent_task_id, ppev.display_sequence
1619: FROM pa_tasks pt, pa_proj_element_versions ppev
1620: WHERE pt.project_id = p_project_id
1621: AND ppev.proj_element_id = p_task_id
1622: AND ppev.proj_element_id = pt.task_id;
1623:
2230:
2231: CURSOR c_get_fin_task_flag (l_task_version_id NUMBER )
2232: IS
2233: SELECT FINANCIAL_TASK_FLAG
2234: FROM PA_PROJ_ELEMENT_VERSIONS plv
2235: WHERE plv.ELEMENT_VERSION_ID = l_task_version_id;
2236:
2237: BEGIN
2238:
2343: l_msg_data VARCHAR2(2000);
2344: l_msg_index_out NUMBER;
2345: l_debug_mode VARCHAR2(1);
2346: l_counter NUMBER := 1;
2347: l_task_id pa_proj_element_versions.element_version_id%TYPE;
2348: l_fin_flag VARCHAR2(1);
2349:
2350: l_debug_level2 CONSTANT NUMBER := 2;
2351: l_debug_level3 CONSTANT NUMBER := 3;
2364: (
2365: SELECT proj_element_id
2366: , element_version_id
2367: , financial_task_flag
2368: FROM PA_PROJ_ELEMENT_VERSIONS plv
2369: WHERE element_version_id
2370: IN
2371: ( -- This select statement tries to select childs task version ids
2372: SELECT object_id_to1