[Home] [Help]
514:
515: CURSOR cur_pa_projs
516: IS
517: SELECT 'x'
518: FROM pa_projects_all
519: WHERE split_cost_from_workplan_flag = 'Y'
520: AND project_id = p_project_id;
521:
522: CURSOR cur_pa_proj_elem_vers2( c_strcu_ver_id NUMBER )
955:
956: --hsiu added for task version status
957: CURSOR cur_proj_is_template
958: IS select 'Y'
959: from pa_projects_all
960: where project_id = p_project_id
961: and template_flag = 'Y';
962: l_template_flag VARCHAR2(1);
963: l_task_unpub_ver_status_code PA_PROJ_ELEMENT_VERSIONS.task_unpub_ver_status_code%TYPE;
2471:
2472:
2473: CURSOR cur_proj_is_template
2474: IS select 'Y'
2475: from pa_projects_all
2476: where project_id = p_project_id
2477: and template_flag = 'Y';
2478: l_template_flag VARCHAR2(1);
2479:
3748:
3749: -- bug 2765115
3750: CURSOR cur_pa_proj
3751: IS
3752: SELECT template_flag from pa_projects_all where project_id = p_project_id;
3753:
3754: l_template_flag VARCHAR2(1) := 'N';
3755:
3756: CURSOR cur_task_ver_id3 IS
4081: ) RETURN VARCHAR2 IS
4082: CURSOR cur_proj_strs
4083: IS
4084: SELECT 'X'
4085: FROM pa_projects_all
4086: WHERE project_id = p_project_id
4087: AND split_cost_from_workplan_flag = 'N';
4088:
4089: CURSOR cur_pub_versions is
4191:
4192: CURSOR cur_projects
4193: IS
4194: SELECT split_cost_from_workplan_flag
4195: FROM pa_projects_all
4196: WHERE project_id = p_project_id;
4197:
4198: CURSOR cur_pa_proj_elems
4199: IS
4258: OPEN cur_projects;
4259: FETCH cur_projects INTO l_split_flag;
4260: CLOSE cur_projects;
4261:
4262: UPDATE pa_projects_all
4263: SET split_cost_from_workplan_flag = p_split_workplan
4264: WHERE project_id = p_project_id;
4265:
4266: IF p_split_workplan = l_split_flag
4932: l_msg_count NUMBER;
4933: l_msg_data VARCHAR2(2000);
4934: l_error_message_code VARCHAR2(30);
4935:
4936: l_project_name PA_PROJECTS_ALL.name%TYPE;
4937: l_project_number PA_PROJECTS_ALL.segment1%TYPE;
4938:
4939: l_suffix VARCHAR2(250);
4940: l_name VARCHAR2(240);
4933: l_msg_data VARCHAR2(2000);
4934: l_error_message_code VARCHAR2(30);
4935:
4936: l_project_name PA_PROJECTS_ALL.name%TYPE;
4937: l_project_number PA_PROJECTS_ALL.segment1%TYPE;
4938:
4939: l_suffix VARCHAR2(250);
4940: l_name VARCHAR2(240);
4941: l_number VARCHAR2(25);
4949: l_new_structure_version_id NUMBER;
4950: -- added for Bug Fix: 4537865
4951:
4952: CURSOR c1 IS
4953: select segment1, name from pa_projects_all
4954: where project_id = p_project_id;
4955:
4956: CURSOR cur_elem_ver_seq IS
4957: SELECT pa_proj_element_versions_s.nextval
6082: --Added by rbruno bug 9544348
6083: l_actual_start_date DATE;
6084: l_actual_finish_date DATE;
6085:
6086: CURSOR cur_get_existing_task_id (c_project_id pa_projects_all.project_id%TYPE,
6087: c_pm_source_reference pa_proj_elements.pm_source_reference%TYPE) IS
6088: SELECT proj_element_id
6089: FROM pa_proj_elements pelem
6090: WHERE project_id = c_project_id
7057: --Bug 3387963 - Cursor to get destination and source project's organization id
7058: CURSOR cur_get_carrying_out_org IS
7059: SELECT old.carrying_out_organization_id,
7060: new.carrying_out_organization_id
7061: FROM pa_projects_all old,
7062: pa_projects_all new
7063: WHERE old.project_id = p_src_project_id
7064: AND new.project_id = p_dest_project_id;
7065:
7058: CURSOR cur_get_carrying_out_org IS
7059: SELECT old.carrying_out_organization_id,
7060: new.carrying_out_organization_id
7061: FROM pa_projects_all old,
7062: pa_projects_all new
7063: WHERE old.project_id = p_src_project_id
7064: AND new.project_id = p_dest_project_id;
7065:
7066: l_old_proj_org_id NUMBER;
7952: --Bug 3387963 - Cursor to get destination and source project's organization id
7953: CURSOR cur_get_carrying_out_org IS
7954: SELECT old.carrying_out_organization_id,
7955: new.carrying_out_organization_id
7956: FROM pa_projects_all old,
7957: pa_projects_all new
7958: WHERE old.project_id = p_src_project_id
7959: AND new.project_id = p_dest_project_id;
7960:
7953: CURSOR cur_get_carrying_out_org IS
7954: SELECT old.carrying_out_organization_id,
7955: new.carrying_out_organization_id
7956: FROM pa_projects_all old,
7957: pa_projects_all new
7958: WHERE old.project_id = p_src_project_id
7959: AND new.project_id = p_dest_project_id;
7960:
7961: /*Included by avaithia for Bug 3922019*/
7960:
7961: /*Included by avaithia for Bug 3922019*/
7962: CURSOR c_template_flag(l_prj_id IN NUMBER) IS
7963: SELECT template_flag
7964: FROM pa_projects_all
7965: WHERE project_id = l_prj_id ;
7966:
7967: CURSOR c_only_wp_ver_id(l_proj_id IN NUMBER) IS
7968: SELECT ppv.element_version_id
7974: AND pps.structure_type_id = pst.structure_type_id
7975: AND pst.structure_type = 'WORKPLAN'
7976: AND ppv.project_id = l_proj_id ;
7977:
7978: l_template_flag PA_PROJECTS_ALL.template_flag%TYPE ;
7979: l_only_wp_ver_id PA_PROJ_ELEMENT_VERSIONS.element_version_id%TYPE ;
7980:
7981: /*End of declaration included by avaithia for Bug 3922019*/
7982:
10323: )
10324: WHERE project_id = p_dest_project_id;
10325:
10326: --Updating Projects Dates
10327: UPDATE pa_projects_all
10328: SET ( BASELINE_START_DATE ,BASELINE_FINISH_DATE, baseline_duration, baseline_as_of_date ) =
10329: ( SELECT BASELINE_START_DATE ,BASELINE_FINISH_DATE, baseline_duration,
10330: decode( BASELINE_START_DATE, null, null, sysdate)
10331: FROM pa_proj_elements ppe, pa_proj_structure_types ppst
10339: --Get the latest published version id in the destination project
10340: l_dest_latest_pub_ver_id := PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id( p_dest_project_id, 'WORKPLAN' ) ;
10341:
10342: IF l_dest_latest_pub_ver_id IS NOT NULL THEN
10343: UPDATE pa_projects_all
10344: SET ( scheduled_START_DATE ,scheduled_FINISH_DATE, scheduled_duration, scheduled_as_of_date ) =
10345: ( SELECT SCHEDULED_START_DATE ,SCHEDULED_FINISH_DATE, duration,
10346: decode( SCHEDULED_START_DATE, null, null, sysdate )
10347: FROM pa_proj_elem_ver_schedule
10363: OPEN c_only_wp_ver_id(p_dest_project_id) ;
10364: FETCH c_only_wp_ver_id INTO l_only_wp_ver_id ;
10365: CLOSE c_only_wp_ver_id ;
10366:
10367: UPDATE pa_projects_all
10368: SET ( scheduled_START_DATE ,scheduled_FINISH_DATE, scheduled_duration, scheduled_as_of_date ) =
10369: ( SELECT SCHEDULED_START_DATE ,SCHEDULED_FINISH_DATE, duration,
10370: decode( SCHEDULED_START_DATE, null, null, sysdate )
10371: FROM pa_proj_elem_ver_schedule
10514:
10515: DECLARE
10516: CURSOR cur_get_str_shr_code IS
10517: SELECT structure_sharing_code
10518: FROM pa_projects_all
10519: WHERE project_id = p_dest_project_id;
10520:
10521: src_versions_tab SYSTEM.pa_num_tbl_type;
10522: dest_versions_tab SYSTEM.pa_num_tbl_type;
11124: l_publish_person_id NUMBER;
11125: --bug 2838547
11126:
11127: --Bug 2955589.
11128: l_structure_ver_name pa_projects_all.name%TYPE;
11129: l_working_ver_count NUMBER;
11130: l_structure_version_id pa_proj_element_versions.element_version_id%TYPE;
11131: -- The following two flags will indicate if the respective version has to be
11132: -- created when versioning is enabled and no working version exists for the
13133: -- WHERE proj_element_id = ppe.proj_element_id
13134: -- AND structure_type_id = 1 );
13135:
13136: --updating projects dates
13137: update pa_projects_all
13138: set ( BASELINE_START_DATE ,BASELINE_FINISH_DATE, baseline_duration, baseline_as_of_date) =
13139: ( SELECT BASELINE_START_DATE ,BASELINE_FINISH_DATE, baseline_duration,
13140: decode(BASELINE_START_DATE, null, null, sysdate)
13141: FROM pa_proj_elements ppe, pa_proj_structure_types ppst
13146: where project_id = p_dest_project_id;
13147:
13148: IF l_latest_pub_str_ver_id IS NOT NULL
13149: THEN
13150: update pa_projects_all
13151: set ( scheduled_START_DATE ,scheduled_FINISH_DATE, scheduled_duration, scheduled_as_of_date ) =
13152: ( SELECT SCHEDULED_START_DATE ,SCHEDULED_FINISH_DATE,duration,
13153: decode(SCHEDULED_START_DATE, null, null, sysdate)
13154: FROM pa_proj_elem_ver_schedule
13607: ( p_api_version_number IN NUMBER
13608: ,p_commit IN VARCHAR2
13609: ,p_init_msg_list IN VARCHAR2
13610: ,p_calling_module IN VARCHAR2
13611: ,p_project_id IN pa_projects_all.project_id%TYPE
13612: ,p_source_project_id IN pa_projects_all.project_id%TYPE
13613: ,p_pm_product_code IN pa_projects_all.pm_product_code%TYPE
13614: ,p_structure_type IN pa_structure_types.structure_type_class_code%TYPE
13615: ,p_tasks_in_tbl IN pa_project_pub.task_in_tbl_type
13608: ,p_commit IN VARCHAR2
13609: ,p_init_msg_list IN VARCHAR2
13610: ,p_calling_module IN VARCHAR2
13611: ,p_project_id IN pa_projects_all.project_id%TYPE
13612: ,p_source_project_id IN pa_projects_all.project_id%TYPE
13613: ,p_pm_product_code IN pa_projects_all.pm_product_code%TYPE
13614: ,p_structure_type IN pa_structure_types.structure_type_class_code%TYPE
13615: ,p_tasks_in_tbl IN pa_project_pub.task_in_tbl_type
13616: ,p_create_task_version_only IN VARCHAR2
13609: ,p_init_msg_list IN VARCHAR2
13610: ,p_calling_module IN VARCHAR2
13611: ,p_project_id IN pa_projects_all.project_id%TYPE
13612: ,p_source_project_id IN pa_projects_all.project_id%TYPE
13613: ,p_pm_product_code IN pa_projects_all.pm_product_code%TYPE
13614: ,p_structure_type IN pa_structure_types.structure_type_class_code%TYPE
13615: ,p_tasks_in_tbl IN pa_project_pub.task_in_tbl_type
13616: ,p_create_task_version_only IN VARCHAR2
13617: ,p_wp_str_exists IN VARCHAR2
13632: -- Cursors Definition
13633:
13634: -- This cursor is used to get the auto publish flag on creation for a given project_id
13635: /* Bug 2955589. This cursor is no longer used.
13636: CURSOR cur_auto_pub_flag(c_project_id pa_projects_all.project_id%TYPE)
13637: IS
13638: SELECT AUTO_PUB_UPON_CREATION_FLAG
13639: FROM pa_proj_workplan_attr
13640: WHERE project_id = c_project_id;
13639: FROM pa_proj_workplan_attr
13640: WHERE project_id = c_project_id;
13641: */
13642: -- This cursor is used to get the structure id given the structure type and project_id
13643: CURSOR get_structure(c_project_id pa_projects_all.project_id%TYPE, c_struc_type pa_structure_types.structure_type_class_code%TYPE) IS
13644: select pelem.proj_element_id
13645: from pa_proj_elements pelem,
13646: pa_proj_structure_types ppstr,
13647: pa_structure_types pstr
13659:
13660: --The following cursor will be used when the structure type is
13661: --Financial as some of the attributes have been derived and updated
13662: --in the pa_tasks table and we need to use them for structures processing.
13663: CURSOR cur_pa_tasks(c_project_id pa_projects_all.project_id%TYPE,c_task_id pa_tasks.task_id%TYPE)
13664: IS
13665: SELECT task_number, long_task_name, description,
13666: parent_task_id,carrying_out_organization_id,
13667: pm_task_reference, address_id, task_manager_person_id
13671:
13672: l_cur_pa_tasks_rec cur_pa_tasks%ROWTYPE; -- userd only for create task case
13673:
13674: --ADUT. This cursor is required to identify if the source is a project / template.
13675: Cursor cur_template_flag(c_proj_id pa_projects_all.project_id%TYPE)
13676: Is
13677: select NVL(template_flag,'N')
13678: from pa_projects
13679: where project_id = c_proj_id;
13789: l_add_task_security VARCHAR2(1);
13790: l_default_task_type_id pa_proj_elements.type_id%TYPE;
13791: l_update_task_security VARCHAR2(1);
13792: l_str_status_code pa_proj_elem_ver_structure.status_code%TYPE;
13793: l_amg_segment1 pa_projects_all.segment1%TYPE;
13794:
13795: -- Bug 3075609
13796: l_maintain_weightages VARCHAR2(1); -- We need not maintain weightages during code flow always. This var will track it.
13797: l_existing_task_set_max_wt VARCHAR2(1); -- If a task is indented/ moved under a parent with no other progressible task, this
13913: l_add_end_date SYSTEM.pa_date_tbl_type := SYSTEM.pa_date_tbl_type();
13914: l_pm_product_code SYSTEM.PA_VARCHAR2_30_TBL_TYPE := SYSTEM.PA_VARCHAR2_30_TBL_TYPE();
13915: l_add_plan_task_id NUMBER;
13916:
13917: CURSOR cur_wp_task_csr_duplicate (c_project_id pa_projects_all.project_id%TYPE,
13918: c_pm_source_reference pa_proj_elements.pm_source_reference%TYPE) IS
13919: SELECT proj_element_id
13920: FROM pa_proj_elements pelem
13921: WHERE project_id = c_project_id
14014: ),
14015: Decode(ppwa.wp_enable_version_flag, 'Y', 'PUBLISH', 'WORKING')) est_remaining_effort,
14016: Nvl(ppr.completed_percentage, ppr.eff_rollup_percent_comp) completed_percentage
14017: FROM
14018: pa_projects_all ppa,
14019: pa_proj_elements ppe,
14020: pa_proj_element_versions ppv,
14021: pa_proj_elem_ver_structure ppvs,
14022: pa_proj_workplan_attr ppwa,
14085: ),
14086: 'WORKING') etc_effort,
14087: Nvl(ppr.completed_percentage, ppr.eff_rollup_percent_comp) physical_percent_complete
14088: FROM
14089: pa_projects_all ppa,
14090: pa_proj_elements ppe,
14091: pa_proj_element_versions ppv,
14092: pa_proj_elem_ver_structure ppvs,
14093: pa_progress_rollup ppr,
14120: l_prev_percent_comp Number;
14121: l_update_task_det_flag varchar2(1);
14122:
14123: -- Bug 6717386
14124: CURSOR cur_struc_ver_wp(c_project_id pa_projects_all.project_id%TYPE, c_structure_type pa_structure_types.structure_type%TYPE)
14125: IS
14126: SELECT c.element_version_id
14127: FROM pa_proj_element_versions c, pa_structure_types a, pa_proj_structure_types b
14128: ,pa_proj_elem_ver_structure d
14723: DECLARE
14724: /* Bug 3588013 - Added the exists clause for this bug to get proj_element_id for the correct structure
14725: Task Reference should be unique with in structure.
14726: */
14727: CURSOR cur_wp_task_csr (c_project_id pa_projects_all.project_id%TYPE,
14728: c_pm_source_reference pa_proj_elements.pm_source_reference%TYPE) IS
14729: SELECT proj_element_id
14730: FROM pa_proj_elements pelem
14731: WHERE project_id = c_project_id
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
18224: ,p_pub_prog_flag IN VARCHAR2 := 'Y' --bug 4019845
18225: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
18229:
18230: -- Cursors used in this Procedure.
18231:
18232: -- This cursor obtains the count of the task versions in the structure version.
18233: CURSOR cur_task_count(c_project_id pa_projects_all.project_id%TYPE,
18234: c_structure_version_id pa_proj_element_versions.element_version_id%TYPE)
18235: IS
18236: Select count(element_version_id)
18237: From pa_proj_element_versions
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
18485: ,p_pub_prog_flag IN VARCHAR2 := 'Y' --bug 4019845
18486: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
18492:
18493: -- This cursor is used to decide if the structure version corresponds to a particular
18494: -- Structure type. Depending on this the plannable tasks api and the task weightage calculation
18495: -- api will be called.
18496: Cursor cur_structure_type(c_project_id pa_projects_all.project_id%TYPE,
18497: c_structure_version_id pa_proj_element_versions.element_version_id%TYPE,
18498: c_structure_type pa_structure_types.structure_type%TYPE)
18499: IS
18500: select 'Y'
18548:
18549: Cursor cur_proj_ou
18550: IS
18551: select org_id
18552: from pa_projects_all
18553: where project_id = p_project_id;
18554:
18555: l_org_id NUMBER;
18556:
18848: PROCEDURE PROCESS_WBS_UPDATES_CONC
18849: ( errbuf OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
18850: ,retcode OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
18851: ,p_calling_context IN VARCHAR2 := 'UPDATE'
18852: ,p_project_id IN pa_projects_all.project_id%TYPE
18853: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
18854: ,p_pub_struc_ver_id IN NUMBER := NULL
18855: ,p_pub_prog_flag IN VARCHAR2 := 'Y' --bug 4019845
18856: ,p_rerun_flag IN VARCHAR2 := null --bug 4589289
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
19236: ,p_pub_prog_flag IN VARCHAR2 := 'Y' --bug 4019845
19237: ,p_rerun_flag IN VARCHAR2 := null --bug 4589289
19244:
19245: -- This cursor is used to decide if the structure version corresponds to a particular
19246: -- Structure type. Depending on this the plannable tasks api and the task weightage calculation
19247: -- api will be called.
19248: CURSOR cur_structure_type(c_project_id pa_projects_all.project_id%TYPE,
19249: c_structure_version_id pa_proj_element_versions.element_version_id%TYPE,
19250: c_structure_type pa_structure_types.structure_type%TYPE)
19251: IS
19252: SELECT 'Y'
19304:
19305: CURSOR get_proj_rec_ver_number(c_project_id NUMBER)
19306: IS
19307: SELECT record_version_number
19308: FROM pa_projects_all
19309: WHERE project_id = c_project_id;
19310:
19311: CURSOR get_struc_id(c_project_id NUMBER, c_struc_ver_id NUMBER) IS
19312: select pevs.proj_element_id
20035: IF (l_financial_type = 'Y') THEN
20036:
20037: SELECT start_date, completion_date
20038: INTO l_proj_start_date, l_proj_completion_date
20039: FROM pa_projects_all
20040: WHERE project_id = l_project_id;
20041:
20042: --Call sync-up API
20043:
21135: ( p_api_version_number IN NUMBER
21136: ,p_commit IN VARCHAR2
21137: ,p_init_msg_list IN VARCHAR2
21138: ,p_calling_context IN VARCHAR2
21139: ,p_project_id IN pa_projects_all.project_id%TYPE
21140: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
21141: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
21142: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
21143: ,x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
21185: -- Cursor Declarations.
21186: -- This cursor fetches the duration, effort, relationship id between the task and its parent
21187: -- and progress entry enable flag for the task type associated with the task version. This
21188: -- info is necessary for calculating the task weightage of the tasks.
21189: CURSOR cur_task_info(c_project_id pa_projects_all.project_id%TYPE,
21190: c_structure_version_id pa_proj_element_versions.element_version_id%TYPE
21191: ,c_plan_version_id NUMBER --bug 4726889
21192: )
21193: IS
21226: ;
21227:
21228: -- TWUT
21229: -- This cursor is when fetched will lock all the task versions of the structure version.
21230: CURSOR cur_task_ver_lock(c_project_id pa_projects_all.project_id%TYPE,
21231: c_structure_version_id pa_proj_element_versions.element_version_id%TYPE)
21232: IS
21233: select 'X'
21234: from pa_proj_element_versions ver,
21680: ( p_api_version_number IN NUMBER
21681: ,p_commit IN VARCHAR2
21682: ,p_init_msg_list IN VARCHAR2
21683: ,p_calling_context IN VARCHAR2
21684: ,p_project_id IN pa_projects_all.project_id%TYPE
21685: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
21686: ,p_update_wbs_flag IN pa_proj_elem_ver_structure.process_update_wbs_flag%TYPE
21687: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
21688: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
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
21829: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
21830: ,p_pub_struc_ver_id IN NUMBER := NULL
21831: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
21832: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
22583: ) RETURN VARCHAR2
22584: IS
22585: Cursor get_proj_share_type
22586: IS
22587: SELECT proj.structure_sharing_code FROM pa_projects_all proj where proj.project_id = P_Project_ID;
22588:
22589: l_share_code VARCHAR2(250);
22590:
22591: Begin