[Home] [Help]
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');
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');
2529: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2530: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From get_period_information';
2531: pa_debug.write_file(pa_debug.g_err_stage);
2532: END IF;
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');
2529: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2530: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From get_period_information';
2531: pa_debug.write_file(pa_debug.g_err_stage);
2532: END IF;
2533:
2526: l_stage := 100;
2527: IF (l_debug_mode = 'Y') THEN
2528: pa_debug.init_err_stack('pa_utils2.get_period_information');
2529: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2530: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From 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
2527: IF (l_debug_mode = 'Y') THEN
2528: pa_debug.init_err_stack('pa_utils2.get_period_information');
2529: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2530: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From 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*/
2540: l_use_same_pa_gl_period_prvdr := NVL(PA_PERIOD_PROCESS_PKG.Use_Same_PA_GL_Period(p_prvdr_org_id), 'N') ;
2541: l_use_same_pa_gl_period_recvr := NVL(PA_PERIOD_PROCESS_PKG.Use_Same_PA_GL_Period(p_recvr_org_id), 'N') ;
2542:
2543: IF ( l_debug_mode = 'Y' ) THEN
2544: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Profile option is [' || l_prof_new_gldate_derivation || ']';
2545: pa_debug.write_file(pa_debug.g_err_stage);
2546: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Prvdr [' || to_char(p_prvdr_org_id) || '] is ['
2547: || l_use_same_pa_gl_period_prvdr || ']' ;
2548: pa_debug.write_file(pa_debug.g_err_stage);
2541: l_use_same_pa_gl_period_recvr := NVL(PA_PERIOD_PROCESS_PKG.Use_Same_PA_GL_Period(p_recvr_org_id), 'N') ;
2542:
2543: IF ( l_debug_mode = 'Y' ) THEN
2544: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Profile option is [' || l_prof_new_gldate_derivation || ']';
2545: pa_debug.write_file(pa_debug.g_err_stage);
2546: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Prvdr [' || to_char(p_prvdr_org_id) || '] is ['
2547: || l_use_same_pa_gl_period_prvdr || ']' ;
2548: pa_debug.write_file(pa_debug.g_err_stage);
2549: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2542:
2543: IF ( l_debug_mode = 'Y' ) THEN
2544: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Profile option is [' || l_prof_new_gldate_derivation || ']';
2545: pa_debug.write_file(pa_debug.g_err_stage);
2546: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Prvdr [' || to_char(p_prvdr_org_id) || '] is ['
2547: || l_use_same_pa_gl_period_prvdr || ']' ;
2548: pa_debug.write_file(pa_debug.g_err_stage);
2549: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2550: || l_use_same_pa_gl_period_recvr || ']' ;
2544: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Profile option is [' || l_prof_new_gldate_derivation || ']';
2545: pa_debug.write_file(pa_debug.g_err_stage);
2546: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Prvdr [' || to_char(p_prvdr_org_id) || '] is ['
2547: || l_use_same_pa_gl_period_prvdr || ']' ;
2548: pa_debug.write_file(pa_debug.g_err_stage);
2549: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2550: || l_use_same_pa_gl_period_recvr || ']' ;
2551: pa_debug.write_file(pa_debug.g_err_stage);
2552: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2545: pa_debug.write_file(pa_debug.g_err_stage);
2546: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Prvdr [' || to_char(p_prvdr_org_id) || '] is ['
2547: || l_use_same_pa_gl_period_prvdr || ']' ;
2548: pa_debug.write_file(pa_debug.g_err_stage);
2549: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2550: || l_use_same_pa_gl_period_recvr || ']' ;
2551: pa_debug.write_file(pa_debug.g_err_stage);
2552: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2553: pa_debug.write_file(pa_debug.g_err_stage);
2547: || l_use_same_pa_gl_period_prvdr || ']' ;
2548: pa_debug.write_file(pa_debug.g_err_stage);
2549: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2550: || l_use_same_pa_gl_period_recvr || ']' ;
2551: pa_debug.write_file(pa_debug.g_err_stage);
2552: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2553: pa_debug.write_file(pa_debug.g_err_stage);
2554: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2555: pa_debug.write_file(pa_debug.g_err_stage);
2548: pa_debug.write_file(pa_debug.g_err_stage);
2549: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2550: || l_use_same_pa_gl_period_recvr || ']' ;
2551: pa_debug.write_file(pa_debug.g_err_stage);
2552: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2553: pa_debug.write_file(pa_debug.g_err_stage);
2554: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2555: pa_debug.write_file(pa_debug.g_err_stage);
2556: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2549: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2550: || l_use_same_pa_gl_period_recvr || ']' ;
2551: pa_debug.write_file(pa_debug.g_err_stage);
2552: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2553: pa_debug.write_file(pa_debug.g_err_stage);
2554: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2555: pa_debug.write_file(pa_debug.g_err_stage);
2556: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2557: pa_debug.write_file(pa_debug.g_err_stage);
2550: || l_use_same_pa_gl_period_recvr || ']' ;
2551: pa_debug.write_file(pa_debug.g_err_stage);
2552: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2553: pa_debug.write_file(pa_debug.g_err_stage);
2554: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2555: pa_debug.write_file(pa_debug.g_err_stage);
2556: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2557: pa_debug.write_file(pa_debug.g_err_stage);
2558: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2551: pa_debug.write_file(pa_debug.g_err_stage);
2552: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2553: pa_debug.write_file(pa_debug.g_err_stage);
2554: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2555: pa_debug.write_file(pa_debug.g_err_stage);
2556: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2557: pa_debug.write_file(pa_debug.g_err_stage);
2558: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2559: pa_debug.write_file(pa_debug.g_err_stage);
2552: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2553: pa_debug.write_file(pa_debug.g_err_stage);
2554: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2555: pa_debug.write_file(pa_debug.g_err_stage);
2556: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2557: pa_debug.write_file(pa_debug.g_err_stage);
2558: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2559: pa_debug.write_file(pa_debug.g_err_stage);
2560: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date_l is [' || to_char(p_prvdr_raw_pa_date_l) || ']';
2553: pa_debug.write_file(pa_debug.g_err_stage);
2554: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2555: pa_debug.write_file(pa_debug.g_err_stage);
2556: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2557: pa_debug.write_file(pa_debug.g_err_stage);
2558: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2559: pa_debug.write_file(pa_debug.g_err_stage);
2560: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date_l is [' || to_char(p_prvdr_raw_pa_date_l) || ']';
2561: pa_debug.write_file(pa_debug.g_err_stage);
2554: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2555: pa_debug.write_file(pa_debug.g_err_stage);
2556: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2557: pa_debug.write_file(pa_debug.g_err_stage);
2558: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2559: pa_debug.write_file(pa_debug.g_err_stage);
2560: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date_l is [' || to_char(p_prvdr_raw_pa_date_l) || ']';
2561: pa_debug.write_file(pa_debug.g_err_stage);
2562: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date_l is [' || to_char(p_recvr_raw_pa_date_l) || ']';
2555: pa_debug.write_file(pa_debug.g_err_stage);
2556: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2557: pa_debug.write_file(pa_debug.g_err_stage);
2558: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2559: pa_debug.write_file(pa_debug.g_err_stage);
2560: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date_l is [' || to_char(p_prvdr_raw_pa_date_l) || ']';
2561: pa_debug.write_file(pa_debug.g_err_stage);
2562: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date_l is [' || to_char(p_recvr_raw_pa_date_l) || ']';
2563: pa_debug.write_file(pa_debug.g_err_stage);
2556: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2557: pa_debug.write_file(pa_debug.g_err_stage);
2558: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2559: pa_debug.write_file(pa_debug.g_err_stage);
2560: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date_l is [' || to_char(p_prvdr_raw_pa_date_l) || ']';
2561: pa_debug.write_file(pa_debug.g_err_stage);
2562: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date_l is [' || to_char(p_recvr_raw_pa_date_l) || ']';
2563: pa_debug.write_file(pa_debug.g_err_stage);
2564: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date_l is [' || to_char(p_prvdr_raw_gl_date_l) || ']';
2557: pa_debug.write_file(pa_debug.g_err_stage);
2558: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2559: pa_debug.write_file(pa_debug.g_err_stage);
2560: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date_l is [' || to_char(p_prvdr_raw_pa_date_l) || ']';
2561: pa_debug.write_file(pa_debug.g_err_stage);
2562: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date_l is [' || to_char(p_recvr_raw_pa_date_l) || ']';
2563: pa_debug.write_file(pa_debug.g_err_stage);
2564: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date_l is [' || to_char(p_prvdr_raw_gl_date_l) || ']';
2565: pa_debug.write_file(pa_debug.g_err_stage);
2558: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2559: pa_debug.write_file(pa_debug.g_err_stage);
2560: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date_l is [' || to_char(p_prvdr_raw_pa_date_l) || ']';
2561: pa_debug.write_file(pa_debug.g_err_stage);
2562: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date_l is [' || to_char(p_recvr_raw_pa_date_l) || ']';
2563: pa_debug.write_file(pa_debug.g_err_stage);
2564: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date_l is [' || to_char(p_prvdr_raw_gl_date_l) || ']';
2565: pa_debug.write_file(pa_debug.g_err_stage);
2566: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date_l is [' || to_char(p_recvr_raw_gl_date_l ) || ']';
2559: pa_debug.write_file(pa_debug.g_err_stage);
2560: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date_l is [' || to_char(p_prvdr_raw_pa_date_l) || ']';
2561: pa_debug.write_file(pa_debug.g_err_stage);
2562: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date_l is [' || to_char(p_recvr_raw_pa_date_l) || ']';
2563: pa_debug.write_file(pa_debug.g_err_stage);
2564: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date_l is [' || to_char(p_prvdr_raw_gl_date_l) || ']';
2565: pa_debug.write_file(pa_debug.g_err_stage);
2566: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date_l is [' || to_char(p_recvr_raw_gl_date_l ) || ']';
2567: pa_debug.write_file(pa_debug.g_err_stage);
2560: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date_l is [' || to_char(p_prvdr_raw_pa_date_l) || ']';
2561: pa_debug.write_file(pa_debug.g_err_stage);
2562: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date_l is [' || to_char(p_recvr_raw_pa_date_l) || ']';
2563: pa_debug.write_file(pa_debug.g_err_stage);
2564: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date_l is [' || to_char(p_prvdr_raw_gl_date_l) || ']';
2565: pa_debug.write_file(pa_debug.g_err_stage);
2566: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date_l is [' || to_char(p_recvr_raw_gl_date_l ) || ']';
2567: pa_debug.write_file(pa_debug.g_err_stage);
2568: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2561: pa_debug.write_file(pa_debug.g_err_stage);
2562: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date_l is [' || to_char(p_recvr_raw_pa_date_l) || ']';
2563: pa_debug.write_file(pa_debug.g_err_stage);
2564: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date_l is [' || to_char(p_prvdr_raw_gl_date_l) || ']';
2565: pa_debug.write_file(pa_debug.g_err_stage);
2566: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date_l is [' || to_char(p_recvr_raw_gl_date_l ) || ']';
2567: pa_debug.write_file(pa_debug.g_err_stage);
2568: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2569: pa_debug.write_file(pa_debug.g_err_stage);
2562: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date_l is [' || to_char(p_recvr_raw_pa_date_l) || ']';
2563: pa_debug.write_file(pa_debug.g_err_stage);
2564: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date_l is [' || to_char(p_prvdr_raw_gl_date_l) || ']';
2565: pa_debug.write_file(pa_debug.g_err_stage);
2566: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date_l is [' || to_char(p_recvr_raw_gl_date_l ) || ']';
2567: pa_debug.write_file(pa_debug.g_err_stage);
2568: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2569: pa_debug.write_file(pa_debug.g_err_stage);
2570: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2563: pa_debug.write_file(pa_debug.g_err_stage);
2564: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date_l is [' || to_char(p_prvdr_raw_gl_date_l) || ']';
2565: pa_debug.write_file(pa_debug.g_err_stage);
2566: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date_l is [' || to_char(p_recvr_raw_gl_date_l ) || ']';
2567: pa_debug.write_file(pa_debug.g_err_stage);
2568: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2569: pa_debug.write_file(pa_debug.g_err_stage);
2570: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2571: pa_debug.write_file(pa_debug.g_err_stage);
2564: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date_l is [' || to_char(p_prvdr_raw_gl_date_l) || ']';
2565: pa_debug.write_file(pa_debug.g_err_stage);
2566: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date_l is [' || to_char(p_recvr_raw_gl_date_l ) || ']';
2567: pa_debug.write_file(pa_debug.g_err_stage);
2568: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2569: pa_debug.write_file(pa_debug.g_err_stage);
2570: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2571: pa_debug.write_file(pa_debug.g_err_stage);
2572: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2565: pa_debug.write_file(pa_debug.g_err_stage);
2566: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date_l is [' || to_char(p_recvr_raw_gl_date_l ) || ']';
2567: pa_debug.write_file(pa_debug.g_err_stage);
2568: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2569: pa_debug.write_file(pa_debug.g_err_stage);
2570: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2571: pa_debug.write_file(pa_debug.g_err_stage);
2572: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2573: pa_debug.write_file(pa_debug.g_err_stage);
2566: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date_l is [' || to_char(p_recvr_raw_gl_date_l ) || ']';
2567: pa_debug.write_file(pa_debug.g_err_stage);
2568: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2569: pa_debug.write_file(pa_debug.g_err_stage);
2570: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2571: pa_debug.write_file(pa_debug.g_err_stage);
2572: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2573: pa_debug.write_file(pa_debug.g_err_stage);
2574: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2567: pa_debug.write_file(pa_debug.g_err_stage);
2568: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2569: pa_debug.write_file(pa_debug.g_err_stage);
2570: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2571: pa_debug.write_file(pa_debug.g_err_stage);
2572: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2573: pa_debug.write_file(pa_debug.g_err_stage);
2574: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2575: pa_debug.write_file(pa_debug.g_err_stage);
2568: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2569: pa_debug.write_file(pa_debug.g_err_stage);
2570: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2571: pa_debug.write_file(pa_debug.g_err_stage);
2572: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2573: pa_debug.write_file(pa_debug.g_err_stage);
2574: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2575: pa_debug.write_file(pa_debug.g_err_stage);
2576: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_calling_module is [' || p_calling_module || ']';
2569: pa_debug.write_file(pa_debug.g_err_stage);
2570: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2571: pa_debug.write_file(pa_debug.g_err_stage);
2572: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2573: pa_debug.write_file(pa_debug.g_err_stage);
2574: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2575: pa_debug.write_file(pa_debug.g_err_stage);
2576: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_calling_module is [' || p_calling_module || ']';
2577: pa_debug.write_file(pa_debug.g_err_stage);
2570: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2571: pa_debug.write_file(pa_debug.g_err_stage);
2572: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2573: pa_debug.write_file(pa_debug.g_err_stage);
2574: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2575: pa_debug.write_file(pa_debug.g_err_stage);
2576: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_calling_module is [' || p_calling_module || ']';
2577: pa_debug.write_file(pa_debug.g_err_stage);
2578: END IF;
2571: pa_debug.write_file(pa_debug.g_err_stage);
2572: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2573: pa_debug.write_file(pa_debug.g_err_stage);
2574: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2575: pa_debug.write_file(pa_debug.g_err_stage);
2576: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_calling_module is [' || p_calling_module || ']';
2577: pa_debug.write_file(pa_debug.g_err_stage);
2578: END IF;
2579:
2572: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2573: pa_debug.write_file(pa_debug.g_err_stage);
2574: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2575: pa_debug.write_file(pa_debug.g_err_stage);
2576: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_calling_module is [' || p_calling_module || ']';
2577: pa_debug.write_file(pa_debug.g_err_stage);
2578: END IF;
2579:
2580: /*
2573: pa_debug.write_file(pa_debug.g_err_stage);
2574: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2575: pa_debug.write_file(pa_debug.g_err_stage);
2576: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_calling_module is [' || p_calling_module || ']';
2577: pa_debug.write_file(pa_debug.g_err_stage);
2578: END IF;
2579:
2580: /*
2581: * Decide whether to derive the receiver part.
2596: THEN
2597: l_stage := 200;
2598: IF ( l_debug_mode = 'Y' )
2599: THEN
2600: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ER - Same Expenditure GL Cache used.' ;
2601: pa_debug.write_file(pa_debug.g_err_stage);
2602: END IF;
2603: l_prvdr_gl_date := g_prev_prvdr_gl_date;
2604: l_prvdr_gl_period_name := g_prev_prvdr_gl_period_name;
2597: l_stage := 200;
2598: IF ( l_debug_mode = 'Y' )
2599: THEN
2600: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ER - Same Expenditure GL Cache used.' ;
2601: pa_debug.write_file(pa_debug.g_err_stage);
2602: END IF;
2603: l_prvdr_gl_date := g_prev_prvdr_gl_date;
2604: l_prvdr_gl_period_name := g_prev_prvdr_gl_period_name;
2605: l_recvr_gl_date := g_prev_recvr_gl_date;
2608: THEN
2609: l_stage := 300;
2610: IF ( l_debug_mode = 'Y' )
2611: THEN
2612: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Burden VI.' ;
2613: pa_debug.write_file(pa_debug.g_err_stage);
2614: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2615: pa_debug.write_file(pa_debug.g_err_stage);
2616: END IF; -- debug
2609: l_stage := 300;
2610: IF ( l_debug_mode = 'Y' )
2611: THEN
2612: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Burden VI.' ;
2613: pa_debug.write_file(pa_debug.g_err_stage);
2614: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2615: pa_debug.write_file(pa_debug.g_err_stage);
2616: END IF; -- debug
2617: /*
2610: IF ( l_debug_mode = 'Y' )
2611: THEN
2612: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Burden VI.' ;
2613: pa_debug.write_file(pa_debug.g_err_stage);
2614: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2615: pa_debug.write_file(pa_debug.g_err_stage);
2616: END IF; -- debug
2617: /*
2618: * The gl_date for the burden CDL is derived based on the gl_date in the
2611: THEN
2612: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Burden VI.' ;
2613: pa_debug.write_file(pa_debug.g_err_stage);
2614: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2615: pa_debug.write_file(pa_debug.g_err_stage);
2616: END IF; -- debug
2617: /*
2618: * The gl_date for the burden CDL is derived based on the gl_date in the
2619: * Raw CDL.(if the Profile option is SET.) If the profile option is NOT set
2639: ELSE
2640: l_stage := 400;
2641: IF ( l_debug_mode = 'Y' )
2642: THEN
2643: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': New ER expenditure/ Raw VI/ Other.' ;
2644: pa_debug.write_file(pa_debug.g_err_stage);
2645: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2646: pa_debug.write_file(pa_debug.g_err_stage);
2647: END IF; -- debug
2640: l_stage := 400;
2641: IF ( l_debug_mode = 'Y' )
2642: THEN
2643: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': New ER expenditure/ Raw VI/ Other.' ;
2644: pa_debug.write_file(pa_debug.g_err_stage);
2645: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2646: pa_debug.write_file(pa_debug.g_err_stage);
2647: END IF; -- debug
2648: IF ( p_calling_module = 'AR_INSTALLED_INVOICE' )
2641: IF ( l_debug_mode = 'Y' )
2642: THEN
2643: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': New ER expenditure/ Raw VI/ Other.' ;
2644: pa_debug.write_file(pa_debug.g_err_stage);
2645: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2646: pa_debug.write_file(pa_debug.g_err_stage);
2647: END IF; -- debug
2648: IF ( p_calling_module = 'AR_INSTALLED_INVOICE' )
2649: THEN
2642: THEN
2643: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': New ER expenditure/ Raw VI/ Other.' ;
2644: pa_debug.write_file(pa_debug.g_err_stage);
2645: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2646: pa_debug.write_file(pa_debug.g_err_stage);
2647: END IF; -- debug
2648: IF ( p_calling_module = 'AR_INSTALLED_INVOICE' )
2649: THEN
2650: l_app_id := l_ar_app_id ;
2684: THEN
2685: l_stage := 500;
2686: IF ( l_debug_mode = 'Y' )
2687: THEN
2688: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Copying Provider GL info to Provider PA';
2689: pa_debug.write_file(pa_debug.g_err_stage);
2690: END IF; -- debug
2691: /*
2692: * Copy Provider Gl period information to Provider Pa periods.
2685: l_stage := 500;
2686: IF ( l_debug_mode = 'Y' )
2687: THEN
2688: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Copying Provider GL info to Provider PA';
2689: pa_debug.write_file(pa_debug.g_err_stage);
2690: END IF; -- debug
2691: /*
2692: * Copy Provider Gl period information to Provider Pa periods.
2693: */
2706: */
2707: l_stage := 500;
2708: IF ( l_debug_mode = 'Y' )
2709: THEN
2710: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving Provider PA Info.';
2711: pa_debug.write_file(pa_debug.g_err_stage);
2712: END IF; -- debug
2713: IF (p_line_type <> 'R' AND p_system_linkage_function = 'VI')
2714: THEN
2707: l_stage := 500;
2708: IF ( l_debug_mode = 'Y' )
2709: THEN
2710: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving Provider PA Info.';
2711: pa_debug.write_file(pa_debug.g_err_stage);
2712: END IF; -- debug
2713: IF (p_line_type <> 'R' AND p_system_linkage_function = 'VI')
2714: THEN
2715: IF ( p_prvdr_raw_pa_date_l IS NOT NULL )
2744: */
2745: l_stage := 600;
2746: IF ( l_debug_mode = 'Y' )
2747: THEN
2748: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Copying Receiver GenLedg Info to Receiver ProjAacc';
2749: pa_debug.write_file(pa_debug.g_err_stage);
2750: END IF; -- debug
2751: l_recvr_pa_date := l_recvr_gl_date;
2752: l_recvr_pa_period_name := l_recvr_gl_period_name;
2745: l_stage := 600;
2746: IF ( l_debug_mode = 'Y' )
2747: THEN
2748: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Copying Receiver GenLedg Info to Receiver ProjAacc';
2749: pa_debug.write_file(pa_debug.g_err_stage);
2750: END IF; -- debug
2751: l_recvr_pa_date := l_recvr_gl_date;
2752: l_recvr_pa_period_name := l_recvr_gl_period_name;
2753: ELSE
2756: */
2757: l_stage := 700;
2758: IF ( l_debug_mode = 'Y' )
2759: THEN
2760: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving Receiver PA Info.';
2761: pa_debug.write_file(pa_debug.g_err_stage);
2762: END IF; -- debug
2763: IF (p_line_type <> 'R' AND p_system_linkage_function = 'VI')
2764: THEN
2757: l_stage := 700;
2758: IF ( l_debug_mode = 'Y' )
2759: THEN
2760: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving Receiver PA Info.';
2761: pa_debug.write_file(pa_debug.g_err_stage);
2762: END IF; -- debug
2763: IF (p_line_type <> 'R' AND p_system_linkage_function = 'VI')
2764: THEN
2765: IF ( derive.receiver <> 'N' AND p_recvr_raw_pa_date_l IS NOT NULL )
2832: AND g_prev_expenditure_id IS NOT NULL AND p_calling_module = 'CDL')
2833: THEN
2834: IF ( l_debug_mode = 'Y' )
2835: THEN
2836: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ER - Same Expenditure Populating GL from Cache';
2837: pa_debug.write_file(pa_debug.g_err_stage);
2838: END IF; -- debug
2839: l_prvdr_gl_date := g_prev_prvdr_gl_date;
2840: l_prvdr_gl_period_name := g_prev_prvdr_gl_period_name;
2833: THEN
2834: IF ( l_debug_mode = 'Y' )
2835: THEN
2836: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ER - Same Expenditure Populating GL from Cache';
2837: pa_debug.write_file(pa_debug.g_err_stage);
2838: END IF; -- debug
2839: l_prvdr_gl_date := g_prev_prvdr_gl_date;
2840: l_prvdr_gl_period_name := g_prev_prvdr_gl_period_name;
2841: l_recvr_gl_date := g_prev_recvr_gl_date;
2842: l_recvr_gl_period_name := g_prev_recvr_gl_period_name;
2843: ELSE -- Either system_linkage is NOT 'ER' or expenditure_id has changed.
2844: IF ( l_debug_mode = 'Y' )
2845: THEN
2846: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': NOT ER/exp_id has changed.' ;
2847: pa_debug.write_file(pa_debug.g_err_stage);
2848: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2849: pa_debug.write_file(pa_debug.g_err_stage);
2850: END IF; -- debug
2843: ELSE -- Either system_linkage is NOT 'ER' or expenditure_id has changed.
2844: IF ( l_debug_mode = 'Y' )
2845: THEN
2846: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': NOT ER/exp_id has changed.' ;
2847: pa_debug.write_file(pa_debug.g_err_stage);
2848: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2849: pa_debug.write_file(pa_debug.g_err_stage);
2850: END IF; -- debug
2851:
2844: IF ( l_debug_mode = 'Y' )
2845: THEN
2846: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': NOT ER/exp_id has changed.' ;
2847: pa_debug.write_file(pa_debug.g_err_stage);
2848: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2849: pa_debug.write_file(pa_debug.g_err_stage);
2850: END IF; -- debug
2851:
2852: IF ( p_calling_module = 'AR_INSTALLED_INVOICE' )
2845: THEN
2846: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': NOT ER/exp_id has changed.' ;
2847: pa_debug.write_file(pa_debug.g_err_stage);
2848: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2849: pa_debug.write_file(pa_debug.g_err_stage);
2850: END IF; -- debug
2851:
2852: IF ( p_calling_module = 'AR_INSTALLED_INVOICE' )
2853: THEN
2915: IF (g_prev_expenditure_id <> p_expenditure_id OR g_prev_expenditure_id IS NULL )
2916: THEN
2917: IF ( l_debug_mode = 'Y' )
2918: THEN
2919: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ER - New Expenditure - Populating Cache.';
2920: pa_debug.write_file(pa_debug.g_err_stage);
2921: END IF; -- debug
2922:
2923: /*
2916: THEN
2917: IF ( l_debug_mode = 'Y' )
2918: THEN
2919: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ER - New Expenditure - Populating Cache.';
2920: pa_debug.write_file(pa_debug.g_err_stage);
2921: END IF; -- debug
2922:
2923: /*
2924: * Indicates new expenditure batch.
2930: g_prev_recvr_gl_period_name := l_recvr_gl_period_name;
2931:
2932: IF ( l_debug_mode = 'Y' )
2933: THEN
2934: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2935: ': g_prev_expenditure_id is [' || to_char(g_prev_expenditure_id) ||
2936: '] g_prev_prvdr_gl_date [' || to_char(g_prev_prvdr_gl_date) ||
2937: '] g_prev_prvdr_gl_period_name [' || g_prev_prvdr_gl_period_name ||']';
2938: pa_debug.write_file(pa_debug.g_err_stage);
2934: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2935: ': g_prev_expenditure_id is [' || to_char(g_prev_expenditure_id) ||
2936: '] g_prev_prvdr_gl_date [' || to_char(g_prev_prvdr_gl_date) ||
2937: '] g_prev_prvdr_gl_period_name [' || g_prev_prvdr_gl_period_name ||']';
2938: pa_debug.write_file(pa_debug.g_err_stage);
2939: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2940: ': g_prev_recvr_gl_date is [' || to_char(g_prev_recvr_gl_date) ||
2941: '] g_prev_recvr_gl_period_name [' || g_prev_recvr_gl_period_name ||']';
2942: pa_debug.write_file(pa_debug.g_err_stage);
2935: ': g_prev_expenditure_id is [' || to_char(g_prev_expenditure_id) ||
2936: '] g_prev_prvdr_gl_date [' || to_char(g_prev_prvdr_gl_date) ||
2937: '] g_prev_prvdr_gl_period_name [' || g_prev_prvdr_gl_period_name ||']';
2938: pa_debug.write_file(pa_debug.g_err_stage);
2939: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2940: ': g_prev_recvr_gl_date is [' || to_char(g_prev_recvr_gl_date) ||
2941: '] g_prev_recvr_gl_period_name [' || g_prev_recvr_gl_period_name ||']';
2942: pa_debug.write_file(pa_debug.g_err_stage);
2943: END IF; -- debug
2938: pa_debug.write_file(pa_debug.g_err_stage);
2939: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2940: ': g_prev_recvr_gl_date is [' || to_char(g_prev_recvr_gl_date) ||
2941: '] g_prev_recvr_gl_period_name [' || g_prev_recvr_gl_period_name ||']';
2942: pa_debug.write_file(pa_debug.g_err_stage);
2943: END IF; -- debug
2944: ELSE
2945: /*
2946: * Leave the cache as it is.
2949: END IF;
2950: ELSE -- system link is NOT 'ER'
2951: IF ( l_debug_mode = 'Y' )
2952: THEN
2953: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Not an ER. Wiping the Cache.';
2954: pa_debug.write_file(pa_debug.g_err_stage);
2955: END IF; -- debug
2956:
2957: /*
2950: ELSE -- system link is NOT 'ER'
2951: IF ( l_debug_mode = 'Y' )
2952: THEN
2953: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Not an ER. Wiping the Cache.';
2954: pa_debug.write_file(pa_debug.g_err_stage);
2955: END IF; -- debug
2956:
2957: /*
2958: * Wipe-off the cache.
2994: x_recvr_gl_period_name := l_recvr_gl_period_name;
2995:
2996: IF ( l_debug_mode = 'Y' )
2997: THEN
2998: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_pa_date is [' || to_char(x_prvdr_pa_date) ||
2999: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
3000: pa_debug.write_file(pa_debug.g_err_stage);
3001: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
3002: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
2996: IF ( l_debug_mode = 'Y' )
2997: THEN
2998: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_pa_date is [' || to_char(x_prvdr_pa_date) ||
2999: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
3000: pa_debug.write_file(pa_debug.g_err_stage);
3001: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
3002: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
3003: pa_debug.write_file(pa_debug.g_err_stage);
3004: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
2997: THEN
2998: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_pa_date is [' || to_char(x_prvdr_pa_date) ||
2999: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
3000: pa_debug.write_file(pa_debug.g_err_stage);
3001: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
3002: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
3003: pa_debug.write_file(pa_debug.g_err_stage);
3004: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
3005: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
2999: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
3000: pa_debug.write_file(pa_debug.g_err_stage);
3001: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
3002: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
3003: pa_debug.write_file(pa_debug.g_err_stage);
3004: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
3005: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
3006: pa_debug.write_file(pa_debug.g_err_stage);
3007: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
3000: pa_debug.write_file(pa_debug.g_err_stage);
3001: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
3002: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
3003: pa_debug.write_file(pa_debug.g_err_stage);
3004: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
3005: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
3006: pa_debug.write_file(pa_debug.g_err_stage);
3007: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
3008: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
3002: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
3003: pa_debug.write_file(pa_debug.g_err_stage);
3004: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
3005: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
3006: pa_debug.write_file(pa_debug.g_err_stage);
3007: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
3008: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
3009: pa_debug.write_file(pa_debug.g_err_stage);
3010: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_error_code is [' || x_error_code || ']';
3003: pa_debug.write_file(pa_debug.g_err_stage);
3004: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
3005: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
3006: pa_debug.write_file(pa_debug.g_err_stage);
3007: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
3008: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
3009: pa_debug.write_file(pa_debug.g_err_stage);
3010: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_error_code is [' || x_error_code || ']';
3011: pa_debug.write_file(pa_debug.g_err_stage);
3005: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
3006: pa_debug.write_file(pa_debug.g_err_stage);
3007: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
3008: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
3009: pa_debug.write_file(pa_debug.g_err_stage);
3010: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_error_code is [' || x_error_code || ']';
3011: pa_debug.write_file(pa_debug.g_err_stage);
3012: END IF;
3013:
3006: pa_debug.write_file(pa_debug.g_err_stage);
3007: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
3008: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
3009: pa_debug.write_file(pa_debug.g_err_stage);
3010: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_error_code is [' || x_error_code || ']';
3011: pa_debug.write_file(pa_debug.g_err_stage);
3012: END IF;
3013:
3014: x_return_status := 0;
3007: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
3008: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
3009: pa_debug.write_file(pa_debug.g_err_stage);
3010: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_error_code is [' || x_error_code || ']';
3011: pa_debug.write_file(pa_debug.g_err_stage);
3012: END IF;
3013:
3014: x_return_status := 0;
3015: pa_debug.reset_err_stack;
3011: pa_debug.write_file(pa_debug.g_err_stage);
3012: END IF;
3013:
3014: x_return_status := 0;
3015: pa_debug.reset_err_stack;
3016:
3017: EXCEPTION
3018: WHEN others THEN
3019: x_error_stage := l_stage ;
3048: l_date_dummy DATE;
3049: l_name_dummy VARCHAR2(30);
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:
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:
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:
3059: l_stage := 100;
3060: IF ( l_debug_mode = 'Y' )
3061: THEN
3058:
3059: l_stage := 100;
3060: IF ( l_debug_mode = 'Y' )
3061: THEN
3062: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From get_ou_period_information';
3063: pa_debug.write_file(pa_debug.g_err_stage);
3064: END IF; -- debug
3065:
3066: x_return_status := -1 ;
3059: l_stage := 100;
3060: IF ( l_debug_mode = 'Y' )
3061: THEN
3062: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From get_ou_period_information';
3063: pa_debug.write_file(pa_debug.g_err_stage);
3064: END IF; -- debug
3065:
3066: x_return_status := -1 ;
3067: l_calling_module := p_calling_module ;
3074:
3075: l_stage := 200 ;
3076: IF ( l_debug_mode = 'Y' )
3077: THEN
3078: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Calling pa_utils2.get_period_information';
3079: pa_debug.write_file(pa_debug.g_err_stage);
3080: END IF; -- debug
3081:
3082: pa_utils2.get_period_information
3075: l_stage := 200 ;
3076: IF ( l_debug_mode = 'Y' )
3077: THEN
3078: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Calling pa_utils2.get_period_information';
3079: pa_debug.write_file(pa_debug.g_err_stage);
3080: END IF; -- debug
3081:
3082: pa_utils2.get_period_information
3083: ( p_expenditure_item_date => p_reference_date
3100:
3101: l_stage := 300 ;
3102: IF ( l_debug_mode = 'Y' )
3103: THEN
3104: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After call to pa_utils2.get_period_information';
3105: pa_debug.write_file(pa_debug.g_err_stage);
3106: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3107: pa_debug.write_file(pa_debug.g_err_stage);
3108: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3101: l_stage := 300 ;
3102: IF ( l_debug_mode = 'Y' )
3103: THEN
3104: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After call to pa_utils2.get_period_information';
3105: pa_debug.write_file(pa_debug.g_err_stage);
3106: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3107: pa_debug.write_file(pa_debug.g_err_stage);
3108: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3109: pa_debug.write_file(pa_debug.g_err_stage);
3102: IF ( l_debug_mode = 'Y' )
3103: THEN
3104: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After call to pa_utils2.get_period_information';
3105: pa_debug.write_file(pa_debug.g_err_stage);
3106: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3107: pa_debug.write_file(pa_debug.g_err_stage);
3108: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3109: pa_debug.write_file(pa_debug.g_err_stage);
3110: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error Code [' || l_error_code || ']';
3103: THEN
3104: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After call to pa_utils2.get_period_information';
3105: pa_debug.write_file(pa_debug.g_err_stage);
3106: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3107: pa_debug.write_file(pa_debug.g_err_stage);
3108: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3109: pa_debug.write_file(pa_debug.g_err_stage);
3110: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error Code [' || l_error_code || ']';
3111: pa_debug.write_file(pa_debug.g_err_stage);
3104: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After call to pa_utils2.get_period_information';
3105: pa_debug.write_file(pa_debug.g_err_stage);
3106: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3107: pa_debug.write_file(pa_debug.g_err_stage);
3108: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3109: pa_debug.write_file(pa_debug.g_err_stage);
3110: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error Code [' || l_error_code || ']';
3111: pa_debug.write_file(pa_debug.g_err_stage);
3112: END IF; -- debug
3105: pa_debug.write_file(pa_debug.g_err_stage);
3106: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3107: pa_debug.write_file(pa_debug.g_err_stage);
3108: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3109: pa_debug.write_file(pa_debug.g_err_stage);
3110: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error Code [' || l_error_code || ']';
3111: pa_debug.write_file(pa_debug.g_err_stage);
3112: END IF; -- debug
3113:
3106: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3107: pa_debug.write_file(pa_debug.g_err_stage);
3108: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3109: pa_debug.write_file(pa_debug.g_err_stage);
3110: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error Code [' || l_error_code || ']';
3111: pa_debug.write_file(pa_debug.g_err_stage);
3112: END IF; -- debug
3113:
3114: /*
3107: pa_debug.write_file(pa_debug.g_err_stage);
3108: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3109: pa_debug.write_file(pa_debug.g_err_stage);
3110: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error Code [' || l_error_code || ']';
3111: pa_debug.write_file(pa_debug.g_err_stage);
3112: END IF; -- debug
3113:
3114: /*
3115: * Populate the out variables.
3120: x_gl_period_name := l_gl_period_name;
3121: x_error_code := l_error_code;
3122:
3123: x_return_status := 0;
3124: pa_debug.reset_err_stack;
3125:
3126: EXCEPTION
3127: WHEN OTHERS THEN
3128: x_error_stage := l_stage ;
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);
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);
3274: pa_debug.write_file(pa_debug.g_err_stage);
3275: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3276: pa_debug.write_file(pa_debug.g_err_stage);
3277: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
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);
3274: pa_debug.write_file(pa_debug.g_err_stage);
3275: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3276: pa_debug.write_file(pa_debug.g_err_stage);
3277: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3278: pa_debug.write_file(pa_debug.g_err_stage);
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);
3274: pa_debug.write_file(pa_debug.g_err_stage);
3275: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3276: pa_debug.write_file(pa_debug.g_err_stage);
3277: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3278: pa_debug.write_file(pa_debug.g_err_stage);
3279: pa_debug.g_err_stage := 'get_accrual_pa_dt_per prvdr_recvr_flg - '||p_prvdr_recvr_flg;
3272: IF ( l_debug_mode = 'Y' ) THEN
3273: pa_debug.g_err_stage := 'get_accrual_pa_dt_per dt - '||to_char(p_ei_date);
3274: pa_debug.write_file(pa_debug.g_err_stage);
3275: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3276: pa_debug.write_file(pa_debug.g_err_stage);
3277: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3278: pa_debug.write_file(pa_debug.g_err_stage);
3279: pa_debug.g_err_stage := 'get_accrual_pa_dt_per prvdr_recvr_flg - '||p_prvdr_recvr_flg;
3280: pa_debug.write_file(pa_debug.g_err_stage);
3273: pa_debug.g_err_stage := 'get_accrual_pa_dt_per dt - '||to_char(p_ei_date);
3274: pa_debug.write_file(pa_debug.g_err_stage);
3275: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3276: pa_debug.write_file(pa_debug.g_err_stage);
3277: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3278: pa_debug.write_file(pa_debug.g_err_stage);
3279: pa_debug.g_err_stage := 'get_accrual_pa_dt_per prvdr_recvr_flg - '||p_prvdr_recvr_flg;
3280: pa_debug.write_file(pa_debug.g_err_stage);
3281: END IF;
3274: pa_debug.write_file(pa_debug.g_err_stage);
3275: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3276: pa_debug.write_file(pa_debug.g_err_stage);
3277: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3278: pa_debug.write_file(pa_debug.g_err_stage);
3279: pa_debug.g_err_stage := 'get_accrual_pa_dt_per prvdr_recvr_flg - '||p_prvdr_recvr_flg;
3280: pa_debug.write_file(pa_debug.g_err_stage);
3281: END IF;
3282:
3275: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3276: pa_debug.write_file(pa_debug.g_err_stage);
3277: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3278: pa_debug.write_file(pa_debug.g_err_stage);
3279: pa_debug.g_err_stage := 'get_accrual_pa_dt_per prvdr_recvr_flg - '||p_prvdr_recvr_flg;
3280: pa_debug.write_file(pa_debug.g_err_stage);
3281: END IF;
3282:
3283: IF p_org_rev_flg = 'O' THEN -- This is for Original Transaction-----------------------------{
3276: pa_debug.write_file(pa_debug.g_err_stage);
3277: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3278: pa_debug.write_file(pa_debug.g_err_stage);
3279: pa_debug.g_err_stage := 'get_accrual_pa_dt_per prvdr_recvr_flg - '||p_prvdr_recvr_flg;
3280: pa_debug.write_file(pa_debug.g_err_stage);
3281: END IF;
3282:
3283: IF p_org_rev_flg = 'O' THEN -- This is for Original Transaction-----------------------------{
3284:
3292: ELSE
3293: l_org_pa_date := g_prv_accr_prvdr_pa_end_date;
3294: END IF;
3295: IF ( l_debug_mode = 'Y' ) THEN
3296: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA dt- '||to_char(l_org_pa_date);
3297: pa_debug.write_file(pa_debug.g_err_stage);
3298: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA Per-'||g_prv_accr_prvdr_pa_period;
3299: pa_debug.write_file(pa_debug.g_err_stage);
3300: END IF;
3293: l_org_pa_date := g_prv_accr_prvdr_pa_end_date;
3294: END IF;
3295: IF ( l_debug_mode = 'Y' ) THEN
3296: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA dt- '||to_char(l_org_pa_date);
3297: pa_debug.write_file(pa_debug.g_err_stage);
3298: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA Per-'||g_prv_accr_prvdr_pa_period;
3299: pa_debug.write_file(pa_debug.g_err_stage);
3300: END IF;
3301:
3294: END IF;
3295: IF ( l_debug_mode = 'Y' ) THEN
3296: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA dt- '||to_char(l_org_pa_date);
3297: pa_debug.write_file(pa_debug.g_err_stage);
3298: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA Per-'||g_prv_accr_prvdr_pa_period;
3299: pa_debug.write_file(pa_debug.g_err_stage);
3300: END IF;
3301:
3302: x_pa_date := l_org_pa_date;
3295: IF ( l_debug_mode = 'Y' ) THEN
3296: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA dt- '||to_char(l_org_pa_date);
3297: pa_debug.write_file(pa_debug.g_err_stage);
3298: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA Per-'||g_prv_accr_prvdr_pa_period;
3299: pa_debug.write_file(pa_debug.g_err_stage);
3300: END IF;
3301:
3302: x_pa_date := l_org_pa_date;
3303: x_pa_period_name := g_prv_accr_prvdr_pa_period;
3313: ELSE
3314: l_org_pa_date := g_prv_accr_recvr_pa_end_date;
3315: END IF;
3316: IF ( l_debug_mode = 'Y' ) THEN
3317: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA dt- '||to_char(l_org_pa_date);
3318: pa_debug.write_file(pa_debug.g_err_stage);
3319: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA Per-'||g_prv_accr_recvr_pa_period;
3320: pa_debug.write_file(pa_debug.g_err_stage);
3321: END IF;
3314: l_org_pa_date := g_prv_accr_recvr_pa_end_date;
3315: END IF;
3316: IF ( l_debug_mode = 'Y' ) THEN
3317: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA dt- '||to_char(l_org_pa_date);
3318: pa_debug.write_file(pa_debug.g_err_stage);
3319: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA Per-'||g_prv_accr_recvr_pa_period;
3320: pa_debug.write_file(pa_debug.g_err_stage);
3321: END IF;
3322:
3315: END IF;
3316: IF ( l_debug_mode = 'Y' ) THEN
3317: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA dt- '||to_char(l_org_pa_date);
3318: pa_debug.write_file(pa_debug.g_err_stage);
3319: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA Per-'||g_prv_accr_recvr_pa_period;
3320: pa_debug.write_file(pa_debug.g_err_stage);
3321: END IF;
3322:
3323: x_pa_date := l_org_pa_date;
3316: IF ( l_debug_mode = 'Y' ) THEN
3317: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA dt- '||to_char(l_org_pa_date);
3318: pa_debug.write_file(pa_debug.g_err_stage);
3319: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA Per-'||g_prv_accr_recvr_pa_period;
3320: pa_debug.write_file(pa_debug.g_err_stage);
3321: END IF;
3322:
3323: x_pa_date := l_org_pa_date;
3324: x_pa_period_name := g_prv_accr_recvr_pa_period;
3342: * will usually end-up lesser than ei_date. This is OK.) The end_date will be
3343: * used for both EPP and non-EPP.
3344: */
3345: IF ( l_debug_mode = 'Y' ) THEN
3346: pa_debug.g_err_stage := 'DEBUG: gl periods are different ' || l_org_gl_period_name || p_gl_period;
3347: pa_debug.write_file(pa_debug.g_err_stage);
3348: END IF;
3349:
3350: l_pa_overlaps_gl := 'Y';
3343: * used for both EPP and non-EPP.
3344: */
3345: IF ( l_debug_mode = 'Y' ) THEN
3346: pa_debug.g_err_stage := 'DEBUG: gl periods are different ' || l_org_gl_period_name || p_gl_period;
3347: pa_debug.write_file(pa_debug.g_err_stage);
3348: END IF;
3349:
3350: l_pa_overlaps_gl := 'Y';
3351: SELECT papl.end_date,papl.start_date,papl.period_name
3361: END IF;
3362: EXCEPTION
3363: WHEN NO_DATA_FOUND THEN
3364: IF ( l_debug_mode = 'Y' ) THEN
3365: pa_debug.g_err_stage := 'NDF - get_accrual_pa_dt_per Org PA dt ';
3366: pa_debug.write_file(pa_debug.g_err_stage);
3367: END IF;
3368: x_return_status := FND_API.G_RET_STS_ERROR ;
3369: IF p_prvdr_recvr_flg = 'P' THEN
3362: EXCEPTION
3363: WHEN NO_DATA_FOUND THEN
3364: IF ( l_debug_mode = 'Y' ) THEN
3365: pa_debug.g_err_stage := 'NDF - get_accrual_pa_dt_per Org PA dt ';
3366: pa_debug.write_file(pa_debug.g_err_stage);
3367: END IF;
3368: x_return_status := FND_API.G_RET_STS_ERROR ;
3369: IF p_prvdr_recvr_flg = 'P' THEN
3370: x_error_code := 'NO_PA_DATE';
3373: END IF;
3374: return;
3375: WHEN OTHERS THEN
3376: IF ( l_debug_mode = 'Y' ) THEN
3377: pa_debug.g_err_stage := 'WO Excep - get_accrual_pa_dt_per Org PA Date';
3378: pa_debug.write_file(pa_debug.g_err_stage);
3379: END IF;
3380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3381: raise;
3374: return;
3375: WHEN OTHERS THEN
3376: IF ( l_debug_mode = 'Y' ) THEN
3377: pa_debug.g_err_stage := 'WO Excep - get_accrual_pa_dt_per Org PA Date';
3378: pa_debug.write_file(pa_debug.g_err_stage);
3379: END IF;
3380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3381: raise;
3382: END;
3399: ELSE
3400: l_org_pa_date := p_ei_date;
3401: END IF;
3402: IF ( l_debug_mode = 'Y' ) THEN
3403: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA dt- '||to_char(l_org_pa_date);
3404: pa_debug.write_file(pa_debug.g_err_stage);
3405: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA Per-'||l_org_pa_period_name;
3406: pa_debug.write_file(pa_debug.g_err_stage);
3407: END IF;
3400: l_org_pa_date := p_ei_date;
3401: END IF;
3402: IF ( l_debug_mode = 'Y' ) THEN
3403: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA dt- '||to_char(l_org_pa_date);
3404: pa_debug.write_file(pa_debug.g_err_stage);
3405: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA Per-'||l_org_pa_period_name;
3406: pa_debug.write_file(pa_debug.g_err_stage);
3407: END IF;
3408:
3401: END IF;
3402: IF ( l_debug_mode = 'Y' ) THEN
3403: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA dt- '||to_char(l_org_pa_date);
3404: pa_debug.write_file(pa_debug.g_err_stage);
3405: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA Per-'||l_org_pa_period_name;
3406: pa_debug.write_file(pa_debug.g_err_stage);
3407: END IF;
3408:
3409: x_pa_date := l_org_pa_date;
3402: IF ( l_debug_mode = 'Y' ) THEN
3403: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA dt- '||to_char(l_org_pa_date);
3404: pa_debug.write_file(pa_debug.g_err_stage);
3405: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA Per-'||l_org_pa_period_name;
3406: pa_debug.write_file(pa_debug.g_err_stage);
3407: END IF;
3408:
3409: x_pa_date := l_org_pa_date;
3410: x_pa_period_name := l_org_pa_period_name;
3417: IF p_gl_period = g_p_gl_period THEN
3418:
3419: l_rev_pa_date := g_p_accr_rev_pa_date;
3420: IF ( l_debug_mode = 'Y' ) THEN
3421: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA dt- '||to_char(l_rev_pa_date);
3422: pa_debug.write_file(pa_debug.g_err_stage);
3423: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA Per-'||g_p_accr_rev_pa_period;
3424: pa_debug.write_file(pa_debug.g_err_stage);
3425: END IF;
3418:
3419: l_rev_pa_date := g_p_accr_rev_pa_date;
3420: IF ( l_debug_mode = 'Y' ) THEN
3421: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA dt- '||to_char(l_rev_pa_date);
3422: pa_debug.write_file(pa_debug.g_err_stage);
3423: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA Per-'||g_p_accr_rev_pa_period;
3424: pa_debug.write_file(pa_debug.g_err_stage);
3425: END IF;
3426:
3419: l_rev_pa_date := g_p_accr_rev_pa_date;
3420: IF ( l_debug_mode = 'Y' ) THEN
3421: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA dt- '||to_char(l_rev_pa_date);
3422: pa_debug.write_file(pa_debug.g_err_stage);
3423: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA Per-'||g_p_accr_rev_pa_period;
3424: pa_debug.write_file(pa_debug.g_err_stage);
3425: END IF;
3426:
3427: x_pa_date := l_rev_pa_date;
3420: IF ( l_debug_mode = 'Y' ) THEN
3421: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA dt- '||to_char(l_rev_pa_date);
3422: pa_debug.write_file(pa_debug.g_err_stage);
3423: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA Per-'||g_p_accr_rev_pa_period;
3424: pa_debug.write_file(pa_debug.g_err_stage);
3425: END IF;
3426:
3427: x_pa_date := l_rev_pa_date;
3428: /*2476554*/
3437:
3438: IF p_gl_period = g_r_gl_period THEN
3439: l_rev_pa_date := g_r_accr_rev_pa_date;
3440: IF ( l_debug_mode = 'Y' ) THEN
3441: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA dt- '||to_char(l_rev_pa_date);
3442: pa_debug.write_file(pa_debug.g_err_stage);
3443: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA Per-'||g_r_accr_rev_pa_period;
3444: pa_debug.write_file(pa_debug.g_err_stage);
3445: END IF;
3438: IF p_gl_period = g_r_gl_period THEN
3439: l_rev_pa_date := g_r_accr_rev_pa_date;
3440: IF ( l_debug_mode = 'Y' ) THEN
3441: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA dt- '||to_char(l_rev_pa_date);
3442: pa_debug.write_file(pa_debug.g_err_stage);
3443: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA Per-'||g_r_accr_rev_pa_period;
3444: pa_debug.write_file(pa_debug.g_err_stage);
3445: END IF;
3446:
3439: l_rev_pa_date := g_r_accr_rev_pa_date;
3440: IF ( l_debug_mode = 'Y' ) THEN
3441: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA dt- '||to_char(l_rev_pa_date);
3442: pa_debug.write_file(pa_debug.g_err_stage);
3443: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA Per-'||g_r_accr_rev_pa_period;
3444: pa_debug.write_file(pa_debug.g_err_stage);
3445: END IF;
3446:
3447: x_pa_date := l_rev_pa_date;
3440: IF ( l_debug_mode = 'Y' ) THEN
3441: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA dt- '||to_char(l_rev_pa_date);
3442: pa_debug.write_file(pa_debug.g_err_stage);
3443: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA Per-'||g_r_accr_rev_pa_period;
3444: pa_debug.write_file(pa_debug.g_err_stage);
3445: END IF;
3446:
3447: x_pa_date := l_rev_pa_date;
3448: /*2476554*/
3464: WHERE nvl(papl.org_id, -99 ) = nvl(p_org_id, -99 )
3465: AND papl.gl_period_name = p_gl_period ;
3466: END;
3467: IF ( l_debug_mode = 'Y' ) THEN
3468: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev SEL min(Date) For GL per '||to_char(l_rev_pa_date);
3469: pa_debug.write_file(pa_debug.g_err_stage);
3470: END IF;
3471:
3472: IF l_rev_pa_date IS NOT NULL THEN
3465: AND papl.gl_period_name = p_gl_period ;
3466: END;
3467: IF ( l_debug_mode = 'Y' ) THEN
3468: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev SEL min(Date) For GL per '||to_char(l_rev_pa_date);
3469: pa_debug.write_file(pa_debug.g_err_stage);
3470: END IF;
3471:
3472: IF l_rev_pa_date IS NOT NULL THEN
3473:
3480: AND trunc(l_rev_pa_date) between papl.start_date and papl.end_date;
3481: EXCEPTION
3482: WHEN NO_DATA_FOUND THEN
3483: IF ( l_debug_mode = 'Y' ) THEN
3484: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev NDF';
3485: pa_debug.write_file(pa_debug.g_err_stage);
3486: END IF;
3487: x_return_status := FND_API.G_RET_STS_ERROR ;
3488: IF p_prvdr_recvr_flg = 'P' THEN
3481: EXCEPTION
3482: WHEN NO_DATA_FOUND THEN
3483: IF ( l_debug_mode = 'Y' ) THEN
3484: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev NDF';
3485: pa_debug.write_file(pa_debug.g_err_stage);
3486: END IF;
3487: x_return_status := FND_API.G_RET_STS_ERROR ;
3488: IF p_prvdr_recvr_flg = 'P' THEN
3489: x_error_code := 'PA_NO_REV_PRVDR_ACCR_PA_DATE';
3492: END IF;
3493: return;
3494: WHEN OTHERS THEN
3495: IF ( l_debug_mode = 'Y' ) THEN
3496: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev WO';
3497: pa_debug.write_file(pa_debug.g_err_stage);
3498: END IF;
3499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3500: raise;
3493: return;
3494: WHEN OTHERS THEN
3495: IF ( l_debug_mode = 'Y' ) THEN
3496: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev WO';
3497: pa_debug.write_file(pa_debug.g_err_stage);
3498: END IF;
3499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3500: raise;
3501: END;
3518: x_pa_period_name := l_rev_pa_period_name;
3519: ELSE
3520: ---- Handle the error. PA_DATE_PERIOD NOT DEFINED for Reverse trx.
3521: IF ( l_debug_mode = 'Y' ) THEN
3522: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev PA Period not defined';
3523: pa_debug.write_file(pa_debug.g_err_stage);
3524: END IF;
3525:
3526: x_return_status := FND_API.G_RET_STS_ERROR ;
3519: ELSE
3520: ---- Handle the error. PA_DATE_PERIOD NOT DEFINED for Reverse trx.
3521: IF ( l_debug_mode = 'Y' ) THEN
3522: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev PA Period not defined';
3523: pa_debug.write_file(pa_debug.g_err_stage);
3524: END IF;
3525:
3526: x_return_status := FND_API.G_RET_STS_ERROR ;
3527:
3533: return;
3534:
3535: END IF;
3536: IF ( l_debug_mode = 'Y' ) THEN
3537: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa dt - '||to_char(x_pa_date);
3538: pa_debug.write_file(pa_debug.g_err_stage);
3539: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa period - '||x_pa_period_name;
3540: pa_debug.write_file(pa_debug.g_err_stage);
3541: END IF;
3534:
3535: END IF;
3536: IF ( l_debug_mode = 'Y' ) THEN
3537: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa dt - '||to_char(x_pa_date);
3538: pa_debug.write_file(pa_debug.g_err_stage);
3539: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa period - '||x_pa_period_name;
3540: pa_debug.write_file(pa_debug.g_err_stage);
3541: END IF;
3542:
3535: END IF;
3536: IF ( l_debug_mode = 'Y' ) THEN
3537: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa dt - '||to_char(x_pa_date);
3538: pa_debug.write_file(pa_debug.g_err_stage);
3539: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa period - '||x_pa_period_name;
3540: pa_debug.write_file(pa_debug.g_err_stage);
3541: END IF;
3542:
3543: END IF; -------------------------------------------------------------------------------------------}
3536: IF ( l_debug_mode = 'Y' ) THEN
3537: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa dt - '||to_char(x_pa_date);
3538: pa_debug.write_file(pa_debug.g_err_stage);
3539: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa period - '||x_pa_period_name;
3540: pa_debug.write_file(pa_debug.g_err_stage);
3541: END IF;
3542:
3543: END IF; -------------------------------------------------------------------------------------------}
3544:
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)||']';
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)||']';
3594: IF ( l_debug_mode = 'Y' ) THEN
3595: pa_debug.write_file(pa_debug.g_err_stage);
3596: END IF;
3597: pa_debug.g_err_stage := 'get_rev_accrual_date() sob - ['||p_set_of_books_id||']';
3591:
3592:
3593: pa_debug.g_err_stage := 'get_rev_accrual_date() for ref dt- ['||to_char(p_reference_date)||']';
3594: IF ( l_debug_mode = 'Y' ) THEN
3595: pa_debug.write_file(pa_debug.g_err_stage);
3596: END IF;
3597: pa_debug.g_err_stage := 'get_rev_accrual_date() sob - ['||p_set_of_books_id||']';
3598: IF ( l_debug_mode = 'Y' ) THEN
3599: pa_debug.write_file(pa_debug.g_err_stage);
3593: pa_debug.g_err_stage := 'get_rev_accrual_date() for ref dt- ['||to_char(p_reference_date)||']';
3594: IF ( l_debug_mode = 'Y' ) THEN
3595: pa_debug.write_file(pa_debug.g_err_stage);
3596: END IF;
3597: pa_debug.g_err_stage := 'get_rev_accrual_date() sob - ['||p_set_of_books_id||']';
3598: IF ( l_debug_mode = 'Y' ) THEN
3599: pa_debug.write_file(pa_debug.g_err_stage);
3600: END IF;
3601: pa_debug.g_err_stage := 'get_rev_accrual_date() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3595: pa_debug.write_file(pa_debug.g_err_stage);
3596: END IF;
3597: pa_debug.g_err_stage := 'get_rev_accrual_date() sob - ['||p_set_of_books_id||']';
3598: IF ( l_debug_mode = 'Y' ) THEN
3599: pa_debug.write_file(pa_debug.g_err_stage);
3600: END IF;
3601: pa_debug.g_err_stage := 'get_rev_accrual_date() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3602: IF ( l_debug_mode = 'Y' ) THEN
3603: pa_debug.write_file(pa_debug.g_err_stage);
3597: pa_debug.g_err_stage := 'get_rev_accrual_date() sob - ['||p_set_of_books_id||']';
3598: IF ( l_debug_mode = 'Y' ) THEN
3599: pa_debug.write_file(pa_debug.g_err_stage);
3600: END IF;
3601: pa_debug.g_err_stage := 'get_rev_accrual_date() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3602: IF ( l_debug_mode = 'Y' ) THEN
3603: pa_debug.write_file(pa_debug.g_err_stage);
3604: END IF;
3605:
3599: pa_debug.write_file(pa_debug.g_err_stage);
3600: END IF;
3601: pa_debug.g_err_stage := 'get_rev_accrual_date() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3602: IF ( l_debug_mode = 'Y' ) THEN
3603: pa_debug.write_file(pa_debug.g_err_stage);
3604: END IF;
3605:
3606:
3607: IF p_prvdr_recvr_flg = 'P' THEN ------------------------------------{
3607: IF p_prvdr_recvr_flg = 'P' THEN ------------------------------------{
3608:
3609: IF ((trunc(p_reference_date) BETWEEN g_p_org_accr_start_date AND g_p_org_accr_end_date )
3610: AND g_p_org_accr_end_date IS NOT NULL) THEN
3611: pa_debug.g_err_stage := 'Returning the accrual date from cache - get_rev_accrual_date()';
3612: IF ( l_debug_mode = 'Y' ) THEN
3613: pa_debug.write_file(pa_debug.g_err_stage);
3614: END IF;
3615:
3609: IF ((trunc(p_reference_date) BETWEEN g_p_org_accr_start_date AND g_p_org_accr_end_date )
3610: AND g_p_org_accr_end_date IS NOT NULL) THEN
3611: pa_debug.g_err_stage := 'Returning the accrual date from cache - get_rev_accrual_date()';
3612: IF ( l_debug_mode = 'Y' ) THEN
3613: pa_debug.write_file(pa_debug.g_err_stage);
3614: END IF;
3615:
3616: IF p_epp_flag = 'Y' THEN
3617: l_rev_accr_dt := g_p_rev_accr_nxt_st_dt;
3625:
3626: IF ((trunc(p_reference_date) BETWEEN g_r_org_accr_start_date AND g_r_org_accr_end_date )
3627: AND g_r_org_accr_end_date IS NOT NULL) THEN
3628:
3629: pa_debug.g_err_stage := 'Returning the accrual date from cache - get_rev_accrual_date()';
3630: IF ( l_debug_mode = 'Y' ) THEN
3631: pa_debug.write_file(pa_debug.g_err_stage);
3632: END IF;
3633:
3627: AND g_r_org_accr_end_date IS NOT NULL) THEN
3628:
3629: pa_debug.g_err_stage := 'Returning the accrual date from cache - get_rev_accrual_date()';
3630: IF ( l_debug_mode = 'Y' ) THEN
3631: pa_debug.write_file(pa_debug.g_err_stage);
3632: END IF;
3633:
3634: IF p_epp_flag = 'Y' THEN
3635: l_rev_accr_dt := g_r_rev_accr_nxt_st_dt;
3644: END IF; ------------------p_prvdr_recvr_flg = 'P'--------------------}
3645:
3646: ---Either the Cache is empty or the date is not in the range.
3647:
3648: pa_debug.g_err_stage := 'Before select get_rev_accrual_date() for ref dt-'||to_char(p_reference_date);
3649: IF ( l_debug_mode = 'Y' ) THEN
3650: pa_debug.write_file(pa_debug.g_err_stage);
3651: END IF;
3652:
3646: ---Either the Cache is empty or the date is not in the range.
3647:
3648: pa_debug.g_err_stage := 'Before select get_rev_accrual_date() for ref dt-'||to_char(p_reference_date);
3649: IF ( l_debug_mode = 'Y' ) THEN
3650: pa_debug.write_file(pa_debug.g_err_stage);
3651: END IF;
3652:
3653: BEGIN
3654: SELECT PERIOD.start_date,PERIOD.end_date
3665: x_error_code := 'PA_GL_REV_PRVDR_ACCR_NDEF';
3666: ELSE
3667: x_error_code := 'PA_GL_REV_RECVR_ACCR_NDEF';
3668: END IF;
3669: pa_debug.g_err_stage :='NDF - Prvdr GL Period SELECT';
3670: IF ( l_debug_mode = 'Y' ) THEN
3671: pa_debug.write_file(pa_debug.g_err_stage);
3672: END IF;
3673: return(NULL);
3667: x_error_code := 'PA_GL_REV_RECVR_ACCR_NDEF';
3668: END IF;
3669: pa_debug.g_err_stage :='NDF - Prvdr GL Period SELECT';
3670: IF ( l_debug_mode = 'Y' ) THEN
3671: pa_debug.write_file(pa_debug.g_err_stage);
3672: END IF;
3673: return(NULL);
3674: WHEN OTHERS THEN
3675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3672: END IF;
3673: return(NULL);
3674: WHEN OTHERS THEN
3675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3676: x_error_stage := 'Procedure: Pa_Utils2.Get_Accrual_Period_Information() ::: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
3677: raise;
3678: END;
3679:
3680:
3716: x_error_code := 'PA_GL_REV_RECVR_ACCR_CLOSED';
3717: END IF;
3718: return(NULL);
3719: END IF; -----------------l_period_status IN ('O','F')----------}
3720: pa_debug.g_err_stage := 'get_rev_accrual_date st date is '||to_char(l_rev_accr_nxt_st_dt);
3721: IF ( l_debug_mode = 'Y' ) THEN
3722: pa_debug.write_file(pa_debug.g_err_stage);
3723: END IF;
3724: pa_debug.g_err_stage := 'get_rev_accrual_date end date is '||to_char(l_rev_accr_nxt_end_dt);
3718: return(NULL);
3719: END IF; -----------------l_period_status IN ('O','F')----------}
3720: pa_debug.g_err_stage := 'get_rev_accrual_date st date is '||to_char(l_rev_accr_nxt_st_dt);
3721: IF ( l_debug_mode = 'Y' ) THEN
3722: pa_debug.write_file(pa_debug.g_err_stage);
3723: END IF;
3724: pa_debug.g_err_stage := 'get_rev_accrual_date end date is '||to_char(l_rev_accr_nxt_end_dt);
3725: IF ( l_debug_mode = 'Y' ) THEN
3726: pa_debug.write_file(pa_debug.g_err_stage);
3720: pa_debug.g_err_stage := 'get_rev_accrual_date st date is '||to_char(l_rev_accr_nxt_st_dt);
3721: IF ( l_debug_mode = 'Y' ) THEN
3722: pa_debug.write_file(pa_debug.g_err_stage);
3723: END IF;
3724: pa_debug.g_err_stage := 'get_rev_accrual_date end date is '||to_char(l_rev_accr_nxt_end_dt);
3725: IF ( l_debug_mode = 'Y' ) THEN
3726: pa_debug.write_file(pa_debug.g_err_stage);
3727: END IF;
3728:
3722: pa_debug.write_file(pa_debug.g_err_stage);
3723: END IF;
3724: pa_debug.g_err_stage := 'get_rev_accrual_date end date is '||to_char(l_rev_accr_nxt_end_dt);
3725: IF ( l_debug_mode = 'Y' ) THEN
3726: pa_debug.write_file(pa_debug.g_err_stage);
3727: END IF;
3728:
3729: IF p_epp_flag = 'Y' THEN
3730: l_rev_accr_dt := l_rev_accr_nxt_st_dt;
3735: return(l_rev_accr_dt);
3736: EXCEPTION
3737: WHEN OTHERS THEN
3738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3739: x_error_stage := 'Procedure: Pa_Utils2.Get_Accrual_Period_Information() ::: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
3740: RAISE;
3741: END;
3742: ----------------------------------------------------------------------------------------------------------------
3743: -- API : get_accrual_gl_dt_period
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
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
3791: pa_debug.write_file(pa_debug.g_err_stage);
3792: END IF;
3793: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() sob - ['||p_set_of_books_id||']';
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
3791: pa_debug.write_file(pa_debug.g_err_stage);
3792: END IF;
3793: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() sob - ['||p_set_of_books_id||']';
3794: IF ( l_debug_mode = 'Y' ) THEN
3795: pa_debug.write_file(pa_debug.g_err_stage);
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
3791: pa_debug.write_file(pa_debug.g_err_stage);
3792: END IF;
3793: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() sob - ['||p_set_of_books_id||']';
3794: IF ( l_debug_mode = 'Y' ) THEN
3795: pa_debug.write_file(pa_debug.g_err_stage);
3796: END IF;
3797: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3791: pa_debug.write_file(pa_debug.g_err_stage);
3792: END IF;
3793: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() sob - ['||p_set_of_books_id||']';
3794: IF ( l_debug_mode = 'Y' ) THEN
3795: pa_debug.write_file(pa_debug.g_err_stage);
3796: END IF;
3797: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3798: IF ( l_debug_mode = 'Y' ) THEN
3799: pa_debug.write_file(pa_debug.g_err_stage);
3793: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() sob - ['||p_set_of_books_id||']';
3794: IF ( l_debug_mode = 'Y' ) THEN
3795: pa_debug.write_file(pa_debug.g_err_stage);
3796: END IF;
3797: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3798: IF ( l_debug_mode = 'Y' ) THEN
3799: pa_debug.write_file(pa_debug.g_err_stage);
3800: END IF;
3801:
3795: pa_debug.write_file(pa_debug.g_err_stage);
3796: END IF;
3797: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3798: IF ( l_debug_mode = 'Y' ) THEN
3799: pa_debug.write_file(pa_debug.g_err_stage);
3800: END IF;
3801:
3802: IF p_prvdr_recvr_flg = 'P' THEN -------------------------------------------------{
3803:
3810: ELSE
3811: l_accr_gl_dt := g_p_accr_gl_per_end_dt;
3812: END IF;
3813:
3814: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache dt- ['||to_char(l_accr_gl_dt)||']';
3815: IF ( l_debug_mode = 'Y' ) THEN
3816: pa_debug.write_file(pa_debug.g_err_stage);
3817: END IF;
3818: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache Per- ['||g_p_accr_gl_per_name||']';
3812: END IF;
3813:
3814: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache dt- ['||to_char(l_accr_gl_dt)||']';
3815: IF ( l_debug_mode = 'Y' ) THEN
3816: pa_debug.write_file(pa_debug.g_err_stage);
3817: END IF;
3818: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache Per- ['||g_p_accr_gl_per_name||']';
3819: IF ( l_debug_mode = 'Y' ) THEN
3820: pa_debug.write_file(pa_debug.g_err_stage);
3814: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache dt- ['||to_char(l_accr_gl_dt)||']';
3815: IF ( l_debug_mode = 'Y' ) THEN
3816: pa_debug.write_file(pa_debug.g_err_stage);
3817: END IF;
3818: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache Per- ['||g_p_accr_gl_per_name||']';
3819: IF ( l_debug_mode = 'Y' ) THEN
3820: pa_debug.write_file(pa_debug.g_err_stage);
3821: END IF;
3822: --Assign the out variables.
3816: pa_debug.write_file(pa_debug.g_err_stage);
3817: END IF;
3818: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache Per- ['||g_p_accr_gl_per_name||']';
3819: IF ( l_debug_mode = 'Y' ) THEN
3820: pa_debug.write_file(pa_debug.g_err_stage);
3821: END IF;
3822: --Assign the out variables.
3823: x_gl_accr_dt := l_accr_gl_dt ;
3824: x_gl_accr_period_name := g_p_accr_gl_per_name;
3835: l_accr_gl_dt := p_reference_date;
3836: ELSE
3837: l_accr_gl_dt := g_r_accr_gl_per_end_dt;
3838: END IF;
3839: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache dt- ['||to_char(l_accr_gl_dt)||']';
3840: IF ( l_debug_mode = 'Y' ) THEN
3841: pa_debug.write_file(pa_debug.g_err_stage);
3842: END IF;
3843: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache Per- ['||g_r_accr_gl_per_name||']';
3837: l_accr_gl_dt := g_r_accr_gl_per_end_dt;
3838: END IF;
3839: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache dt- ['||to_char(l_accr_gl_dt)||']';
3840: IF ( l_debug_mode = 'Y' ) THEN
3841: pa_debug.write_file(pa_debug.g_err_stage);
3842: END IF;
3843: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache Per- ['||g_r_accr_gl_per_name||']';
3844: IF ( l_debug_mode = 'Y' ) THEN
3845: pa_debug.write_file(pa_debug.g_err_stage);
3839: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache dt- ['||to_char(l_accr_gl_dt)||']';
3840: IF ( l_debug_mode = 'Y' ) THEN
3841: pa_debug.write_file(pa_debug.g_err_stage);
3842: END IF;
3843: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache Per- ['||g_r_accr_gl_per_name||']';
3844: IF ( l_debug_mode = 'Y' ) THEN
3845: pa_debug.write_file(pa_debug.g_err_stage);
3846: END IF;
3847: --Assign the out variables.
3841: pa_debug.write_file(pa_debug.g_err_stage);
3842: END IF;
3843: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache Per- ['||g_r_accr_gl_per_name||']';
3844: IF ( l_debug_mode = 'Y' ) THEN
3845: pa_debug.write_file(pa_debug.g_err_stage);
3846: END IF;
3847: --Assign the out variables.
3848: x_gl_accr_dt := l_accr_gl_dt ;
3849: x_gl_accr_period_name := g_r_accr_gl_per_name;
3867: x_error_code := 'PA_GL_PER_PRVDR_ACCR_NOT_DEF';
3868: ELSE
3869: x_error_code := 'PA_GL_PER_RECVR_ACCR_NOT_DEF';
3870: END IF;
3871: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF for ref dt- ['||to_char(p_reference_date)||']';
3872: IF ( l_debug_mode = 'Y' ) THEN
3873: pa_debug.write_file(pa_debug.g_err_stage);
3874: END IF;
3875: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF sob - ['||p_set_of_books_id||']';
3869: x_error_code := 'PA_GL_PER_RECVR_ACCR_NOT_DEF';
3870: END IF;
3871: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF for ref dt- ['||to_char(p_reference_date)||']';
3872: IF ( l_debug_mode = 'Y' ) THEN
3873: pa_debug.write_file(pa_debug.g_err_stage);
3874: END IF;
3875: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF sob - ['||p_set_of_books_id||']';
3876: IF ( l_debug_mode = 'Y' ) THEN
3877: pa_debug.write_file(pa_debug.g_err_stage);
3871: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF for ref dt- ['||to_char(p_reference_date)||']';
3872: IF ( l_debug_mode = 'Y' ) THEN
3873: pa_debug.write_file(pa_debug.g_err_stage);
3874: END IF;
3875: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF sob - ['||p_set_of_books_id||']';
3876: IF ( l_debug_mode = 'Y' ) THEN
3877: pa_debug.write_file(pa_debug.g_err_stage);
3878: END IF;
3879: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3873: pa_debug.write_file(pa_debug.g_err_stage);
3874: END IF;
3875: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF sob - ['||p_set_of_books_id||']';
3876: IF ( l_debug_mode = 'Y' ) THEN
3877: pa_debug.write_file(pa_debug.g_err_stage);
3878: END IF;
3879: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3880: IF ( l_debug_mode = 'Y' ) THEN
3881: pa_debug.write_file(pa_debug.g_err_stage);
3875: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF sob - ['||p_set_of_books_id||']';
3876: IF ( l_debug_mode = 'Y' ) THEN
3877: pa_debug.write_file(pa_debug.g_err_stage);
3878: END IF;
3879: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3880: IF ( l_debug_mode = 'Y' ) THEN
3881: pa_debug.write_file(pa_debug.g_err_stage);
3882: END IF;
3883: return;
3877: pa_debug.write_file(pa_debug.g_err_stage);
3878: END IF;
3879: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3880: IF ( l_debug_mode = 'Y' ) THEN
3881: pa_debug.write_file(pa_debug.g_err_stage);
3882: END IF;
3883: return;
3884: WHEN OTHERS THEN
3885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3883: return;
3884: WHEN OTHERS THEN
3885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3886:
3887: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO sob - ['||p_set_of_books_id||']';
3888: IF ( l_debug_mode = 'Y' ) THEN
3889: pa_debug.write_file(pa_debug.g_err_stage);
3890: END IF;
3891: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3886:
3887: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO sob - ['||p_set_of_books_id||']';
3888: IF ( l_debug_mode = 'Y' ) THEN
3889: pa_debug.write_file(pa_debug.g_err_stage);
3890: END IF;
3891: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3892: IF ( l_debug_mode = 'Y' ) THEN
3893: pa_debug.write_file(pa_debug.g_err_stage);
3887: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO sob - ['||p_set_of_books_id||']';
3888: IF ( l_debug_mode = 'Y' ) THEN
3889: pa_debug.write_file(pa_debug.g_err_stage);
3890: END IF;
3891: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3892: IF ( l_debug_mode = 'Y' ) THEN
3893: pa_debug.write_file(pa_debug.g_err_stage);
3894: END IF;
3895: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO for ref dt- ['||to_char(p_reference_date)||']';
3889: pa_debug.write_file(pa_debug.g_err_stage);
3890: END IF;
3891: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3892: IF ( l_debug_mode = 'Y' ) THEN
3893: pa_debug.write_file(pa_debug.g_err_stage);
3894: END IF;
3895: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO for ref dt- ['||to_char(p_reference_date)||']';
3896: IF ( l_debug_mode = 'Y' ) THEN
3897: pa_debug.write_file(pa_debug.g_err_stage);
3891: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3892: IF ( l_debug_mode = 'Y' ) THEN
3893: pa_debug.write_file(pa_debug.g_err_stage);
3894: END IF;
3895: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO for ref dt- ['||to_char(p_reference_date)||']';
3896: IF ( l_debug_mode = 'Y' ) THEN
3897: pa_debug.write_file(pa_debug.g_err_stage);
3898: END IF;
3899: x_error_stage := 'Procedure: Pa_Utils2.Get_Accrual_Period_Information() ::: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
3893: pa_debug.write_file(pa_debug.g_err_stage);
3894: END IF;
3895: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO for ref dt- ['||to_char(p_reference_date)||']';
3896: IF ( l_debug_mode = 'Y' ) THEN
3897: pa_debug.write_file(pa_debug.g_err_stage);
3898: END IF;
3899: x_error_stage := 'Procedure: Pa_Utils2.Get_Accrual_Period_Information() ::: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
3900: raise;
3901: END;
3895: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO for ref dt- ['||to_char(p_reference_date)||']';
3896: IF ( l_debug_mode = 'Y' ) THEN
3897: pa_debug.write_file(pa_debug.g_err_stage);
3898: END IF;
3899: x_error_stage := 'Procedure: Pa_Utils2.Get_Accrual_Period_Information() ::: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
3900: raise;
3901: END;
3902: -- EPP Derivation.
3903: IF p_epp_flag = 'Y' THEN
3917: g_r_accr_gl_per_st_dt := l_accr_gl_period_st_dt ;
3918: g_r_accr_gl_per_end_dt := l_accr_gl_period_end_dt;
3919: END IF;
3920:
3921: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL for accr/gl dt- ['||to_char(l_accr_gl_dt)||']';
3922: IF ( l_debug_mode = 'Y' ) THEN
3923: pa_debug.write_file(pa_debug.g_err_stage);
3924: END IF;
3925: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL sob - ['||p_set_of_books_id||']';
3919: END IF;
3920:
3921: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL for accr/gl dt- ['||to_char(l_accr_gl_dt)||']';
3922: IF ( l_debug_mode = 'Y' ) THEN
3923: pa_debug.write_file(pa_debug.g_err_stage);
3924: END IF;
3925: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL sob - ['||p_set_of_books_id||']';
3926: IF ( l_debug_mode = 'Y' ) THEN
3927: pa_debug.write_file(pa_debug.g_err_stage);
3921: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL for accr/gl dt- ['||to_char(l_accr_gl_dt)||']';
3922: IF ( l_debug_mode = 'Y' ) THEN
3923: pa_debug.write_file(pa_debug.g_err_stage);
3924: END IF;
3925: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL sob - ['||p_set_of_books_id||']';
3926: IF ( l_debug_mode = 'Y' ) THEN
3927: pa_debug.write_file(pa_debug.g_err_stage);
3928: END IF;
3929: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3923: pa_debug.write_file(pa_debug.g_err_stage);
3924: END IF;
3925: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL sob - ['||p_set_of_books_id||']';
3926: IF ( l_debug_mode = 'Y' ) THEN
3927: pa_debug.write_file(pa_debug.g_err_stage);
3928: END IF;
3929: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3930: IF ( l_debug_mode = 'Y' ) THEN
3931: pa_debug.write_file(pa_debug.g_err_stage);
3925: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL sob - ['||p_set_of_books_id||']';
3926: IF ( l_debug_mode = 'Y' ) THEN
3927: pa_debug.write_file(pa_debug.g_err_stage);
3928: END IF;
3929: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3930: IF ( l_debug_mode = 'Y' ) THEN
3931: pa_debug.write_file(pa_debug.g_err_stage);
3932: END IF;
3933: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL gl period name - ['||l_accr_gl_period_name||']';
3927: pa_debug.write_file(pa_debug.g_err_stage);
3928: END IF;
3929: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3930: IF ( l_debug_mode = 'Y' ) THEN
3931: pa_debug.write_file(pa_debug.g_err_stage);
3932: END IF;
3933: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL gl period name - ['||l_accr_gl_period_name||']';
3934: IF ( l_debug_mode = 'Y' ) THEN
3935: pa_debug.write_file(pa_debug.g_err_stage);
3929: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3930: IF ( l_debug_mode = 'Y' ) THEN
3931: pa_debug.write_file(pa_debug.g_err_stage);
3932: END IF;
3933: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL gl period name - ['||l_accr_gl_period_name||']';
3934: IF ( l_debug_mode = 'Y' ) THEN
3935: pa_debug.write_file(pa_debug.g_err_stage);
3936: END IF;
3937: x_gl_accr_dt := l_accr_gl_dt ;
3931: pa_debug.write_file(pa_debug.g_err_stage);
3932: END IF;
3933: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL gl period name - ['||l_accr_gl_period_name||']';
3934: IF ( l_debug_mode = 'Y' ) THEN
3935: pa_debug.write_file(pa_debug.g_err_stage);
3936: END IF;
3937: x_gl_accr_dt := l_accr_gl_dt ;
3938: x_gl_accr_period_name := l_accr_gl_period_name ;
3939:
3945: ELSE
3946: x_error_code := 'PA_GL_PER_RECVR_ACCR_CLOSED';
3947: END IF;
3948:
3949: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() Period Clsd ref dt- ['||to_char(p_reference_date)||']';
3950: IF ( l_debug_mode = 'Y' ) THEN
3951: pa_debug.write_file(pa_debug.g_err_stage);
3952: END IF;
3953: pa_debug.g_err_stage := ' get_accrual_gl_dt_period()Period Clsd sob - ['||p_set_of_books_id||']';
3947: END IF;
3948:
3949: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() Period Clsd ref dt- ['||to_char(p_reference_date)||']';
3950: IF ( l_debug_mode = 'Y' ) THEN
3951: pa_debug.write_file(pa_debug.g_err_stage);
3952: END IF;
3953: pa_debug.g_err_stage := ' get_accrual_gl_dt_period()Period Clsd sob - ['||p_set_of_books_id||']';
3954: IF ( l_debug_mode = 'Y' ) THEN
3955: pa_debug.write_file(pa_debug.g_err_stage);
3949: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() Period Clsd ref dt- ['||to_char(p_reference_date)||']';
3950: IF ( l_debug_mode = 'Y' ) THEN
3951: pa_debug.write_file(pa_debug.g_err_stage);
3952: END IF;
3953: pa_debug.g_err_stage := ' get_accrual_gl_dt_period()Period Clsd sob - ['||p_set_of_books_id||']';
3954: IF ( l_debug_mode = 'Y' ) THEN
3955: pa_debug.write_file(pa_debug.g_err_stage);
3956: END IF;
3957: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()Period Clsd prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3951: pa_debug.write_file(pa_debug.g_err_stage);
3952: END IF;
3953: pa_debug.g_err_stage := ' get_accrual_gl_dt_period()Period Clsd sob - ['||p_set_of_books_id||']';
3954: IF ( l_debug_mode = 'Y' ) THEN
3955: pa_debug.write_file(pa_debug.g_err_stage);
3956: END IF;
3957: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()Period Clsd prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3958: IF ( l_debug_mode = 'Y' ) THEN
3959: pa_debug.write_file(pa_debug.g_err_stage);
3953: pa_debug.g_err_stage := ' get_accrual_gl_dt_period()Period Clsd sob - ['||p_set_of_books_id||']';
3954: IF ( l_debug_mode = 'Y' ) THEN
3955: pa_debug.write_file(pa_debug.g_err_stage);
3956: END IF;
3957: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()Period Clsd prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3958: IF ( l_debug_mode = 'Y' ) THEN
3959: pa_debug.write_file(pa_debug.g_err_stage);
3960: END IF;
3961: END IF;---------------------l_period_status in ('O','F')------------}
3955: pa_debug.write_file(pa_debug.g_err_stage);
3956: END IF;
3957: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()Period Clsd prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3958: IF ( l_debug_mode = 'Y' ) THEN
3959: pa_debug.write_file(pa_debug.g_err_stage);
3960: END IF;
3961: END IF;---------------------l_period_status in ('O','F')------------}
3962:
3963: EXCEPTION
3962:
3963: EXCEPTION
3964: WHEN OTHERS THEN
3965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3966: x_error_stage := 'Procedure: Pa_Utils2.Get_Accrual_Period_Information() ::: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
3967: raise;
3968: END;
3969: ----------------------------------------------------------------------------------------------------------------
3970: -- API : get_accrual_period_information
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');
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');
4104: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4105:
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');
4104: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4105:
4106: pa_debug.write_file(pa_debug.g_err_stage);
4107: END IF;
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');
4104: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4105:
4106: pa_debug.write_file(pa_debug.g_err_stage);
4107: END IF;
4108:
4102: IF(l_debug_mode = 'Y') THEN
4103: pa_debug.init_err_stack('pa_utils2.get_accrual_period_information');
4104: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4105:
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;
4115: pa_debug.g_err_stage :='EPP Flag is :['||l_prof_new_gldate_derivation||']';
4116: IF(l_debug_mode = 'Y') THEN
4117: pa_debug.write_file(pa_debug.g_err_stage);
4118: END IF;
4119:
4113: l_prof_new_gldate_derivation := g_prof_new_gldate_derivation;
4114: end if;
4115: pa_debug.g_err_stage :='EPP Flag is :['||l_prof_new_gldate_derivation||']';
4116: IF(l_debug_mode = 'Y') THEN
4117: pa_debug.write_file(pa_debug.g_err_stage);
4118: END IF;
4119:
4120: ---Initialize the error var.
4121: x_error_code := NULL;
4120: ---Initialize the error var.
4121: x_error_code := NULL;
4122: x_return_status := FND_API.G_RET_STS_SUCCESS;
4123:
4124: pa_debug.g_err_stage :=' Profile option is [' || l_prof_new_gldate_derivation || ']';
4125: IF(l_debug_mode = 'Y') THEN
4126: pa_debug.write_file(pa_debug.g_err_stage);
4127: END IF;
4128: pa_debug.g_err_stage :='x_prvdr_accrual_date is [' || to_char(x_prvdr_accrual_date) || ']';
4122: x_return_status := FND_API.G_RET_STS_SUCCESS;
4123:
4124: pa_debug.g_err_stage :=' Profile option is [' || l_prof_new_gldate_derivation || ']';
4125: IF(l_debug_mode = 'Y') THEN
4126: pa_debug.write_file(pa_debug.g_err_stage);
4127: END IF;
4128: pa_debug.g_err_stage :='x_prvdr_accrual_date is [' || to_char(x_prvdr_accrual_date) || ']';
4129: IF(l_debug_mode = 'Y') THEN
4130: pa_debug.write_file(pa_debug.g_err_stage);
4124: pa_debug.g_err_stage :=' Profile option is [' || l_prof_new_gldate_derivation || ']';
4125: IF(l_debug_mode = 'Y') THEN
4126: pa_debug.write_file(pa_debug.g_err_stage);
4127: END IF;
4128: pa_debug.g_err_stage :='x_prvdr_accrual_date is [' || to_char(x_prvdr_accrual_date) || ']';
4129: IF(l_debug_mode = 'Y') THEN
4130: pa_debug.write_file(pa_debug.g_err_stage);
4131: END IF;
4132: pa_debug.g_err_stage :='x_recvr_accrual_date is [' || to_char(x_recvr_accrual_date) || ']';
4126: pa_debug.write_file(pa_debug.g_err_stage);
4127: END IF;
4128: pa_debug.g_err_stage :='x_prvdr_accrual_date is [' || to_char(x_prvdr_accrual_date) || ']';
4129: IF(l_debug_mode = 'Y') THEN
4130: pa_debug.write_file(pa_debug.g_err_stage);
4131: END IF;
4132: pa_debug.g_err_stage :='x_recvr_accrual_date is [' || to_char(x_recvr_accrual_date) || ']';
4133: IF(l_debug_mode = 'Y') THEN
4134: pa_debug.write_file(pa_debug.g_err_stage);
4128: pa_debug.g_err_stage :='x_prvdr_accrual_date is [' || to_char(x_prvdr_accrual_date) || ']';
4129: IF(l_debug_mode = 'Y') THEN
4130: pa_debug.write_file(pa_debug.g_err_stage);
4131: END IF;
4132: pa_debug.g_err_stage :='x_recvr_accrual_date is [' || to_char(x_recvr_accrual_date) || ']';
4133: IF(l_debug_mode = 'Y') THEN
4134: pa_debug.write_file(pa_debug.g_err_stage);
4135: END IF;
4136: pa_debug.g_err_stage :='p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
4130: pa_debug.write_file(pa_debug.g_err_stage);
4131: END IF;
4132: pa_debug.g_err_stage :='x_recvr_accrual_date is [' || to_char(x_recvr_accrual_date) || ']';
4133: IF(l_debug_mode = 'Y') THEN
4134: pa_debug.write_file(pa_debug.g_err_stage);
4135: END IF;
4136: pa_debug.g_err_stage :='p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
4137: IF(l_debug_mode = 'Y') THEN
4138: pa_debug.write_file(pa_debug.g_err_stage);
4132: pa_debug.g_err_stage :='x_recvr_accrual_date is [' || to_char(x_recvr_accrual_date) || ']';
4133: IF(l_debug_mode = 'Y') THEN
4134: pa_debug.write_file(pa_debug.g_err_stage);
4135: END IF;
4136: pa_debug.g_err_stage :='p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
4137: IF(l_debug_mode = 'Y') THEN
4138: pa_debug.write_file(pa_debug.g_err_stage);
4139: END IF;
4140: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) || ']';
4134: pa_debug.write_file(pa_debug.g_err_stage);
4135: END IF;
4136: pa_debug.g_err_stage :='p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
4137: IF(l_debug_mode = 'Y') THEN
4138: pa_debug.write_file(pa_debug.g_err_stage);
4139: END IF;
4140: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) || ']';
4141: IF(l_debug_mode = 'Y') THEN
4142: pa_debug.write_file(pa_debug.g_err_stage);
4136: pa_debug.g_err_stage :='p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
4137: IF(l_debug_mode = 'Y') THEN
4138: pa_debug.write_file(pa_debug.g_err_stage);
4139: END IF;
4140: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) || ']';
4141: IF(l_debug_mode = 'Y') THEN
4142: pa_debug.write_file(pa_debug.g_err_stage);
4143: END IF;
4144: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) || ']';
4138: pa_debug.write_file(pa_debug.g_err_stage);
4139: END IF;
4140: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) || ']';
4141: IF(l_debug_mode = 'Y') THEN
4142: pa_debug.write_file(pa_debug.g_err_stage);
4143: END IF;
4144: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) || ']';
4145: IF(l_debug_mode = 'Y') THEN
4146: pa_debug.write_file(pa_debug.g_err_stage);
4140: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) || ']';
4141: IF(l_debug_mode = 'Y') THEN
4142: pa_debug.write_file(pa_debug.g_err_stage);
4143: END IF;
4144: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) || ']';
4145: IF(l_debug_mode = 'Y') THEN
4146: pa_debug.write_file(pa_debug.g_err_stage);
4147: END IF;
4148: pa_debug.g_err_stage :='p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
4142: pa_debug.write_file(pa_debug.g_err_stage);
4143: END IF;
4144: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) || ']';
4145: IF(l_debug_mode = 'Y') THEN
4146: pa_debug.write_file(pa_debug.g_err_stage);
4147: END IF;
4148: pa_debug.g_err_stage :='p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
4149: IF(l_debug_mode = 'Y') THEN
4150: pa_debug.write_file(pa_debug.g_err_stage);
4144: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) || ']';
4145: IF(l_debug_mode = 'Y') THEN
4146: pa_debug.write_file(pa_debug.g_err_stage);
4147: END IF;
4148: pa_debug.g_err_stage :='p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
4149: IF(l_debug_mode = 'Y') THEN
4150: pa_debug.write_file(pa_debug.g_err_stage);
4151: END IF;
4152: pa_debug.g_err_stage :='p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
4146: pa_debug.write_file(pa_debug.g_err_stage);
4147: END IF;
4148: pa_debug.g_err_stage :='p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
4149: IF(l_debug_mode = 'Y') THEN
4150: pa_debug.write_file(pa_debug.g_err_stage);
4151: END IF;
4152: pa_debug.g_err_stage :='p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
4153: IF(l_debug_mode = 'Y') THEN
4154: pa_debug.write_file(pa_debug.g_err_stage);
4148: pa_debug.g_err_stage :='p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
4149: IF(l_debug_mode = 'Y') THEN
4150: pa_debug.write_file(pa_debug.g_err_stage);
4151: END IF;
4152: pa_debug.g_err_stage :='p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
4153: IF(l_debug_mode = 'Y') THEN
4154: pa_debug.write_file(pa_debug.g_err_stage);
4155: END IF;
4156: pa_debug.g_err_stage :='p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
4150: pa_debug.write_file(pa_debug.g_err_stage);
4151: END IF;
4152: pa_debug.g_err_stage :='p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
4153: IF(l_debug_mode = 'Y') THEN
4154: pa_debug.write_file(pa_debug.g_err_stage);
4155: END IF;
4156: pa_debug.g_err_stage :='p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
4157: IF(l_debug_mode = 'Y') THEN
4158: pa_debug.write_file(pa_debug.g_err_stage);
4152: pa_debug.g_err_stage :='p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
4153: IF(l_debug_mode = 'Y') THEN
4154: pa_debug.write_file(pa_debug.g_err_stage);
4155: END IF;
4156: pa_debug.g_err_stage :='p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
4157: IF(l_debug_mode = 'Y') THEN
4158: pa_debug.write_file(pa_debug.g_err_stage);
4159: END IF;
4160: pa_debug.g_err_stage :='p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
4154: pa_debug.write_file(pa_debug.g_err_stage);
4155: END IF;
4156: pa_debug.g_err_stage :='p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
4157: IF(l_debug_mode = 'Y') THEN
4158: pa_debug.write_file(pa_debug.g_err_stage);
4159: END IF;
4160: pa_debug.g_err_stage :='p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
4161: IF(l_debug_mode = 'Y') THEN
4162: pa_debug.write_file(pa_debug.g_err_stage);
4156: pa_debug.g_err_stage :='p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
4157: IF(l_debug_mode = 'Y') THEN
4158: pa_debug.write_file(pa_debug.g_err_stage);
4159: END IF;
4160: pa_debug.g_err_stage :='p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
4161: IF(l_debug_mode = 'Y') THEN
4162: pa_debug.write_file(pa_debug.g_err_stage);
4163: END IF;
4164: pa_debug.g_err_stage :='p_calling_module is [' || p_calling_module || ']';
4158: pa_debug.write_file(pa_debug.g_err_stage);
4159: END IF;
4160: pa_debug.g_err_stage :='p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
4161: IF(l_debug_mode = 'Y') THEN
4162: pa_debug.write_file(pa_debug.g_err_stage);
4163: END IF;
4164: pa_debug.g_err_stage :='p_calling_module is [' || p_calling_module || ']';
4165: IF(l_debug_mode = 'Y') THEN
4166: pa_debug.write_file(pa_debug.g_err_stage);
4160: pa_debug.g_err_stage :='p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
4161: IF(l_debug_mode = 'Y') THEN
4162: pa_debug.write_file(pa_debug.g_err_stage);
4163: END IF;
4164: pa_debug.g_err_stage :='p_calling_module is [' || p_calling_module || ']';
4165: IF(l_debug_mode = 'Y') THEN
4166: pa_debug.write_file(pa_debug.g_err_stage);
4167: END IF;
4168:
4162: pa_debug.write_file(pa_debug.g_err_stage);
4163: END IF;
4164: pa_debug.g_err_stage :='p_calling_module is [' || p_calling_module || ']';
4165: IF(l_debug_mode = 'Y') THEN
4166: pa_debug.write_file(pa_debug.g_err_stage);
4167: END IF;
4168:
4169: --- We derive the accrual dates for TRXIMPORT(Unaccounted)/Pre-Approved Batch(PAXTREPE).
4170:
4168:
4169: --- We derive the accrual dates for TRXIMPORT(Unaccounted)/Pre-Approved Batch(PAXTREPE).
4170:
4171: IF p_calling_module in ( 'TRXIMPORT','PAXTREPE') AND NVL(p_acct_flag,'N') = 'N' THEN ------------------------{
4172: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX';
4173: IF(l_debug_mode = 'Y') THEN
4174: pa_debug.write_file(pa_debug.g_err_stage);
4175: END IF;
4176: x_error_stage := pa_debug.g_err_stage;
4170:
4171: IF p_calling_module in ( 'TRXIMPORT','PAXTREPE') AND NVL(p_acct_flag,'N') = 'N' THEN ------------------------{
4172: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX';
4173: IF(l_debug_mode = 'Y') THEN
4174: pa_debug.write_file(pa_debug.g_err_stage);
4175: END IF;
4176: x_error_stage := pa_debug.g_err_stage;
4177: IF p_adj_ei_id IS NULL THEN -------------ORG EI--------------------{
4178: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX ORG EI';
4172: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX';
4173: IF(l_debug_mode = 'Y') THEN
4174: pa_debug.write_file(pa_debug.g_err_stage);
4175: END IF;
4176: x_error_stage := pa_debug.g_err_stage;
4177: IF p_adj_ei_id IS NULL THEN -------------ORG EI--------------------{
4178: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX ORG EI';
4179: IF(l_debug_mode = 'Y') THEN
4180: pa_debug.write_file(pa_debug.g_err_stage);
4174: pa_debug.write_file(pa_debug.g_err_stage);
4175: END IF;
4176: x_error_stage := pa_debug.g_err_stage;
4177: IF p_adj_ei_id IS NULL THEN -------------ORG EI--------------------{
4178: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX ORG EI';
4179: IF(l_debug_mode = 'Y') THEN
4180: pa_debug.write_file(pa_debug.g_err_stage);
4181: END IF;
4182: x_error_stage := pa_debug.g_err_stage;
4176: x_error_stage := pa_debug.g_err_stage;
4177: IF p_adj_ei_id IS NULL THEN -------------ORG EI--------------------{
4178: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX ORG EI';
4179: IF(l_debug_mode = 'Y') THEN
4180: pa_debug.write_file(pa_debug.g_err_stage);
4181: END IF;
4182: x_error_stage := pa_debug.g_err_stage;
4183:
4184: --- Though this api returns the period name also, we don't make use of it at this stage.
4178: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX ORG EI';
4179: IF(l_debug_mode = 'Y') THEN
4180: pa_debug.write_file(pa_debug.g_err_stage);
4181: END IF;
4182: x_error_stage := pa_debug.g_err_stage;
4183:
4184: --- Though this api returns the period name also, we don't make use of it at this stage.
4185: BEGIN
4186: pa_utils2.get_accrual_gl_dt_period( p_calling_module => p_calling_module
4199: -- Error encountered!!!
4200: IF x_error_code is NOT NULL THEN
4201: return;
4202: END IF;
4203: pa_debug.g_err_stage := 'Prvdr accrual Date for ORG EI TRX/PAX -'||to_char(l_prvdr_accrual_date);
4204: IF(l_debug_mode = 'Y') THEN
4205: pa_debug.write_file(pa_debug.g_err_stage);
4206: END IF;
4207: x_error_stage := pa_debug.g_err_stage;
4201: return;
4202: END IF;
4203: pa_debug.g_err_stage := 'Prvdr accrual Date for ORG EI TRX/PAX -'||to_char(l_prvdr_accrual_date);
4204: IF(l_debug_mode = 'Y') THEN
4205: pa_debug.write_file(pa_debug.g_err_stage);
4206: END IF;
4207: x_error_stage := pa_debug.g_err_stage;
4208: --- If provider and receiver are of same org, then don't derive the accrual date for RECVR
4209: IF p_prvdr_org_id = p_recvr_org_id THEN ---------------------------------{
4203: pa_debug.g_err_stage := 'Prvdr accrual Date for ORG EI TRX/PAX -'||to_char(l_prvdr_accrual_date);
4204: IF(l_debug_mode = 'Y') THEN
4205: pa_debug.write_file(pa_debug.g_err_stage);
4206: END IF;
4207: x_error_stage := pa_debug.g_err_stage;
4208: --- If provider and receiver are of same org, then don't derive the accrual date for RECVR
4209: IF p_prvdr_org_id = p_recvr_org_id THEN ---------------------------------{
4210:
4211: l_recvr_accrual_date := l_prvdr_accrual_date;
4208: --- If provider and receiver are of same org, then don't derive the accrual date for RECVR
4209: IF p_prvdr_org_id = p_recvr_org_id THEN ---------------------------------{
4210:
4211: l_recvr_accrual_date := l_prvdr_accrual_date;
4212: pa_debug.g_err_stage := 'Recvr accrual Date is Same as Prvdr for ORG EI TRX/PAX';
4213: IF(l_debug_mode = 'Y') THEN
4214: pa_debug.write_file(pa_debug.g_err_stage);
4215: END IF;
4216: x_error_stage := pa_debug.g_err_stage;
4210:
4211: l_recvr_accrual_date := l_prvdr_accrual_date;
4212: pa_debug.g_err_stage := 'Recvr accrual Date is Same as Prvdr for ORG EI TRX/PAX';
4213: IF(l_debug_mode = 'Y') THEN
4214: pa_debug.write_file(pa_debug.g_err_stage);
4215: END IF;
4216: x_error_stage := pa_debug.g_err_stage;
4217:
4218: ELSE ----Do the check for O/F status.
4212: pa_debug.g_err_stage := 'Recvr accrual Date is Same as Prvdr for ORG EI TRX/PAX';
4213: IF(l_debug_mode = 'Y') THEN
4214: pa_debug.write_file(pa_debug.g_err_stage);
4215: END IF;
4216: x_error_stage := pa_debug.g_err_stage;
4217:
4218: ELSE ----Do the check for O/F status.
4219:
4220: -- Though we are not deriving the gl_period_name , this api is multi-function.
4236: -- Error encountered!!!
4237: IF x_error_code IS NOT NULL THEN
4238: return;
4239: END IF;
4240: pa_debug.g_err_stage := 'Recvr accrual Date for ORG EI TRX/PAX -'||to_char(l_recvr_accrual_date);
4241: IF(l_debug_mode = 'Y') THEN
4242: pa_debug.write_file(pa_debug.g_err_stage);
4243: END IF;
4244: x_error_stage := pa_debug.g_err_stage;
4238: return;
4239: END IF;
4240: pa_debug.g_err_stage := 'Recvr accrual Date for ORG EI TRX/PAX -'||to_char(l_recvr_accrual_date);
4241: IF(l_debug_mode = 'Y') THEN
4242: pa_debug.write_file(pa_debug.g_err_stage);
4243: END IF;
4244: x_error_stage := pa_debug.g_err_stage;
4245:
4246: END IF; ----------------------p_prvdr_org_id = p_recvr_org_id------------------}
4240: pa_debug.g_err_stage := 'Recvr accrual Date for ORG EI TRX/PAX -'||to_char(l_recvr_accrual_date);
4241: IF(l_debug_mode = 'Y') THEN
4242: pa_debug.write_file(pa_debug.g_err_stage);
4243: END IF;
4244: x_error_stage := pa_debug.g_err_stage;
4245:
4246: END IF; ----------------------p_prvdr_org_id = p_recvr_org_id------------------}
4247:
4248: ELSE -----------------------For Reversing EI
4264: -- Error encountered!!!
4265: IF x_error_code IS NOT NULL THEN
4266: return;
4267: END IF;
4268: pa_debug.g_err_stage := 'Prvdr accrual Date for Rev EI TRX/PAX -'||to_char(l_prvdr_accrual_date);
4269: IF(l_debug_mode = 'Y') THEN
4270: pa_debug.write_file(pa_debug.g_err_stage);
4271: END IF;
4272: x_error_stage := pa_debug.g_err_stage;
4266: return;
4267: END IF;
4268: pa_debug.g_err_stage := 'Prvdr accrual Date for Rev EI TRX/PAX -'||to_char(l_prvdr_accrual_date);
4269: IF(l_debug_mode = 'Y') THEN
4270: pa_debug.write_file(pa_debug.g_err_stage);
4271: END IF;
4272: x_error_stage := pa_debug.g_err_stage;
4273:
4274: IF p_prvdr_org_id = p_recvr_org_id THEN -------------------------{
4268: pa_debug.g_err_stage := 'Prvdr accrual Date for Rev EI TRX/PAX -'||to_char(l_prvdr_accrual_date);
4269: IF(l_debug_mode = 'Y') THEN
4270: pa_debug.write_file(pa_debug.g_err_stage);
4271: END IF;
4272: x_error_stage := pa_debug.g_err_stage;
4273:
4274: IF p_prvdr_org_id = p_recvr_org_id THEN -------------------------{
4275:
4276: l_recvr_accrual_date := l_prvdr_accrual_date;
4273:
4274: IF p_prvdr_org_id = p_recvr_org_id THEN -------------------------{
4275:
4276: l_recvr_accrual_date := l_prvdr_accrual_date;
4277: pa_debug.g_err_stage := 'Recvr accrual Date= Prvdr Accrual Date for Rev EI TRX/PAX';
4278: IF(l_debug_mode = 'Y') THEN
4279: pa_debug.write_file(pa_debug.g_err_stage);
4280: END IF;
4281: x_error_stage := pa_debug.g_err_stage;
4275:
4276: l_recvr_accrual_date := l_prvdr_accrual_date;
4277: pa_debug.g_err_stage := 'Recvr accrual Date= Prvdr Accrual Date for Rev EI TRX/PAX';
4278: IF(l_debug_mode = 'Y') THEN
4279: pa_debug.write_file(pa_debug.g_err_stage);
4280: END IF;
4281: x_error_stage := pa_debug.g_err_stage;
4282:
4283: ELSE
4277: pa_debug.g_err_stage := 'Recvr accrual Date= Prvdr Accrual Date for Rev EI TRX/PAX';
4278: IF(l_debug_mode = 'Y') THEN
4279: pa_debug.write_file(pa_debug.g_err_stage);
4280: END IF;
4281: x_error_stage := pa_debug.g_err_stage;
4282:
4283: ELSE
4284: l_recvr_accrual_date := pa_utils2.get_rev_accrual_date( p_calling_module => p_calling_module
4285: ,p_reference_date =>x_recvr_accrual_date
4295: -- Error encountered!!!
4296: IF x_error_code IS NOT NULL THEN
4297: return;
4298: END IF;
4299: pa_debug.g_err_stage := 'Recvr accrual Date for Rev EI Trx/Pax -'||to_char(l_recvr_accrual_date);
4300: IF(l_debug_mode = 'Y') THEN
4301: pa_debug.write_file(pa_debug.g_err_stage);
4302: END IF;
4303: x_error_stage := pa_debug.g_err_stage;
4297: return;
4298: END IF;
4299: pa_debug.g_err_stage := 'Recvr accrual Date for Rev EI Trx/Pax -'||to_char(l_recvr_accrual_date);
4300: IF(l_debug_mode = 'Y') THEN
4301: pa_debug.write_file(pa_debug.g_err_stage);
4302: END IF;
4303: x_error_stage := pa_debug.g_err_stage;
4304: END IF; ---------------p_prvdr_org_id = p_recvr_org_id-------------}
4305:
4299: pa_debug.g_err_stage := 'Recvr accrual Date for Rev EI Trx/Pax -'||to_char(l_recvr_accrual_date);
4300: IF(l_debug_mode = 'Y') THEN
4301: pa_debug.write_file(pa_debug.g_err_stage);
4302: END IF;
4303: x_error_stage := pa_debug.g_err_stage;
4304: END IF; ---------------p_prvdr_org_id = p_recvr_org_id-------------}
4305:
4306: END IF; ---------------------ORG EI---------------------------------------------------}
4307:
4308:
4309: x_prvdr_accrual_date := l_prvdr_accrual_date;
4310: x_recvr_accrual_date := l_recvr_accrual_date;
4311:
4312: pa_debug.g_err_stage := ' x_prvdr accr Dt for EI TRX/PAX -'||to_char(x_prvdr_accrual_date);
4313: IF(l_debug_mode = 'Y') THEN
4314: pa_debug.write_file(pa_debug.g_err_stage);
4315: END IF;
4316: pa_debug.g_err_stage := 'x_recvr accr Dt for EI TRX/PAX -'||to_char(x_recvr_accrual_date);
4310: x_recvr_accrual_date := l_recvr_accrual_date;
4311:
4312: pa_debug.g_err_stage := ' x_prvdr accr Dt for EI TRX/PAX -'||to_char(x_prvdr_accrual_date);
4313: IF(l_debug_mode = 'Y') THEN
4314: pa_debug.write_file(pa_debug.g_err_stage);
4315: END IF;
4316: pa_debug.g_err_stage := 'x_recvr accr Dt for EI TRX/PAX -'||to_char(x_recvr_accrual_date);
4317: IF(l_debug_mode = 'Y') THEN
4318: pa_debug.write_file(pa_debug.g_err_stage);
4312: pa_debug.g_err_stage := ' x_prvdr accr Dt for EI TRX/PAX -'||to_char(x_prvdr_accrual_date);
4313: IF(l_debug_mode = 'Y') THEN
4314: pa_debug.write_file(pa_debug.g_err_stage);
4315: END IF;
4316: pa_debug.g_err_stage := 'x_recvr accr Dt for EI TRX/PAX -'||to_char(x_recvr_accrual_date);
4317: IF(l_debug_mode = 'Y') THEN
4318: pa_debug.write_file(pa_debug.g_err_stage);
4319: END IF;
4320: return; -- We don't need anything after this point for Unaccounted TRXIMPORT and PAXTREPE Transactions.
4314: pa_debug.write_file(pa_debug.g_err_stage);
4315: END IF;
4316: pa_debug.g_err_stage := 'x_recvr accr Dt for EI TRX/PAX -'||to_char(x_recvr_accrual_date);
4317: IF(l_debug_mode = 'Y') THEN
4318: pa_debug.write_file(pa_debug.g_err_stage);
4319: END IF;
4320: return; -- We don't need anything after this point for Unaccounted TRXIMPORT and PAXTREPE Transactions.
4321:
4322: END IF; ------( 'TRXIMPORT','PAXTREPE') AND NVL(p_acct_flag,'N') = 'N' --------------------------------}
4326: IF p_calling_module = 'CDL' OR NVL(p_acct_flag,'N') = 'Y' THEN ------------------------{
4327:
4328: IF p_calling_module = 'CDL' THEN-------------------------{
4329:
4330: pa_debug.g_err_stage :='Call is from Costing program';
4331: IF(l_debug_mode = 'Y') THEN
4332: pa_debug.write_file(pa_debug.g_err_stage);
4333: END IF;
4334: pa_debug.g_err_stage := 'Prvdr accr Dt from CDL call -'||to_char(x_prvdr_accrual_date);
4328: IF p_calling_module = 'CDL' THEN-------------------------{
4329:
4330: pa_debug.g_err_stage :='Call is from Costing program';
4331: IF(l_debug_mode = 'Y') THEN
4332: pa_debug.write_file(pa_debug.g_err_stage);
4333: END IF;
4334: pa_debug.g_err_stage := 'Prvdr accr Dt from CDL call -'||to_char(x_prvdr_accrual_date);
4335: IF(l_debug_mode = 'Y') THEN
4336: pa_debug.write_file(pa_debug.g_err_stage);
4330: pa_debug.g_err_stage :='Call is from Costing program';
4331: IF(l_debug_mode = 'Y') THEN
4332: pa_debug.write_file(pa_debug.g_err_stage);
4333: END IF;
4334: pa_debug.g_err_stage := 'Prvdr accr Dt from CDL call -'||to_char(x_prvdr_accrual_date);
4335: IF(l_debug_mode = 'Y') THEN
4336: pa_debug.write_file(pa_debug.g_err_stage);
4337: END IF;
4338: pa_debug.g_err_stage := ' Recvr accr Dt from CDL call -'||to_char(x_recvr_accrual_date);
4332: pa_debug.write_file(pa_debug.g_err_stage);
4333: END IF;
4334: pa_debug.g_err_stage := 'Prvdr accr Dt from CDL call -'||to_char(x_prvdr_accrual_date);
4335: IF(l_debug_mode = 'Y') THEN
4336: pa_debug.write_file(pa_debug.g_err_stage);
4337: END IF;
4338: pa_debug.g_err_stage := ' Recvr accr Dt from CDL call -'||to_char(x_recvr_accrual_date);
4339: IF(l_debug_mode = 'Y') THEN
4340: pa_debug.write_file(pa_debug.g_err_stage);
4334: pa_debug.g_err_stage := 'Prvdr accr Dt from CDL call -'||to_char(x_prvdr_accrual_date);
4335: IF(l_debug_mode = 'Y') THEN
4336: pa_debug.write_file(pa_debug.g_err_stage);
4337: END IF;
4338: pa_debug.g_err_stage := ' Recvr accr Dt from CDL call -'||to_char(x_recvr_accrual_date);
4339: IF(l_debug_mode = 'Y') THEN
4340: pa_debug.write_file(pa_debug.g_err_stage);
4341: END IF;
4342:
4336: pa_debug.write_file(pa_debug.g_err_stage);
4337: END IF;
4338: pa_debug.g_err_stage := ' Recvr accr Dt from CDL call -'||to_char(x_recvr_accrual_date);
4339: IF(l_debug_mode = 'Y') THEN
4340: pa_debug.write_file(pa_debug.g_err_stage);
4341: END IF;
4342:
4343: --- We make use of the GL period name.
4344: --- This is just to check if the accrual date is still in an open period.
4363: l_prvdr_accrual_date := x_prvdr_accrual_date;
4364: l_prvdr_gl_date := l_prvdr_accrual_date;
4365: END IF;
4366:
4367: pa_debug.g_err_stage :='Prvdr GL Date is -'||to_char(l_prvdr_gl_date);
4368: IF(l_debug_mode = 'Y') THEN
4369: pa_debug.write_file(pa_debug.g_err_stage);
4370: END IF;
4371: pa_debug.g_err_stage :='Prvdr GL Period is -'||l_prvdr_gl_period_name;
4365: END IF;
4366:
4367: pa_debug.g_err_stage :='Prvdr GL Date is -'||to_char(l_prvdr_gl_date);
4368: IF(l_debug_mode = 'Y') THEN
4369: pa_debug.write_file(pa_debug.g_err_stage);
4370: END IF;
4371: pa_debug.g_err_stage :='Prvdr GL Period is -'||l_prvdr_gl_period_name;
4372: IF(l_debug_mode = 'Y') THEN
4373: pa_debug.write_file(pa_debug.g_err_stage);
4367: pa_debug.g_err_stage :='Prvdr GL Date is -'||to_char(l_prvdr_gl_date);
4368: IF(l_debug_mode = 'Y') THEN
4369: pa_debug.write_file(pa_debug.g_err_stage);
4370: END IF;
4371: pa_debug.g_err_stage :='Prvdr GL Period is -'||l_prvdr_gl_period_name;
4372: IF(l_debug_mode = 'Y') THEN
4373: pa_debug.write_file(pa_debug.g_err_stage);
4374: END IF;
4375: --- If provider and receiver are of same org, then don't check the RECVR accrual date
4369: pa_debug.write_file(pa_debug.g_err_stage);
4370: END IF;
4371: pa_debug.g_err_stage :='Prvdr GL Period is -'||l_prvdr_gl_period_name;
4372: IF(l_debug_mode = 'Y') THEN
4373: pa_debug.write_file(pa_debug.g_err_stage);
4374: END IF;
4375: --- If provider and receiver are of same org, then don't check the RECVR accrual date
4376: IF p_prvdr_org_id = p_recvr_org_id THEN ---------------------------------{
4377:
4378: l_recvr_accrual_date := nvl(x_recvr_accrual_date,l_prvdr_accrual_date);
4379: l_recvr_gl_period_name := l_prvdr_gl_period_name ;
4380: l_recvr_gl_date := l_recvr_accrual_date;
4381:
4382: pa_debug.g_err_stage :='Prvdr GL Date is = Recvr GL Date';
4383: IF(l_debug_mode = 'Y') THEN
4384: pa_debug.write_file(pa_debug.g_err_stage);
4385: END IF;
4386: ELSE ----Do the check for O/F status.
4380: l_recvr_gl_date := l_recvr_accrual_date;
4381:
4382: pa_debug.g_err_stage :='Prvdr GL Date is = Recvr GL Date';
4383: IF(l_debug_mode = 'Y') THEN
4384: pa_debug.write_file(pa_debug.g_err_stage);
4385: END IF;
4386: ELSE ----Do the check for O/F status.
4387:
4388: -- It checks if the accrual date is in an O/F period. This check is for RECVR.
4407: l_recvr_accrual_date := x_recvr_accrual_date;
4408: l_recvr_gl_date := x_recvr_accrual_date;
4409: END IF;
4410:
4411: pa_debug.g_err_stage :='Recvr GL Date is -'||to_char(l_recvr_gl_date);
4412: IF(l_debug_mode = 'Y') THEN
4413: pa_debug.write_file(pa_debug.g_err_stage);
4414: END IF;
4415: pa_debug.g_err_stage :='Recvr GL Period is -'||l_recvr_gl_period_name;
4409: END IF;
4410:
4411: pa_debug.g_err_stage :='Recvr GL Date is -'||to_char(l_recvr_gl_date);
4412: IF(l_debug_mode = 'Y') THEN
4413: pa_debug.write_file(pa_debug.g_err_stage);
4414: END IF;
4415: pa_debug.g_err_stage :='Recvr GL Period is -'||l_recvr_gl_period_name;
4416: IF(l_debug_mode = 'Y') THEN
4417: pa_debug.write_file(pa_debug.g_err_stage);
4411: pa_debug.g_err_stage :='Recvr GL Date is -'||to_char(l_recvr_gl_date);
4412: IF(l_debug_mode = 'Y') THEN
4413: pa_debug.write_file(pa_debug.g_err_stage);
4414: END IF;
4415: pa_debug.g_err_stage :='Recvr GL Period is -'||l_recvr_gl_period_name;
4416: IF(l_debug_mode = 'Y') THEN
4417: pa_debug.write_file(pa_debug.g_err_stage);
4418: END IF;
4419:
4413: pa_debug.write_file(pa_debug.g_err_stage);
4414: END IF;
4415: pa_debug.g_err_stage :='Recvr GL Period is -'||l_recvr_gl_period_name;
4416: IF(l_debug_mode = 'Y') THEN
4417: pa_debug.write_file(pa_debug.g_err_stage);
4418: END IF;
4419:
4420: END IF; ----------------------p_prvdr_org_id = p_recvr_org_id------------------}
4421:
4429:
4430: l_prvdr_accrual_date := x_prvdr_gl_date;
4431: l_prvdr_gl_date := x_prvdr_gl_date;
4432:
4433: pa_debug.g_err_stage := 'Prvdr accrual Date for ORG EI Acct TRX -'||to_char(l_prvdr_accrual_date);
4434: IF(l_debug_mode = 'Y') THEN
4435: pa_debug.write_file(pa_debug.g_err_stage);
4436: END IF;
4437: pa_debug.g_err_stage := 'Prvdr GL Date for ORG EI Acct TRX -'||to_char(l_prvdr_gl_date);
4431: l_prvdr_gl_date := x_prvdr_gl_date;
4432:
4433: pa_debug.g_err_stage := 'Prvdr accrual Date for ORG EI Acct TRX -'||to_char(l_prvdr_accrual_date);
4434: IF(l_debug_mode = 'Y') THEN
4435: pa_debug.write_file(pa_debug.g_err_stage);
4436: END IF;
4437: pa_debug.g_err_stage := 'Prvdr GL Date for ORG EI Acct TRX -'||to_char(l_prvdr_gl_date);
4438: IF(l_debug_mode = 'Y') THEN
4439: pa_debug.write_file(pa_debug.g_err_stage);
4433: pa_debug.g_err_stage := 'Prvdr accrual Date for ORG EI Acct TRX -'||to_char(l_prvdr_accrual_date);
4434: IF(l_debug_mode = 'Y') THEN
4435: pa_debug.write_file(pa_debug.g_err_stage);
4436: END IF;
4437: pa_debug.g_err_stage := 'Prvdr GL Date for ORG EI Acct TRX -'||to_char(l_prvdr_gl_date);
4438: IF(l_debug_mode = 'Y') THEN
4439: pa_debug.write_file(pa_debug.g_err_stage);
4440: END IF;
4441: -- We need the Period name.
4435: pa_debug.write_file(pa_debug.g_err_stage);
4436: END IF;
4437: pa_debug.g_err_stage := 'Prvdr GL Date for ORG EI Acct TRX -'||to_char(l_prvdr_gl_date);
4438: IF(l_debug_mode = 'Y') THEN
4439: pa_debug.write_file(pa_debug.g_err_stage);
4440: END IF;
4441: -- We need the Period name.
4442: BEGIN
4443: pa_utils2.get_accrual_gl_dt_period( p_calling_module => p_calling_module
4455: END;
4456: --- GL Date may be in a closed period , we just need the period name.
4457: IF l_prvdr_gl_period_name IS NOT NULL AND x_error_code is NOT NULL THEN
4458:
4459: pa_debug.g_err_stage := 'Prvdr GL Period for ORG EI Acct TRX -'||l_prvdr_gl_period_name;
4460: IF(l_debug_mode = 'Y') THEN
4461: pa_debug.write_file(pa_debug.g_err_stage);
4462: END IF;
4463: x_return_status := NULL;
4457: IF l_prvdr_gl_period_name IS NOT NULL AND x_error_code is NOT NULL THEN
4458:
4459: pa_debug.g_err_stage := 'Prvdr GL Period for ORG EI Acct TRX -'||l_prvdr_gl_period_name;
4460: IF(l_debug_mode = 'Y') THEN
4461: pa_debug.write_file(pa_debug.g_err_stage);
4462: END IF;
4463: x_return_status := NULL;
4464: x_error_code := NULL;
4465: ELSIF x_error_code IS NOT NULL THEN
4463: x_return_status := NULL;
4464: x_error_code := NULL;
4465: ELSIF x_error_code IS NOT NULL THEN
4466:
4467: pa_debug.g_err_stage := 'Prvdr GL Period Not Found for ORG EI Acct TRX -';
4468: IF(l_debug_mode = 'Y') THEN
4469: pa_debug.write_file(pa_debug.g_err_stage);
4470: END IF;
4471: x_return_status := FND_API.G_RET_STS_ERROR;
4465: ELSIF x_error_code IS NOT NULL THEN
4466:
4467: pa_debug.g_err_stage := 'Prvdr GL Period Not Found for ORG EI Acct TRX -';
4468: IF(l_debug_mode = 'Y') THEN
4469: pa_debug.write_file(pa_debug.g_err_stage);
4470: END IF;
4471: x_return_status := FND_API.G_RET_STS_ERROR;
4472: x_error_code := 'PA_GL_PER_PRVDR_ACCR_CLOSED';
4473: return; -- Could not find the Period Name.
4521: END IF;
4522:
4523: l_prvdr_gl_date := l_prvdr_accrual_date; --- Accounted Rev Trx.
4524:
4525: pa_debug.g_err_stage := 'Prvdr GL/accrual Date for Rev EI Acct TRX -'||to_char(l_prvdr_accrual_date);
4526: IF(l_debug_mode = 'Y') THEN
4527: pa_debug.write_file(pa_debug.g_err_stage);
4528: END IF;
4529: pa_debug.g_err_stage := 'Prvdr GL Period for Rev EI Acct TRX -'||l_prvdr_gl_period_name;
4523: l_prvdr_gl_date := l_prvdr_accrual_date; --- Accounted Rev Trx.
4524:
4525: pa_debug.g_err_stage := 'Prvdr GL/accrual Date for Rev EI Acct TRX -'||to_char(l_prvdr_accrual_date);
4526: IF(l_debug_mode = 'Y') THEN
4527: pa_debug.write_file(pa_debug.g_err_stage);
4528: END IF;
4529: pa_debug.g_err_stage := 'Prvdr GL Period for Rev EI Acct TRX -'||l_prvdr_gl_period_name;
4530: IF(l_debug_mode = 'Y') THEN
4531: pa_debug.write_file(pa_debug.g_err_stage);
4525: pa_debug.g_err_stage := 'Prvdr GL/accrual Date for Rev EI Acct TRX -'||to_char(l_prvdr_accrual_date);
4526: IF(l_debug_mode = 'Y') THEN
4527: pa_debug.write_file(pa_debug.g_err_stage);
4528: END IF;
4529: pa_debug.g_err_stage := 'Prvdr GL Period for Rev EI Acct TRX -'||l_prvdr_gl_period_name;
4530: IF(l_debug_mode = 'Y') THEN
4531: pa_debug.write_file(pa_debug.g_err_stage);
4532: END IF;
4533: IF p_prvdr_org_id = p_recvr_org_id THEN -------------------------{
4527: pa_debug.write_file(pa_debug.g_err_stage);
4528: END IF;
4529: pa_debug.g_err_stage := 'Prvdr GL Period for Rev EI Acct TRX -'||l_prvdr_gl_period_name;
4530: IF(l_debug_mode = 'Y') THEN
4531: pa_debug.write_file(pa_debug.g_err_stage);
4532: END IF;
4533: IF p_prvdr_org_id = p_recvr_org_id THEN -------------------------{
4534:
4535: l_recvr_accrual_date := l_prvdr_accrual_date;
4535: l_recvr_accrual_date := l_prvdr_accrual_date;
4536: l_recvr_gl_date := l_recvr_accrual_date;
4537: l_recvr_gl_period_name := l_prvdr_gl_period_name;
4538:
4539: pa_debug.g_err_stage := 'Recvr is same as Prvdr GL/accrual Date for Rev EI Acct TRX ';
4540: IF(l_debug_mode = 'Y') THEN
4541: pa_debug.write_file(pa_debug.g_err_stage);
4542: END IF;
4543:
4537: l_recvr_gl_period_name := l_prvdr_gl_period_name;
4538:
4539: pa_debug.g_err_stage := 'Recvr is same as Prvdr GL/accrual Date for Rev EI Acct TRX ';
4540: IF(l_debug_mode = 'Y') THEN
4541: pa_debug.write_file(pa_debug.g_err_stage);
4542: END IF;
4543:
4544: ELSE
4545: l_recvr_accrual_date := pa_utils2.get_rev_accrual_date( p_calling_module => p_calling_module
4557: return;
4558: END IF;
4559: l_recvr_gl_date := l_recvr_accrual_date;
4560:
4561: pa_debug.g_err_stage := ':Recvr accrual Date for Rev EI Acct TRX -'||to_char(l_recvr_accrual_date);
4562: IF(l_debug_mode = 'Y') THEN
4563: pa_debug.write_file(pa_debug.g_err_stage);
4564: END IF;
4565:
4559: l_recvr_gl_date := l_recvr_accrual_date;
4560:
4561: pa_debug.g_err_stage := ':Recvr accrual Date for Rev EI Acct TRX -'||to_char(l_recvr_accrual_date);
4562: IF(l_debug_mode = 'Y') THEN
4563: pa_debug.write_file(pa_debug.g_err_stage);
4564: END IF;
4565:
4566: END IF; ---------------p_prvdr_org_id = p_recvr_org_id-------------}
4567: END IF; ------------------p_adj_ei_id IS NULL---------------------------------------}
4577: x_recvr_gl_period_name := l_recvr_gl_period_name;
4578:
4579: -- Deriving PA periods
4580:
4581: pa_debug.g_err_stage := 'Deriving the PA Dates';
4582: IF(l_debug_mode = 'Y') THEN
4583: pa_debug.write_file(pa_debug.g_err_stage);
4584: END IF;
4585:
4579: -- Deriving PA periods
4580:
4581: pa_debug.g_err_stage := 'Deriving the PA Dates';
4582: IF(l_debug_mode = 'Y') THEN
4583: pa_debug.write_file(pa_debug.g_err_stage);
4584: END IF;
4585:
4586: IF p_adj_ei_id IS NULL THEN ------------ORG EI-------------------------{
4587:
4602: IF x_error_code IS NOT NULL THEN
4603: return;
4604: END IF;
4605:
4606: pa_debug.g_err_stage := 'Prvdr PA Date -'||to_char(l_prvdr_pa_date);
4607: IF(l_debug_mode = 'Y') THEN
4608: pa_debug.write_file(pa_debug.g_err_stage);
4609: END IF;
4610: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4604: END IF;
4605:
4606: pa_debug.g_err_stage := 'Prvdr PA Date -'||to_char(l_prvdr_pa_date);
4607: IF(l_debug_mode = 'Y') THEN
4608: pa_debug.write_file(pa_debug.g_err_stage);
4609: END IF;
4610: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4611: IF(l_debug_mode = 'Y') THEN
4612: pa_debug.write_file(pa_debug.g_err_stage);
4606: pa_debug.g_err_stage := 'Prvdr PA Date -'||to_char(l_prvdr_pa_date);
4607: IF(l_debug_mode = 'Y') THEN
4608: pa_debug.write_file(pa_debug.g_err_stage);
4609: END IF;
4610: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4611: IF(l_debug_mode = 'Y') THEN
4612: pa_debug.write_file(pa_debug.g_err_stage);
4613: END IF;
4614: IF p_prvdr_org_id = p_recvr_org_id THEN
4608: pa_debug.write_file(pa_debug.g_err_stage);
4609: END IF;
4610: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4611: IF(l_debug_mode = 'Y') THEN
4612: pa_debug.write_file(pa_debug.g_err_stage);
4613: END IF;
4614: IF p_prvdr_org_id = p_recvr_org_id THEN
4615: l_recvr_pa_date := l_prvdr_pa_date;
4616: l_recvr_pa_period_name := l_prvdr_pa_period_name;
4614: IF p_prvdr_org_id = p_recvr_org_id THEN
4615: l_recvr_pa_date := l_prvdr_pa_date;
4616: l_recvr_pa_period_name := l_prvdr_pa_period_name;
4617:
4618: pa_debug.g_err_stage :='Prvdr PA Derivation = Recvr PA Derivation ORG EI ';
4619: IF(l_debug_mode = 'Y') THEN
4620: pa_debug.write_file(pa_debug.g_err_stage);
4621: END IF;
4622: ELSE
4616: l_recvr_pa_period_name := l_prvdr_pa_period_name;
4617:
4618: pa_debug.g_err_stage :='Prvdr PA Derivation = Recvr PA Derivation ORG EI ';
4619: IF(l_debug_mode = 'Y') THEN
4620: pa_debug.write_file(pa_debug.g_err_stage);
4621: END IF;
4622: ELSE
4623: --- Derive the org recvr pa date and pa period.
4624: BEGIN
4637: IF x_error_code IS NOT NULL THEN
4638: return;
4639: END IF;
4640:
4641: pa_debug.g_err_stage := 'Recvr PA Date -'||to_char(l_recvr_pa_date);
4642: IF(l_debug_mode = 'Y') THEN
4643: pa_debug.write_file(pa_debug.g_err_stage);
4644: END IF;
4645: pa_debug.g_err_stage := 'Recvr PA Period Name -'||l_recvr_pa_period_name;
4639: END IF;
4640:
4641: pa_debug.g_err_stage := 'Recvr PA Date -'||to_char(l_recvr_pa_date);
4642: IF(l_debug_mode = 'Y') THEN
4643: pa_debug.write_file(pa_debug.g_err_stage);
4644: END IF;
4645: pa_debug.g_err_stage := 'Recvr PA Period Name -'||l_recvr_pa_period_name;
4646: IF(l_debug_mode = 'Y') THEN
4647: pa_debug.write_file(pa_debug.g_err_stage);
4641: pa_debug.g_err_stage := 'Recvr PA Date -'||to_char(l_recvr_pa_date);
4642: IF(l_debug_mode = 'Y') THEN
4643: pa_debug.write_file(pa_debug.g_err_stage);
4644: END IF;
4645: pa_debug.g_err_stage := 'Recvr PA Period Name -'||l_recvr_pa_period_name;
4646: IF(l_debug_mode = 'Y') THEN
4647: pa_debug.write_file(pa_debug.g_err_stage);
4648: END IF;
4649: END IF;
4643: pa_debug.write_file(pa_debug.g_err_stage);
4644: END IF;
4645: pa_debug.g_err_stage := 'Recvr PA Period Name -'||l_recvr_pa_period_name;
4646: IF(l_debug_mode = 'Y') THEN
4647: pa_debug.write_file(pa_debug.g_err_stage);
4648: END IF;
4649: END IF;
4650:
4651: ELSE -------------------------REV ITEM-----------------------
4649: END IF;
4650:
4651: ELSE -------------------------REV ITEM-----------------------
4652:
4653: pa_debug.g_err_stage := 'Deriving the PA Dates for REV EI';
4654: IF(l_debug_mode = 'Y') THEN
4655: pa_debug.write_file(pa_debug.g_err_stage);
4656: END IF;
4657: ----For Prvdr
4651: ELSE -------------------------REV ITEM-----------------------
4652:
4653: pa_debug.g_err_stage := 'Deriving the PA Dates for REV EI';
4654: IF(l_debug_mode = 'Y') THEN
4655: pa_debug.write_file(pa_debug.g_err_stage);
4656: END IF;
4657: ----For Prvdr
4658: BEGIN
4659: --- Derive the org prvdr pa date and pa period.
4672: IF x_error_code IS NOT NULL THEN
4673: return;
4674: END IF;
4675:
4676: pa_debug.g_err_stage := 'Prvdr PA Date -'||to_char(l_prvdr_pa_date);
4677: IF(l_debug_mode = 'Y') THEN
4678: pa_debug.write_file(pa_debug.g_err_stage);
4679: END IF;
4680: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4674: END IF;
4675:
4676: pa_debug.g_err_stage := 'Prvdr PA Date -'||to_char(l_prvdr_pa_date);
4677: IF(l_debug_mode = 'Y') THEN
4678: pa_debug.write_file(pa_debug.g_err_stage);
4679: END IF;
4680: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4681: IF(l_debug_mode = 'Y') THEN
4682: pa_debug.write_file(pa_debug.g_err_stage);
4676: pa_debug.g_err_stage := 'Prvdr PA Date -'||to_char(l_prvdr_pa_date);
4677: IF(l_debug_mode = 'Y') THEN
4678: pa_debug.write_file(pa_debug.g_err_stage);
4679: END IF;
4680: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4681: IF(l_debug_mode = 'Y') THEN
4682: pa_debug.write_file(pa_debug.g_err_stage);
4683: END IF;
4684:
4678: pa_debug.write_file(pa_debug.g_err_stage);
4679: END IF;
4680: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4681: IF(l_debug_mode = 'Y') THEN
4682: pa_debug.write_file(pa_debug.g_err_stage);
4683: END IF;
4684:
4685: ----For Recvr
4686: IF p_prvdr_org_id = p_recvr_org_id THEN
4686: IF p_prvdr_org_id = p_recvr_org_id THEN
4687: l_recvr_pa_date := l_prvdr_pa_date;
4688: l_recvr_pa_period_name :=l_prvdr_pa_period_name ;
4689:
4690: pa_debug.g_err_stage :='Prvdr PA Derivation = Recvr PA Derivation REV EI ';
4691: IF(l_debug_mode = 'Y') THEN
4692: pa_debug.write_file(pa_debug.g_err_stage);
4693: END IF;
4694: ELSE
4688: l_recvr_pa_period_name :=l_prvdr_pa_period_name ;
4689:
4690: pa_debug.g_err_stage :='Prvdr PA Derivation = Recvr PA Derivation REV EI ';
4691: IF(l_debug_mode = 'Y') THEN
4692: pa_debug.write_file(pa_debug.g_err_stage);
4693: END IF;
4694: ELSE
4695: --- Derive the org recvr pa date and pa period.
4696: BEGIN
4711: END IF;
4712:
4713: END IF;
4714:
4715: pa_debug.g_err_stage := 'Recvr PA Date -'||to_char(l_recvr_pa_date);
4716: IF(l_debug_mode = 'Y') THEN
4717: pa_debug.write_file(pa_debug.g_err_stage);
4718: END IF;
4719: pa_debug.g_err_stage :='Recvr PA Period Name -'||l_recvr_pa_period_name;
4713: END IF;
4714:
4715: pa_debug.g_err_stage := 'Recvr PA Date -'||to_char(l_recvr_pa_date);
4716: IF(l_debug_mode = 'Y') THEN
4717: pa_debug.write_file(pa_debug.g_err_stage);
4718: END IF;
4719: pa_debug.g_err_stage :='Recvr PA Period Name -'||l_recvr_pa_period_name;
4720: IF(l_debug_mode = 'Y') THEN
4721: pa_debug.write_file(pa_debug.g_err_stage);
4715: pa_debug.g_err_stage := 'Recvr PA Date -'||to_char(l_recvr_pa_date);
4716: IF(l_debug_mode = 'Y') THEN
4717: pa_debug.write_file(pa_debug.g_err_stage);
4718: END IF;
4719: pa_debug.g_err_stage :='Recvr PA Period Name -'||l_recvr_pa_period_name;
4720: IF(l_debug_mode = 'Y') THEN
4721: pa_debug.write_file(pa_debug.g_err_stage);
4722: END IF;
4723:
4717: pa_debug.write_file(pa_debug.g_err_stage);
4718: END IF;
4719: pa_debug.g_err_stage :='Recvr PA Period Name -'||l_recvr_pa_period_name;
4720: IF(l_debug_mode = 'Y') THEN
4721: pa_debug.write_file(pa_debug.g_err_stage);
4722: END IF;
4723:
4724: END IF; ---------------ORG EI--------------------------------------------}
4725: ---Assign the out parameters.
4728: x_recvr_pa_date := l_recvr_pa_date;
4729: x_recvr_pa_period_name := l_recvr_pa_period_name;
4730: END IF; -----------p_calling_module = 'CDL' AND NVL(p_acct_flag,'N') = 'Y'------------------------}
4731:
4732: pa_debug.g_err_stage :='x_prvdr_accr_date is [' || to_char(x_prvdr_accrual_date) ||
4733: '] x_recvr_accr_date is ['|| to_char(x_recvr_accrual_date) || ']';
4734: IF(l_debug_mode = 'Y') THEN
4735: pa_debug.write_file(pa_debug.g_err_stage);
4736: END IF;
4731:
4732: pa_debug.g_err_stage :='x_prvdr_accr_date is [' || to_char(x_prvdr_accrual_date) ||
4733: '] x_recvr_accr_date is ['|| to_char(x_recvr_accrual_date) || ']';
4734: IF(l_debug_mode = 'Y') THEN
4735: pa_debug.write_file(pa_debug.g_err_stage);
4736: END IF;
4737:
4738: pa_debug.g_err_stage :='x_prvdr_pa_date is [' || to_char(x_prvdr_pa_date) ||
4739: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
4734: IF(l_debug_mode = 'Y') THEN
4735: pa_debug.write_file(pa_debug.g_err_stage);
4736: END IF;
4737:
4738: pa_debug.g_err_stage :='x_prvdr_pa_date is [' || to_char(x_prvdr_pa_date) ||
4739: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
4740: IF(l_debug_mode = 'Y') THEN
4741: pa_debug.write_file(pa_debug.g_err_stage);
4742: END IF;
4737:
4738: pa_debug.g_err_stage :='x_prvdr_pa_date is [' || to_char(x_prvdr_pa_date) ||
4739: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
4740: IF(l_debug_mode = 'Y') THEN
4741: pa_debug.write_file(pa_debug.g_err_stage);
4742: END IF;
4743: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
4744: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
4745: IF(l_debug_mode = 'Y') THEN
4739: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
4740: IF(l_debug_mode = 'Y') THEN
4741: pa_debug.write_file(pa_debug.g_err_stage);
4742: END IF;
4743: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
4744: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
4745: IF(l_debug_mode = 'Y') THEN
4746: pa_debug.write_file(pa_debug.g_err_stage);
4747: END IF;
4742: END IF;
4743: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
4744: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
4745: IF(l_debug_mode = 'Y') THEN
4746: pa_debug.write_file(pa_debug.g_err_stage);
4747: END IF;
4748: pa_debug.g_err_stage :='x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
4749: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
4750: IF(l_debug_mode = 'Y') THEN
4744: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
4745: IF(l_debug_mode = 'Y') THEN
4746: pa_debug.write_file(pa_debug.g_err_stage);
4747: END IF;
4748: pa_debug.g_err_stage :='x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
4749: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
4750: IF(l_debug_mode = 'Y') THEN
4751: pa_debug.write_file(pa_debug.g_err_stage);
4752: END IF;
4747: END IF;
4748: pa_debug.g_err_stage :='x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
4749: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
4750: IF(l_debug_mode = 'Y') THEN
4751: pa_debug.write_file(pa_debug.g_err_stage);
4752: END IF;
4753: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
4754: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
4755: IF(l_debug_mode = 'Y') THEN
4749: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
4750: IF(l_debug_mode = 'Y') THEN
4751: pa_debug.write_file(pa_debug.g_err_stage);
4752: END IF;
4753: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
4754: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
4755: IF(l_debug_mode = 'Y') THEN
4756: pa_debug.write_file(pa_debug.g_err_stage);
4757: END IF;
4752: END IF;
4753: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
4754: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
4755: IF(l_debug_mode = 'Y') THEN
4756: pa_debug.write_file(pa_debug.g_err_stage);
4757: END IF;
4758: pa_debug.g_err_stage :=' x_error_code is [' || x_error_code || ']';
4759: IF(l_debug_mode = 'Y') THEN
4760: pa_debug.write_file(pa_debug.g_err_stage);
4754: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
4755: IF(l_debug_mode = 'Y') THEN
4756: pa_debug.write_file(pa_debug.g_err_stage);
4757: END IF;
4758: pa_debug.g_err_stage :=' x_error_code is [' || x_error_code || ']';
4759: IF(l_debug_mode = 'Y') THEN
4760: pa_debug.write_file(pa_debug.g_err_stage);
4761: END IF;
4762:
4756: pa_debug.write_file(pa_debug.g_err_stage);
4757: END IF;
4758: pa_debug.g_err_stage :=' x_error_code is [' || x_error_code || ']';
4759: IF(l_debug_mode = 'Y') THEN
4760: pa_debug.write_file(pa_debug.g_err_stage);
4761: END IF;
4762:
4763: x_return_status := FND_API.G_RET_STS_SUCCESS;
4764: pa_debug.reset_err_stack;
4760: pa_debug.write_file(pa_debug.g_err_stage);
4761: END IF;
4762:
4763: x_return_status := FND_API.G_RET_STS_SUCCESS;
4764: pa_debug.reset_err_stack;
4765:
4766: EXCEPTION
4767: WHEN NO_DATA_FOUND THEN
4768: RAISE;
5063: l_application_id NUMBER := NULL ;
5064:
5065: BEGIN
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:
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 ;
5075:
5076: SELECT imp.set_of_books_id
5076: SELECT imp.set_of_books_id
5077: INTO l_set_of_books_id
5078: FROM pa_implementations imp;
5079:
5080: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Using (appl_id, sob_id): (' || to_char(l_application_id) || ', ' || to_char(l_set_of_books_id) || ')' );
5081:
5082: ---Initialize the out variables.
5083: x_gl_period_name := NULL;
5084: x_gl_dt := NULL;
5084: x_gl_dt := NULL;
5085: x_return_status := 0;
5086: x_error_code := NULL;
5087:
5088: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Trying reference_date with cached start and end date values' );
5089:
5090: IF ((trunc(p_reference_date) BETWEEN g_gl_dt_period_str_dt AND g_gl_dt_period_end_dt )
5091: AND g_gl_dt_period_str_dt IS NOT NULL) THEN
5092:
5089:
5090: IF ((trunc(p_reference_date) BETWEEN g_gl_dt_period_str_dt AND g_gl_dt_period_end_dt )
5091: AND g_gl_dt_period_str_dt IS NOT NULL) THEN
5092:
5093: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Using cached values' );
5094:
5095: ---From Cache
5096: IF l_epp_flag = 'Y' THEN
5097: l_gl_dt := p_reference_date;
5102: --Assign the out variables.
5103: x_gl_dt := l_gl_dt ;
5104: x_gl_period_name := g_gl_dt_period_name;
5105:
5106: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Leaving procedure');
5107:
5108: return;
5109:
5110: END IF;
5110: END IF;
5111:
5112: --- Either the cache is empty or the reference date is not in the range.
5113:
5114: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Cache values empty/reference date not between cached start and end date values' );
5115:
5116: BEGIN
5117:
5118: SELECT PERIOD.period_name,PERIOD.start_date,PERIOD.end_date,PERIOD.closing_status
5130:
5131: return;
5132: WHEN OTHERS THEN
5133: x_return_status := -1;
5134: x_error_stage := 'PA_UTILS2.GET_GL_PERIOD:: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
5135:
5136: raise;
5137: END;
5138:
5142: ELSE
5143: l_gl_dt := l_gl_period_end_dt;
5144: END IF;
5145:
5146: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Checking for period status' );
5147:
5148: --Checking for period status.
5149: IF l_period_status NOT IN ('O','F') THEN
5150:
5147:
5148: --Checking for period status.
5149: IF l_period_status NOT IN ('O','F') THEN
5150:
5151: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Period is closed' );
5152:
5153: IF l_epp_flag = 'N' THEN
5154:
5155: pa_debug.g_err_stage := 'EPP = N, Querying next open period'; /* Added Code for Bug 6139975 */
5151: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Period is closed' );
5152:
5153: IF l_epp_flag = 'N' THEN
5154:
5155: pa_debug.g_err_stage := 'EPP = N, Querying next open period'; /* Added Code for Bug 6139975 */
5156:
5157: SELECT PERIOD.start_date,
5158: PERIOD.end_date,
5159: PERIOD.end_date,
5186: AND PERIOD2.set_of_books_id = l_set_of_books_id ))
5187: AND PERIOD.End_Date >= TRUNC(p_reference_date)
5188: AND PERIOD.set_of_books_id = l_set_of_books_id ;
5189:
5190: pa_debug.g_err_stage := 'EPP = N, Fetched next open period'; /* Added Code for Bug 6139975 */
5191:
5192: ELSE
5193:
5194: pa_debug.g_err_stage := 'EPP = Y, Querying next open period'; /* Added Code for Bug 6139975 */
5190: pa_debug.g_err_stage := 'EPP = N, Fetched next open period'; /* Added Code for Bug 6139975 */
5191:
5192: ELSE
5193:
5194: pa_debug.g_err_stage := 'EPP = Y, Querying next open period'; /* Added Code for Bug 6139975 */
5195:
5196: SELECT PERIOD.start_date,
5197: PERIOD.start_date,
5198: PERIOD.end_date,
5224: AND PERIOD2.application_id = l_application_id
5225: AND PERIOD2.set_of_books_id = l_set_of_books_id ))
5226: AND PERIOD.Start_Date > TRUNC(p_reference_date);
5227:
5228: pa_debug.g_err_stage := 'EPP = Y, Fetched next open period'; /* Added Code for Bug 6139975 */
5229:
5230: END IF;
5231:
5232: END IF;
5230: END IF;
5231:
5232: END IF;
5233:
5234: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Caching dates' );
5235:
5236: g_gl_dt_period_name := l_gl_period_name;
5237: g_gl_dt_period_str_dt := l_gl_period_st_dt ;
5238: g_gl_dt_period_end_dt := l_gl_period_end_dt;
5239:
5240: x_gl_dt := l_gl_dt ;
5241: x_gl_period_name := l_gl_period_name ;
5242:
5243: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Leaving procedure');
5244:
5245: EXCEPTION
5246:
5247: /* Start of code added for Bug 6139975 */
5248:
5249: WHEN NO_DATA_FOUND THEN
5250: x_return_status := -1;
5251: x_error_code := 'NO_GL_DATE';
5252: x_error_stage := 'PA_UTILS2.GET_GL_PERIOD:: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
5253:
5254: return;
5255:
5256: /* End of code added for Bug 6139975 */
5256: /* End of code added for Bug 6139975 */
5257:
5258: WHEN OTHERS THEN
5259: x_return_status := -1;
5260: x_error_stage := 'PA_UTILS2.GET_GL_PERIOD:: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
5261:
5262: raise;
5263: END get_gl_dt_period ;
5264:
5318: AND e.person_type IS NULL;
5319:
5320: BEGIN
5321:
5322: pa_debug.write_file('PA_UTILS2.populate_person_type: Entering procedure');
5323: pa_debug.write_file('PA_UTILS2.populate_person_type: Date = ' || p_date);
5324: pa_debug.write_file('PA_UTILS2.populate_person_type: Upd Type = ' || p_upd_type);
5325: pa_debug.write_file('PA_UTILS2.populate_person_type: Request ID = ' || p_request_id);
5326:
5319:
5320: BEGIN
5321:
5322: pa_debug.write_file('PA_UTILS2.populate_person_type: Entering procedure');
5323: pa_debug.write_file('PA_UTILS2.populate_person_type: Date = ' || p_date);
5324: pa_debug.write_file('PA_UTILS2.populate_person_type: Upd Type = ' || p_upd_type);
5325: pa_debug.write_file('PA_UTILS2.populate_person_type: Request ID = ' || p_request_id);
5326:
5327: l_Cross_BG_Profile:= pa_utils.IsCrossBGProfile_WNPS;
5320: BEGIN
5321:
5322: pa_debug.write_file('PA_UTILS2.populate_person_type: Entering procedure');
5323: pa_debug.write_file('PA_UTILS2.populate_person_type: Date = ' || p_date);
5324: pa_debug.write_file('PA_UTILS2.populate_person_type: Upd Type = ' || p_upd_type);
5325: pa_debug.write_file('PA_UTILS2.populate_person_type: Request ID = ' || p_request_id);
5326:
5327: l_Cross_BG_Profile:= pa_utils.IsCrossBGProfile_WNPS;
5328:
5321:
5322: pa_debug.write_file('PA_UTILS2.populate_person_type: Entering procedure');
5323: pa_debug.write_file('PA_UTILS2.populate_person_type: Date = ' || p_date);
5324: pa_debug.write_file('PA_UTILS2.populate_person_type: Upd Type = ' || p_upd_type);
5325: pa_debug.write_file('PA_UTILS2.populate_person_type: Request ID = ' || p_request_id);
5326:
5327: l_Cross_BG_Profile:= pa_utils.IsCrossBGProfile_WNPS;
5328:
5329: SELECT business_group_id
5329: SELECT business_group_id
5330: INTO l_business_group_id
5331: FROM pa_implementations;
5332:
5333: pa_debug.write_file('PA_UTILS2.populate_person_type: l_Cross_BG_Profile = ' || l_Cross_BG_Profile);
5334: pa_debug.write_file('PA_UTILS2.populate_person_type: l_business_group_id = ' || l_business_group_id);
5335:
5336: IF p_date IS NULL AND p_upd_type IS NULL THEN
5337:
5330: INTO l_business_group_id
5331: FROM pa_implementations;
5332:
5333: pa_debug.write_file('PA_UTILS2.populate_person_type: l_Cross_BG_Profile = ' || l_Cross_BG_Profile);
5334: pa_debug.write_file('PA_UTILS2.populate_person_type: l_business_group_id = ' || l_business_group_id);
5335:
5336: IF p_date IS NULL AND p_upd_type IS NULL THEN
5337:
5338: FOR rec IN elg_dist(p_request_id) LOOP
5356: request_id = p_request_id
5357: WHERE expenditure_id = rec.expenditure_id;
5358:
5359: END LOOP;
5360: pa_debug.write_file('PA_UTILS2.populate_person_type: Person Type updated');
5361:
5362: ELSIF p_upd_type = 'A' THEN
5363:
5364: FOR rec1 IN elg_acc1(p_date,p_request_id) LOOP
5382: request_id = p_request_id
5383: WHERE expenditure_id = rec1.expenditure_id;
5384:
5385: END LOOP;
5386: pa_debug.write_file('PA_UTILS2.populate_person_type: Person Type updated');
5387:
5388: ELSIF p_upd_type = 'X' THEN
5389:
5390: FOR rec1 IN elg_acc2(p_request_id) LOOP
5408: request_id = p_request_id
5409: WHERE expenditure_id = rec1.expenditure_id;
5410:
5411: END LOOP;
5412: pa_debug.write_file('PA_UTILS2.populate_person_type: Person Type updated');
5413:
5414: END IF;
5415:
5416: pa_debug.write_file('PA_UTILS2.populate_person_type: Leaving procedure');
5412: pa_debug.write_file('PA_UTILS2.populate_person_type: Person Type updated');
5413:
5414: END IF;
5415:
5416: pa_debug.write_file('PA_UTILS2.populate_person_type: Leaving procedure');
5417:
5418: EXCEPTION
5419: WHEN OTHERS THEN
5420: pa_debug.write_file('PA_UTILS2.populate_person_type:: ' ||
5416: pa_debug.write_file('PA_UTILS2.populate_person_type: Leaving procedure');
5417:
5418: EXCEPTION
5419: WHEN OTHERS THEN
5420: pa_debug.write_file('PA_UTILS2.populate_person_type:: ' ||
5421: pa_debug.g_err_stage ||':: '|| SQLERRM);
5422: RAISE;
5423:
5424: end populate_person_type;
5417:
5418: EXCEPTION
5419: WHEN OTHERS THEN
5420: pa_debug.write_file('PA_UTILS2.populate_person_type:: ' ||
5421: pa_debug.g_err_stage ||':: '|| SQLERRM);
5422: RAISE;
5423:
5424: end populate_person_type;
5425: /* Added for bug 13554435 */