[Home] [Help]
32: g_global_calendar_id NUMBER :=-99;
33: g_input_calendar_type VARCHAR2(1) :=' ';
34: g_input_calendar_id NUMBER := -99;
35:
36: g_debug_mode VARCHAR2(1) := NVL(Fnd_Profile.value('PA_DEBUG_MODE'),'N');
37: g_proc NUMBER :=5;
38:
39: procedure olap_denorm_create (
40: p_element_version_id number ,
1029: /*
1030: SELECT calendar_id
1031: INTO g_global_calendar_id
1032: FROM fii_time_cal_name
1033: WHERE period_set_name = Fnd_Profile.VALUE( 'BIS_ENTERPRISE_CALENDAR' )
1034: AND period_type = Fnd_Profile.VALUE( 'BIS_PERIOD_TYPE' );
1035: */
1036: --Bug 5593229
1037: -- x_calendar_type := g_global_calendar_type;
1030: SELECT calendar_id
1031: INTO g_global_calendar_id
1032: FROM fii_time_cal_name
1033: WHERE period_set_name = Fnd_Profile.VALUE( 'BIS_ENTERPRISE_CALENDAR' )
1034: AND period_type = Fnd_Profile.VALUE( 'BIS_PERIOD_TYPE' );
1035: */
1036: --Bug 5593229
1037: -- x_calendar_type := g_global_calendar_type;
1038:
1039: --Bug 9048624
1040: l_tp_flag := PJI_UTILS.get_setup_parameter('TIME_PHASE_FLAG');
1041:
1042: if(l_tp_flag = 'N') then
1043: x_calendar_type := NVL(Fnd_Profile.value('PJI_DEF_RPT_CAL_TYPE'), 'E');
1044: else
1045: SELECT Min(calendar_type) into x_calendar_type
1046: FROM pji_fp_xbs_accum_f WHERE project_id = p_project_id
1047: and plan_version_id <> -1 and calendar_type <> 'A';
1049: -- which was there before data processing control was implemented.
1050: -- x_calendar_type will be null for the case when the budgets are defined with time_phased_code
1051: -- as N.
1052: If x_calendar_type is null then
1053: x_calendar_type := NVL(Fnd_Profile.value('PJI_DEF_RPT_CAL_TYPE'), 'E');
1054: end if;
1055: -- End Bug 12708882
1056: end if;
1057: --Bug 9048624
1654: x_currency_type:='G';
1655: x_currency_code:=Pji_Utils.get_global_primary_currency;
1656: */
1657:
1658: IF (Fnd_Profile.value('PJI_DEF_RPT_CUR_TYPE') = 'GLOBAL_CURRENCY') THEN
1659: IF pji_utils.get_setup_parameter('GLOBAL_CURR1_FLAG') = 'Y' THEN --Bug 9067029
1660: x_currency_record_type:= 1;
1661: x_currency_type:= 'G';
1662: x_currency_code:= Pji_Utils.get_global_primary_currency;
1664: x_currency_record_type:= 4;
1665: x_currency_type:= 'F';
1666: x_currency_code := g_projfunc_currency_code;
1667: END IF;
1668: ELSIF (Fnd_Profile.value('PJI_DEF_RPT_CUR_TYPE') = 'SEC_GLOBAL_CURRENCY') THEN
1669: IF pji_utils.get_setup_parameter('GLOBAL_CURR2_FLAG') = 'Y' THEN --Bug 9067029
1670: x_currency_record_type:= 2;
1671: x_currency_type:= 'G';
1672: x_currency_code:= Pji_Utils.get_global_secondary_currency;
1674: x_currency_record_type:= 4;
1675: x_currency_type:= 'F';
1676: x_currency_code := g_projfunc_currency_code;
1677: END IF;
1678: ELSIF (Fnd_Profile.value('PJI_DEF_RPT_CUR_TYPE') = 'PROJ_CURRENCY') THEN
1679: x_currency_record_type:= 8;
1680: x_currency_type:= 'P';
1681: x_currency_code:= g_proj_currency_code;
1682: ELSE
3935:
3936: BEGIN
3937: x_msg_count := 0;
3938: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3939: l_debug_mode := NVL(Fnd_Profile.value('PA_DEBUG_MODE'),'N');
3940:
3941: IF l_debug_mode = 'Y' THEN
3942: Pa_Debug.set_curr_function( p_function => 'CHECK_WP_PARAM_CONSISTENCY',
3943: p_debug_mode => l_debug_mode );
4112:
4113: BEGIN
4114: x_msg_count := 0;
4115: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4116: l_debug_mode := NVL(Fnd_Profile.value('PA_DEBUG_MODE'),'N');
4117:
4118: IF l_debug_mode = 'Y' THEN
4119: Pa_Debug.set_curr_function( p_function => 'CHECK_WP_CURRENCY_CONSISTENCY',
4120: p_debug_mode => l_debug_mode );
4220:
4221: BEGIN
4222: x_msg_count := 0;
4223: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4224: l_debug_mode := NVL(Fnd_Profile.value('PA_DEBUG_MODE'),'N');
4225:
4226: IF l_debug_mode = 'Y' THEN
4227: Pa_Debug.set_curr_function( p_function => 'CHECK_WP_MARGIN_CONSISTENCY',
4228: p_debug_mode => l_debug_mode );
4313:
4314: BEGIN
4315: x_msg_count := 0;
4316: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4317: l_debug_mode := NVL(Fnd_Profile.value('PA_DEBUG_MODE'),'N');
4318:
4319: IF l_debug_mode = 'Y' THEN
4320: Pa_Debug.set_curr_function( p_function => 'CHECK_WP_STATUS_CONSISTENCY',
4321: p_debug_mode => l_debug_mode );
4409:
4410: BEGIN
4411: x_msg_count := 0;
4412: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4413: l_debug_mode := NVL(Fnd_Profile.value('PA_DEBUG_MODE'),'N');
4414:
4415: IF l_debug_mode = 'Y' THEN
4416: Pa_Debug.set_curr_function( p_function => 'CHECK_WP_TIME_CONSISTENCY',
4417: p_debug_mode => l_debug_mode );
4518:
4519: BEGIN
4520: x_msg_count := 0;
4521: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4522: l_debug_mode := NVL(Fnd_Profile.value('PA_DEBUG_MODE'),'N');
4523:
4524: IF l_debug_mode = 'Y' THEN
4525: Pa_Debug.set_curr_function( p_function => 'CHECK_WP_RBS_CONSISTENCY',
4526: p_debug_mode => l_debug_mode );
5168:
5169: BEGIN
5170: x_msg_count := 0;
5171: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5172: l_debug_mode := NVL(Fnd_Profile.value('PA_DEBUG_MODE'),'N');
5173:
5174: IF l_debug_mode = 'Y' THEN
5175: Pa_Debug.set_curr_function( p_function => 'Check_Perf_Cal_Consistency',
5176: p_debug_mode => l_debug_mode );
5262:
5263: BEGIN
5264: x_msg_count := 0;
5265: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5266: l_debug_mode := NVL(Fnd_Profile.value('PA_DEBUG_MODE'),'N');
5267:
5268: IF l_debug_mode = 'Y' THEN
5269: Pa_Debug.set_curr_function( p_function => 'Check_Perf_Curr_Consistency',
5270: p_debug_mode => l_debug_mode );
6252:
6253: l_calendar_type VARCHAR2(10);
6254:
6255: cursor c1 is
6256: SELECT NVL(Fnd_Profile.value('PJI_DEF_RPT_CAL_TYPE'), 'E') FROM dual; -- Based on profile "PJI: Default Reporting Calendar Type"
6257:
6258: begin
6259:
6260: open c1;
6282: l_msg_data VARCHAR2(50);
6283:
6284:
6285: cursor c1 is
6286: SELECT NVL(Fnd_Profile.value('PJI_DEF_RPT_CAL_TYPE'), 'E') FROM dual; -- Based on Profile : PJI: Default Reporting Calendar Type
6287:
6288: begin
6289:
6290: open c1;