[Home] [Help]
577: );
578: l_stage := 25;
579: END IF ;
580:
581: IF ( fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') = 'Y' ) /*For Bug 5391468*/
582: THEN
583: l_stage := 30;
584: /*
585: * If the profile option is set,
853: -- so, check the provider_cache and return pa_date accordingly.
854:
855: IF ( p_ei_date BETWEEN g_prvdr_pa_start_date AND g_prvdr_pa_end_date )
856: THEN
857: IF ( fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') = 'Y' ) /*For Bug 5391468 */
858: THEN
859: return ( p_ei_date ) ;
860: ELSE
861: return ( g_prvdr_pa_end_date ) ;
860: ELSE
861: return ( g_prvdr_pa_end_date ) ;
862: END IF; -- profile
863: ELSE
864: IF ( fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') = 'Y' ) /*For Bug 5391468*/
865: THEN
866: IF ( p_ei_date <= g_p_earliest_pa_start_date )
867: THEN
868: g_prvdr_pa_start_date := g_p_earliest_pa_start_date;
903: RETURN DATE IS
904: l_return_date DATE;
905: BEGIN
906: IF g_profile_cache_first_time = 'Y' THEN
907: g_profile_value := fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION'); /*For Bug 5391468*/
908: g_profile_cache_first_time :='N' ;
909: END IF;
910:
911: /* Commented and added the following code as part of 10359385
928: RETURN VARCHAR2 IS
929: l_return_name varchar2(25);
930: BEGIN
931: IF g_profile_cache_first_time = 'Y' THEN
932: g_profile_value := fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION');/*For Bug 5391468*/
933: g_profile_cache_first_time :='N' ;
934: END IF;
935:
936: /* Commented and added the following code as part of 10359385
1004:
1005: IF ( p_ei_date BETWEEN g_recvr_pa_start_date AND g_recvr_pa_end_date )
1006: THEN
1007: l_stage := 400;
1008: IF ( fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') = 'Y' ) /* For Bug 5391468 */
1009: THEN
1010: l_stage := 500;
1011: return ( p_ei_date ) ;
1012: ELSE
1014: return ( g_recvr_pa_end_date ) ;
1015: END IF ; -- profile
1016: ELSE
1017: l_stage := 700;
1018: IF ( fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') = 'Y' ) /*For Bug 5391468 */
1019: THEN
1020: l_stage := 800;
1021: IF ( p_ei_date <= g_r_earliest_pa_start_date )
1022: THEN
1057: g_recvr_pa_start_date := g_prvdr_pa_start_date ;
1058: g_recvr_pa_end_date := g_prvdr_pa_end_date ;
1059: g_recvr_pa_period_name := g_prvdr_pa_period_name ;
1060:
1061: IF ( fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') = 'Y' ) /*For Bug 5391468*/
1062: THEN
1063: l_stage := 1300;
1064: return ( p_ei_date ) ;
1065: ELSE
1067: return ( g_recvr_pa_end_date ) ;
1068: END IF ; -- profile
1069: ELSE
1070: l_stage := 1500;
1071: IF ( fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') = 'Y' ) /*For Bug 5391468*/
1072: THEN
1073: l_stage := 1600;
1074: IF (p_ei_date <= g_p_earliest_pa_start_date )
1075: THEN
1815: g_r_earliest_gl_period_name := l_earliest_period_name ;
1816: END IF;
1817: END IF ;
1818:
1819: IF ( fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') = 'N' ) /*For Bug 5391468*/
1820: THEN
1821: /*
1822: * The profile option is NOT set,(Gldate is based on the pa_date)
1823: * -- the gl date should equal the end date (if the pa date falls in a open
1979: return date
1980: IS
1981: l_prof_new_gldate_derivation varchar2(1);
1982: BEGIN
1983: l_prof_new_gldate_derivation := fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') ; /*For Bug 5391468*/
1984:
1985: /*
1986: * Validate the input parameters.
1987: * If the essential input parameters have NULL values, set the global variables
2068: return date
2069: IS
2070: l_prof_new_gldate_derivation VARCHAR2(1) := 'N';
2071: BEGIN
2072: l_prof_new_gldate_derivation := fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') ; /*For Bug 5391468*/
2073:
2074: /*
2075: * Validate the input parameters.
2076: * If the essential input parameters have NULL values,
2363: IS
2364: l_prof_new_gldate_derivation VARCHAR2(1) := 'N';
2365: BEGIN
2366:
2367: l_prof_new_gldate_derivation := fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') ; /*For Bug 5391468*/
2368:
2369: IF ( p_set_of_books_id = g_prvdr_set_of_books_id )
2370: THEN
2371: -- if sob is not the same, we HAVE to hit the DB.
2520: p_recvr_raw_gl_date_l := trunc(p_recvr_raw_gl_date);
2521:
2522: /*Changes for 7535550 end. Also, please note that all occurances of p_prvdr_raw_pa_date,p_recvr_raw_pa_date,p_prvdr_raw_gl_date,p_recvr_raw_gl_date have been replaced by their local variables.*/
2523: x_return_status := -1 ;
2524: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2525: l_debug_mode := NVL(l_debug_mode, 'N');
2526: l_stage := 100;
2527: IF (l_debug_mode = 'Y') THEN
2528: pa_debug.init_err_stack('pa_utils2.get_period_information');
2531: pa_debug.write_file(pa_debug.g_err_stage);
2532: END IF;
2533:
2534: if g_prof_new_gldate_derivation IS NULL then
2535: l_prof_new_gldate_derivation := nvl(fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION'),'N') ; /*For Bug 5391468*/
2536: g_prof_new_gldate_derivation := l_prof_new_gldate_derivation;
2537: else
2538: l_prof_new_gldate_derivation := g_prof_new_gldate_derivation;
2539: end if;
3050: l_calling_module VARCHAR2(30) := NULL ;
3051: BEGIN
3052: pa_debug.init_err_stack('pa_utils2.get_ou_period_information');
3053:
3054: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3055: l_debug_mode := NVL(l_debug_mode, 'N');
3056:
3057: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3058:
3265: x_pa_period_name := NULL;
3266: x_return_status := FND_API.G_RET_STS_SUCCESS;
3267: x_error_code := NULL;
3268:
3269: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3270: l_debug_mode := NVL(l_debug_mode, 'N');
3271:
3272: IF ( l_debug_mode = 'Y' ) THEN
3273: pa_debug.g_err_stage := 'get_accrual_pa_dt_per dt - '||to_char(p_ei_date);
3585: ---Initialize the out variables.
3586: x_gl_period_name := NULL;
3587: x_return_status := FND_API.G_RET_STS_SUCCESS;
3588: x_error_code := NULL;
3589: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3590: l_debug_mode := NVL(l_debug_mode, 'N');
3591:
3592:
3593: pa_debug.g_err_stage := 'get_rev_accrual_date() for ref dt- ['||to_char(p_reference_date)||']';
3782: x_gl_accr_period_name := NULL;
3783: x_gl_accr_dt := NULL;
3784: x_return_status := FND_API.G_RET_STS_SUCCESS;
3785: x_error_code := NULL;
3786: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3787: l_debug_mode := NVL(l_debug_mode, 'N');
3788:
3789: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() for ref dt- ['||to_char(p_reference_date)||']';
3790: IF ( l_debug_mode = 'Y' ) THEN
4095: BEGIN
4096:
4097:
4098:
4099: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4100: l_debug_mode := NVL(l_debug_mode, 'N');
4101: pa_debug.g_err_stage :='From get_accrual_period_information';
4102: IF(l_debug_mode = 'Y') THEN
4103: pa_debug.init_err_stack('pa_utils2.get_accrual_period_information');
4106: pa_debug.write_file(pa_debug.g_err_stage);
4107: END IF;
4108:
4109: if g_prof_new_gldate_derivation IS NULL then
4110: l_prof_new_gldate_derivation := nvl(fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION'),'N') ; /*For Bug 5391468*/
4111: g_prof_new_gldate_derivation := l_prof_new_gldate_derivation;
4112: else
4113: l_prof_new_gldate_derivation := g_prof_new_gldate_derivation;
4114: end if;
5022: RETURN VARCHAR2
5023: IS
5024: BEGIN
5025:
5026: IF ( NVL(fnd_profile.value('PA_ENHANCED_BURDENING'),'N') = 'Y' )
5027: THEN
5028: IF (PA_GMS_API.vert_install)
5029: THEN
5030: RETURN 'N';
5066:
5067: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Entering procedure');
5068:
5069: /* Changed from value_specific to value for bug 5472333 */
5070: l_epp_flag := fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') ;
5071:
5072: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: EPP Flag status: ' || l_epp_flag);
5073:
5074: l_application_id := l_gl_app_id ;