2491: l_use_same_pa_gl_period_recvr VARCHAR2(1) := 'N' ;
2492: BEGIN
2493:
2494: x_return_status := -1 ;
2495: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2496: l_debug_mode := NVL(l_debug_mode, 'N');
2497: l_stage := 100;
2498: IF (l_debug_mode = 'Y') THEN
2499: pa_debug.init_err_stack('pa_utils2.get_period_information');
2495: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2496: l_debug_mode := NVL(l_debug_mode, 'N');
2497: l_stage := 100;
2498: IF (l_debug_mode = 'Y') THEN
2499: pa_debug.init_err_stack('pa_utils2.get_period_information');
2500: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2501: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From get_period_information';
2502: pa_debug.write_file(pa_debug.g_err_stage);
2503: END IF;
2496: l_debug_mode := NVL(l_debug_mode, 'N');
2497: l_stage := 100;
2498: IF (l_debug_mode = 'Y') THEN
2499: pa_debug.init_err_stack('pa_utils2.get_period_information');
2500: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2501: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From get_period_information';
2502: pa_debug.write_file(pa_debug.g_err_stage);
2503: END IF;
2504:
2497: l_stage := 100;
2498: IF (l_debug_mode = 'Y') THEN
2499: pa_debug.init_err_stack('pa_utils2.get_period_information');
2500: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2501: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From get_period_information';
2502: pa_debug.write_file(pa_debug.g_err_stage);
2503: END IF;
2504:
2505: if g_prof_new_gldate_derivation IS NULL then
2498: IF (l_debug_mode = 'Y') THEN
2499: pa_debug.init_err_stack('pa_utils2.get_period_information');
2500: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2501: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From get_period_information';
2502: pa_debug.write_file(pa_debug.g_err_stage);
2503: END IF;
2504:
2505: if g_prof_new_gldate_derivation IS NULL then
2506: l_prof_new_gldate_derivation := nvl(fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION'),'N') ; /*For Bug 5391468*/
2511: l_use_same_pa_gl_period_prvdr := NVL(PA_PERIOD_PROCESS_PKG.Use_Same_PA_GL_Period(p_prvdr_org_id), 'N') ;
2512: l_use_same_pa_gl_period_recvr := NVL(PA_PERIOD_PROCESS_PKG.Use_Same_PA_GL_Period(p_recvr_org_id), 'N') ;
2513:
2514: IF ( l_debug_mode = 'Y' ) THEN
2515: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Profile option is [' || l_prof_new_gldate_derivation || ']';
2516: pa_debug.write_file(pa_debug.g_err_stage);
2517: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Prvdr [' || to_char(p_prvdr_org_id) || '] is ['
2518: || l_use_same_pa_gl_period_prvdr || ']' ;
2519: pa_debug.write_file(pa_debug.g_err_stage);
2512: l_use_same_pa_gl_period_recvr := NVL(PA_PERIOD_PROCESS_PKG.Use_Same_PA_GL_Period(p_recvr_org_id), 'N') ;
2513:
2514: IF ( l_debug_mode = 'Y' ) THEN
2515: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Profile option is [' || l_prof_new_gldate_derivation || ']';
2516: pa_debug.write_file(pa_debug.g_err_stage);
2517: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Prvdr [' || to_char(p_prvdr_org_id) || '] is ['
2518: || l_use_same_pa_gl_period_prvdr || ']' ;
2519: pa_debug.write_file(pa_debug.g_err_stage);
2520: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2513:
2514: IF ( l_debug_mode = 'Y' ) THEN
2515: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Profile option is [' || l_prof_new_gldate_derivation || ']';
2516: pa_debug.write_file(pa_debug.g_err_stage);
2517: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Prvdr [' || to_char(p_prvdr_org_id) || '] is ['
2518: || l_use_same_pa_gl_period_prvdr || ']' ;
2519: pa_debug.write_file(pa_debug.g_err_stage);
2520: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2521: || l_use_same_pa_gl_period_recvr || ']' ;
2515: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Profile option is [' || l_prof_new_gldate_derivation || ']';
2516: pa_debug.write_file(pa_debug.g_err_stage);
2517: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Prvdr [' || to_char(p_prvdr_org_id) || '] is ['
2518: || l_use_same_pa_gl_period_prvdr || ']' ;
2519: pa_debug.write_file(pa_debug.g_err_stage);
2520: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2521: || l_use_same_pa_gl_period_recvr || ']' ;
2522: pa_debug.write_file(pa_debug.g_err_stage);
2523: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2516: pa_debug.write_file(pa_debug.g_err_stage);
2517: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Prvdr [' || to_char(p_prvdr_org_id) || '] is ['
2518: || l_use_same_pa_gl_period_prvdr || ']' ;
2519: pa_debug.write_file(pa_debug.g_err_stage);
2520: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2521: || l_use_same_pa_gl_period_recvr || ']' ;
2522: pa_debug.write_file(pa_debug.g_err_stage);
2523: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2524: pa_debug.write_file(pa_debug.g_err_stage);
2518: || l_use_same_pa_gl_period_prvdr || ']' ;
2519: pa_debug.write_file(pa_debug.g_err_stage);
2520: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2521: || l_use_same_pa_gl_period_recvr || ']' ;
2522: pa_debug.write_file(pa_debug.g_err_stage);
2523: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2524: pa_debug.write_file(pa_debug.g_err_stage);
2525: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2526: pa_debug.write_file(pa_debug.g_err_stage);
2519: pa_debug.write_file(pa_debug.g_err_stage);
2520: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2521: || l_use_same_pa_gl_period_recvr || ']' ;
2522: pa_debug.write_file(pa_debug.g_err_stage);
2523: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2524: pa_debug.write_file(pa_debug.g_err_stage);
2525: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2526: pa_debug.write_file(pa_debug.g_err_stage);
2527: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2520: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Same PA and GL for Recvr [' || to_char(p_recvr_org_id) || '] is ['
2521: || l_use_same_pa_gl_period_recvr || ']' ;
2522: pa_debug.write_file(pa_debug.g_err_stage);
2523: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2524: pa_debug.write_file(pa_debug.g_err_stage);
2525: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2526: pa_debug.write_file(pa_debug.g_err_stage);
2527: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2528: pa_debug.write_file(pa_debug.g_err_stage);
2521: || l_use_same_pa_gl_period_recvr || ']' ;
2522: pa_debug.write_file(pa_debug.g_err_stage);
2523: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2524: pa_debug.write_file(pa_debug.g_err_stage);
2525: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2526: pa_debug.write_file(pa_debug.g_err_stage);
2527: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2528: pa_debug.write_file(pa_debug.g_err_stage);
2529: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2522: pa_debug.write_file(pa_debug.g_err_stage);
2523: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2524: pa_debug.write_file(pa_debug.g_err_stage);
2525: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2526: pa_debug.write_file(pa_debug.g_err_stage);
2527: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2528: pa_debug.write_file(pa_debug.g_err_stage);
2529: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2530: pa_debug.write_file(pa_debug.g_err_stage);
2523: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
2524: pa_debug.write_file(pa_debug.g_err_stage);
2525: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2526: pa_debug.write_file(pa_debug.g_err_stage);
2527: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2528: pa_debug.write_file(pa_debug.g_err_stage);
2529: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2530: pa_debug.write_file(pa_debug.g_err_stage);
2531: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date is [' || to_char(p_prvdr_raw_pa_date) || ']';
2524: pa_debug.write_file(pa_debug.g_err_stage);
2525: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2526: pa_debug.write_file(pa_debug.g_err_stage);
2527: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2528: pa_debug.write_file(pa_debug.g_err_stage);
2529: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2530: pa_debug.write_file(pa_debug.g_err_stage);
2531: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date is [' || to_char(p_prvdr_raw_pa_date) || ']';
2532: pa_debug.write_file(pa_debug.g_err_stage);
2525: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_expenditure_id is [' || to_char(p_expenditure_id) || ']';
2526: pa_debug.write_file(pa_debug.g_err_stage);
2527: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2528: pa_debug.write_file(pa_debug.g_err_stage);
2529: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2530: pa_debug.write_file(pa_debug.g_err_stage);
2531: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date is [' || to_char(p_prvdr_raw_pa_date) || ']';
2532: pa_debug.write_file(pa_debug.g_err_stage);
2533: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date is [' || to_char(p_recvr_raw_pa_date) || ']';
2526: pa_debug.write_file(pa_debug.g_err_stage);
2527: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2528: pa_debug.write_file(pa_debug.g_err_stage);
2529: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2530: pa_debug.write_file(pa_debug.g_err_stage);
2531: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date is [' || to_char(p_prvdr_raw_pa_date) || ']';
2532: pa_debug.write_file(pa_debug.g_err_stage);
2533: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date is [' || to_char(p_recvr_raw_pa_date) || ']';
2534: pa_debug.write_file(pa_debug.g_err_stage);
2527: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_system_linkage_function is [' || p_system_linkage_function || ']';
2528: pa_debug.write_file(pa_debug.g_err_stage);
2529: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2530: pa_debug.write_file(pa_debug.g_err_stage);
2531: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date is [' || to_char(p_prvdr_raw_pa_date) || ']';
2532: pa_debug.write_file(pa_debug.g_err_stage);
2533: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date is [' || to_char(p_recvr_raw_pa_date) || ']';
2534: pa_debug.write_file(pa_debug.g_err_stage);
2535: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date is [' || to_char(p_prvdr_raw_gl_date) || ']';
2528: pa_debug.write_file(pa_debug.g_err_stage);
2529: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2530: pa_debug.write_file(pa_debug.g_err_stage);
2531: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date is [' || to_char(p_prvdr_raw_pa_date) || ']';
2532: pa_debug.write_file(pa_debug.g_err_stage);
2533: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date is [' || to_char(p_recvr_raw_pa_date) || ']';
2534: pa_debug.write_file(pa_debug.g_err_stage);
2535: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date is [' || to_char(p_prvdr_raw_gl_date) || ']';
2536: pa_debug.write_file(pa_debug.g_err_stage);
2529: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_line_type is [' || p_line_type || ']';
2530: pa_debug.write_file(pa_debug.g_err_stage);
2531: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date is [' || to_char(p_prvdr_raw_pa_date) || ']';
2532: pa_debug.write_file(pa_debug.g_err_stage);
2533: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date is [' || to_char(p_recvr_raw_pa_date) || ']';
2534: pa_debug.write_file(pa_debug.g_err_stage);
2535: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date is [' || to_char(p_prvdr_raw_gl_date) || ']';
2536: pa_debug.write_file(pa_debug.g_err_stage);
2537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date is [' || to_char(p_recvr_raw_gl_date) || ']';
2530: pa_debug.write_file(pa_debug.g_err_stage);
2531: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date is [' || to_char(p_prvdr_raw_pa_date) || ']';
2532: pa_debug.write_file(pa_debug.g_err_stage);
2533: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date is [' || to_char(p_recvr_raw_pa_date) || ']';
2534: pa_debug.write_file(pa_debug.g_err_stage);
2535: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date is [' || to_char(p_prvdr_raw_gl_date) || ']';
2536: pa_debug.write_file(pa_debug.g_err_stage);
2537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date is [' || to_char(p_recvr_raw_gl_date) || ']';
2538: pa_debug.write_file(pa_debug.g_err_stage);
2531: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_pa_date is [' || to_char(p_prvdr_raw_pa_date) || ']';
2532: pa_debug.write_file(pa_debug.g_err_stage);
2533: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date is [' || to_char(p_recvr_raw_pa_date) || ']';
2534: pa_debug.write_file(pa_debug.g_err_stage);
2535: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date is [' || to_char(p_prvdr_raw_gl_date) || ']';
2536: pa_debug.write_file(pa_debug.g_err_stage);
2537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date is [' || to_char(p_recvr_raw_gl_date) || ']';
2538: pa_debug.write_file(pa_debug.g_err_stage);
2539: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2532: pa_debug.write_file(pa_debug.g_err_stage);
2533: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date is [' || to_char(p_recvr_raw_pa_date) || ']';
2534: pa_debug.write_file(pa_debug.g_err_stage);
2535: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date is [' || to_char(p_prvdr_raw_gl_date) || ']';
2536: pa_debug.write_file(pa_debug.g_err_stage);
2537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date is [' || to_char(p_recvr_raw_gl_date) || ']';
2538: pa_debug.write_file(pa_debug.g_err_stage);
2539: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2540: pa_debug.write_file(pa_debug.g_err_stage);
2533: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_pa_date is [' || to_char(p_recvr_raw_pa_date) || ']';
2534: pa_debug.write_file(pa_debug.g_err_stage);
2535: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date is [' || to_char(p_prvdr_raw_gl_date) || ']';
2536: pa_debug.write_file(pa_debug.g_err_stage);
2537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date is [' || to_char(p_recvr_raw_gl_date) || ']';
2538: pa_debug.write_file(pa_debug.g_err_stage);
2539: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2540: pa_debug.write_file(pa_debug.g_err_stage);
2541: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2534: pa_debug.write_file(pa_debug.g_err_stage);
2535: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date is [' || to_char(p_prvdr_raw_gl_date) || ']';
2536: pa_debug.write_file(pa_debug.g_err_stage);
2537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date is [' || to_char(p_recvr_raw_gl_date) || ']';
2538: pa_debug.write_file(pa_debug.g_err_stage);
2539: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2540: pa_debug.write_file(pa_debug.g_err_stage);
2541: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2542: pa_debug.write_file(pa_debug.g_err_stage);
2535: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_raw_gl_date is [' || to_char(p_prvdr_raw_gl_date) || ']';
2536: pa_debug.write_file(pa_debug.g_err_stage);
2537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date is [' || to_char(p_recvr_raw_gl_date) || ']';
2538: pa_debug.write_file(pa_debug.g_err_stage);
2539: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2540: pa_debug.write_file(pa_debug.g_err_stage);
2541: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2542: pa_debug.write_file(pa_debug.g_err_stage);
2543: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2536: pa_debug.write_file(pa_debug.g_err_stage);
2537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date is [' || to_char(p_recvr_raw_gl_date) || ']';
2538: pa_debug.write_file(pa_debug.g_err_stage);
2539: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2540: pa_debug.write_file(pa_debug.g_err_stage);
2541: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2542: pa_debug.write_file(pa_debug.g_err_stage);
2543: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2544: pa_debug.write_file(pa_debug.g_err_stage);
2537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_raw_gl_date is [' || to_char(p_recvr_raw_gl_date) || ']';
2538: pa_debug.write_file(pa_debug.g_err_stage);
2539: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2540: pa_debug.write_file(pa_debug.g_err_stage);
2541: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2542: pa_debug.write_file(pa_debug.g_err_stage);
2543: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2544: pa_debug.write_file(pa_debug.g_err_stage);
2545: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2538: pa_debug.write_file(pa_debug.g_err_stage);
2539: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2540: pa_debug.write_file(pa_debug.g_err_stage);
2541: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2542: pa_debug.write_file(pa_debug.g_err_stage);
2543: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2544: pa_debug.write_file(pa_debug.g_err_stage);
2545: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2546: pa_debug.write_file(pa_debug.g_err_stage);
2539: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
2540: pa_debug.write_file(pa_debug.g_err_stage);
2541: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2542: pa_debug.write_file(pa_debug.g_err_stage);
2543: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2544: pa_debug.write_file(pa_debug.g_err_stage);
2545: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2546: pa_debug.write_file(pa_debug.g_err_stage);
2547: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_calling_module is [' || p_calling_module || ']';
2540: pa_debug.write_file(pa_debug.g_err_stage);
2541: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2542: pa_debug.write_file(pa_debug.g_err_stage);
2543: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2544: pa_debug.write_file(pa_debug.g_err_stage);
2545: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2546: pa_debug.write_file(pa_debug.g_err_stage);
2547: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_calling_module is [' || p_calling_module || ']';
2548: pa_debug.write_file(pa_debug.g_err_stage);
2541: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
2542: pa_debug.write_file(pa_debug.g_err_stage);
2543: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2544: pa_debug.write_file(pa_debug.g_err_stage);
2545: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2546: pa_debug.write_file(pa_debug.g_err_stage);
2547: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_calling_module is [' || p_calling_module || ']';
2548: pa_debug.write_file(pa_debug.g_err_stage);
2549: END IF;
2542: pa_debug.write_file(pa_debug.g_err_stage);
2543: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2544: pa_debug.write_file(pa_debug.g_err_stage);
2545: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2546: pa_debug.write_file(pa_debug.g_err_stage);
2547: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_calling_module is [' || p_calling_module || ']';
2548: pa_debug.write_file(pa_debug.g_err_stage);
2549: END IF;
2550:
2543: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
2544: pa_debug.write_file(pa_debug.g_err_stage);
2545: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2546: pa_debug.write_file(pa_debug.g_err_stage);
2547: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_calling_module is [' || p_calling_module || ']';
2548: pa_debug.write_file(pa_debug.g_err_stage);
2549: END IF;
2550:
2551: /*
2544: pa_debug.write_file(pa_debug.g_err_stage);
2545: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
2546: pa_debug.write_file(pa_debug.g_err_stage);
2547: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': p_calling_module is [' || p_calling_module || ']';
2548: pa_debug.write_file(pa_debug.g_err_stage);
2549: END IF;
2550:
2551: /*
2552: * Decide whether to derive the receiver part.
2567: THEN
2568: l_stage := 200;
2569: IF ( l_debug_mode = 'Y' )
2570: THEN
2571: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ER - Same Expenditure GL Cache used.' ;
2572: pa_debug.write_file(pa_debug.g_err_stage);
2573: END IF;
2574: l_prvdr_gl_date := g_prev_prvdr_gl_date;
2575: l_prvdr_gl_period_name := g_prev_prvdr_gl_period_name;
2568: l_stage := 200;
2569: IF ( l_debug_mode = 'Y' )
2570: THEN
2571: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ER - Same Expenditure GL Cache used.' ;
2572: pa_debug.write_file(pa_debug.g_err_stage);
2573: END IF;
2574: l_prvdr_gl_date := g_prev_prvdr_gl_date;
2575: l_prvdr_gl_period_name := g_prev_prvdr_gl_period_name;
2576: l_recvr_gl_date := g_prev_recvr_gl_date;
2579: THEN
2580: l_stage := 300;
2581: IF ( l_debug_mode = 'Y' )
2582: THEN
2583: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Burden VI.' ;
2584: pa_debug.write_file(pa_debug.g_err_stage);
2585: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2586: pa_debug.write_file(pa_debug.g_err_stage);
2587: END IF; -- debug
2580: l_stage := 300;
2581: IF ( l_debug_mode = 'Y' )
2582: THEN
2583: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Burden VI.' ;
2584: pa_debug.write_file(pa_debug.g_err_stage);
2585: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2586: pa_debug.write_file(pa_debug.g_err_stage);
2587: END IF; -- debug
2588: /*
2581: IF ( l_debug_mode = 'Y' )
2582: THEN
2583: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Burden VI.' ;
2584: pa_debug.write_file(pa_debug.g_err_stage);
2585: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2586: pa_debug.write_file(pa_debug.g_err_stage);
2587: END IF; -- debug
2588: /*
2589: * The gl_date for the burden CDL is derived based on the gl_date in the
2582: THEN
2583: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Burden VI.' ;
2584: pa_debug.write_file(pa_debug.g_err_stage);
2585: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2586: pa_debug.write_file(pa_debug.g_err_stage);
2587: END IF; -- debug
2588: /*
2589: * The gl_date for the burden CDL is derived based on the gl_date in the
2590: * Raw CDL.(if the Profile option is SET.) If the profile option is NOT set
2610: ELSE
2611: l_stage := 400;
2612: IF ( l_debug_mode = 'Y' )
2613: THEN
2614: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': New ER expenditure/ Raw VI/ Other.' ;
2615: pa_debug.write_file(pa_debug.g_err_stage);
2616: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2617: pa_debug.write_file(pa_debug.g_err_stage);
2618: END IF; -- debug
2611: l_stage := 400;
2612: IF ( l_debug_mode = 'Y' )
2613: THEN
2614: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': New ER expenditure/ Raw VI/ Other.' ;
2615: pa_debug.write_file(pa_debug.g_err_stage);
2616: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2617: pa_debug.write_file(pa_debug.g_err_stage);
2618: END IF; -- debug
2619: IF ( p_calling_module = 'AR_INSTALLED_INVOICE' )
2612: IF ( l_debug_mode = 'Y' )
2613: THEN
2614: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': New ER expenditure/ Raw VI/ Other.' ;
2615: pa_debug.write_file(pa_debug.g_err_stage);
2616: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2617: pa_debug.write_file(pa_debug.g_err_stage);
2618: END IF; -- debug
2619: IF ( p_calling_module = 'AR_INSTALLED_INVOICE' )
2620: THEN
2613: THEN
2614: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': New ER expenditure/ Raw VI/ Other.' ;
2615: pa_debug.write_file(pa_debug.g_err_stage);
2616: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2617: pa_debug.write_file(pa_debug.g_err_stage);
2618: END IF; -- debug
2619: IF ( p_calling_module = 'AR_INSTALLED_INVOICE' )
2620: THEN
2621: l_app_id := l_ar_app_id ;
2655: THEN
2656: l_stage := 500;
2657: IF ( l_debug_mode = 'Y' )
2658: THEN
2659: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Copying Provider GL info to Provider PA';
2660: pa_debug.write_file(pa_debug.g_err_stage);
2661: END IF; -- debug
2662: /*
2663: * Copy Provider Gl period information to Provider Pa periods.
2656: l_stage := 500;
2657: IF ( l_debug_mode = 'Y' )
2658: THEN
2659: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Copying Provider GL info to Provider PA';
2660: pa_debug.write_file(pa_debug.g_err_stage);
2661: END IF; -- debug
2662: /*
2663: * Copy Provider Gl period information to Provider Pa periods.
2664: */
2670: */
2671: l_stage := 500;
2672: IF ( l_debug_mode = 'Y' )
2673: THEN
2674: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving Provider PA Info.';
2675: pa_debug.write_file(pa_debug.g_err_stage);
2676: END IF; -- debug
2677: IF (p_line_type <> 'R' AND p_system_linkage_function = 'VI')
2678: THEN
2671: l_stage := 500;
2672: IF ( l_debug_mode = 'Y' )
2673: THEN
2674: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving Provider PA Info.';
2675: pa_debug.write_file(pa_debug.g_err_stage);
2676: END IF; -- debug
2677: IF (p_line_type <> 'R' AND p_system_linkage_function = 'VI')
2678: THEN
2679: IF ( p_prvdr_raw_pa_date IS NOT NULL )
2708: */
2709: l_stage := 600;
2710: IF ( l_debug_mode = 'Y' )
2711: THEN
2712: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Copying Receiver GenLedg Info to Receiver ProjAacc';
2713: pa_debug.write_file(pa_debug.g_err_stage);
2714: END IF; -- debug
2715: l_recvr_pa_date := l_recvr_gl_date;
2716: l_recvr_pa_period_name := l_recvr_gl_period_name;
2709: l_stage := 600;
2710: IF ( l_debug_mode = 'Y' )
2711: THEN
2712: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Copying Receiver GenLedg Info to Receiver ProjAacc';
2713: pa_debug.write_file(pa_debug.g_err_stage);
2714: END IF; -- debug
2715: l_recvr_pa_date := l_recvr_gl_date;
2716: l_recvr_pa_period_name := l_recvr_gl_period_name;
2717: ELSE
2720: */
2721: l_stage := 700;
2722: IF ( l_debug_mode = 'Y' )
2723: THEN
2724: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving Receiver PA Info.';
2725: pa_debug.write_file(pa_debug.g_err_stage);
2726: END IF; -- debug
2727: IF (p_line_type <> 'R' AND p_system_linkage_function = 'VI')
2728: THEN
2721: l_stage := 700;
2722: IF ( l_debug_mode = 'Y' )
2723: THEN
2724: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving Receiver PA Info.';
2725: pa_debug.write_file(pa_debug.g_err_stage);
2726: END IF; -- debug
2727: IF (p_line_type <> 'R' AND p_system_linkage_function = 'VI')
2728: THEN
2729: IF ( derive.receiver <> 'N' AND p_recvr_raw_pa_date IS NOT NULL )
2796: AND g_prev_expenditure_id IS NOT NULL AND p_calling_module = 'CDL')
2797: THEN
2798: IF ( l_debug_mode = 'Y' )
2799: THEN
2800: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ER - Same Expenditure Populating GL from Cache';
2801: pa_debug.write_file(pa_debug.g_err_stage);
2802: END IF; -- debug
2803: l_prvdr_gl_date := g_prev_prvdr_gl_date;
2804: l_prvdr_gl_period_name := g_prev_prvdr_gl_period_name;
2797: THEN
2798: IF ( l_debug_mode = 'Y' )
2799: THEN
2800: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ER - Same Expenditure Populating GL from Cache';
2801: pa_debug.write_file(pa_debug.g_err_stage);
2802: END IF; -- debug
2803: l_prvdr_gl_date := g_prev_prvdr_gl_date;
2804: l_prvdr_gl_period_name := g_prev_prvdr_gl_period_name;
2805: l_recvr_gl_date := g_prev_recvr_gl_date;
2806: l_recvr_gl_period_name := g_prev_recvr_gl_period_name;
2807: ELSE -- Either system_linkage is NOT 'ER' or expenditure_id has changed.
2808: IF ( l_debug_mode = 'Y' )
2809: THEN
2810: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': NOT ER/exp_id has changed.' ;
2811: pa_debug.write_file(pa_debug.g_err_stage);
2812: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2813: pa_debug.write_file(pa_debug.g_err_stage);
2814: END IF; -- debug
2807: ELSE -- Either system_linkage is NOT 'ER' or expenditure_id has changed.
2808: IF ( l_debug_mode = 'Y' )
2809: THEN
2810: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': NOT ER/exp_id has changed.' ;
2811: pa_debug.write_file(pa_debug.g_err_stage);
2812: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2813: pa_debug.write_file(pa_debug.g_err_stage);
2814: END IF; -- debug
2815:
2808: IF ( l_debug_mode = 'Y' )
2809: THEN
2810: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': NOT ER/exp_id has changed.' ;
2811: pa_debug.write_file(pa_debug.g_err_stage);
2812: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2813: pa_debug.write_file(pa_debug.g_err_stage);
2814: END IF; -- debug
2815:
2816: IF ( p_calling_module = 'AR_INSTALLED_INVOICE' )
2809: THEN
2810: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': NOT ER/exp_id has changed.' ;
2811: pa_debug.write_file(pa_debug.g_err_stage);
2812: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Deriving GL Info.';
2813: pa_debug.write_file(pa_debug.g_err_stage);
2814: END IF; -- debug
2815:
2816: IF ( p_calling_module = 'AR_INSTALLED_INVOICE' )
2817: THEN
2877: IF (g_prev_expenditure_id <> p_expenditure_id OR g_prev_expenditure_id IS NULL )
2878: THEN
2879: IF ( l_debug_mode = 'Y' )
2880: THEN
2881: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ER - New Expenditure - Populating Cache.';
2882: pa_debug.write_file(pa_debug.g_err_stage);
2883: END IF; -- debug
2884:
2885: /*
2878: THEN
2879: IF ( l_debug_mode = 'Y' )
2880: THEN
2881: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ER - New Expenditure - Populating Cache.';
2882: pa_debug.write_file(pa_debug.g_err_stage);
2883: END IF; -- debug
2884:
2885: /*
2886: * Indicates new expenditure batch.
2892: g_prev_recvr_gl_period_name := l_recvr_gl_period_name;
2893:
2894: IF ( l_debug_mode = 'Y' )
2895: THEN
2896: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2897: ': g_prev_expenditure_id is [' || to_char(g_prev_expenditure_id) ||
2898: '] g_prev_prvdr_gl_date [' || to_char(g_prev_prvdr_gl_date) ||
2899: '] g_prev_prvdr_gl_period_name [' || g_prev_prvdr_gl_period_name ||']';
2900: pa_debug.write_file(pa_debug.g_err_stage);
2896: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2897: ': g_prev_expenditure_id is [' || to_char(g_prev_expenditure_id) ||
2898: '] g_prev_prvdr_gl_date [' || to_char(g_prev_prvdr_gl_date) ||
2899: '] g_prev_prvdr_gl_period_name [' || g_prev_prvdr_gl_period_name ||']';
2900: pa_debug.write_file(pa_debug.g_err_stage);
2901: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2902: ': g_prev_recvr_gl_date is [' || to_char(g_prev_recvr_gl_date) ||
2903: '] g_prev_recvr_gl_period_name [' || g_prev_recvr_gl_period_name ||']';
2904: pa_debug.write_file(pa_debug.g_err_stage);
2897: ': g_prev_expenditure_id is [' || to_char(g_prev_expenditure_id) ||
2898: '] g_prev_prvdr_gl_date [' || to_char(g_prev_prvdr_gl_date) ||
2899: '] g_prev_prvdr_gl_period_name [' || g_prev_prvdr_gl_period_name ||']';
2900: pa_debug.write_file(pa_debug.g_err_stage);
2901: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2902: ': g_prev_recvr_gl_date is [' || to_char(g_prev_recvr_gl_date) ||
2903: '] g_prev_recvr_gl_period_name [' || g_prev_recvr_gl_period_name ||']';
2904: pa_debug.write_file(pa_debug.g_err_stage);
2905: END IF; -- debug
2900: pa_debug.write_file(pa_debug.g_err_stage);
2901: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2902: ': g_prev_recvr_gl_date is [' || to_char(g_prev_recvr_gl_date) ||
2903: '] g_prev_recvr_gl_period_name [' || g_prev_recvr_gl_period_name ||']';
2904: pa_debug.write_file(pa_debug.g_err_stage);
2905: END IF; -- debug
2906: ELSE
2907: /*
2908: * Leave the cache as it is.
2911: END IF;
2912: ELSE -- system link is NOT 'ER'
2913: IF ( l_debug_mode = 'Y' )
2914: THEN
2915: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Not an ER. Wiping the Cache.';
2916: pa_debug.write_file(pa_debug.g_err_stage);
2917: END IF; -- debug
2918:
2919: /*
2912: ELSE -- system link is NOT 'ER'
2913: IF ( l_debug_mode = 'Y' )
2914: THEN
2915: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Not an ER. Wiping the Cache.';
2916: pa_debug.write_file(pa_debug.g_err_stage);
2917: END IF; -- debug
2918:
2919: /*
2920: * Wipe-off the cache.
2956: x_recvr_gl_period_name := l_recvr_gl_period_name;
2957:
2958: IF ( l_debug_mode = 'Y' )
2959: THEN
2960: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_pa_date is [' || to_char(x_prvdr_pa_date) ||
2961: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
2962: pa_debug.write_file(pa_debug.g_err_stage);
2963: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
2964: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
2958: IF ( l_debug_mode = 'Y' )
2959: THEN
2960: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_pa_date is [' || to_char(x_prvdr_pa_date) ||
2961: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
2962: pa_debug.write_file(pa_debug.g_err_stage);
2963: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
2964: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
2965: pa_debug.write_file(pa_debug.g_err_stage);
2966: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
2959: THEN
2960: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_pa_date is [' || to_char(x_prvdr_pa_date) ||
2961: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
2962: pa_debug.write_file(pa_debug.g_err_stage);
2963: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
2964: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
2965: pa_debug.write_file(pa_debug.g_err_stage);
2966: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
2967: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
2961: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
2962: pa_debug.write_file(pa_debug.g_err_stage);
2963: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
2964: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
2965: pa_debug.write_file(pa_debug.g_err_stage);
2966: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
2967: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
2968: pa_debug.write_file(pa_debug.g_err_stage);
2969: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
2962: pa_debug.write_file(pa_debug.g_err_stage);
2963: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
2964: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
2965: pa_debug.write_file(pa_debug.g_err_stage);
2966: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
2967: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
2968: pa_debug.write_file(pa_debug.g_err_stage);
2969: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
2970: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
2964: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
2965: pa_debug.write_file(pa_debug.g_err_stage);
2966: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
2967: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
2968: pa_debug.write_file(pa_debug.g_err_stage);
2969: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
2970: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
2971: pa_debug.write_file(pa_debug.g_err_stage);
2972: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_error_code is [' || x_error_code || ']';
2965: pa_debug.write_file(pa_debug.g_err_stage);
2966: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
2967: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
2968: pa_debug.write_file(pa_debug.g_err_stage);
2969: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
2970: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
2971: pa_debug.write_file(pa_debug.g_err_stage);
2972: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_error_code is [' || x_error_code || ']';
2973: pa_debug.write_file(pa_debug.g_err_stage);
2967: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
2968: pa_debug.write_file(pa_debug.g_err_stage);
2969: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
2970: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
2971: pa_debug.write_file(pa_debug.g_err_stage);
2972: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_error_code is [' || x_error_code || ']';
2973: pa_debug.write_file(pa_debug.g_err_stage);
2974: END IF;
2975:
2968: pa_debug.write_file(pa_debug.g_err_stage);
2969: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
2970: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
2971: pa_debug.write_file(pa_debug.g_err_stage);
2972: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_error_code is [' || x_error_code || ']';
2973: pa_debug.write_file(pa_debug.g_err_stage);
2974: END IF;
2975:
2976: x_return_status := 0;
2969: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
2970: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
2971: pa_debug.write_file(pa_debug.g_err_stage);
2972: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': x_error_code is [' || x_error_code || ']';
2973: pa_debug.write_file(pa_debug.g_err_stage);
2974: END IF;
2975:
2976: x_return_status := 0;
2977: pa_debug.reset_err_stack;
2973: pa_debug.write_file(pa_debug.g_err_stage);
2974: END IF;
2975:
2976: x_return_status := 0;
2977: pa_debug.reset_err_stack;
2978:
2979: EXCEPTION
2980: WHEN others THEN
2981: x_error_stage := l_stage ;
3010: l_date_dummy DATE;
3011: l_name_dummy VARCHAR2(30);
3012: l_calling_module VARCHAR2(30) := NULL ;
3013: BEGIN
3014: pa_debug.init_err_stack('pa_utils2.get_ou_period_information');
3015:
3016: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3017: l_debug_mode := NVL(l_debug_mode, 'N');
3018:
3012: l_calling_module VARCHAR2(30) := NULL ;
3013: BEGIN
3014: pa_debug.init_err_stack('pa_utils2.get_ou_period_information');
3015:
3016: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3017: l_debug_mode := NVL(l_debug_mode, 'N');
3018:
3019: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3020:
3015:
3016: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3017: l_debug_mode := NVL(l_debug_mode, 'N');
3018:
3019: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3020:
3021: l_stage := 100;
3022: IF ( l_debug_mode = 'Y' )
3023: THEN
3020:
3021: l_stage := 100;
3022: IF ( l_debug_mode = 'Y' )
3023: THEN
3024: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From get_ou_period_information';
3025: pa_debug.write_file(pa_debug.g_err_stage);
3026: END IF; -- debug
3027:
3028: x_return_status := -1 ;
3021: l_stage := 100;
3022: IF ( l_debug_mode = 'Y' )
3023: THEN
3024: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From get_ou_period_information';
3025: pa_debug.write_file(pa_debug.g_err_stage);
3026: END IF; -- debug
3027:
3028: x_return_status := -1 ;
3029: l_calling_module := p_calling_module ;
3036:
3037: l_stage := 200 ;
3038: IF ( l_debug_mode = 'Y' )
3039: THEN
3040: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Calling pa_utils2.get_period_information';
3041: pa_debug.write_file(pa_debug.g_err_stage);
3042: END IF; -- debug
3043:
3044: pa_utils2.get_period_information
3037: l_stage := 200 ;
3038: IF ( l_debug_mode = 'Y' )
3039: THEN
3040: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Calling pa_utils2.get_period_information';
3041: pa_debug.write_file(pa_debug.g_err_stage);
3042: END IF; -- debug
3043:
3044: pa_utils2.get_period_information
3045: ( p_expenditure_item_date => p_reference_date
3062:
3063: l_stage := 300 ;
3064: IF ( l_debug_mode = 'Y' )
3065: THEN
3066: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After call to pa_utils2.get_period_information';
3067: pa_debug.write_file(pa_debug.g_err_stage);
3068: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3069: pa_debug.write_file(pa_debug.g_err_stage);
3070: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3063: l_stage := 300 ;
3064: IF ( l_debug_mode = 'Y' )
3065: THEN
3066: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After call to pa_utils2.get_period_information';
3067: pa_debug.write_file(pa_debug.g_err_stage);
3068: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3069: pa_debug.write_file(pa_debug.g_err_stage);
3070: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3071: pa_debug.write_file(pa_debug.g_err_stage);
3064: IF ( l_debug_mode = 'Y' )
3065: THEN
3066: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After call to pa_utils2.get_period_information';
3067: pa_debug.write_file(pa_debug.g_err_stage);
3068: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3069: pa_debug.write_file(pa_debug.g_err_stage);
3070: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3071: pa_debug.write_file(pa_debug.g_err_stage);
3072: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error Code [' || l_error_code || ']';
3065: THEN
3066: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After call to pa_utils2.get_period_information';
3067: pa_debug.write_file(pa_debug.g_err_stage);
3068: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3069: pa_debug.write_file(pa_debug.g_err_stage);
3070: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3071: pa_debug.write_file(pa_debug.g_err_stage);
3072: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error Code [' || l_error_code || ']';
3073: pa_debug.write_file(pa_debug.g_err_stage);
3066: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After call to pa_utils2.get_period_information';
3067: pa_debug.write_file(pa_debug.g_err_stage);
3068: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3069: pa_debug.write_file(pa_debug.g_err_stage);
3070: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3071: pa_debug.write_file(pa_debug.g_err_stage);
3072: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error Code [' || l_error_code || ']';
3073: pa_debug.write_file(pa_debug.g_err_stage);
3074: END IF; -- debug
3067: pa_debug.write_file(pa_debug.g_err_stage);
3068: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3069: pa_debug.write_file(pa_debug.g_err_stage);
3070: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3071: pa_debug.write_file(pa_debug.g_err_stage);
3072: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error Code [' || l_error_code || ']';
3073: pa_debug.write_file(pa_debug.g_err_stage);
3074: END IF; -- debug
3075:
3068: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':PA date [' || to_char(l_pa_date) || '] name [' || l_pa_period_name || ']';
3069: pa_debug.write_file(pa_debug.g_err_stage);
3070: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3071: pa_debug.write_file(pa_debug.g_err_stage);
3072: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error Code [' || l_error_code || ']';
3073: pa_debug.write_file(pa_debug.g_err_stage);
3074: END IF; -- debug
3075:
3076: /*
3069: pa_debug.write_file(pa_debug.g_err_stage);
3070: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':GL date [' || to_char(l_gl_date) || '] name [' || l_gl_period_name || ']';
3071: pa_debug.write_file(pa_debug.g_err_stage);
3072: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error Code [' || l_error_code || ']';
3073: pa_debug.write_file(pa_debug.g_err_stage);
3074: END IF; -- debug
3075:
3076: /*
3077: * Populate the out variables.
3082: x_gl_period_name := l_gl_period_name;
3083: x_error_code := l_error_code;
3084:
3085: x_return_status := 0;
3086: pa_debug.reset_err_stack;
3087:
3088: EXCEPTION
3089: WHEN OTHERS THEN
3090: x_error_stage := l_stage ;
3227: x_pa_period_name := NULL;
3228: x_return_status := FND_API.G_RET_STS_SUCCESS;
3229: x_error_code := NULL;
3230:
3231: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3232: l_debug_mode := NVL(l_debug_mode, 'N');
3233:
3234: IF ( l_debug_mode = 'Y' ) THEN
3235: pa_debug.g_err_stage := 'get_accrual_pa_dt_per dt - '||to_char(p_ei_date);
3231: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3232: l_debug_mode := NVL(l_debug_mode, 'N');
3233:
3234: IF ( l_debug_mode = 'Y' ) THEN
3235: pa_debug.g_err_stage := 'get_accrual_pa_dt_per dt - '||to_char(p_ei_date);
3236: pa_debug.write_file(pa_debug.g_err_stage);
3237: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3238: pa_debug.write_file(pa_debug.g_err_stage);
3239: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3232: l_debug_mode := NVL(l_debug_mode, 'N');
3233:
3234: IF ( l_debug_mode = 'Y' ) THEN
3235: pa_debug.g_err_stage := 'get_accrual_pa_dt_per dt - '||to_char(p_ei_date);
3236: pa_debug.write_file(pa_debug.g_err_stage);
3237: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3238: pa_debug.write_file(pa_debug.g_err_stage);
3239: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3240: pa_debug.write_file(pa_debug.g_err_stage);
3233:
3234: IF ( l_debug_mode = 'Y' ) THEN
3235: pa_debug.g_err_stage := 'get_accrual_pa_dt_per dt - '||to_char(p_ei_date);
3236: pa_debug.write_file(pa_debug.g_err_stage);
3237: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3238: pa_debug.write_file(pa_debug.g_err_stage);
3239: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3240: pa_debug.write_file(pa_debug.g_err_stage);
3241: pa_debug.g_err_stage := 'get_accrual_pa_dt_per prvdr_recvr_flg - '||p_prvdr_recvr_flg;
3234: IF ( l_debug_mode = 'Y' ) THEN
3235: pa_debug.g_err_stage := 'get_accrual_pa_dt_per dt - '||to_char(p_ei_date);
3236: pa_debug.write_file(pa_debug.g_err_stage);
3237: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3238: pa_debug.write_file(pa_debug.g_err_stage);
3239: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3240: pa_debug.write_file(pa_debug.g_err_stage);
3241: pa_debug.g_err_stage := 'get_accrual_pa_dt_per prvdr_recvr_flg - '||p_prvdr_recvr_flg;
3242: pa_debug.write_file(pa_debug.g_err_stage);
3235: pa_debug.g_err_stage := 'get_accrual_pa_dt_per dt - '||to_char(p_ei_date);
3236: pa_debug.write_file(pa_debug.g_err_stage);
3237: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3238: pa_debug.write_file(pa_debug.g_err_stage);
3239: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3240: pa_debug.write_file(pa_debug.g_err_stage);
3241: pa_debug.g_err_stage := 'get_accrual_pa_dt_per prvdr_recvr_flg - '||p_prvdr_recvr_flg;
3242: pa_debug.write_file(pa_debug.g_err_stage);
3243: END IF;
3236: pa_debug.write_file(pa_debug.g_err_stage);
3237: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3238: pa_debug.write_file(pa_debug.g_err_stage);
3239: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3240: pa_debug.write_file(pa_debug.g_err_stage);
3241: pa_debug.g_err_stage := 'get_accrual_pa_dt_per prvdr_recvr_flg - '||p_prvdr_recvr_flg;
3242: pa_debug.write_file(pa_debug.g_err_stage);
3243: END IF;
3244:
3237: pa_debug.g_err_stage := 'get_accrual_pa_dt_per org - '||p_org_id;
3238: pa_debug.write_file(pa_debug.g_err_stage);
3239: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3240: pa_debug.write_file(pa_debug.g_err_stage);
3241: pa_debug.g_err_stage := 'get_accrual_pa_dt_per prvdr_recvr_flg - '||p_prvdr_recvr_flg;
3242: pa_debug.write_file(pa_debug.g_err_stage);
3243: END IF;
3244:
3245: IF p_org_rev_flg = 'O' THEN -- This is for Original Transaction-----------------------------{
3238: pa_debug.write_file(pa_debug.g_err_stage);
3239: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org_Rev_Flg - '||p_org_rev_flg;
3240: pa_debug.write_file(pa_debug.g_err_stage);
3241: pa_debug.g_err_stage := 'get_accrual_pa_dt_per prvdr_recvr_flg - '||p_prvdr_recvr_flg;
3242: pa_debug.write_file(pa_debug.g_err_stage);
3243: END IF;
3244:
3245: IF p_org_rev_flg = 'O' THEN -- This is for Original Transaction-----------------------------{
3246:
3254: ELSE
3255: l_org_pa_date := g_prv_accr_prvdr_pa_end_date;
3256: END IF;
3257: IF ( l_debug_mode = 'Y' ) THEN
3258: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA dt- '||to_char(l_org_pa_date);
3259: pa_debug.write_file(pa_debug.g_err_stage);
3260: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA Per-'||g_prv_accr_prvdr_pa_period;
3261: pa_debug.write_file(pa_debug.g_err_stage);
3262: END IF;
3255: l_org_pa_date := g_prv_accr_prvdr_pa_end_date;
3256: END IF;
3257: IF ( l_debug_mode = 'Y' ) THEN
3258: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA dt- '||to_char(l_org_pa_date);
3259: pa_debug.write_file(pa_debug.g_err_stage);
3260: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA Per-'||g_prv_accr_prvdr_pa_period;
3261: pa_debug.write_file(pa_debug.g_err_stage);
3262: END IF;
3263:
3256: END IF;
3257: IF ( l_debug_mode = 'Y' ) THEN
3258: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA dt- '||to_char(l_org_pa_date);
3259: pa_debug.write_file(pa_debug.g_err_stage);
3260: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA Per-'||g_prv_accr_prvdr_pa_period;
3261: pa_debug.write_file(pa_debug.g_err_stage);
3262: END IF;
3263:
3264: x_pa_date := l_org_pa_date;
3257: IF ( l_debug_mode = 'Y' ) THEN
3258: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA dt- '||to_char(l_org_pa_date);
3259: pa_debug.write_file(pa_debug.g_err_stage);
3260: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org P Cache PA Per-'||g_prv_accr_prvdr_pa_period;
3261: pa_debug.write_file(pa_debug.g_err_stage);
3262: END IF;
3263:
3264: x_pa_date := l_org_pa_date;
3265: x_pa_period_name := g_prv_accr_prvdr_pa_period;
3275: ELSE
3276: l_org_pa_date := g_prv_accr_recvr_pa_end_date;
3277: END IF;
3278: IF ( l_debug_mode = 'Y' ) THEN
3279: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA dt- '||to_char(l_org_pa_date);
3280: pa_debug.write_file(pa_debug.g_err_stage);
3281: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA Per-'||g_prv_accr_recvr_pa_period;
3282: pa_debug.write_file(pa_debug.g_err_stage);
3283: END IF;
3276: l_org_pa_date := g_prv_accr_recvr_pa_end_date;
3277: END IF;
3278: IF ( l_debug_mode = 'Y' ) THEN
3279: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA dt- '||to_char(l_org_pa_date);
3280: pa_debug.write_file(pa_debug.g_err_stage);
3281: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA Per-'||g_prv_accr_recvr_pa_period;
3282: pa_debug.write_file(pa_debug.g_err_stage);
3283: END IF;
3284:
3277: END IF;
3278: IF ( l_debug_mode = 'Y' ) THEN
3279: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA dt- '||to_char(l_org_pa_date);
3280: pa_debug.write_file(pa_debug.g_err_stage);
3281: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA Per-'||g_prv_accr_recvr_pa_period;
3282: pa_debug.write_file(pa_debug.g_err_stage);
3283: END IF;
3284:
3285: x_pa_date := l_org_pa_date;
3278: IF ( l_debug_mode = 'Y' ) THEN
3279: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA dt- '||to_char(l_org_pa_date);
3280: pa_debug.write_file(pa_debug.g_err_stage);
3281: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org R Cache PA Per-'||g_prv_accr_recvr_pa_period;
3282: pa_debug.write_file(pa_debug.g_err_stage);
3283: END IF;
3284:
3285: x_pa_date := l_org_pa_date;
3286: x_pa_period_name := g_prv_accr_recvr_pa_period;
3304: * will usually end-up lesser than ei_date. This is OK.) The end_date will be
3305: * used for both EPP and non-EPP.
3306: */
3307: IF ( l_debug_mode = 'Y' ) THEN
3308: pa_debug.g_err_stage := 'DEBUG: gl periods are different ' || l_org_gl_period_name || p_gl_period;
3309: pa_debug.write_file(pa_debug.g_err_stage);
3310: END IF;
3311:
3312: l_pa_overlaps_gl := 'Y';
3305: * used for both EPP and non-EPP.
3306: */
3307: IF ( l_debug_mode = 'Y' ) THEN
3308: pa_debug.g_err_stage := 'DEBUG: gl periods are different ' || l_org_gl_period_name || p_gl_period;
3309: pa_debug.write_file(pa_debug.g_err_stage);
3310: END IF;
3311:
3312: l_pa_overlaps_gl := 'Y';
3313: SELECT papl.end_date,papl.start_date,papl.period_name
3323: END IF;
3324: EXCEPTION
3325: WHEN NO_DATA_FOUND THEN
3326: IF ( l_debug_mode = 'Y' ) THEN
3327: pa_debug.g_err_stage := 'NDF - get_accrual_pa_dt_per Org PA dt ';
3328: pa_debug.write_file(pa_debug.g_err_stage);
3329: END IF;
3330: x_return_status := FND_API.G_RET_STS_ERROR ;
3331: IF p_prvdr_recvr_flg = 'P' THEN
3324: EXCEPTION
3325: WHEN NO_DATA_FOUND THEN
3326: IF ( l_debug_mode = 'Y' ) THEN
3327: pa_debug.g_err_stage := 'NDF - get_accrual_pa_dt_per Org PA dt ';
3328: pa_debug.write_file(pa_debug.g_err_stage);
3329: END IF;
3330: x_return_status := FND_API.G_RET_STS_ERROR ;
3331: IF p_prvdr_recvr_flg = 'P' THEN
3332: x_error_code := 'NO_PA_DATE';
3335: END IF;
3336: return;
3337: WHEN OTHERS THEN
3338: IF ( l_debug_mode = 'Y' ) THEN
3339: pa_debug.g_err_stage := 'WO Excep - get_accrual_pa_dt_per Org PA Date';
3340: pa_debug.write_file(pa_debug.g_err_stage);
3341: END IF;
3342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3343: raise;
3336: return;
3337: WHEN OTHERS THEN
3338: IF ( l_debug_mode = 'Y' ) THEN
3339: pa_debug.g_err_stage := 'WO Excep - get_accrual_pa_dt_per Org PA Date';
3340: pa_debug.write_file(pa_debug.g_err_stage);
3341: END IF;
3342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3343: raise;
3344: END;
3361: ELSE
3362: l_org_pa_date := p_ei_date;
3363: END IF;
3364: IF ( l_debug_mode = 'Y' ) THEN
3365: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA dt- '||to_char(l_org_pa_date);
3366: pa_debug.write_file(pa_debug.g_err_stage);
3367: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA Per-'||l_org_pa_period_name;
3368: pa_debug.write_file(pa_debug.g_err_stage);
3369: END IF;
3362: l_org_pa_date := p_ei_date;
3363: END IF;
3364: IF ( l_debug_mode = 'Y' ) THEN
3365: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA dt- '||to_char(l_org_pa_date);
3366: pa_debug.write_file(pa_debug.g_err_stage);
3367: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA Per-'||l_org_pa_period_name;
3368: pa_debug.write_file(pa_debug.g_err_stage);
3369: END IF;
3370:
3363: END IF;
3364: IF ( l_debug_mode = 'Y' ) THEN
3365: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA dt- '||to_char(l_org_pa_date);
3366: pa_debug.write_file(pa_debug.g_err_stage);
3367: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA Per-'||l_org_pa_period_name;
3368: pa_debug.write_file(pa_debug.g_err_stage);
3369: END IF;
3370:
3371: x_pa_date := l_org_pa_date;
3364: IF ( l_debug_mode = 'Y' ) THEN
3365: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA dt- '||to_char(l_org_pa_date);
3366: pa_debug.write_file(pa_debug.g_err_stage);
3367: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Org SEL PA Per-'||l_org_pa_period_name;
3368: pa_debug.write_file(pa_debug.g_err_stage);
3369: END IF;
3370:
3371: x_pa_date := l_org_pa_date;
3372: x_pa_period_name := l_org_pa_period_name;
3379: IF p_gl_period = g_p_gl_period THEN
3380:
3381: l_rev_pa_date := g_p_accr_rev_pa_date;
3382: IF ( l_debug_mode = 'Y' ) THEN
3383: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA dt- '||to_char(l_rev_pa_date);
3384: pa_debug.write_file(pa_debug.g_err_stage);
3385: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA Per-'||g_p_accr_rev_pa_period;
3386: pa_debug.write_file(pa_debug.g_err_stage);
3387: END IF;
3380:
3381: l_rev_pa_date := g_p_accr_rev_pa_date;
3382: IF ( l_debug_mode = 'Y' ) THEN
3383: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA dt- '||to_char(l_rev_pa_date);
3384: pa_debug.write_file(pa_debug.g_err_stage);
3385: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA Per-'||g_p_accr_rev_pa_period;
3386: pa_debug.write_file(pa_debug.g_err_stage);
3387: END IF;
3388:
3381: l_rev_pa_date := g_p_accr_rev_pa_date;
3382: IF ( l_debug_mode = 'Y' ) THEN
3383: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA dt- '||to_char(l_rev_pa_date);
3384: pa_debug.write_file(pa_debug.g_err_stage);
3385: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA Per-'||g_p_accr_rev_pa_period;
3386: pa_debug.write_file(pa_debug.g_err_stage);
3387: END IF;
3388:
3389: x_pa_date := l_rev_pa_date;
3382: IF ( l_debug_mode = 'Y' ) THEN
3383: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA dt- '||to_char(l_rev_pa_date);
3384: pa_debug.write_file(pa_debug.g_err_stage);
3385: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev P Cache PA Per-'||g_p_accr_rev_pa_period;
3386: pa_debug.write_file(pa_debug.g_err_stage);
3387: END IF;
3388:
3389: x_pa_date := l_rev_pa_date;
3390: /*2476554*/
3399:
3400: IF p_gl_period = g_r_gl_period THEN
3401: l_rev_pa_date := g_r_accr_rev_pa_date;
3402: IF ( l_debug_mode = 'Y' ) THEN
3403: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA dt- '||to_char(l_rev_pa_date);
3404: pa_debug.write_file(pa_debug.g_err_stage);
3405: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA Per-'||g_r_accr_rev_pa_period;
3406: pa_debug.write_file(pa_debug.g_err_stage);
3407: END IF;
3400: IF p_gl_period = g_r_gl_period THEN
3401: l_rev_pa_date := g_r_accr_rev_pa_date;
3402: IF ( l_debug_mode = 'Y' ) THEN
3403: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA dt- '||to_char(l_rev_pa_date);
3404: pa_debug.write_file(pa_debug.g_err_stage);
3405: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA Per-'||g_r_accr_rev_pa_period;
3406: pa_debug.write_file(pa_debug.g_err_stage);
3407: END IF;
3408:
3401: l_rev_pa_date := g_r_accr_rev_pa_date;
3402: IF ( l_debug_mode = 'Y' ) THEN
3403: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA dt- '||to_char(l_rev_pa_date);
3404: pa_debug.write_file(pa_debug.g_err_stage);
3405: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA Per-'||g_r_accr_rev_pa_period;
3406: pa_debug.write_file(pa_debug.g_err_stage);
3407: END IF;
3408:
3409: x_pa_date := l_rev_pa_date;
3402: IF ( l_debug_mode = 'Y' ) THEN
3403: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA dt- '||to_char(l_rev_pa_date);
3404: pa_debug.write_file(pa_debug.g_err_stage);
3405: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev R Cache PA Per-'||g_r_accr_rev_pa_period;
3406: pa_debug.write_file(pa_debug.g_err_stage);
3407: END IF;
3408:
3409: x_pa_date := l_rev_pa_date;
3410: /*2476554*/
3426: WHERE nvl(papl.org_id, -99 ) = nvl(p_org_id, -99 )
3427: AND papl.gl_period_name = p_gl_period ;
3428: END;
3429: IF ( l_debug_mode = 'Y' ) THEN
3430: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev SEL min(Date) For GL per '||to_char(l_rev_pa_date);
3431: pa_debug.write_file(pa_debug.g_err_stage);
3432: END IF;
3433:
3434: IF l_rev_pa_date IS NOT NULL THEN
3427: AND papl.gl_period_name = p_gl_period ;
3428: END;
3429: IF ( l_debug_mode = 'Y' ) THEN
3430: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev SEL min(Date) For GL per '||to_char(l_rev_pa_date);
3431: pa_debug.write_file(pa_debug.g_err_stage);
3432: END IF;
3433:
3434: IF l_rev_pa_date IS NOT NULL THEN
3435:
3442: AND trunc(l_rev_pa_date) between papl.start_date and papl.end_date;
3443: EXCEPTION
3444: WHEN NO_DATA_FOUND THEN
3445: IF ( l_debug_mode = 'Y' ) THEN
3446: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev NDF';
3447: pa_debug.write_file(pa_debug.g_err_stage);
3448: END IF;
3449: x_return_status := FND_API.G_RET_STS_ERROR ;
3450: IF p_prvdr_recvr_flg = 'P' THEN
3443: EXCEPTION
3444: WHEN NO_DATA_FOUND THEN
3445: IF ( l_debug_mode = 'Y' ) THEN
3446: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev NDF';
3447: pa_debug.write_file(pa_debug.g_err_stage);
3448: END IF;
3449: x_return_status := FND_API.G_RET_STS_ERROR ;
3450: IF p_prvdr_recvr_flg = 'P' THEN
3451: x_error_code := 'PA_NO_REV_PRVDR_ACCR_PA_DATE';
3454: END IF;
3455: return;
3456: WHEN OTHERS THEN
3457: IF ( l_debug_mode = 'Y' ) THEN
3458: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev WO';
3459: pa_debug.write_file(pa_debug.g_err_stage);
3460: END IF;
3461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3462: raise;
3455: return;
3456: WHEN OTHERS THEN
3457: IF ( l_debug_mode = 'Y' ) THEN
3458: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev WO';
3459: pa_debug.write_file(pa_debug.g_err_stage);
3460: END IF;
3461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3462: raise;
3463: END;
3480: x_pa_period_name := l_rev_pa_period_name;
3481: ELSE
3482: ---- Handle the error. PA_DATE_PERIOD NOT DEFINED for Reverse trx.
3483: IF ( l_debug_mode = 'Y' ) THEN
3484: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev PA Period not defined';
3485: pa_debug.write_file(pa_debug.g_err_stage);
3486: END IF;
3487:
3488: x_return_status := FND_API.G_RET_STS_ERROR ;
3481: ELSE
3482: ---- Handle the error. PA_DATE_PERIOD NOT DEFINED for Reverse trx.
3483: IF ( l_debug_mode = 'Y' ) THEN
3484: pa_debug.g_err_stage := 'get_accrual_pa_dt_per Rev PA Period not defined';
3485: pa_debug.write_file(pa_debug.g_err_stage);
3486: END IF;
3487:
3488: x_return_status := FND_API.G_RET_STS_ERROR ;
3489:
3495: return;
3496:
3497: END IF;
3498: IF ( l_debug_mode = 'Y' ) THEN
3499: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa dt - '||to_char(x_pa_date);
3500: pa_debug.write_file(pa_debug.g_err_stage);
3501: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa period - '||x_pa_period_name;
3502: pa_debug.write_file(pa_debug.g_err_stage);
3503: END IF;
3496:
3497: END IF;
3498: IF ( l_debug_mode = 'Y' ) THEN
3499: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa dt - '||to_char(x_pa_date);
3500: pa_debug.write_file(pa_debug.g_err_stage);
3501: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa period - '||x_pa_period_name;
3502: pa_debug.write_file(pa_debug.g_err_stage);
3503: END IF;
3504:
3497: END IF;
3498: IF ( l_debug_mode = 'Y' ) THEN
3499: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa dt - '||to_char(x_pa_date);
3500: pa_debug.write_file(pa_debug.g_err_stage);
3501: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa period - '||x_pa_period_name;
3502: pa_debug.write_file(pa_debug.g_err_stage);
3503: END IF;
3504:
3505: END IF; -------------------------------------------------------------------------------------------}
3498: IF ( l_debug_mode = 'Y' ) THEN
3499: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa dt - '||to_char(x_pa_date);
3500: pa_debug.write_file(pa_debug.g_err_stage);
3501: pa_debug.g_err_stage := 'Aft get_accrual_pa_dt_per sel pa period - '||x_pa_period_name;
3502: pa_debug.write_file(pa_debug.g_err_stage);
3503: END IF;
3504:
3505: END IF; -------------------------------------------------------------------------------------------}
3506:
3547: ---Initialize the out variables.
3548: x_gl_period_name := NULL;
3549: x_return_status := FND_API.G_RET_STS_SUCCESS;
3550: x_error_code := NULL;
3551: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3552: l_debug_mode := NVL(l_debug_mode, 'N');
3553:
3554:
3555: pa_debug.g_err_stage := 'get_rev_accrual_date() for ref dt- ['||to_char(p_reference_date)||']';
3551: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3552: l_debug_mode := NVL(l_debug_mode, 'N');
3553:
3554:
3555: pa_debug.g_err_stage := 'get_rev_accrual_date() for ref dt- ['||to_char(p_reference_date)||']';
3556: IF ( l_debug_mode = 'Y' ) THEN
3557: pa_debug.write_file(pa_debug.g_err_stage);
3558: END IF;
3559: pa_debug.g_err_stage := 'get_rev_accrual_date() sob - ['||p_set_of_books_id||']';
3553:
3554:
3555: pa_debug.g_err_stage := 'get_rev_accrual_date() for ref dt- ['||to_char(p_reference_date)||']';
3556: IF ( l_debug_mode = 'Y' ) THEN
3557: pa_debug.write_file(pa_debug.g_err_stage);
3558: END IF;
3559: pa_debug.g_err_stage := 'get_rev_accrual_date() sob - ['||p_set_of_books_id||']';
3560: IF ( l_debug_mode = 'Y' ) THEN
3561: pa_debug.write_file(pa_debug.g_err_stage);
3555: pa_debug.g_err_stage := 'get_rev_accrual_date() for ref dt- ['||to_char(p_reference_date)||']';
3556: IF ( l_debug_mode = 'Y' ) THEN
3557: pa_debug.write_file(pa_debug.g_err_stage);
3558: END IF;
3559: pa_debug.g_err_stage := 'get_rev_accrual_date() sob - ['||p_set_of_books_id||']';
3560: IF ( l_debug_mode = 'Y' ) THEN
3561: pa_debug.write_file(pa_debug.g_err_stage);
3562: END IF;
3563: pa_debug.g_err_stage := 'get_rev_accrual_date() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3557: pa_debug.write_file(pa_debug.g_err_stage);
3558: END IF;
3559: pa_debug.g_err_stage := 'get_rev_accrual_date() sob - ['||p_set_of_books_id||']';
3560: IF ( l_debug_mode = 'Y' ) THEN
3561: pa_debug.write_file(pa_debug.g_err_stage);
3562: END IF;
3563: pa_debug.g_err_stage := 'get_rev_accrual_date() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3564: IF ( l_debug_mode = 'Y' ) THEN
3565: pa_debug.write_file(pa_debug.g_err_stage);
3559: pa_debug.g_err_stage := 'get_rev_accrual_date() sob - ['||p_set_of_books_id||']';
3560: IF ( l_debug_mode = 'Y' ) THEN
3561: pa_debug.write_file(pa_debug.g_err_stage);
3562: END IF;
3563: pa_debug.g_err_stage := 'get_rev_accrual_date() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3564: IF ( l_debug_mode = 'Y' ) THEN
3565: pa_debug.write_file(pa_debug.g_err_stage);
3566: END IF;
3567:
3561: pa_debug.write_file(pa_debug.g_err_stage);
3562: END IF;
3563: pa_debug.g_err_stage := 'get_rev_accrual_date() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3564: IF ( l_debug_mode = 'Y' ) THEN
3565: pa_debug.write_file(pa_debug.g_err_stage);
3566: END IF;
3567:
3568:
3569: IF p_prvdr_recvr_flg = 'P' THEN ------------------------------------{
3569: IF p_prvdr_recvr_flg = 'P' THEN ------------------------------------{
3570:
3571: IF ((trunc(p_reference_date) BETWEEN g_p_org_accr_start_date AND g_p_org_accr_end_date )
3572: AND g_p_org_accr_end_date IS NOT NULL) THEN
3573: pa_debug.g_err_stage := 'Returning the accrual date from cache - get_rev_accrual_date()';
3574: IF ( l_debug_mode = 'Y' ) THEN
3575: pa_debug.write_file(pa_debug.g_err_stage);
3576: END IF;
3577:
3571: IF ((trunc(p_reference_date) BETWEEN g_p_org_accr_start_date AND g_p_org_accr_end_date )
3572: AND g_p_org_accr_end_date IS NOT NULL) THEN
3573: pa_debug.g_err_stage := 'Returning the accrual date from cache - get_rev_accrual_date()';
3574: IF ( l_debug_mode = 'Y' ) THEN
3575: pa_debug.write_file(pa_debug.g_err_stage);
3576: END IF;
3577:
3578: IF p_epp_flag = 'Y' THEN
3579: l_rev_accr_dt := g_p_rev_accr_nxt_st_dt;
3587:
3588: IF ((trunc(p_reference_date) BETWEEN g_r_org_accr_start_date AND g_r_org_accr_end_date )
3589: AND g_r_org_accr_end_date IS NOT NULL) THEN
3590:
3591: pa_debug.g_err_stage := 'Returning the accrual date from cache - get_rev_accrual_date()';
3592: IF ( l_debug_mode = 'Y' ) THEN
3593: pa_debug.write_file(pa_debug.g_err_stage);
3594: END IF;
3595:
3589: AND g_r_org_accr_end_date IS NOT NULL) THEN
3590:
3591: pa_debug.g_err_stage := 'Returning the accrual date from cache - get_rev_accrual_date()';
3592: IF ( l_debug_mode = 'Y' ) THEN
3593: pa_debug.write_file(pa_debug.g_err_stage);
3594: END IF;
3595:
3596: IF p_epp_flag = 'Y' THEN
3597: l_rev_accr_dt := g_r_rev_accr_nxt_st_dt;
3606: END IF; ------------------p_prvdr_recvr_flg = 'P'--------------------}
3607:
3608: ---Either the Cache is empty or the date is not in the range.
3609:
3610: pa_debug.g_err_stage := 'Before select get_rev_accrual_date() for ref dt-'||to_char(p_reference_date);
3611: IF ( l_debug_mode = 'Y' ) THEN
3612: pa_debug.write_file(pa_debug.g_err_stage);
3613: END IF;
3614:
3608: ---Either the Cache is empty or the date is not in the range.
3609:
3610: pa_debug.g_err_stage := 'Before select get_rev_accrual_date() for ref dt-'||to_char(p_reference_date);
3611: IF ( l_debug_mode = 'Y' ) THEN
3612: pa_debug.write_file(pa_debug.g_err_stage);
3613: END IF;
3614:
3615: BEGIN
3616: SELECT PERIOD.start_date,PERIOD.end_date
3627: x_error_code := 'PA_GL_REV_PRVDR_ACCR_NDEF';
3628: ELSE
3629: x_error_code := 'PA_GL_REV_RECVR_ACCR_NDEF';
3630: END IF;
3631: pa_debug.g_err_stage :='NDF - Prvdr GL Period SELECT';
3632: IF ( l_debug_mode = 'Y' ) THEN
3633: pa_debug.write_file(pa_debug.g_err_stage);
3634: END IF;
3635: return(NULL);
3629: x_error_code := 'PA_GL_REV_RECVR_ACCR_NDEF';
3630: END IF;
3631: pa_debug.g_err_stage :='NDF - Prvdr GL Period SELECT';
3632: IF ( l_debug_mode = 'Y' ) THEN
3633: pa_debug.write_file(pa_debug.g_err_stage);
3634: END IF;
3635: return(NULL);
3636: WHEN OTHERS THEN
3637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3634: END IF;
3635: return(NULL);
3636: WHEN OTHERS THEN
3637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3638: x_error_stage := 'Procedure: Pa_Utils2.Get_Accrual_Period_Information() ::: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
3639: raise;
3640: END;
3641:
3642:
3678: x_error_code := 'PA_GL_REV_RECVR_ACCR_CLOSED';
3679: END IF;
3680: return(NULL);
3681: END IF; -----------------l_period_status IN ('O','F')----------}
3682: pa_debug.g_err_stage := 'get_rev_accrual_date st date is '||to_char(l_rev_accr_nxt_st_dt);
3683: IF ( l_debug_mode = 'Y' ) THEN
3684: pa_debug.write_file(pa_debug.g_err_stage);
3685: END IF;
3686: pa_debug.g_err_stage := 'get_rev_accrual_date end date is '||to_char(l_rev_accr_nxt_end_dt);
3680: return(NULL);
3681: END IF; -----------------l_period_status IN ('O','F')----------}
3682: pa_debug.g_err_stage := 'get_rev_accrual_date st date is '||to_char(l_rev_accr_nxt_st_dt);
3683: IF ( l_debug_mode = 'Y' ) THEN
3684: pa_debug.write_file(pa_debug.g_err_stage);
3685: END IF;
3686: pa_debug.g_err_stage := 'get_rev_accrual_date end date is '||to_char(l_rev_accr_nxt_end_dt);
3687: IF ( l_debug_mode = 'Y' ) THEN
3688: pa_debug.write_file(pa_debug.g_err_stage);
3682: pa_debug.g_err_stage := 'get_rev_accrual_date st date is '||to_char(l_rev_accr_nxt_st_dt);
3683: IF ( l_debug_mode = 'Y' ) THEN
3684: pa_debug.write_file(pa_debug.g_err_stage);
3685: END IF;
3686: pa_debug.g_err_stage := 'get_rev_accrual_date end date is '||to_char(l_rev_accr_nxt_end_dt);
3687: IF ( l_debug_mode = 'Y' ) THEN
3688: pa_debug.write_file(pa_debug.g_err_stage);
3689: END IF;
3690:
3684: pa_debug.write_file(pa_debug.g_err_stage);
3685: END IF;
3686: pa_debug.g_err_stage := 'get_rev_accrual_date end date is '||to_char(l_rev_accr_nxt_end_dt);
3687: IF ( l_debug_mode = 'Y' ) THEN
3688: pa_debug.write_file(pa_debug.g_err_stage);
3689: END IF;
3690:
3691: IF p_epp_flag = 'Y' THEN
3692: l_rev_accr_dt := l_rev_accr_nxt_st_dt;
3697: return(l_rev_accr_dt);
3698: EXCEPTION
3699: WHEN OTHERS THEN
3700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3701: x_error_stage := 'Procedure: Pa_Utils2.Get_Accrual_Period_Information() ::: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
3702: RAISE;
3703: END;
3704: ----------------------------------------------------------------------------------------------------------------
3705: -- API : get_accrual_gl_dt_period
3744: x_gl_accr_period_name := NULL;
3745: x_gl_accr_dt := NULL;
3746: x_return_status := FND_API.G_RET_STS_SUCCESS;
3747: x_error_code := NULL;
3748: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3749: l_debug_mode := NVL(l_debug_mode, 'N');
3750:
3751: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() for ref dt- ['||to_char(p_reference_date)||']';
3752: IF ( l_debug_mode = 'Y' ) THEN
3747: x_error_code := NULL;
3748: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3749: l_debug_mode := NVL(l_debug_mode, 'N');
3750:
3751: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() for ref dt- ['||to_char(p_reference_date)||']';
3752: IF ( l_debug_mode = 'Y' ) THEN
3753: pa_debug.write_file(pa_debug.g_err_stage);
3754: END IF;
3755: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() sob - ['||p_set_of_books_id||']';
3749: l_debug_mode := NVL(l_debug_mode, 'N');
3750:
3751: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() for ref dt- ['||to_char(p_reference_date)||']';
3752: IF ( l_debug_mode = 'Y' ) THEN
3753: pa_debug.write_file(pa_debug.g_err_stage);
3754: END IF;
3755: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() sob - ['||p_set_of_books_id||']';
3756: IF ( l_debug_mode = 'Y' ) THEN
3757: pa_debug.write_file(pa_debug.g_err_stage);
3751: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() for ref dt- ['||to_char(p_reference_date)||']';
3752: IF ( l_debug_mode = 'Y' ) THEN
3753: pa_debug.write_file(pa_debug.g_err_stage);
3754: END IF;
3755: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() sob - ['||p_set_of_books_id||']';
3756: IF ( l_debug_mode = 'Y' ) THEN
3757: pa_debug.write_file(pa_debug.g_err_stage);
3758: END IF;
3759: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3753: pa_debug.write_file(pa_debug.g_err_stage);
3754: END IF;
3755: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() sob - ['||p_set_of_books_id||']';
3756: IF ( l_debug_mode = 'Y' ) THEN
3757: pa_debug.write_file(pa_debug.g_err_stage);
3758: END IF;
3759: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3760: IF ( l_debug_mode = 'Y' ) THEN
3761: pa_debug.write_file(pa_debug.g_err_stage);
3755: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() sob - ['||p_set_of_books_id||']';
3756: IF ( l_debug_mode = 'Y' ) THEN
3757: pa_debug.write_file(pa_debug.g_err_stage);
3758: END IF;
3759: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3760: IF ( l_debug_mode = 'Y' ) THEN
3761: pa_debug.write_file(pa_debug.g_err_stage);
3762: END IF;
3763:
3757: pa_debug.write_file(pa_debug.g_err_stage);
3758: END IF;
3759: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3760: IF ( l_debug_mode = 'Y' ) THEN
3761: pa_debug.write_file(pa_debug.g_err_stage);
3762: END IF;
3763:
3764: IF p_prvdr_recvr_flg = 'P' THEN -------------------------------------------------{
3765:
3772: ELSE
3773: l_accr_gl_dt := g_p_accr_gl_per_end_dt;
3774: END IF;
3775:
3776: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache dt- ['||to_char(l_accr_gl_dt)||']';
3777: IF ( l_debug_mode = 'Y' ) THEN
3778: pa_debug.write_file(pa_debug.g_err_stage);
3779: END IF;
3780: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache Per- ['||g_p_accr_gl_per_name||']';
3774: END IF;
3775:
3776: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache dt- ['||to_char(l_accr_gl_dt)||']';
3777: IF ( l_debug_mode = 'Y' ) THEN
3778: pa_debug.write_file(pa_debug.g_err_stage);
3779: END IF;
3780: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache Per- ['||g_p_accr_gl_per_name||']';
3781: IF ( l_debug_mode = 'Y' ) THEN
3782: pa_debug.write_file(pa_debug.g_err_stage);
3776: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache dt- ['||to_char(l_accr_gl_dt)||']';
3777: IF ( l_debug_mode = 'Y' ) THEN
3778: pa_debug.write_file(pa_debug.g_err_stage);
3779: END IF;
3780: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache Per- ['||g_p_accr_gl_per_name||']';
3781: IF ( l_debug_mode = 'Y' ) THEN
3782: pa_debug.write_file(pa_debug.g_err_stage);
3783: END IF;
3784: --Assign the out variables.
3778: pa_debug.write_file(pa_debug.g_err_stage);
3779: END IF;
3780: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() P Cache Per- ['||g_p_accr_gl_per_name||']';
3781: IF ( l_debug_mode = 'Y' ) THEN
3782: pa_debug.write_file(pa_debug.g_err_stage);
3783: END IF;
3784: --Assign the out variables.
3785: x_gl_accr_dt := l_accr_gl_dt ;
3786: x_gl_accr_period_name := g_p_accr_gl_per_name;
3797: l_accr_gl_dt := p_reference_date;
3798: ELSE
3799: l_accr_gl_dt := g_r_accr_gl_per_end_dt;
3800: END IF;
3801: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache dt- ['||to_char(l_accr_gl_dt)||']';
3802: IF ( l_debug_mode = 'Y' ) THEN
3803: pa_debug.write_file(pa_debug.g_err_stage);
3804: END IF;
3805: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache Per- ['||g_r_accr_gl_per_name||']';
3799: l_accr_gl_dt := g_r_accr_gl_per_end_dt;
3800: END IF;
3801: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache dt- ['||to_char(l_accr_gl_dt)||']';
3802: IF ( l_debug_mode = 'Y' ) THEN
3803: pa_debug.write_file(pa_debug.g_err_stage);
3804: END IF;
3805: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache Per- ['||g_r_accr_gl_per_name||']';
3806: IF ( l_debug_mode = 'Y' ) THEN
3807: pa_debug.write_file(pa_debug.g_err_stage);
3801: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache dt- ['||to_char(l_accr_gl_dt)||']';
3802: IF ( l_debug_mode = 'Y' ) THEN
3803: pa_debug.write_file(pa_debug.g_err_stage);
3804: END IF;
3805: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache Per- ['||g_r_accr_gl_per_name||']';
3806: IF ( l_debug_mode = 'Y' ) THEN
3807: pa_debug.write_file(pa_debug.g_err_stage);
3808: END IF;
3809: --Assign the out variables.
3803: pa_debug.write_file(pa_debug.g_err_stage);
3804: END IF;
3805: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() R Cache Per- ['||g_r_accr_gl_per_name||']';
3806: IF ( l_debug_mode = 'Y' ) THEN
3807: pa_debug.write_file(pa_debug.g_err_stage);
3808: END IF;
3809: --Assign the out variables.
3810: x_gl_accr_dt := l_accr_gl_dt ;
3811: x_gl_accr_period_name := g_r_accr_gl_per_name;
3829: x_error_code := 'PA_GL_PER_PRVDR_ACCR_NOT_DEF';
3830: ELSE
3831: x_error_code := 'PA_GL_PER_RECVR_ACCR_NOT_DEF';
3832: END IF;
3833: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF for ref dt- ['||to_char(p_reference_date)||']';
3834: IF ( l_debug_mode = 'Y' ) THEN
3835: pa_debug.write_file(pa_debug.g_err_stage);
3836: END IF;
3837: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF sob - ['||p_set_of_books_id||']';
3831: x_error_code := 'PA_GL_PER_RECVR_ACCR_NOT_DEF';
3832: END IF;
3833: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF for ref dt- ['||to_char(p_reference_date)||']';
3834: IF ( l_debug_mode = 'Y' ) THEN
3835: pa_debug.write_file(pa_debug.g_err_stage);
3836: END IF;
3837: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF sob - ['||p_set_of_books_id||']';
3838: IF ( l_debug_mode = 'Y' ) THEN
3839: pa_debug.write_file(pa_debug.g_err_stage);
3833: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF for ref dt- ['||to_char(p_reference_date)||']';
3834: IF ( l_debug_mode = 'Y' ) THEN
3835: pa_debug.write_file(pa_debug.g_err_stage);
3836: END IF;
3837: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF sob - ['||p_set_of_books_id||']';
3838: IF ( l_debug_mode = 'Y' ) THEN
3839: pa_debug.write_file(pa_debug.g_err_stage);
3840: END IF;
3841: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3835: pa_debug.write_file(pa_debug.g_err_stage);
3836: END IF;
3837: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF sob - ['||p_set_of_books_id||']';
3838: IF ( l_debug_mode = 'Y' ) THEN
3839: pa_debug.write_file(pa_debug.g_err_stage);
3840: END IF;
3841: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3842: IF ( l_debug_mode = 'Y' ) THEN
3843: pa_debug.write_file(pa_debug.g_err_stage);
3837: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF sob - ['||p_set_of_books_id||']';
3838: IF ( l_debug_mode = 'Y' ) THEN
3839: pa_debug.write_file(pa_debug.g_err_stage);
3840: END IF;
3841: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3842: IF ( l_debug_mode = 'Y' ) THEN
3843: pa_debug.write_file(pa_debug.g_err_stage);
3844: END IF;
3845: return;
3839: pa_debug.write_file(pa_debug.g_err_stage);
3840: END IF;
3841: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-NDF prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3842: IF ( l_debug_mode = 'Y' ) THEN
3843: pa_debug.write_file(pa_debug.g_err_stage);
3844: END IF;
3845: return;
3846: WHEN OTHERS THEN
3847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3845: return;
3846: WHEN OTHERS THEN
3847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3848:
3849: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO sob - ['||p_set_of_books_id||']';
3850: IF ( l_debug_mode = 'Y' ) THEN
3851: pa_debug.write_file(pa_debug.g_err_stage);
3852: END IF;
3853: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3848:
3849: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO sob - ['||p_set_of_books_id||']';
3850: IF ( l_debug_mode = 'Y' ) THEN
3851: pa_debug.write_file(pa_debug.g_err_stage);
3852: END IF;
3853: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3854: IF ( l_debug_mode = 'Y' ) THEN
3855: pa_debug.write_file(pa_debug.g_err_stage);
3849: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO sob - ['||p_set_of_books_id||']';
3850: IF ( l_debug_mode = 'Y' ) THEN
3851: pa_debug.write_file(pa_debug.g_err_stage);
3852: END IF;
3853: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3854: IF ( l_debug_mode = 'Y' ) THEN
3855: pa_debug.write_file(pa_debug.g_err_stage);
3856: END IF;
3857: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO for ref dt- ['||to_char(p_reference_date)||']';
3851: pa_debug.write_file(pa_debug.g_err_stage);
3852: END IF;
3853: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3854: IF ( l_debug_mode = 'Y' ) THEN
3855: pa_debug.write_file(pa_debug.g_err_stage);
3856: END IF;
3857: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO for ref dt- ['||to_char(p_reference_date)||']';
3858: IF ( l_debug_mode = 'Y' ) THEN
3859: pa_debug.write_file(pa_debug.g_err_stage);
3853: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3854: IF ( l_debug_mode = 'Y' ) THEN
3855: pa_debug.write_file(pa_debug.g_err_stage);
3856: END IF;
3857: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO for ref dt- ['||to_char(p_reference_date)||']';
3858: IF ( l_debug_mode = 'Y' ) THEN
3859: pa_debug.write_file(pa_debug.g_err_stage);
3860: END IF;
3861: x_error_stage := 'Procedure: Pa_Utils2.Get_Accrual_Period_Information() ::: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
3855: pa_debug.write_file(pa_debug.g_err_stage);
3856: END IF;
3857: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO for ref dt- ['||to_char(p_reference_date)||']';
3858: IF ( l_debug_mode = 'Y' ) THEN
3859: pa_debug.write_file(pa_debug.g_err_stage);
3860: END IF;
3861: x_error_stage := 'Procedure: Pa_Utils2.Get_Accrual_Period_Information() ::: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
3862: raise;
3863: END;
3857: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-WO for ref dt- ['||to_char(p_reference_date)||']';
3858: IF ( l_debug_mode = 'Y' ) THEN
3859: pa_debug.write_file(pa_debug.g_err_stage);
3860: END IF;
3861: x_error_stage := 'Procedure: Pa_Utils2.Get_Accrual_Period_Information() ::: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
3862: raise;
3863: END;
3864: -- EPP Derivation.
3865: IF p_epp_flag = 'Y' THEN
3879: g_r_accr_gl_per_st_dt := l_accr_gl_period_st_dt ;
3880: g_r_accr_gl_per_end_dt := l_accr_gl_period_end_dt;
3881: END IF;
3882:
3883: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL for accr/gl dt- ['||to_char(l_accr_gl_dt)||']';
3884: IF ( l_debug_mode = 'Y' ) THEN
3885: pa_debug.write_file(pa_debug.g_err_stage);
3886: END IF;
3887: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL sob - ['||p_set_of_books_id||']';
3881: END IF;
3882:
3883: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL for accr/gl dt- ['||to_char(l_accr_gl_dt)||']';
3884: IF ( l_debug_mode = 'Y' ) THEN
3885: pa_debug.write_file(pa_debug.g_err_stage);
3886: END IF;
3887: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL sob - ['||p_set_of_books_id||']';
3888: IF ( l_debug_mode = 'Y' ) THEN
3889: pa_debug.write_file(pa_debug.g_err_stage);
3883: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL for accr/gl dt- ['||to_char(l_accr_gl_dt)||']';
3884: IF ( l_debug_mode = 'Y' ) THEN
3885: pa_debug.write_file(pa_debug.g_err_stage);
3886: END IF;
3887: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL 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()-SEL prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3885: pa_debug.write_file(pa_debug.g_err_stage);
3886: END IF;
3887: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL 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()-SEL 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()-SEL 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()-SEL 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()-SEL gl period name - ['||l_accr_gl_period_name||']';
3889: pa_debug.write_file(pa_debug.g_err_stage);
3890: END IF;
3891: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL 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()-SEL gl period name - ['||l_accr_gl_period_name||']';
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()-SEL 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()-SEL gl period name - ['||l_accr_gl_period_name||']';
3896: IF ( l_debug_mode = 'Y' ) THEN
3897: pa_debug.write_file(pa_debug.g_err_stage);
3898: END IF;
3899: x_gl_accr_dt := l_accr_gl_dt ;
3893: pa_debug.write_file(pa_debug.g_err_stage);
3894: END IF;
3895: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()-SEL gl period name - ['||l_accr_gl_period_name||']';
3896: IF ( l_debug_mode = 'Y' ) THEN
3897: pa_debug.write_file(pa_debug.g_err_stage);
3898: END IF;
3899: x_gl_accr_dt := l_accr_gl_dt ;
3900: x_gl_accr_period_name := l_accr_gl_period_name ;
3901:
3907: ELSE
3908: x_error_code := 'PA_GL_PER_RECVR_ACCR_CLOSED';
3909: END IF;
3910:
3911: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() Period Clsd ref dt- ['||to_char(p_reference_date)||']';
3912: IF ( l_debug_mode = 'Y' ) THEN
3913: pa_debug.write_file(pa_debug.g_err_stage);
3914: END IF;
3915: pa_debug.g_err_stage := ' get_accrual_gl_dt_period()Period Clsd sob - ['||p_set_of_books_id||']';
3909: END IF;
3910:
3911: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() Period Clsd ref dt- ['||to_char(p_reference_date)||']';
3912: IF ( l_debug_mode = 'Y' ) THEN
3913: pa_debug.write_file(pa_debug.g_err_stage);
3914: END IF;
3915: pa_debug.g_err_stage := ' get_accrual_gl_dt_period()Period Clsd sob - ['||p_set_of_books_id||']';
3916: IF ( l_debug_mode = 'Y' ) THEN
3917: pa_debug.write_file(pa_debug.g_err_stage);
3911: pa_debug.g_err_stage := 'get_accrual_gl_dt_period() Period Clsd ref dt- ['||to_char(p_reference_date)||']';
3912: IF ( l_debug_mode = 'Y' ) THEN
3913: pa_debug.write_file(pa_debug.g_err_stage);
3914: END IF;
3915: pa_debug.g_err_stage := ' get_accrual_gl_dt_period()Period Clsd sob - ['||p_set_of_books_id||']';
3916: IF ( l_debug_mode = 'Y' ) THEN
3917: pa_debug.write_file(pa_debug.g_err_stage);
3918: END IF;
3919: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()Period Clsd prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3913: pa_debug.write_file(pa_debug.g_err_stage);
3914: END IF;
3915: pa_debug.g_err_stage := ' get_accrual_gl_dt_period()Period Clsd sob - ['||p_set_of_books_id||']';
3916: IF ( l_debug_mode = 'Y' ) THEN
3917: pa_debug.write_file(pa_debug.g_err_stage);
3918: END IF;
3919: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()Period Clsd prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3920: IF ( l_debug_mode = 'Y' ) THEN
3921: pa_debug.write_file(pa_debug.g_err_stage);
3915: pa_debug.g_err_stage := ' get_accrual_gl_dt_period()Period Clsd sob - ['||p_set_of_books_id||']';
3916: IF ( l_debug_mode = 'Y' ) THEN
3917: pa_debug.write_file(pa_debug.g_err_stage);
3918: END IF;
3919: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()Period Clsd prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3920: IF ( l_debug_mode = 'Y' ) THEN
3921: pa_debug.write_file(pa_debug.g_err_stage);
3922: END IF;
3923: END IF;---------------------l_period_status in ('O','F')------------}
3917: pa_debug.write_file(pa_debug.g_err_stage);
3918: END IF;
3919: pa_debug.g_err_stage := 'get_accrual_gl_dt_period()Period Clsd prvdr_recvr_flg - ['||p_prvdr_recvr_flg||']';
3920: IF ( l_debug_mode = 'Y' ) THEN
3921: pa_debug.write_file(pa_debug.g_err_stage);
3922: END IF;
3923: END IF;---------------------l_period_status in ('O','F')------------}
3924:
3925: EXCEPTION
3924:
3925: EXCEPTION
3926: WHEN OTHERS THEN
3927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3928: x_error_stage := 'Procedure: Pa_Utils2.Get_Accrual_Period_Information() ::: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
3929: raise;
3930: END;
3931: ----------------------------------------------------------------------------------------------------------------
3932: -- API : get_accrual_period_information
4057: BEGIN
4058:
4059:
4060:
4061: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4062: l_debug_mode := NVL(l_debug_mode, 'N');
4063: pa_debug.g_err_stage :='From get_accrual_period_information';
4064: IF(l_debug_mode = 'Y') THEN
4065: pa_debug.init_err_stack('pa_utils2.get_accrual_period_information');
4059:
4060:
4061: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4062: l_debug_mode := NVL(l_debug_mode, 'N');
4063: pa_debug.g_err_stage :='From get_accrual_period_information';
4064: IF(l_debug_mode = 'Y') THEN
4065: pa_debug.init_err_stack('pa_utils2.get_accrual_period_information');
4066: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4067:
4061: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4062: l_debug_mode := NVL(l_debug_mode, 'N');
4063: pa_debug.g_err_stage :='From get_accrual_period_information';
4064: IF(l_debug_mode = 'Y') THEN
4065: pa_debug.init_err_stack('pa_utils2.get_accrual_period_information');
4066: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4067:
4068: pa_debug.write_file(pa_debug.g_err_stage);
4069: END IF;
4062: l_debug_mode := NVL(l_debug_mode, 'N');
4063: pa_debug.g_err_stage :='From get_accrual_period_information';
4064: IF(l_debug_mode = 'Y') THEN
4065: pa_debug.init_err_stack('pa_utils2.get_accrual_period_information');
4066: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4067:
4068: pa_debug.write_file(pa_debug.g_err_stage);
4069: END IF;
4070:
4064: IF(l_debug_mode = 'Y') THEN
4065: pa_debug.init_err_stack('pa_utils2.get_accrual_period_information');
4066: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4067:
4068: pa_debug.write_file(pa_debug.g_err_stage);
4069: END IF;
4070:
4071: if g_prof_new_gldate_derivation IS NULL then
4072: l_prof_new_gldate_derivation := nvl(fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION'),'N') ; /*For Bug 5391468*/
4073: g_prof_new_gldate_derivation := l_prof_new_gldate_derivation;
4074: else
4075: l_prof_new_gldate_derivation := g_prof_new_gldate_derivation;
4076: end if;
4077: pa_debug.g_err_stage :='EPP Flag is :['||l_prof_new_gldate_derivation||']';
4078: IF(l_debug_mode = 'Y') THEN
4079: pa_debug.write_file(pa_debug.g_err_stage);
4080: END IF;
4081:
4075: l_prof_new_gldate_derivation := g_prof_new_gldate_derivation;
4076: end if;
4077: pa_debug.g_err_stage :='EPP Flag is :['||l_prof_new_gldate_derivation||']';
4078: IF(l_debug_mode = 'Y') THEN
4079: pa_debug.write_file(pa_debug.g_err_stage);
4080: END IF;
4081:
4082: ---Initialize the error var.
4083: x_error_code := NULL;
4082: ---Initialize the error var.
4083: x_error_code := NULL;
4084: x_return_status := FND_API.G_RET_STS_SUCCESS;
4085:
4086: pa_debug.g_err_stage :=' Profile option is [' || l_prof_new_gldate_derivation || ']';
4087: IF(l_debug_mode = 'Y') THEN
4088: pa_debug.write_file(pa_debug.g_err_stage);
4089: END IF;
4090: pa_debug.g_err_stage :='x_prvdr_accrual_date is [' || to_char(x_prvdr_accrual_date) || ']';
4084: x_return_status := FND_API.G_RET_STS_SUCCESS;
4085:
4086: pa_debug.g_err_stage :=' Profile option is [' || l_prof_new_gldate_derivation || ']';
4087: IF(l_debug_mode = 'Y') THEN
4088: pa_debug.write_file(pa_debug.g_err_stage);
4089: END IF;
4090: pa_debug.g_err_stage :='x_prvdr_accrual_date is [' || to_char(x_prvdr_accrual_date) || ']';
4091: IF(l_debug_mode = 'Y') THEN
4092: pa_debug.write_file(pa_debug.g_err_stage);
4086: pa_debug.g_err_stage :=' Profile option is [' || l_prof_new_gldate_derivation || ']';
4087: IF(l_debug_mode = 'Y') THEN
4088: pa_debug.write_file(pa_debug.g_err_stage);
4089: END IF;
4090: pa_debug.g_err_stage :='x_prvdr_accrual_date is [' || to_char(x_prvdr_accrual_date) || ']';
4091: IF(l_debug_mode = 'Y') THEN
4092: pa_debug.write_file(pa_debug.g_err_stage);
4093: END IF;
4094: pa_debug.g_err_stage :='x_recvr_accrual_date is [' || to_char(x_recvr_accrual_date) || ']';
4088: pa_debug.write_file(pa_debug.g_err_stage);
4089: END IF;
4090: pa_debug.g_err_stage :='x_prvdr_accrual_date is [' || to_char(x_prvdr_accrual_date) || ']';
4091: IF(l_debug_mode = 'Y') THEN
4092: pa_debug.write_file(pa_debug.g_err_stage);
4093: END IF;
4094: pa_debug.g_err_stage :='x_recvr_accrual_date is [' || to_char(x_recvr_accrual_date) || ']';
4095: IF(l_debug_mode = 'Y') THEN
4096: pa_debug.write_file(pa_debug.g_err_stage);
4090: pa_debug.g_err_stage :='x_prvdr_accrual_date is [' || to_char(x_prvdr_accrual_date) || ']';
4091: IF(l_debug_mode = 'Y') THEN
4092: pa_debug.write_file(pa_debug.g_err_stage);
4093: END IF;
4094: pa_debug.g_err_stage :='x_recvr_accrual_date is [' || to_char(x_recvr_accrual_date) || ']';
4095: IF(l_debug_mode = 'Y') THEN
4096: pa_debug.write_file(pa_debug.g_err_stage);
4097: END IF;
4098: pa_debug.g_err_stage :='p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
4092: pa_debug.write_file(pa_debug.g_err_stage);
4093: END IF;
4094: pa_debug.g_err_stage :='x_recvr_accrual_date is [' || to_char(x_recvr_accrual_date) || ']';
4095: IF(l_debug_mode = 'Y') THEN
4096: pa_debug.write_file(pa_debug.g_err_stage);
4097: END IF;
4098: pa_debug.g_err_stage :='p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
4099: IF(l_debug_mode = 'Y') THEN
4100: pa_debug.write_file(pa_debug.g_err_stage);
4094: pa_debug.g_err_stage :='x_recvr_accrual_date is [' || to_char(x_recvr_accrual_date) || ']';
4095: IF(l_debug_mode = 'Y') THEN
4096: pa_debug.write_file(pa_debug.g_err_stage);
4097: END IF;
4098: pa_debug.g_err_stage :='p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
4099: IF(l_debug_mode = 'Y') THEN
4100: pa_debug.write_file(pa_debug.g_err_stage);
4101: END IF;
4102: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) || ']';
4096: pa_debug.write_file(pa_debug.g_err_stage);
4097: END IF;
4098: pa_debug.g_err_stage :='p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
4099: IF(l_debug_mode = 'Y') THEN
4100: pa_debug.write_file(pa_debug.g_err_stage);
4101: END IF;
4102: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) || ']';
4103: IF(l_debug_mode = 'Y') THEN
4104: pa_debug.write_file(pa_debug.g_err_stage);
4098: pa_debug.g_err_stage :='p_expenditure_item_date is [' || to_char(p_expenditure_item_date) || ']';
4099: IF(l_debug_mode = 'Y') THEN
4100: pa_debug.write_file(pa_debug.g_err_stage);
4101: END IF;
4102: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) || ']';
4103: IF(l_debug_mode = 'Y') THEN
4104: pa_debug.write_file(pa_debug.g_err_stage);
4105: END IF;
4106: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) || ']';
4100: pa_debug.write_file(pa_debug.g_err_stage);
4101: END IF;
4102: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) || ']';
4103: IF(l_debug_mode = 'Y') THEN
4104: pa_debug.write_file(pa_debug.g_err_stage);
4105: END IF;
4106: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) || ']';
4107: IF(l_debug_mode = 'Y') THEN
4108: pa_debug.write_file(pa_debug.g_err_stage);
4102: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) || ']';
4103: IF(l_debug_mode = 'Y') THEN
4104: pa_debug.write_file(pa_debug.g_err_stage);
4105: END IF;
4106: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) || ']';
4107: IF(l_debug_mode = 'Y') THEN
4108: pa_debug.write_file(pa_debug.g_err_stage);
4109: END IF;
4110: pa_debug.g_err_stage :='p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
4104: pa_debug.write_file(pa_debug.g_err_stage);
4105: END IF;
4106: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) || ']';
4107: IF(l_debug_mode = 'Y') THEN
4108: pa_debug.write_file(pa_debug.g_err_stage);
4109: END IF;
4110: pa_debug.g_err_stage :='p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
4111: IF(l_debug_mode = 'Y') THEN
4112: pa_debug.write_file(pa_debug.g_err_stage);
4106: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) || ']';
4107: IF(l_debug_mode = 'Y') THEN
4108: pa_debug.write_file(pa_debug.g_err_stage);
4109: END IF;
4110: pa_debug.g_err_stage :='p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
4111: IF(l_debug_mode = 'Y') THEN
4112: pa_debug.write_file(pa_debug.g_err_stage);
4113: END IF;
4114: pa_debug.g_err_stage :='p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
4108: pa_debug.write_file(pa_debug.g_err_stage);
4109: END IF;
4110: pa_debug.g_err_stage :='p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
4111: IF(l_debug_mode = 'Y') THEN
4112: pa_debug.write_file(pa_debug.g_err_stage);
4113: END IF;
4114: pa_debug.g_err_stage :='p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
4115: IF(l_debug_mode = 'Y') THEN
4116: pa_debug.write_file(pa_debug.g_err_stage);
4110: pa_debug.g_err_stage :='p_prvdr_org_id is [' || to_char(p_prvdr_org_id) || ']';
4111: IF(l_debug_mode = 'Y') THEN
4112: pa_debug.write_file(pa_debug.g_err_stage);
4113: END IF;
4114: pa_debug.g_err_stage :='p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
4115: IF(l_debug_mode = 'Y') THEN
4116: pa_debug.write_file(pa_debug.g_err_stage);
4117: END IF;
4118: pa_debug.g_err_stage :='p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
4112: pa_debug.write_file(pa_debug.g_err_stage);
4113: END IF;
4114: pa_debug.g_err_stage :='p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
4115: IF(l_debug_mode = 'Y') THEN
4116: pa_debug.write_file(pa_debug.g_err_stage);
4117: END IF;
4118: pa_debug.g_err_stage :='p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
4119: IF(l_debug_mode = 'Y') THEN
4120: pa_debug.write_file(pa_debug.g_err_stage);
4114: pa_debug.g_err_stage :='p_recvr_org_id is [' || to_char(p_recvr_org_id) || ']';
4115: IF(l_debug_mode = 'Y') THEN
4116: pa_debug.write_file(pa_debug.g_err_stage);
4117: END IF;
4118: pa_debug.g_err_stage :='p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
4119: IF(l_debug_mode = 'Y') THEN
4120: pa_debug.write_file(pa_debug.g_err_stage);
4121: END IF;
4122: pa_debug.g_err_stage :='p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
4116: pa_debug.write_file(pa_debug.g_err_stage);
4117: END IF;
4118: pa_debug.g_err_stage :='p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
4119: IF(l_debug_mode = 'Y') THEN
4120: pa_debug.write_file(pa_debug.g_err_stage);
4121: END IF;
4122: pa_debug.g_err_stage :='p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
4123: IF(l_debug_mode = 'Y') THEN
4124: pa_debug.write_file(pa_debug.g_err_stage);
4118: pa_debug.g_err_stage :='p_prvdr_sob_id is [' || to_char(p_prvdr_sob_id) || ']';
4119: IF(l_debug_mode = 'Y') THEN
4120: pa_debug.write_file(pa_debug.g_err_stage);
4121: END IF;
4122: pa_debug.g_err_stage :='p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
4123: IF(l_debug_mode = 'Y') THEN
4124: pa_debug.write_file(pa_debug.g_err_stage);
4125: END IF;
4126: pa_debug.g_err_stage :='p_calling_module is [' || p_calling_module || ']';
4120: pa_debug.write_file(pa_debug.g_err_stage);
4121: END IF;
4122: pa_debug.g_err_stage :='p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
4123: IF(l_debug_mode = 'Y') THEN
4124: pa_debug.write_file(pa_debug.g_err_stage);
4125: END IF;
4126: pa_debug.g_err_stage :='p_calling_module is [' || p_calling_module || ']';
4127: IF(l_debug_mode = 'Y') THEN
4128: pa_debug.write_file(pa_debug.g_err_stage);
4122: pa_debug.g_err_stage :='p_recvr_sob_id is [' || to_char(p_recvr_sob_id) || ']';
4123: IF(l_debug_mode = 'Y') THEN
4124: pa_debug.write_file(pa_debug.g_err_stage);
4125: END IF;
4126: pa_debug.g_err_stage :='p_calling_module is [' || p_calling_module || ']';
4127: IF(l_debug_mode = 'Y') THEN
4128: pa_debug.write_file(pa_debug.g_err_stage);
4129: END IF;
4130:
4124: pa_debug.write_file(pa_debug.g_err_stage);
4125: END IF;
4126: pa_debug.g_err_stage :='p_calling_module is [' || p_calling_module || ']';
4127: IF(l_debug_mode = 'Y') THEN
4128: pa_debug.write_file(pa_debug.g_err_stage);
4129: END IF;
4130:
4131: --- We derive the accrual dates for TRXIMPORT(Unaccounted)/Pre-Approved Batch(PAXTREPE).
4132:
4130:
4131: --- We derive the accrual dates for TRXIMPORT(Unaccounted)/Pre-Approved Batch(PAXTREPE).
4132:
4133: IF p_calling_module in ( 'TRXIMPORT','PAXTREPE') AND NVL(p_acct_flag,'N') = 'N' THEN ------------------------{
4134: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX';
4135: IF(l_debug_mode = 'Y') THEN
4136: pa_debug.write_file(pa_debug.g_err_stage);
4137: END IF;
4138: x_error_stage := pa_debug.g_err_stage;
4132:
4133: IF p_calling_module in ( 'TRXIMPORT','PAXTREPE') AND NVL(p_acct_flag,'N') = 'N' THEN ------------------------{
4134: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX';
4135: IF(l_debug_mode = 'Y') THEN
4136: pa_debug.write_file(pa_debug.g_err_stage);
4137: END IF;
4138: x_error_stage := pa_debug.g_err_stage;
4139: IF p_adj_ei_id IS NULL THEN -------------ORG EI--------------------{
4140: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX ORG EI';
4134: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX';
4135: IF(l_debug_mode = 'Y') THEN
4136: pa_debug.write_file(pa_debug.g_err_stage);
4137: END IF;
4138: x_error_stage := pa_debug.g_err_stage;
4139: IF p_adj_ei_id IS NULL THEN -------------ORG EI--------------------{
4140: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX ORG EI';
4141: IF(l_debug_mode = 'Y') THEN
4142: pa_debug.write_file(pa_debug.g_err_stage);
4136: pa_debug.write_file(pa_debug.g_err_stage);
4137: END IF;
4138: x_error_stage := pa_debug.g_err_stage;
4139: IF p_adj_ei_id IS NULL THEN -------------ORG EI--------------------{
4140: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX ORG EI';
4141: IF(l_debug_mode = 'Y') THEN
4142: pa_debug.write_file(pa_debug.g_err_stage);
4143: END IF;
4144: x_error_stage := pa_debug.g_err_stage;
4138: x_error_stage := pa_debug.g_err_stage;
4139: IF p_adj_ei_id IS NULL THEN -------------ORG EI--------------------{
4140: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX ORG EI';
4141: IF(l_debug_mode = 'Y') THEN
4142: pa_debug.write_file(pa_debug.g_err_stage);
4143: END IF;
4144: x_error_stage := pa_debug.g_err_stage;
4145:
4146: --- Though this api returns the period name also, we don't make use of it at this stage.
4140: pa_debug.g_err_stage :='Getting the accrual Dates for TRX/PAX ORG EI';
4141: IF(l_debug_mode = 'Y') THEN
4142: pa_debug.write_file(pa_debug.g_err_stage);
4143: END IF;
4144: x_error_stage := pa_debug.g_err_stage;
4145:
4146: --- Though this api returns the period name also, we don't make use of it at this stage.
4147: BEGIN
4148: pa_utils2.get_accrual_gl_dt_period( p_calling_module => p_calling_module
4161: -- Error encountered!!!
4162: IF x_error_code is NOT NULL THEN
4163: return;
4164: END IF;
4165: pa_debug.g_err_stage := 'Prvdr accrual Date for ORG EI TRX/PAX -'||to_char(l_prvdr_accrual_date);
4166: IF(l_debug_mode = 'Y') THEN
4167: pa_debug.write_file(pa_debug.g_err_stage);
4168: END IF;
4169: x_error_stage := pa_debug.g_err_stage;
4163: return;
4164: END IF;
4165: pa_debug.g_err_stage := 'Prvdr accrual Date for ORG EI TRX/PAX -'||to_char(l_prvdr_accrual_date);
4166: IF(l_debug_mode = 'Y') THEN
4167: pa_debug.write_file(pa_debug.g_err_stage);
4168: END IF;
4169: x_error_stage := pa_debug.g_err_stage;
4170: --- If provider and receiver are of same org, then don't derive the accrual date for RECVR
4171: IF p_prvdr_org_id = p_recvr_org_id THEN ---------------------------------{
4165: pa_debug.g_err_stage := 'Prvdr accrual Date for ORG EI TRX/PAX -'||to_char(l_prvdr_accrual_date);
4166: IF(l_debug_mode = 'Y') THEN
4167: pa_debug.write_file(pa_debug.g_err_stage);
4168: END IF;
4169: x_error_stage := pa_debug.g_err_stage;
4170: --- If provider and receiver are of same org, then don't derive the accrual date for RECVR
4171: IF p_prvdr_org_id = p_recvr_org_id THEN ---------------------------------{
4172:
4173: l_recvr_accrual_date := l_prvdr_accrual_date;
4170: --- If provider and receiver are of same org, then don't derive the accrual date for RECVR
4171: IF p_prvdr_org_id = p_recvr_org_id THEN ---------------------------------{
4172:
4173: l_recvr_accrual_date := l_prvdr_accrual_date;
4174: pa_debug.g_err_stage := 'Recvr accrual Date is Same as Prvdr for ORG EI TRX/PAX';
4175: IF(l_debug_mode = 'Y') THEN
4176: pa_debug.write_file(pa_debug.g_err_stage);
4177: END IF;
4178: x_error_stage := pa_debug.g_err_stage;
4172:
4173: l_recvr_accrual_date := l_prvdr_accrual_date;
4174: pa_debug.g_err_stage := 'Recvr accrual Date is Same as Prvdr for ORG EI TRX/PAX';
4175: IF(l_debug_mode = 'Y') THEN
4176: pa_debug.write_file(pa_debug.g_err_stage);
4177: END IF;
4178: x_error_stage := pa_debug.g_err_stage;
4179:
4180: ELSE ----Do the check for O/F status.
4174: pa_debug.g_err_stage := 'Recvr accrual Date is Same as Prvdr for ORG EI TRX/PAX';
4175: IF(l_debug_mode = 'Y') THEN
4176: pa_debug.write_file(pa_debug.g_err_stage);
4177: END IF;
4178: x_error_stage := pa_debug.g_err_stage;
4179:
4180: ELSE ----Do the check for O/F status.
4181:
4182: -- Though we are not deriving the gl_period_name , this api is multi-function.
4198: -- Error encountered!!!
4199: IF x_error_code IS NOT NULL THEN
4200: return;
4201: END IF;
4202: pa_debug.g_err_stage := 'Recvr accrual Date for ORG EI TRX/PAX -'||to_char(l_recvr_accrual_date);
4203: IF(l_debug_mode = 'Y') THEN
4204: pa_debug.write_file(pa_debug.g_err_stage);
4205: END IF;
4206: x_error_stage := pa_debug.g_err_stage;
4200: return;
4201: END IF;
4202: pa_debug.g_err_stage := 'Recvr accrual Date for ORG EI TRX/PAX -'||to_char(l_recvr_accrual_date);
4203: IF(l_debug_mode = 'Y') THEN
4204: pa_debug.write_file(pa_debug.g_err_stage);
4205: END IF;
4206: x_error_stage := pa_debug.g_err_stage;
4207:
4208: END IF; ----------------------p_prvdr_org_id = p_recvr_org_id------------------}
4202: pa_debug.g_err_stage := 'Recvr accrual Date for ORG EI TRX/PAX -'||to_char(l_recvr_accrual_date);
4203: IF(l_debug_mode = 'Y') THEN
4204: pa_debug.write_file(pa_debug.g_err_stage);
4205: END IF;
4206: x_error_stage := pa_debug.g_err_stage;
4207:
4208: END IF; ----------------------p_prvdr_org_id = p_recvr_org_id------------------}
4209:
4210: ELSE -----------------------For Reversing EI
4226: -- Error encountered!!!
4227: IF x_error_code IS NOT NULL THEN
4228: return;
4229: END IF;
4230: pa_debug.g_err_stage := 'Prvdr accrual Date for Rev EI TRX/PAX -'||to_char(l_prvdr_accrual_date);
4231: IF(l_debug_mode = 'Y') THEN
4232: pa_debug.write_file(pa_debug.g_err_stage);
4233: END IF;
4234: x_error_stage := pa_debug.g_err_stage;
4228: return;
4229: END IF;
4230: pa_debug.g_err_stage := 'Prvdr accrual Date for Rev EI TRX/PAX -'||to_char(l_prvdr_accrual_date);
4231: IF(l_debug_mode = 'Y') THEN
4232: pa_debug.write_file(pa_debug.g_err_stage);
4233: END IF;
4234: x_error_stage := pa_debug.g_err_stage;
4235:
4236: IF p_prvdr_org_id = p_recvr_org_id THEN -------------------------{
4230: pa_debug.g_err_stage := 'Prvdr accrual Date for Rev EI TRX/PAX -'||to_char(l_prvdr_accrual_date);
4231: IF(l_debug_mode = 'Y') THEN
4232: pa_debug.write_file(pa_debug.g_err_stage);
4233: END IF;
4234: x_error_stage := pa_debug.g_err_stage;
4235:
4236: IF p_prvdr_org_id = p_recvr_org_id THEN -------------------------{
4237:
4238: l_recvr_accrual_date := l_prvdr_accrual_date;
4235:
4236: IF p_prvdr_org_id = p_recvr_org_id THEN -------------------------{
4237:
4238: l_recvr_accrual_date := l_prvdr_accrual_date;
4239: pa_debug.g_err_stage := 'Recvr accrual Date= Prvdr Accrual Date for Rev EI TRX/PAX';
4240: IF(l_debug_mode = 'Y') THEN
4241: pa_debug.write_file(pa_debug.g_err_stage);
4242: END IF;
4243: x_error_stage := pa_debug.g_err_stage;
4237:
4238: l_recvr_accrual_date := l_prvdr_accrual_date;
4239: pa_debug.g_err_stage := 'Recvr accrual Date= Prvdr Accrual Date for Rev EI TRX/PAX';
4240: IF(l_debug_mode = 'Y') THEN
4241: pa_debug.write_file(pa_debug.g_err_stage);
4242: END IF;
4243: x_error_stage := pa_debug.g_err_stage;
4244:
4245: ELSE
4239: pa_debug.g_err_stage := 'Recvr accrual Date= Prvdr Accrual Date for Rev EI TRX/PAX';
4240: IF(l_debug_mode = 'Y') THEN
4241: pa_debug.write_file(pa_debug.g_err_stage);
4242: END IF;
4243: x_error_stage := pa_debug.g_err_stage;
4244:
4245: ELSE
4246: l_recvr_accrual_date := pa_utils2.get_rev_accrual_date( p_calling_module => p_calling_module
4247: ,p_reference_date =>x_recvr_accrual_date
4257: -- Error encountered!!!
4258: IF x_error_code IS NOT NULL THEN
4259: return;
4260: END IF;
4261: pa_debug.g_err_stage := 'Recvr accrual Date for Rev EI Trx/Pax -'||to_char(l_recvr_accrual_date);
4262: IF(l_debug_mode = 'Y') THEN
4263: pa_debug.write_file(pa_debug.g_err_stage);
4264: END IF;
4265: x_error_stage := pa_debug.g_err_stage;
4259: return;
4260: END IF;
4261: pa_debug.g_err_stage := 'Recvr accrual Date for Rev EI Trx/Pax -'||to_char(l_recvr_accrual_date);
4262: IF(l_debug_mode = 'Y') THEN
4263: pa_debug.write_file(pa_debug.g_err_stage);
4264: END IF;
4265: x_error_stage := pa_debug.g_err_stage;
4266: END IF; ---------------p_prvdr_org_id = p_recvr_org_id-------------}
4267:
4261: pa_debug.g_err_stage := 'Recvr accrual Date for Rev EI Trx/Pax -'||to_char(l_recvr_accrual_date);
4262: IF(l_debug_mode = 'Y') THEN
4263: pa_debug.write_file(pa_debug.g_err_stage);
4264: END IF;
4265: x_error_stage := pa_debug.g_err_stage;
4266: END IF; ---------------p_prvdr_org_id = p_recvr_org_id-------------}
4267:
4268: END IF; ---------------------ORG EI---------------------------------------------------}
4269:
4270:
4271: x_prvdr_accrual_date := l_prvdr_accrual_date;
4272: x_recvr_accrual_date := l_recvr_accrual_date;
4273:
4274: pa_debug.g_err_stage := ' x_prvdr accr Dt for EI TRX/PAX -'||to_char(x_prvdr_accrual_date);
4275: IF(l_debug_mode = 'Y') THEN
4276: pa_debug.write_file(pa_debug.g_err_stage);
4277: END IF;
4278: pa_debug.g_err_stage := 'x_recvr accr Dt for EI TRX/PAX -'||to_char(x_recvr_accrual_date);
4272: x_recvr_accrual_date := l_recvr_accrual_date;
4273:
4274: pa_debug.g_err_stage := ' x_prvdr accr Dt for EI TRX/PAX -'||to_char(x_prvdr_accrual_date);
4275: IF(l_debug_mode = 'Y') THEN
4276: pa_debug.write_file(pa_debug.g_err_stage);
4277: END IF;
4278: pa_debug.g_err_stage := 'x_recvr accr Dt for EI TRX/PAX -'||to_char(x_recvr_accrual_date);
4279: IF(l_debug_mode = 'Y') THEN
4280: pa_debug.write_file(pa_debug.g_err_stage);
4274: pa_debug.g_err_stage := ' x_prvdr accr Dt for EI TRX/PAX -'||to_char(x_prvdr_accrual_date);
4275: IF(l_debug_mode = 'Y') THEN
4276: pa_debug.write_file(pa_debug.g_err_stage);
4277: END IF;
4278: pa_debug.g_err_stage := 'x_recvr accr Dt for EI TRX/PAX -'||to_char(x_recvr_accrual_date);
4279: IF(l_debug_mode = 'Y') THEN
4280: pa_debug.write_file(pa_debug.g_err_stage);
4281: END IF;
4282: return; -- We don't need anything after this point for Unaccounted TRXIMPORT and PAXTREPE Transactions.
4276: pa_debug.write_file(pa_debug.g_err_stage);
4277: END IF;
4278: pa_debug.g_err_stage := 'x_recvr accr Dt for EI TRX/PAX -'||to_char(x_recvr_accrual_date);
4279: IF(l_debug_mode = 'Y') THEN
4280: pa_debug.write_file(pa_debug.g_err_stage);
4281: END IF;
4282: return; -- We don't need anything after this point for Unaccounted TRXIMPORT and PAXTREPE Transactions.
4283:
4284: END IF; ------( 'TRXIMPORT','PAXTREPE') AND NVL(p_acct_flag,'N') = 'N' --------------------------------}
4288: IF p_calling_module = 'CDL' OR NVL(p_acct_flag,'N') = 'Y' THEN ------------------------{
4289:
4290: IF p_calling_module = 'CDL' THEN-------------------------{
4291:
4292: pa_debug.g_err_stage :='Call is from Costing program';
4293: IF(l_debug_mode = 'Y') THEN
4294: pa_debug.write_file(pa_debug.g_err_stage);
4295: END IF;
4296: pa_debug.g_err_stage := 'Prvdr accr Dt from CDL call -'||to_char(x_prvdr_accrual_date);
4290: IF p_calling_module = 'CDL' THEN-------------------------{
4291:
4292: pa_debug.g_err_stage :='Call is from Costing program';
4293: IF(l_debug_mode = 'Y') THEN
4294: pa_debug.write_file(pa_debug.g_err_stage);
4295: END IF;
4296: pa_debug.g_err_stage := 'Prvdr accr Dt from CDL call -'||to_char(x_prvdr_accrual_date);
4297: IF(l_debug_mode = 'Y') THEN
4298: pa_debug.write_file(pa_debug.g_err_stage);
4292: pa_debug.g_err_stage :='Call is from Costing program';
4293: IF(l_debug_mode = 'Y') THEN
4294: pa_debug.write_file(pa_debug.g_err_stage);
4295: END IF;
4296: pa_debug.g_err_stage := 'Prvdr accr Dt from CDL call -'||to_char(x_prvdr_accrual_date);
4297: IF(l_debug_mode = 'Y') THEN
4298: pa_debug.write_file(pa_debug.g_err_stage);
4299: END IF;
4300: pa_debug.g_err_stage := ' Recvr accr Dt from CDL call -'||to_char(x_recvr_accrual_date);
4294: pa_debug.write_file(pa_debug.g_err_stage);
4295: END IF;
4296: pa_debug.g_err_stage := 'Prvdr accr Dt from CDL call -'||to_char(x_prvdr_accrual_date);
4297: IF(l_debug_mode = 'Y') THEN
4298: pa_debug.write_file(pa_debug.g_err_stage);
4299: END IF;
4300: pa_debug.g_err_stage := ' Recvr accr Dt from CDL call -'||to_char(x_recvr_accrual_date);
4301: IF(l_debug_mode = 'Y') THEN
4302: pa_debug.write_file(pa_debug.g_err_stage);
4296: pa_debug.g_err_stage := 'Prvdr accr Dt from CDL call -'||to_char(x_prvdr_accrual_date);
4297: IF(l_debug_mode = 'Y') THEN
4298: pa_debug.write_file(pa_debug.g_err_stage);
4299: END IF;
4300: pa_debug.g_err_stage := ' Recvr accr Dt from CDL call -'||to_char(x_recvr_accrual_date);
4301: IF(l_debug_mode = 'Y') THEN
4302: pa_debug.write_file(pa_debug.g_err_stage);
4303: END IF;
4304:
4298: pa_debug.write_file(pa_debug.g_err_stage);
4299: END IF;
4300: pa_debug.g_err_stage := ' Recvr accr Dt from CDL call -'||to_char(x_recvr_accrual_date);
4301: IF(l_debug_mode = 'Y') THEN
4302: pa_debug.write_file(pa_debug.g_err_stage);
4303: END IF;
4304:
4305: --- We make use of the GL period name.
4306: --- This is just to check if the accrual date is still in an open period.
4325: l_prvdr_accrual_date := x_prvdr_accrual_date;
4326: l_prvdr_gl_date := l_prvdr_accrual_date;
4327: END IF;
4328:
4329: pa_debug.g_err_stage :='Prvdr GL Date is -'||to_char(l_prvdr_gl_date);
4330: IF(l_debug_mode = 'Y') THEN
4331: pa_debug.write_file(pa_debug.g_err_stage);
4332: END IF;
4333: pa_debug.g_err_stage :='Prvdr GL Period is -'||l_prvdr_gl_period_name;
4327: END IF;
4328:
4329: pa_debug.g_err_stage :='Prvdr GL Date is -'||to_char(l_prvdr_gl_date);
4330: IF(l_debug_mode = 'Y') THEN
4331: pa_debug.write_file(pa_debug.g_err_stage);
4332: END IF;
4333: pa_debug.g_err_stage :='Prvdr GL Period is -'||l_prvdr_gl_period_name;
4334: IF(l_debug_mode = 'Y') THEN
4335: pa_debug.write_file(pa_debug.g_err_stage);
4329: pa_debug.g_err_stage :='Prvdr GL Date is -'||to_char(l_prvdr_gl_date);
4330: IF(l_debug_mode = 'Y') THEN
4331: pa_debug.write_file(pa_debug.g_err_stage);
4332: END IF;
4333: pa_debug.g_err_stage :='Prvdr GL Period is -'||l_prvdr_gl_period_name;
4334: IF(l_debug_mode = 'Y') THEN
4335: pa_debug.write_file(pa_debug.g_err_stage);
4336: END IF;
4337: --- If provider and receiver are of same org, then don't check the RECVR accrual date
4331: pa_debug.write_file(pa_debug.g_err_stage);
4332: END IF;
4333: pa_debug.g_err_stage :='Prvdr GL Period is -'||l_prvdr_gl_period_name;
4334: IF(l_debug_mode = 'Y') THEN
4335: pa_debug.write_file(pa_debug.g_err_stage);
4336: END IF;
4337: --- If provider and receiver are of same org, then don't check the RECVR accrual date
4338: IF p_prvdr_org_id = p_recvr_org_id THEN ---------------------------------{
4339:
4340: l_recvr_accrual_date := nvl(x_recvr_accrual_date,l_prvdr_accrual_date);
4341: l_recvr_gl_period_name := l_prvdr_gl_period_name ;
4342: l_recvr_gl_date := l_recvr_accrual_date;
4343:
4344: pa_debug.g_err_stage :='Prvdr GL Date is = Recvr GL Date';
4345: IF(l_debug_mode = 'Y') THEN
4346: pa_debug.write_file(pa_debug.g_err_stage);
4347: END IF;
4348: ELSE ----Do the check for O/F status.
4342: l_recvr_gl_date := l_recvr_accrual_date;
4343:
4344: pa_debug.g_err_stage :='Prvdr GL Date is = Recvr GL Date';
4345: IF(l_debug_mode = 'Y') THEN
4346: pa_debug.write_file(pa_debug.g_err_stage);
4347: END IF;
4348: ELSE ----Do the check for O/F status.
4349:
4350: -- It checks if the accrual date is in an O/F period. This check is for RECVR.
4369: l_recvr_accrual_date := x_recvr_accrual_date;
4370: l_recvr_gl_date := x_recvr_accrual_date;
4371: END IF;
4372:
4373: pa_debug.g_err_stage :='Recvr GL Date is -'||to_char(l_recvr_gl_date);
4374: IF(l_debug_mode = 'Y') THEN
4375: pa_debug.write_file(pa_debug.g_err_stage);
4376: END IF;
4377: pa_debug.g_err_stage :='Recvr GL Period is -'||l_recvr_gl_period_name;
4371: END IF;
4372:
4373: pa_debug.g_err_stage :='Recvr GL Date is -'||to_char(l_recvr_gl_date);
4374: IF(l_debug_mode = 'Y') THEN
4375: pa_debug.write_file(pa_debug.g_err_stage);
4376: END IF;
4377: pa_debug.g_err_stage :='Recvr GL Period is -'||l_recvr_gl_period_name;
4378: IF(l_debug_mode = 'Y') THEN
4379: pa_debug.write_file(pa_debug.g_err_stage);
4373: pa_debug.g_err_stage :='Recvr GL Date is -'||to_char(l_recvr_gl_date);
4374: IF(l_debug_mode = 'Y') THEN
4375: pa_debug.write_file(pa_debug.g_err_stage);
4376: END IF;
4377: pa_debug.g_err_stage :='Recvr GL Period is -'||l_recvr_gl_period_name;
4378: IF(l_debug_mode = 'Y') THEN
4379: pa_debug.write_file(pa_debug.g_err_stage);
4380: END IF;
4381:
4375: pa_debug.write_file(pa_debug.g_err_stage);
4376: END IF;
4377: pa_debug.g_err_stage :='Recvr GL Period is -'||l_recvr_gl_period_name;
4378: IF(l_debug_mode = 'Y') THEN
4379: pa_debug.write_file(pa_debug.g_err_stage);
4380: END IF;
4381:
4382: END IF; ----------------------p_prvdr_org_id = p_recvr_org_id------------------}
4383:
4391:
4392: l_prvdr_accrual_date := x_prvdr_gl_date;
4393: l_prvdr_gl_date := x_prvdr_gl_date;
4394:
4395: pa_debug.g_err_stage := 'Prvdr accrual Date for ORG EI Acct TRX -'||to_char(l_prvdr_accrual_date);
4396: IF(l_debug_mode = 'Y') THEN
4397: pa_debug.write_file(pa_debug.g_err_stage);
4398: END IF;
4399: pa_debug.g_err_stage := 'Prvdr GL Date for ORG EI Acct TRX -'||to_char(l_prvdr_gl_date);
4393: l_prvdr_gl_date := x_prvdr_gl_date;
4394:
4395: pa_debug.g_err_stage := 'Prvdr accrual Date for ORG EI Acct TRX -'||to_char(l_prvdr_accrual_date);
4396: IF(l_debug_mode = 'Y') THEN
4397: pa_debug.write_file(pa_debug.g_err_stage);
4398: END IF;
4399: pa_debug.g_err_stage := 'Prvdr GL Date for ORG EI Acct TRX -'||to_char(l_prvdr_gl_date);
4400: IF(l_debug_mode = 'Y') THEN
4401: pa_debug.write_file(pa_debug.g_err_stage);
4395: pa_debug.g_err_stage := 'Prvdr accrual Date for ORG EI Acct TRX -'||to_char(l_prvdr_accrual_date);
4396: IF(l_debug_mode = 'Y') THEN
4397: pa_debug.write_file(pa_debug.g_err_stage);
4398: END IF;
4399: pa_debug.g_err_stage := 'Prvdr GL Date for ORG EI Acct TRX -'||to_char(l_prvdr_gl_date);
4400: IF(l_debug_mode = 'Y') THEN
4401: pa_debug.write_file(pa_debug.g_err_stage);
4402: END IF;
4403: -- We need the Period name.
4397: pa_debug.write_file(pa_debug.g_err_stage);
4398: END IF;
4399: pa_debug.g_err_stage := 'Prvdr GL Date for ORG EI Acct TRX -'||to_char(l_prvdr_gl_date);
4400: IF(l_debug_mode = 'Y') THEN
4401: pa_debug.write_file(pa_debug.g_err_stage);
4402: END IF;
4403: -- We need the Period name.
4404: BEGIN
4405: pa_utils2.get_accrual_gl_dt_period( p_calling_module => p_calling_module
4417: END;
4418: --- GL Date may be in a closed period , we just need the period name.
4419: IF l_prvdr_gl_period_name IS NOT NULL AND x_error_code is NOT NULL THEN
4420:
4421: pa_debug.g_err_stage := 'Prvdr GL Period for ORG EI Acct TRX -'||l_prvdr_gl_period_name;
4422: IF(l_debug_mode = 'Y') THEN
4423: pa_debug.write_file(pa_debug.g_err_stage);
4424: END IF;
4425: x_return_status := NULL;
4419: IF l_prvdr_gl_period_name IS NOT NULL AND x_error_code is NOT NULL THEN
4420:
4421: pa_debug.g_err_stage := 'Prvdr GL Period for ORG EI Acct TRX -'||l_prvdr_gl_period_name;
4422: IF(l_debug_mode = 'Y') THEN
4423: pa_debug.write_file(pa_debug.g_err_stage);
4424: END IF;
4425: x_return_status := NULL;
4426: x_error_code := NULL;
4427: ELSIF x_error_code IS NOT NULL THEN
4425: x_return_status := NULL;
4426: x_error_code := NULL;
4427: ELSIF x_error_code IS NOT NULL THEN
4428:
4429: pa_debug.g_err_stage := 'Prvdr GL Period Not Found for ORG EI Acct TRX -';
4430: IF(l_debug_mode = 'Y') THEN
4431: pa_debug.write_file(pa_debug.g_err_stage);
4432: END IF;
4433: x_return_status := FND_API.G_RET_STS_ERROR;
4427: ELSIF x_error_code IS NOT NULL THEN
4428:
4429: pa_debug.g_err_stage := 'Prvdr GL Period Not Found for ORG EI Acct TRX -';
4430: IF(l_debug_mode = 'Y') THEN
4431: pa_debug.write_file(pa_debug.g_err_stage);
4432: END IF;
4433: x_return_status := FND_API.G_RET_STS_ERROR;
4434: x_error_code := 'PA_GL_PER_PRVDR_ACCR_CLOSED';
4435: return; -- Could not find the Period Name.
4483: END IF;
4484:
4485: l_prvdr_gl_date := l_prvdr_accrual_date; --- Accounted Rev Trx.
4486:
4487: pa_debug.g_err_stage := 'Prvdr GL/accrual Date for Rev EI Acct TRX -'||to_char(l_prvdr_accrual_date);
4488: IF(l_debug_mode = 'Y') THEN
4489: pa_debug.write_file(pa_debug.g_err_stage);
4490: END IF;
4491: pa_debug.g_err_stage := 'Prvdr GL Period for Rev EI Acct TRX -'||l_prvdr_gl_period_name;
4485: l_prvdr_gl_date := l_prvdr_accrual_date; --- Accounted Rev Trx.
4486:
4487: pa_debug.g_err_stage := 'Prvdr GL/accrual Date for Rev EI Acct TRX -'||to_char(l_prvdr_accrual_date);
4488: IF(l_debug_mode = 'Y') THEN
4489: pa_debug.write_file(pa_debug.g_err_stage);
4490: END IF;
4491: pa_debug.g_err_stage := 'Prvdr GL Period for Rev EI Acct TRX -'||l_prvdr_gl_period_name;
4492: IF(l_debug_mode = 'Y') THEN
4493: pa_debug.write_file(pa_debug.g_err_stage);
4487: pa_debug.g_err_stage := 'Prvdr GL/accrual Date for Rev EI Acct TRX -'||to_char(l_prvdr_accrual_date);
4488: IF(l_debug_mode = 'Y') THEN
4489: pa_debug.write_file(pa_debug.g_err_stage);
4490: END IF;
4491: pa_debug.g_err_stage := 'Prvdr GL Period for Rev EI Acct TRX -'||l_prvdr_gl_period_name;
4492: IF(l_debug_mode = 'Y') THEN
4493: pa_debug.write_file(pa_debug.g_err_stage);
4494: END IF;
4495: IF p_prvdr_org_id = p_recvr_org_id THEN -------------------------{
4489: pa_debug.write_file(pa_debug.g_err_stage);
4490: END IF;
4491: pa_debug.g_err_stage := 'Prvdr GL Period for Rev EI Acct TRX -'||l_prvdr_gl_period_name;
4492: IF(l_debug_mode = 'Y') THEN
4493: pa_debug.write_file(pa_debug.g_err_stage);
4494: END IF;
4495: IF p_prvdr_org_id = p_recvr_org_id THEN -------------------------{
4496:
4497: l_recvr_accrual_date := l_prvdr_accrual_date;
4497: l_recvr_accrual_date := l_prvdr_accrual_date;
4498: l_recvr_gl_date := l_recvr_accrual_date;
4499: l_recvr_gl_period_name := l_prvdr_gl_period_name;
4500:
4501: pa_debug.g_err_stage := 'Recvr is same as Prvdr GL/accrual Date for Rev EI Acct TRX ';
4502: IF(l_debug_mode = 'Y') THEN
4503: pa_debug.write_file(pa_debug.g_err_stage);
4504: END IF;
4505:
4499: l_recvr_gl_period_name := l_prvdr_gl_period_name;
4500:
4501: pa_debug.g_err_stage := 'Recvr is same as Prvdr GL/accrual Date for Rev EI Acct TRX ';
4502: IF(l_debug_mode = 'Y') THEN
4503: pa_debug.write_file(pa_debug.g_err_stage);
4504: END IF;
4505:
4506: ELSE
4507: l_recvr_accrual_date := pa_utils2.get_rev_accrual_date( p_calling_module => p_calling_module
4519: return;
4520: END IF;
4521: l_recvr_gl_date := l_recvr_accrual_date;
4522:
4523: pa_debug.g_err_stage := ':Recvr accrual Date for Rev EI Acct TRX -'||to_char(l_recvr_accrual_date);
4524: IF(l_debug_mode = 'Y') THEN
4525: pa_debug.write_file(pa_debug.g_err_stage);
4526: END IF;
4527:
4521: l_recvr_gl_date := l_recvr_accrual_date;
4522:
4523: pa_debug.g_err_stage := ':Recvr accrual Date for Rev EI Acct TRX -'||to_char(l_recvr_accrual_date);
4524: IF(l_debug_mode = 'Y') THEN
4525: pa_debug.write_file(pa_debug.g_err_stage);
4526: END IF;
4527:
4528: END IF; ---------------p_prvdr_org_id = p_recvr_org_id-------------}
4529: END IF; ------------------p_adj_ei_id IS NULL---------------------------------------}
4539: x_recvr_gl_period_name := l_recvr_gl_period_name;
4540:
4541: -- Deriving PA periods
4542:
4543: pa_debug.g_err_stage := 'Deriving the PA Dates';
4544: IF(l_debug_mode = 'Y') THEN
4545: pa_debug.write_file(pa_debug.g_err_stage);
4546: END IF;
4547:
4541: -- Deriving PA periods
4542:
4543: pa_debug.g_err_stage := 'Deriving the PA Dates';
4544: IF(l_debug_mode = 'Y') THEN
4545: pa_debug.write_file(pa_debug.g_err_stage);
4546: END IF;
4547:
4548: IF p_adj_ei_id IS NULL THEN ------------ORG EI-------------------------{
4549:
4564: IF x_error_code IS NOT NULL THEN
4565: return;
4566: END IF;
4567:
4568: pa_debug.g_err_stage := 'Prvdr PA Date -'||to_char(l_prvdr_pa_date);
4569: IF(l_debug_mode = 'Y') THEN
4570: pa_debug.write_file(pa_debug.g_err_stage);
4571: END IF;
4572: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4566: END IF;
4567:
4568: pa_debug.g_err_stage := 'Prvdr PA Date -'||to_char(l_prvdr_pa_date);
4569: IF(l_debug_mode = 'Y') THEN
4570: pa_debug.write_file(pa_debug.g_err_stage);
4571: END IF;
4572: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4573: IF(l_debug_mode = 'Y') THEN
4574: pa_debug.write_file(pa_debug.g_err_stage);
4568: pa_debug.g_err_stage := 'Prvdr PA Date -'||to_char(l_prvdr_pa_date);
4569: IF(l_debug_mode = 'Y') THEN
4570: pa_debug.write_file(pa_debug.g_err_stage);
4571: END IF;
4572: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4573: IF(l_debug_mode = 'Y') THEN
4574: pa_debug.write_file(pa_debug.g_err_stage);
4575: END IF;
4576: IF p_prvdr_org_id = p_recvr_org_id THEN
4570: pa_debug.write_file(pa_debug.g_err_stage);
4571: END IF;
4572: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4573: IF(l_debug_mode = 'Y') THEN
4574: pa_debug.write_file(pa_debug.g_err_stage);
4575: END IF;
4576: IF p_prvdr_org_id = p_recvr_org_id THEN
4577: l_recvr_pa_date := l_prvdr_pa_date;
4578: l_recvr_pa_period_name := l_prvdr_pa_period_name;
4576: IF p_prvdr_org_id = p_recvr_org_id THEN
4577: l_recvr_pa_date := l_prvdr_pa_date;
4578: l_recvr_pa_period_name := l_prvdr_pa_period_name;
4579:
4580: pa_debug.g_err_stage :='Prvdr PA Derivation = Recvr PA Derivation ORG EI ';
4581: IF(l_debug_mode = 'Y') THEN
4582: pa_debug.write_file(pa_debug.g_err_stage);
4583: END IF;
4584: ELSE
4578: l_recvr_pa_period_name := l_prvdr_pa_period_name;
4579:
4580: pa_debug.g_err_stage :='Prvdr PA Derivation = Recvr PA Derivation ORG EI ';
4581: IF(l_debug_mode = 'Y') THEN
4582: pa_debug.write_file(pa_debug.g_err_stage);
4583: END IF;
4584: ELSE
4585: --- Derive the org recvr pa date and pa period.
4586: BEGIN
4599: IF x_error_code IS NOT NULL THEN
4600: return;
4601: END IF;
4602:
4603: pa_debug.g_err_stage := 'Recvr PA Date -'||to_char(l_recvr_pa_date);
4604: IF(l_debug_mode = 'Y') THEN
4605: pa_debug.write_file(pa_debug.g_err_stage);
4606: END IF;
4607: pa_debug.g_err_stage := 'Recvr PA Period Name -'||l_recvr_pa_period_name;
4601: END IF;
4602:
4603: pa_debug.g_err_stage := 'Recvr PA Date -'||to_char(l_recvr_pa_date);
4604: IF(l_debug_mode = 'Y') THEN
4605: pa_debug.write_file(pa_debug.g_err_stage);
4606: END IF;
4607: pa_debug.g_err_stage := 'Recvr PA Period Name -'||l_recvr_pa_period_name;
4608: IF(l_debug_mode = 'Y') THEN
4609: pa_debug.write_file(pa_debug.g_err_stage);
4603: pa_debug.g_err_stage := 'Recvr PA Date -'||to_char(l_recvr_pa_date);
4604: IF(l_debug_mode = 'Y') THEN
4605: pa_debug.write_file(pa_debug.g_err_stage);
4606: END IF;
4607: pa_debug.g_err_stage := 'Recvr PA Period Name -'||l_recvr_pa_period_name;
4608: IF(l_debug_mode = 'Y') THEN
4609: pa_debug.write_file(pa_debug.g_err_stage);
4610: END IF;
4611: END IF;
4605: pa_debug.write_file(pa_debug.g_err_stage);
4606: END IF;
4607: pa_debug.g_err_stage := 'Recvr PA Period Name -'||l_recvr_pa_period_name;
4608: IF(l_debug_mode = 'Y') THEN
4609: pa_debug.write_file(pa_debug.g_err_stage);
4610: END IF;
4611: END IF;
4612:
4613: ELSE -------------------------REV ITEM-----------------------
4611: END IF;
4612:
4613: ELSE -------------------------REV ITEM-----------------------
4614:
4615: pa_debug.g_err_stage := 'Deriving the PA Dates for REV EI';
4616: IF(l_debug_mode = 'Y') THEN
4617: pa_debug.write_file(pa_debug.g_err_stage);
4618: END IF;
4619: ----For Prvdr
4613: ELSE -------------------------REV ITEM-----------------------
4614:
4615: pa_debug.g_err_stage := 'Deriving the PA Dates for REV EI';
4616: IF(l_debug_mode = 'Y') THEN
4617: pa_debug.write_file(pa_debug.g_err_stage);
4618: END IF;
4619: ----For Prvdr
4620: BEGIN
4621: --- Derive the org prvdr pa date and pa period.
4634: IF x_error_code IS NOT NULL THEN
4635: return;
4636: END IF;
4637:
4638: pa_debug.g_err_stage := 'Prvdr PA Date -'||to_char(l_prvdr_pa_date);
4639: IF(l_debug_mode = 'Y') THEN
4640: pa_debug.write_file(pa_debug.g_err_stage);
4641: END IF;
4642: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4636: END IF;
4637:
4638: pa_debug.g_err_stage := 'Prvdr PA Date -'||to_char(l_prvdr_pa_date);
4639: IF(l_debug_mode = 'Y') THEN
4640: pa_debug.write_file(pa_debug.g_err_stage);
4641: END IF;
4642: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4643: IF(l_debug_mode = 'Y') THEN
4644: pa_debug.write_file(pa_debug.g_err_stage);
4638: pa_debug.g_err_stage := 'Prvdr PA Date -'||to_char(l_prvdr_pa_date);
4639: IF(l_debug_mode = 'Y') THEN
4640: pa_debug.write_file(pa_debug.g_err_stage);
4641: END IF;
4642: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4643: IF(l_debug_mode = 'Y') THEN
4644: pa_debug.write_file(pa_debug.g_err_stage);
4645: END IF;
4646:
4640: pa_debug.write_file(pa_debug.g_err_stage);
4641: END IF;
4642: pa_debug.g_err_stage :='Prvdr PA Period Name -'||l_prvdr_pa_period_name;
4643: IF(l_debug_mode = 'Y') THEN
4644: pa_debug.write_file(pa_debug.g_err_stage);
4645: END IF;
4646:
4647: ----For Recvr
4648: IF p_prvdr_org_id = p_recvr_org_id THEN
4648: IF p_prvdr_org_id = p_recvr_org_id THEN
4649: l_recvr_pa_date := l_prvdr_pa_date;
4650: l_recvr_pa_period_name :=l_prvdr_pa_period_name ;
4651:
4652: pa_debug.g_err_stage :='Prvdr PA Derivation = Recvr PA Derivation REV EI ';
4653: IF(l_debug_mode = 'Y') THEN
4654: pa_debug.write_file(pa_debug.g_err_stage);
4655: END IF;
4656: ELSE
4650: l_recvr_pa_period_name :=l_prvdr_pa_period_name ;
4651:
4652: pa_debug.g_err_stage :='Prvdr PA Derivation = Recvr PA Derivation REV EI ';
4653: IF(l_debug_mode = 'Y') THEN
4654: pa_debug.write_file(pa_debug.g_err_stage);
4655: END IF;
4656: ELSE
4657: --- Derive the org recvr pa date and pa period.
4658: BEGIN
4673: END IF;
4674:
4675: END IF;
4676:
4677: pa_debug.g_err_stage := 'Recvr PA Date -'||to_char(l_recvr_pa_date);
4678: IF(l_debug_mode = 'Y') THEN
4679: pa_debug.write_file(pa_debug.g_err_stage);
4680: END IF;
4681: pa_debug.g_err_stage :='Recvr PA Period Name -'||l_recvr_pa_period_name;
4675: END IF;
4676:
4677: pa_debug.g_err_stage := 'Recvr PA Date -'||to_char(l_recvr_pa_date);
4678: IF(l_debug_mode = 'Y') THEN
4679: pa_debug.write_file(pa_debug.g_err_stage);
4680: END IF;
4681: pa_debug.g_err_stage :='Recvr PA Period Name -'||l_recvr_pa_period_name;
4682: IF(l_debug_mode = 'Y') THEN
4683: pa_debug.write_file(pa_debug.g_err_stage);
4677: pa_debug.g_err_stage := 'Recvr PA Date -'||to_char(l_recvr_pa_date);
4678: IF(l_debug_mode = 'Y') THEN
4679: pa_debug.write_file(pa_debug.g_err_stage);
4680: END IF;
4681: pa_debug.g_err_stage :='Recvr PA Period Name -'||l_recvr_pa_period_name;
4682: IF(l_debug_mode = 'Y') THEN
4683: pa_debug.write_file(pa_debug.g_err_stage);
4684: END IF;
4685:
4679: pa_debug.write_file(pa_debug.g_err_stage);
4680: END IF;
4681: pa_debug.g_err_stage :='Recvr PA Period Name -'||l_recvr_pa_period_name;
4682: IF(l_debug_mode = 'Y') THEN
4683: pa_debug.write_file(pa_debug.g_err_stage);
4684: END IF;
4685:
4686: END IF; ---------------ORG EI--------------------------------------------}
4687: ---Assign the out parameters.
4690: x_recvr_pa_date := l_recvr_pa_date;
4691: x_recvr_pa_period_name := l_recvr_pa_period_name;
4692: END IF; -----------p_calling_module = 'CDL' AND NVL(p_acct_flag,'N') = 'Y'------------------------}
4693:
4694: pa_debug.g_err_stage :='x_prvdr_accr_date is [' || to_char(x_prvdr_accrual_date) ||
4695: '] x_recvr_accr_date is ['|| to_char(x_recvr_accrual_date) || ']';
4696: IF(l_debug_mode = 'Y') THEN
4697: pa_debug.write_file(pa_debug.g_err_stage);
4698: END IF;
4693:
4694: pa_debug.g_err_stage :='x_prvdr_accr_date is [' || to_char(x_prvdr_accrual_date) ||
4695: '] x_recvr_accr_date is ['|| to_char(x_recvr_accrual_date) || ']';
4696: IF(l_debug_mode = 'Y') THEN
4697: pa_debug.write_file(pa_debug.g_err_stage);
4698: END IF;
4699:
4700: pa_debug.g_err_stage :='x_prvdr_pa_date is [' || to_char(x_prvdr_pa_date) ||
4701: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
4696: IF(l_debug_mode = 'Y') THEN
4697: pa_debug.write_file(pa_debug.g_err_stage);
4698: END IF;
4699:
4700: pa_debug.g_err_stage :='x_prvdr_pa_date is [' || to_char(x_prvdr_pa_date) ||
4701: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
4702: IF(l_debug_mode = 'Y') THEN
4703: pa_debug.write_file(pa_debug.g_err_stage);
4704: END IF;
4699:
4700: pa_debug.g_err_stage :='x_prvdr_pa_date is [' || to_char(x_prvdr_pa_date) ||
4701: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
4702: IF(l_debug_mode = 'Y') THEN
4703: pa_debug.write_file(pa_debug.g_err_stage);
4704: END IF;
4705: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
4706: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
4707: IF(l_debug_mode = 'Y') THEN
4701: '] x_prvdr_pa_period_name is ['|| x_prvdr_pa_period_name || ']';
4702: IF(l_debug_mode = 'Y') THEN
4703: pa_debug.write_file(pa_debug.g_err_stage);
4704: END IF;
4705: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
4706: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
4707: IF(l_debug_mode = 'Y') THEN
4708: pa_debug.write_file(pa_debug.g_err_stage);
4709: END IF;
4704: END IF;
4705: pa_debug.g_err_stage :='x_prvdr_gl_date is [' || to_char(x_prvdr_gl_date) ||
4706: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
4707: IF(l_debug_mode = 'Y') THEN
4708: pa_debug.write_file(pa_debug.g_err_stage);
4709: END IF;
4710: pa_debug.g_err_stage :='x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
4711: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
4712: IF(l_debug_mode = 'Y') THEN
4706: '] x_prvdr_gl_period_name is ['|| x_prvdr_gl_period_name || ']';
4707: IF(l_debug_mode = 'Y') THEN
4708: pa_debug.write_file(pa_debug.g_err_stage);
4709: END IF;
4710: pa_debug.g_err_stage :='x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
4711: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
4712: IF(l_debug_mode = 'Y') THEN
4713: pa_debug.write_file(pa_debug.g_err_stage);
4714: END IF;
4709: END IF;
4710: pa_debug.g_err_stage :='x_recvr_pa_date is [' || to_char(x_recvr_pa_date) ||
4711: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
4712: IF(l_debug_mode = 'Y') THEN
4713: pa_debug.write_file(pa_debug.g_err_stage);
4714: END IF;
4715: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
4716: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
4717: IF(l_debug_mode = 'Y') THEN
4711: '] x_recvr_pa_period_name is ['|| x_recvr_pa_period_name || ']';
4712: IF(l_debug_mode = 'Y') THEN
4713: pa_debug.write_file(pa_debug.g_err_stage);
4714: END IF;
4715: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
4716: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
4717: IF(l_debug_mode = 'Y') THEN
4718: pa_debug.write_file(pa_debug.g_err_stage);
4719: END IF;
4714: END IF;
4715: pa_debug.g_err_stage :='x_recvr_gl_date is [' || to_char(x_recvr_gl_date) ||
4716: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
4717: IF(l_debug_mode = 'Y') THEN
4718: pa_debug.write_file(pa_debug.g_err_stage);
4719: END IF;
4720: pa_debug.g_err_stage :=' x_error_code is [' || x_error_code || ']';
4721: IF(l_debug_mode = 'Y') THEN
4722: pa_debug.write_file(pa_debug.g_err_stage);
4716: '] x_recvr_gl_period_name is ['|| x_recvr_gl_period_name || ']';
4717: IF(l_debug_mode = 'Y') THEN
4718: pa_debug.write_file(pa_debug.g_err_stage);
4719: END IF;
4720: pa_debug.g_err_stage :=' x_error_code is [' || x_error_code || ']';
4721: IF(l_debug_mode = 'Y') THEN
4722: pa_debug.write_file(pa_debug.g_err_stage);
4723: END IF;
4724:
4718: pa_debug.write_file(pa_debug.g_err_stage);
4719: END IF;
4720: pa_debug.g_err_stage :=' x_error_code is [' || x_error_code || ']';
4721: IF(l_debug_mode = 'Y') THEN
4722: pa_debug.write_file(pa_debug.g_err_stage);
4723: END IF;
4724:
4725: x_return_status := FND_API.G_RET_STS_SUCCESS;
4726: pa_debug.reset_err_stack;
4722: pa_debug.write_file(pa_debug.g_err_stage);
4723: END IF;
4724:
4725: x_return_status := FND_API.G_RET_STS_SUCCESS;
4726: pa_debug.reset_err_stack;
4727:
4728: EXCEPTION
4729: WHEN NO_DATA_FOUND THEN
4730: RAISE;
5025: l_application_id NUMBER := NULL ;
5026:
5027: BEGIN
5028:
5029: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Entering procedure');
5030:
5031: /* Changed from value_specific to value for bug 5472333 */
5032: l_epp_flag := fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') ;
5033:
5030:
5031: /* Changed from value_specific to value for bug 5472333 */
5032: l_epp_flag := fnd_profile.value('PA_EN_NEW_GLDATE_DERIVATION') ;
5033:
5034: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: EPP Flag status: ' || l_epp_flag);
5035:
5036: l_application_id := l_gl_app_id ;
5037:
5038: SELECT imp.set_of_books_id
5038: SELECT imp.set_of_books_id
5039: INTO l_set_of_books_id
5040: FROM pa_implementations imp;
5041:
5042: 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) || ')' );
5043:
5044: ---Initialize the out variables.
5045: x_gl_period_name := NULL;
5046: x_gl_dt := NULL;
5046: x_gl_dt := NULL;
5047: x_return_status := 0;
5048: x_error_code := NULL;
5049:
5050: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Trying reference_date with cached start and end date values' );
5051:
5052: IF ((trunc(p_reference_date) BETWEEN g_gl_dt_period_str_dt AND g_gl_dt_period_end_dt )
5053: AND g_gl_dt_period_str_dt IS NOT NULL) THEN
5054:
5051:
5052: IF ((trunc(p_reference_date) BETWEEN g_gl_dt_period_str_dt AND g_gl_dt_period_end_dt )
5053: AND g_gl_dt_period_str_dt IS NOT NULL) THEN
5054:
5055: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Using cached values' );
5056:
5057: ---From Cache
5058: IF l_epp_flag = 'Y' THEN
5059: l_gl_dt := p_reference_date;
5064: --Assign the out variables.
5065: x_gl_dt := l_gl_dt ;
5066: x_gl_period_name := g_gl_dt_period_name;
5067:
5068: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Leaving procedure');
5069:
5070: return;
5071:
5072: END IF;
5072: END IF;
5073:
5074: --- Either the cache is empty or the reference date is not in the range.
5075:
5076: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Cache values empty/reference date not between cached start and end date values' );
5077:
5078: BEGIN
5079:
5080: SELECT PERIOD.period_name,PERIOD.start_date,PERIOD.end_date,PERIOD.closing_status
5092:
5093: return;
5094: WHEN OTHERS THEN
5095: x_return_status := -1;
5096: x_error_stage := 'PA_UTILS2.GET_GL_PERIOD:: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
5097:
5098: raise;
5099: END;
5100:
5104: ELSE
5105: l_gl_dt := l_gl_period_end_dt;
5106: END IF;
5107:
5108: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Checking for period status' );
5109:
5110: --Checking for period status.
5111: IF l_period_status NOT IN ('O','F') THEN
5112:
5109:
5110: --Checking for period status.
5111: IF l_period_status NOT IN ('O','F') THEN
5112:
5113: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Period is closed' );
5114:
5115: IF l_epp_flag = 'N' THEN
5116:
5117: pa_debug.g_err_stage := 'EPP = N, Querying next open period'; /* Added Code for Bug 6139975 */
5113: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Period is closed' );
5114:
5115: IF l_epp_flag = 'N' THEN
5116:
5117: pa_debug.g_err_stage := 'EPP = N, Querying next open period'; /* Added Code for Bug 6139975 */
5118:
5119: SELECT PERIOD.start_date,
5120: PERIOD.end_date,
5121: PERIOD.end_date,
5148: AND PERIOD2.set_of_books_id = l_set_of_books_id ))
5149: AND PERIOD.End_Date >= TRUNC(p_reference_date)
5150: AND PERIOD.set_of_books_id = l_set_of_books_id ;
5151:
5152: pa_debug.g_err_stage := 'EPP = N, Fetched next open period'; /* Added Code for Bug 6139975 */
5153:
5154: ELSE
5155:
5156: pa_debug.g_err_stage := 'EPP = Y, Querying next open period'; /* Added Code for Bug 6139975 */
5152: pa_debug.g_err_stage := 'EPP = N, Fetched next open period'; /* Added Code for Bug 6139975 */
5153:
5154: ELSE
5155:
5156: pa_debug.g_err_stage := 'EPP = Y, Querying next open period'; /* Added Code for Bug 6139975 */
5157:
5158: SELECT PERIOD.start_date,
5159: PERIOD.start_date,
5160: PERIOD.end_date,
5186: AND PERIOD2.application_id = l_application_id
5187: AND PERIOD2.set_of_books_id = l_set_of_books_id ))
5188: AND PERIOD.Start_Date > TRUNC(p_reference_date);
5189:
5190: pa_debug.g_err_stage := 'EPP = Y, Fetched next open period'; /* Added Code for Bug 6139975 */
5191:
5192: END IF;
5193:
5194: END IF;
5192: END IF;
5193:
5194: END IF;
5195:
5196: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Caching dates' );
5197:
5198: g_gl_dt_period_name := l_gl_period_name;
5199: g_gl_dt_period_str_dt := l_gl_period_st_dt ;
5200: g_gl_dt_period_end_dt := l_gl_period_end_dt;
5201:
5202: x_gl_dt := l_gl_dt ;
5203: x_gl_period_name := l_gl_period_name ;
5204:
5205: pa_debug.write_file('PA_UTILS2.GET_GL_PERIOD: Leaving procedure');
5206:
5207: EXCEPTION
5208:
5209: /* Start of code added for Bug 6139975 */
5210:
5211: WHEN NO_DATA_FOUND THEN
5212: x_return_status := -1;
5213: x_error_code := 'NO_GL_DATE';
5214: x_error_stage := 'PA_UTILS2.GET_GL_PERIOD:: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
5215:
5216: return;
5217:
5218: /* End of code added for Bug 6139975 */
5218: /* End of code added for Bug 6139975 */
5219:
5220: WHEN OTHERS THEN
5221: x_return_status := -1;
5222: x_error_stage := 'PA_UTILS2.GET_GL_PERIOD:: ' || pa_debug.g_err_stage ||':: '|| SQLERRM;
5223:
5224: raise;
5225: END get_gl_dt_period ;
5226: