[Home] [Help]
89: -- pji_pjp_rbs_header rhd,
90: pa_budget_versions bv,
91: pa_proj_fp_options fpo,
92: -- pji_pa_proj_events_log pel,
93: pa_projects_all ppa,
94: pa_rbs_versions_b rvb --Added for bug#5728852
95: WHERE 1=1
96: AND ppa.project_id = map.project_id
97: AND bv.version_type is not NULL -- COST, REVENUE, etc. Should not be null.
222: , last_updated_by, creation_date, created_by, last_update_login, attribute1, attribute2)
223: SELECT 'STRUCT_CHANGE',pa_pji_proj_events_log_s.NEXTVAL,'-99','X','X',SYSDATE,
224: Fnd_Global.USER_ID,SYSDATE,Fnd_Global.USER_ID,Fnd_Global.LOGIN_ID,p_wbs_version_id_tbl(l_i),'N'
225: FROM dual WHERE exists (
226: SELECT ppa.project_id from PA_PROJECTS_ALL ppa, PA_PROJ_ELEM_VER_STRUCTURE ppevs WHERE
227: ppa.project_id = ppevs.project_id AND
228: ppevs.ELEMENT_VERSION_ID = p_wbs_version_id_tbl(l_i) AND
229: ppa.template_flag <> 'Y'
230: )
249: select /*+ ordered */ -- bug 13109678 : removed index hint
250: distinct(prg.SUP_ID) SUP_ID
251: from
252: PJI_XBS_DENORM prg,
253: PA_PROJECTS_ALL prj
254: where
255: prg.STRUCT_VERSION_ID is null and
256: prg.SUB_ID = p_wbs_version_id_tbl(l_i) and
257: prg.SUP_PROJECT_ID = prj.PROJECT_ID and
340: if ( p_element_version_id is not null ) then -- Bug 16507592
341:
342: select nvl(p.pjt_rollup_enabled_flag,'N'), p.cbs_enable_flag, ver.proj_element_id -- SCOPE_00 Get cbs_enabled_flag
343: into l_pjt_rollup_flag, l_cbs_enabled_flag, l_new_elem_id
344: from pa_projects_all p , PA_PROJ_ELEMENT_VERSIONS ver
345: where p.project_id = p_project_id and p.project_id = ver.project_id
346: and ver.element_version_id = p_element_version_id ;
347:
348: l_struct_ver_id := p_element_version_id; -- Bug 16507592
350: else -- Bug 16507592 START
351:
352: /*select nvl(p.pjt_rollup_enabled_flag,'N'), s.proj_element_id , s.element_version_id
353: into l_pjt_rollup_flag, l_new_elem_id , l_struct_ver_id
354: from pa_projects_all p , pa_proj_elem_ver_structure s, pa_proj_structure_types ppst, pa_structure_types pst
355: where p.project_id = p_project_id
356: and s.project_id = p.project_id
357: and s.proj_element_id = ppst.proj_element_id
358: and ppst.structure_type_id = pst.structure_type_id
911: -- OLAP START V2
912:
913: select p.pjt_rollup_enabled_flag
914: into l_pjt_rollup_enabled_flag
915: from pa_projects_all p
916: where p_project_id = p.project_id ;
917:
918:
919:
1177:
1178: SELECT org.gl_calendar_id,org.pa_calendar_id
1179: INTO l_gl_calendar_id, l_pa_calendar_id
1180: FROM
1181: pa_projects_all projects,
1182: pji_org_extr_info org
1183: /* WHERE NVL(projects.org_id,-99) = NVL(org.org_id,-99) -- Added NVL for bug 3989132 */
1184: WHERE projects.org_id = org.org_id -- Removed NVL for Bug5376591
1185: AND projects.project_id = p_project_id;
1592: -- IF g_project_id <> p_project_id THEN
1593: /*
1594: ** Following are the defaulting rules:
1595: ** currency rec type: always project currency (8).
1596: ** currency code: derive project currency code from pa_projects_all.
1597: ** currency_type: always project currency 'P'.
1598: */
1599: Derive_Project_Attributes(p_project_id, x_return_status, x_msg_count, x_msg_data);
1600: -- END IF;
1835: , g_projfunc_currency_code
1836: , g_prg_flag
1837: , g_gl_calendar_id
1838: , g_pa_calendar_id
1839: FROM pa_projects_all prj
1840: , pji_org_extr_info info
1841: WHERE project_id = p_project_id
1842: /* AND NVL(info.org_id,-99) = NVL(prj.org_id,-99); -- Added NVL for bug 3989132 */
1843: AND info.org_id = prj.org_id; -- Removed NVL for Bug5376591
2077: /*added below as part of 16507592*/
2078: SELECT wbs_version_id into x_wbs_version_id
2079: FROM
2080: (SELECT hdr.wbs_version_id
2081: FROM pa_projects_all p ,
2082: pji_pjp_wbs_header hdr
2083: WHERE p.project_id = p_project_id and
2084: hdr.project_id = p.project_id
2085: AND hdr.plan_version_id = p_plan_version_id
2085: AND hdr.plan_version_id = p_plan_version_id
2086: AND NVL(p.pjt_rollup_enabled_flag,0) = 'N'
2087: UNION ALL
2088: SELECT pa_project_structure_utils.GET_FIN_STRUC_VER_ID(p_project_id)
2089: FROM pa_projects_all p ,
2090: pa_budget_versions b
2091: WHERE p.project_id = p_project_id
2092: AND b.project_id = p.project_id
2093: AND b.budget_version_id = p_plan_version_id
2094: AND fin_plan_type_id <> 10
2095: AND NVL(p.pjt_rollup_enabled_flag,0) = 'Y'
2096: UNION ALL
2097: SELECT b.project_structure_version_id
2098: FROM pa_projects_all p ,
2099: pa_budget_versions b
2100: WHERE p.project_id = p_project_id
2101: AND b.project_id = p.project_id
2102: AND b.budget_version_id = p_plan_version_id
2224: END IF;
2225:
2226: SELECT start_date,NVL(completion_date,TRUNC(SYSDATE))
2227: INTO l_start_date, l_end_date
2228: FROM pa_projects_all
2229: WHERE project_id = p_project_id;
2230:
2231: IF p_calendar_id = -1 THEN
2232:
2738: x_calendar_id := -1;
2739: ELSE
2740: SELECT info.gl_calendar_id, info.pa_calendar_id
2741: INTO l_gl_calendar_id, l_pa_calendar_id
2742: FROM pji_org_extr_info info, pa_projects_all proj
2743: WHERE info.org_id = proj.org_id
2744: AND proj.project_id = p_project_id;
2745:
2746: IF p_calendar_type = 'G' THEN
2756: */
2757: /* Added for bug 12420222 */
2758: select same_pa_gl_period into l_same_pa_gl_period
2759: from pa_implementations_all where org_id =
2760: (select org_id from pa_projects_all where project_id = p_project_id);
2761: /* Added for bug 12420222 */
2762:
2763: Derive_Slice_Name(p_project_id,
2764: x_calendar_id,
2799: params.value
2800: INTO l_specific_pa_period, l_specific_gl_period, l_specific_ent_period
2801: FROM pji_org_extr_info info,
2802: pji_system_parameters params,
2803: pa_projects_all proj
2804: WHERE proj.project_id = p_project_id
2805: AND info.org_id = proj.org_id
2806: AND params.name = 'PJI_PJP_ENT_CURR_REP_PERIOD';
2807:
3008:
3009: FUNCTION get_work_plan_actual_version(p_project_id NUMBER
3010: ) RETURN NUMBER
3011: IS
3012: l_struct_sharing_code pa_projects_all.STRUCTURE_SHARING_CODE%TYPE;
3013: BEGIN
3014:
3015: IF g_debug_mode = 'Y' THEN
3016: Pji_Utils.WRITE2LOG( 'get_work_plan_actual_version: begining', TRUE , g_proc);
3744: END IF;
3745:
3746: SELECT DISTINCT UPPER(t.project_type_class_code)
3747: INTO x_project_type
3748: FROM pa_projects_all p
3749: , pa_project_types_all t
3750: WHERE 1=1
3751: AND p.project_id = p_project_Id
3752: AND p.project_type = t.project_type
3874: FROM dual;
3875:
3876: SELECT org_id
3877: INTO l_project_org
3878: FROM pa_projects_all
3879: WHERE project_id = p_project_id;
3880:
3881: IF l_env_org = l_project_org THEN
3882: x_cross_org_flag := 'F';
3902: This is a wrapper API which does the consistency check
3903: for program in workplan context.
3904: */
3905: PROCEDURE CHECK_WP_PARAM_CONSISTENCY
3906: ( p_project_id IN pa_projects_all.project_id%TYPE
3907: ,p_wbs_version_id IN pji_xbs_denorm.sup_project_id%TYPE
3908: ,p_margin_code IN pa_proj_fp_options.margin_derived_from_code%TYPE
3909: ,p_published_flag IN VARCHAR2
3910: ,p_calendar_type IN pji_fp_xbs_accum_f.calendar_type%TYPE
3907: ,p_wbs_version_id IN pji_xbs_denorm.sup_project_id%TYPE
3908: ,p_margin_code IN pa_proj_fp_options.margin_derived_from_code%TYPE
3909: ,p_published_flag IN VARCHAR2
3910: ,p_calendar_type IN pji_fp_xbs_accum_f.calendar_type%TYPE
3911: ,p_calendar_id IN pa_projects_all.calendar_id%TYPE
3912: ,p_rbs_version_id IN pa_proj_fp_options.rbs_version_id%TYPE
3913: ,x_pc_flag OUT NOCOPY VARCHAR2
3914: ,x_pfc_flag OUT NOCOPY VARCHAR2
3915: ,x_margin_flag OUT NOCOPY VARCHAR2
4045: check if all the projects in the program hierarchy contain
4046: the same project and project functional currency.
4047: */
4048: PROCEDURE CHECK_WP_CURRENCY_CONSISTENCY
4049: ( p_project_id IN pa_projects_all.project_id%TYPE
4050: ,p_wbs_version_id IN pji_xbs_denorm.sup_project_id%TYPE
4051: ,x_pc_flag OUT NOCOPY VARCHAR2
4052: ,x_pfc_flag OUT NOCOPY VARCHAR2
4053: ,x_return_status OUT NOCOPY VARCHAR2
4054: ,x_msg_count OUT NOCOPY NUMBER
4055: ,x_msg_data OUT NOCOPY VARCHAR2)
4056: AS
4057:
4058: CURSOR get_proj_currency_details(c_project_id pa_projects_all.project_id%TYPE)
4059: IS
4060: SELECT project_currency_code,projfunc_currency_code
4061: FROM pa_projects_all
4062: WHERE project_id = c_project_id;
4057:
4058: CURSOR get_proj_currency_details(c_project_id pa_projects_all.project_id%TYPE)
4059: IS
4060: SELECT project_currency_code,projfunc_currency_code
4061: FROM pa_projects_all
4062: WHERE project_id = c_project_id;
4063:
4064: CURSOR check_project_currency(c_project_id pa_projects_all.project_id%TYPE,
4065: c_wbs_version_id pji_xbs_denorm.sup_project_id%TYPE,
4060: SELECT project_currency_code,projfunc_currency_code
4061: FROM pa_projects_all
4062: WHERE project_id = c_project_id;
4063:
4064: CURSOR check_project_currency(c_project_id pa_projects_all.project_id%TYPE,
4065: c_wbs_version_id pji_xbs_denorm.sup_project_id%TYPE,
4066: c_currency_code pa_projects_all.project_currency_code%TYPE)
4067: IS
4068: SELECT 1
4062: WHERE project_id = c_project_id;
4063:
4064: CURSOR check_project_currency(c_project_id pa_projects_all.project_id%TYPE,
4065: c_wbs_version_id pji_xbs_denorm.sup_project_id%TYPE,
4066: c_currency_code pa_projects_all.project_currency_code%TYPE)
4067: IS
4068: SELECT 1
4069: FROM pji_xbs_denorm denorm,
4070: pa_proj_elements ele,
4067: IS
4068: SELECT 1
4069: FROM pji_xbs_denorm denorm,
4070: pa_proj_elements ele,
4071: pa_projects_all proj
4072: WHERE denorm.sup_project_id = c_project_id
4073: AND denorm.sup_id = c_wbs_version_id
4074: AND denorm.struct_type = 'PRG'
4075: AND denorm.struct_version_id IS NULL
4076: AND denorm.sub_emt_id = ele.proj_element_id
4077: AND ele.project_id = proj.project_id
4078: AND proj.project_currency_code <> c_currency_code;
4079:
4080: CURSOR check_projfunc_currency(c_project_id pa_projects_all.project_id%TYPE,
4081: c_wbs_version_id pji_xbs_denorm.sup_project_id%TYPE,
4082: c_currency_code pa_projects_all.project_currency_code%TYPE)
4083: IS
4084: SELECT 1
4078: AND proj.project_currency_code <> c_currency_code;
4079:
4080: CURSOR check_projfunc_currency(c_project_id pa_projects_all.project_id%TYPE,
4081: c_wbs_version_id pji_xbs_denorm.sup_project_id%TYPE,
4082: c_currency_code pa_projects_all.project_currency_code%TYPE)
4083: IS
4084: SELECT 1
4085: FROM pji_xbs_denorm denorm,
4086: pa_proj_elements ele,
4083: IS
4084: SELECT 1
4085: FROM pji_xbs_denorm denorm,
4086: pa_proj_elements ele,
4087: pa_projects_all proj
4088: WHERE denorm.sup_project_id = c_project_id
4089: AND denorm.sup_id = c_wbs_version_id
4090: AND denorm.struct_type = 'PRG'
4091: AND denorm.struct_version_id IS NULL
4105: l_debug_level5 CONSTANT NUMBER := 5;
4106:
4107: l_module_name VARCHAR2(100) := 'pa.plsql.CHECK_WP_CURRENCY_CONSISTENCY';
4108:
4109: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
4110: l_projfunc_currency_code pa_projects_all.projfunc_currency_code%TYPE;
4111: l_dummy NUMBER;
4112:
4113: BEGIN
4106:
4107: l_module_name VARCHAR2(100) := 'pa.plsql.CHECK_WP_CURRENCY_CONSISTENCY';
4108:
4109: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
4110: l_projfunc_currency_code pa_projects_all.projfunc_currency_code%TYPE;
4111: l_dummy NUMBER;
4112:
4113: BEGIN
4114: x_msg_count := 0;
4175: check if all the linked structure versions in the
4176: program hierarchy have the same margin mask.
4177: */
4178: PROCEDURE CHECK_WP_MARGIN_CONSISTENCY
4179: ( p_project_id IN pa_projects_all.project_id%TYPE
4180: ,p_wbs_version_id IN pji_xbs_denorm.sup_project_id%TYPE
4181: ,p_margin_code IN pa_proj_fp_options.margin_derived_from_code%TYPE
4182: ,x_margin_flag OUT NOCOPY VARCHAR2
4183: ,x_return_status OUT NOCOPY VARCHAR2
4184: ,x_msg_count OUT NOCOPY NUMBER
4185: ,x_msg_data OUT NOCOPY VARCHAR2)
4186: AS
4187:
4188: CURSOR check_margin_mask(c_project_id pa_projects_all.project_id%TYPE,
4189: c_wbs_version_id pji_xbs_denorm.sup_project_id%TYPE,
4190: c_margin_code pa_proj_fp_options.margin_derived_from_code%TYPE)
4191: IS
4192: SELECT 1
4272: have the same status. ie published/not published.
4273: */
4274:
4275: PROCEDURE CHECK_WP_STATUS_CONSISTENCY
4276: ( p_project_id IN pa_projects_all.project_id%TYPE
4277: ,p_wbs_version_id IN pji_xbs_denorm.sup_project_id%TYPE
4278: ,p_published_flag IN VARCHAR2
4279: ,x_workpub_flag OUT NOCOPY VARCHAR2
4280: ,x_return_status OUT NOCOPY VARCHAR2
4281: ,x_msg_count OUT NOCOPY NUMBER
4282: ,x_msg_data OUT NOCOPY VARCHAR2)
4283: AS
4284:
4285: CURSOR check_published_flag(c_project_id pa_projects_all.project_id%TYPE,
4286: c_wbs_version_id pji_xbs_denorm.sup_project_id%TYPE,
4287: c_published_flag VARCHAR2)
4288: IS
4289: SELECT 1
4365: check if all the structure versions in the program hierarchy have
4366: same time phasing.
4367: */
4368: PROCEDURE CHECK_WP_TIME_CONSISTENCY
4369: ( p_project_id IN pa_projects_all.project_id%TYPE
4370: ,p_wbs_version_id IN pji_xbs_denorm.sup_project_id%TYPE
4371: ,p_calendar_type IN pji_fp_xbs_accum_f.calendar_type%TYPE
4372: ,p_calendar_id IN pa_projects_all.calendar_id%TYPE
4373: ,x_time_phase_flag OUT NOCOPY VARCHAR2
4368: PROCEDURE CHECK_WP_TIME_CONSISTENCY
4369: ( p_project_id IN pa_projects_all.project_id%TYPE
4370: ,p_wbs_version_id IN pji_xbs_denorm.sup_project_id%TYPE
4371: ,p_calendar_type IN pji_fp_xbs_accum_f.calendar_type%TYPE
4372: ,p_calendar_id IN pa_projects_all.calendar_id%TYPE
4373: ,x_time_phase_flag OUT NOCOPY VARCHAR2
4374: ,x_return_status OUT NOCOPY VARCHAR2
4375: ,x_msg_count OUT NOCOPY NUMBER
4376: ,x_msg_data OUT NOCOPY VARCHAR2)
4376: ,x_msg_data OUT NOCOPY VARCHAR2)
4377: AS
4378:
4379:
4380: CURSOR get_pgm_ver_details(c_project_id pa_projects_all.project_id%TYPE,
4381: c_wbs_version_id pji_xbs_denorm.sup_project_id%TYPE)
4382: IS
4383: SELECT header.project_id, header.plan_version_id
4384: FROM pji_xbs_denorm denorm,
4403: l_debug_level5 CONSTANT NUMBER := 5;
4404:
4405: l_module_name VARCHAR2(100) := 'pa.plsql.CHECK_WP_TIME_CONSISTENCY';
4406:
4407: l_calendar_id pa_projects_all.calendar_id%TYPE;
4408: l_calendar_type pji_fp_xbs_accum_f.calendar_type%TYPE;
4409:
4410: BEGIN
4411: x_msg_count := 0;
4472: check if all the structure versions in the program hierarchy have
4473: the same RBS.
4474: */
4475: PROCEDURE CHECK_WP_RBS_CONSISTENCY
4476: ( p_project_id IN pa_projects_all.project_id%TYPE
4477: ,p_wbs_version_id IN pji_xbs_denorm.sup_project_id%TYPE
4478: ,p_rbs_version_id IN pa_proj_fp_options.rbs_version_id%TYPE
4479: ,x_rbs_flag OUT NOCOPY VARCHAR2
4480: ,x_return_status OUT NOCOPY VARCHAR2
4481: ,x_msg_count OUT NOCOPY NUMBER
4482: ,x_msg_data OUT NOCOPY VARCHAR2)
4483: AS
4484:
4485: CURSOR check_rbs_flag(c_project_id pa_projects_all.project_id%TYPE,
4486: c_wbs_version_id pji_xbs_denorm.sup_project_id%TYPE,
4487: c_rbs_version_id pa_proj_fp_options.rbs_version_id%TYPE)
4488: IS
4489: SELECT 1
4564: RAISE;
4565: END CHECK_WP_RBS_CONSISTENCY;
4566:
4567: FUNCTION GET_WP_BASELINED_PLAN_VERSION
4568: ( p_project_id IN pa_projects_all.project_id%TYPE)
4569: RETURN NUMBER
4570: IS
4571: CURSOR get_baselined_version(c_project_id pa_projects_all.project_id%TYPE)
4572: IS
4567: FUNCTION GET_WP_BASELINED_PLAN_VERSION
4568: ( p_project_id IN pa_projects_all.project_id%TYPE)
4569: RETURN NUMBER
4570: IS
4571: CURSOR get_baselined_version(c_project_id pa_projects_all.project_id%TYPE)
4572: IS
4573: SELECT header.plan_version_id
4574: FROM pa_proj_elem_ver_structure str,
4575: pji_pjp_wbs_header header
4591: RETURN NULL;
4592: END;
4593:
4594: FUNCTION GET_WP_LATEST_VERSION
4595: ( p_project_id IN pa_projects_all.project_id%TYPE)
4596: RETURN NUMBER
4597: IS
4598: CURSOR get_latest_published_version(c_project_id pa_projects_all.project_id%TYPE)
4599: IS
4594: FUNCTION GET_WP_LATEST_VERSION
4595: ( p_project_id IN pa_projects_all.project_id%TYPE)
4596: RETURN NUMBER
4597: IS
4598: CURSOR get_latest_published_version(c_project_id pa_projects_all.project_id%TYPE)
4599: IS
4600: SELECT header.plan_version_id
4601: FROM pa_proj_elem_ver_structure str,
4602: pji_pjp_wbs_header header
4618: RETURN NULL;
4619: END;
4620:
4621: FUNCTION GET_DEFAULT_EXPANSION_LEVEL
4622: ( p_project_id IN pa_projects_all.project_id%TYPE
4623: ,p_object_type IN VARCHAR2)
4624: RETURN NUMBER
4625: IS
4626: CURSOR get_wp_default_disp_lvl(c_project_id pa_projects_all.project_id%TYPE)
4622: ( p_project_id IN pa_projects_all.project_id%TYPE
4623: ,p_object_type IN VARCHAR2)
4624: RETURN NUMBER
4625: IS
4626: CURSOR get_wp_default_disp_lvl(c_project_id pa_projects_all.project_id%TYPE)
4627: IS
4628: SELECT wp_default_display_lvl
4629: FROM pa_workplan_options_v
4630: WHERE PROJECT_ID = c_project_id;
4628: SELECT wp_default_display_lvl
4629: FROM pa_workplan_options_v
4630: WHERE PROJECT_ID = c_project_id;
4631:
4632: CURSOR get_fp_default_disp_lvl(c_project_id pa_projects_all.project_id%TYPE)
4633: IS
4634: SELECT default_display_lvl
4635: FROM pa_financial_options_v
4636: WHERE PROJECT_ID = c_project_id;
5147: * have the same GL or same PA calendar or not. If GL calendar is same then x_gl_flag
5148: * will return 'T' else 'F'. This logic is true for PA calendar also.
5149: */
5150: PROCEDURE Check_Perf_Cal_Consistency(
5151: p_project_id IN pa_projects_all.project_id%TYPE
5152: ,p_wbs_version_id IN pji_xbs_denorm.sup_project_id%TYPE
5153: ,x_gl_flag OUT NOCOPY VARCHAR2
5154: ,x_pa_flag OUT NOCOPY VARCHAR2
5155: ,x_return_status OUT NOCOPY VARCHAR2
5189: l_num_of_pa_cal
5190: FROM
5191: pji_xbs_denorm denorm
5192: , pa_proj_elements elem
5193: , pa_projects_all proj
5194: , pji_org_extr_info info
5195: WHERE 1=1
5196: AND denorm.sup_project_id = p_project_id -- project_id
5197: AND denorm.sup_id = p_wbs_version_id -- wbs_version_id
5243: * have the same Project Functional Currency (PFC) or not. If PFC is same then x_pfc_flag
5244: * will return 'T' else 'F'.
5245: */
5246: PROCEDURE Check_Perf_Curr_Consistency(
5247: p_project_id IN pa_projects_all.project_id%TYPE
5248: ,p_wbs_version_id IN pji_xbs_denorm.sup_project_id%TYPE
5249: ,x_pfc_flag OUT NOCOPY VARCHAR2
5250: ,x_return_status OUT NOCOPY VARCHAR2
5251: ,x_msg_count OUT NOCOPY NUMBER
5280: INTO l_num_of_projfunc_curr
5281: FROM
5282: pji_xbs_denorm denorm
5283: , pa_proj_elements elem
5284: , pa_projects_all proj
5285: WHERE 1=1
5286: AND denorm.sup_project_id = p_project_id -- project_id
5287: AND denorm.sup_id = p_wbs_version_id -- wbs_version_id
5288: AND denorm.struct_type = 'PRG'
5410: -- OLAP START
5411:
5412: select p.pjt_rollup_enabled_flag
5413: into l_pjt_rollup_enabled_flag
5414: from pa_projects_all p
5415: where p.project_id = p_project_id ;
5416: --16672616
5417:
5418:
5789: NULL;
5790: END Chk_plan_vers_have_same_RBS;
5791:
5792: PROCEDURE GET_PROCESS_STATUS_MSG(
5793: p_project_id IN pa_projects_all.project_id%TYPE
5794: , p_structure_type IN pa_structure_types.structure_type%TYPE := NULL
5795: , p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE := NULL
5796: , p_prg_flag IN VARCHAR2 := NULL
5797: , x_message_name OUT NOCOPY VARCHAR2
5814: AND denorm.sup_id = c_structure_version_id
5815: AND denorm.sub_id = vs.element_version_id;
5816:
5817: l_relationship_type VARCHAR2(2);
5818: l_project_id pa_projects_all.project_id%TYPE;
5819: l_structure_version_id pa_proj_element_versions.element_version_id%TYPE;
5820:
5821: BEGIN
5822:
5911: SELECT COUNT(DISTINCT UPPER(pt.project_type_class_code))
5912: INTO l_proj_type_count
5913: FROM pji_xbs_denorm denorm
5914: ,pa_proj_elem_ver_structure vs
5915: ,pa_projects_all proj
5916: ,pa_project_types_all pt
5917: WHERE struct_type = 'PRG'
5918: AND sup_project_id = p_project_id
5919: AND struct_version_id IS NULL
5973: END IF;
5974:
5975: SELECT info.gl_calendar_id, info.pa_calendar_id
5976: INTO l_gl_calendar_id, l_pa_calendar_id
5977: FROM pji_org_extr_info info, pa_projects_all proj
5978: WHERE info.org_id = proj.org_id
5979: AND proj.project_id = p_project_id;
5980:
5981: IF x_calendar_type IS NULL THEN
6077: x_currency_code := Pji_Utils.get_global_secondary_currency;
6078: ELSE
6079: SELECT projfunc_currency_code, project_currency_code
6080: INTO l_projfunc_currency_code,l_project_currency_code
6081: FROM pa_projects_all
6082: WHERE project_id = p_project_id;
6083:
6084: IF p_currency_record_type = 4 THEN
6085: x_currency_code := l_projfunc_currency_code;
6323:
6324: SELECT Sum(brdn_cost) LATEST_PUBLISHED_COST
6325:
6326: FROM pji_fp_xbs_accum_f f,
6327: pa_projects_all p,
6328: pa_rbs_prj_assignments r,
6329: pa_proj_elem_ver_structure s,
6330: pa_proj_element_versions ppev,
6331: pji_pjp_wbs_header h
6379:
6380: SELECT Sum(f.brdn_cost) BASELINE_COST
6381: FROM
6382: pji_fp_xbs_accum_f f,
6383: pa_projects_all p,
6384: PA_PROJ_ELEM_VER_STRUCTURE ppev,
6385: pji_pjp_wbs_header h
6386: WHERE
6387: p.project_id = p_project_id AND
6435:
6436: SELECT CBS_VERSION_ID
6437: INTO x_cbs_version_id
6438: FROM
6439: PA_PROJECTS_ALL
6440: WHERE project_id=p_project_id;
6441:
6442: IF x_cbs_version_id IS NULL THEN
6443: RAISE NO_DATA_FOUND;