204: x_retval := fnd_concurrent.set_completion_status('ERROR',NULL);
205: END IF;
206: COMMIT;
207:
208: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
209: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,C_MODULE||'.end','Cost Allocation process completed successfully');
210: END IF;
211:
212: EXCEPTION
205: END IF;
206: COMMIT;
207:
208: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
209: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,C_MODULE||'.end','Cost Allocation process completed successfully');
210: END IF;
211:
212: EXCEPTION
213: WHEN utl_file.invalid_path THEN
282: )
283: IS
284: l_local_module VARCHAR2(80) := '.delete_allocations';
285: BEGIN
286: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
287: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,c_module||l_local_module||'.begin','Deleting Allocations');
288: END IF;
289: /* Bug 7458002 - Commented
290: DELETE FROM
283: IS
284: l_local_module VARCHAR2(80) := '.delete_allocations';
285: BEGIN
286: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
287: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,c_module||l_local_module||'.begin','Deleting Allocations');
288: END IF;
289: /* Bug 7458002 - Commented
290: DELETE FROM
291: gl_aloc_dtl
317: );
318:
319: alloc_log_msg( C_LOG_FILE, TO_CHAR(SQL%ROWCOUNT) || ' Rows deleted from Allocations table gl_aloc_dtl' );
320:
321: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
322: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,c_module||l_local_module||'.end','Deleting Allocations');
323: END IF;
324:
325: EXCEPTION
318:
319: alloc_log_msg( C_LOG_FILE, TO_CHAR(SQL%ROWCOUNT) || ' Rows deleted from Allocations table gl_aloc_dtl' );
320:
321: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
322: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,c_module||l_local_module||'.end','Deleting Allocations');
323: END IF;
324:
325: EXCEPTION
326: WHEN NO_DATA_FOUND THEN
325: EXCEPTION
326: WHEN NO_DATA_FOUND THEN
327: alloc_log_msg(C_LOG_FILE, '0 Rows deleted from gl_aloc_dtl ');
328: v_status := 0;
329: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
330: THEN
331: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,c_module||l_local_module,'0 Rows deleted from gl_aloc_dtl');
332: END IF;
333:
327: alloc_log_msg(C_LOG_FILE, '0 Rows deleted from gl_aloc_dtl ');
328: v_status := 0;
329: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
330: THEN
331: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,c_module||l_local_module,'0 Rows deleted from gl_aloc_dtl');
332: END IF;
333:
334: WHEN OTHERS THEN
335: alloc_log_msg(C_LOG_FILE, to_char(SQLCODE) || ' ' || SQLERRM);
332: END IF;
333:
334: WHEN OTHERS THEN
335: alloc_log_msg(C_LOG_FILE, to_char(SQLCODE) || ' ' || SQLERRM);
336: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
337: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,c_module||l_local_module,to_char(SQLCODE) || ' ' || SQLERRM);
338: END IF;
339: v_status := -1;
340:
333:
334: WHEN OTHERS THEN
335: alloc_log_msg(C_LOG_FILE, to_char(SQLCODE) || ' ' || SQLERRM);
336: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
337: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,c_module||l_local_module,to_char(SQLCODE) || ' ' || SQLERRM);
338: END IF;
339: v_status := -1;
340:
341: END delete_allocations;
404: l_local_module VARCHAR2(80);
405: BEGIN
406: l_local_module := c_module||'.get_legal_entity_details';
407:
408: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
409: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_local_module||'.begin','Starting');
410: END IF;
411:
412:
405: BEGIN
406: l_local_module := c_module||'.get_legal_entity_details';
407:
408: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
409: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_local_module||'.begin','Starting');
410: END IF;
411:
412:
413: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
409: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_local_module||'.begin','Starting');
410: END IF;
411:
412:
413: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
414: THEN
415: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,l_local_module,'Retrieving Legal Entity information for calendar: '|| g_calendar_code ||' and Period: '||g_period_code);
416: END IF;
417:
411:
412:
413: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
414: THEN
415: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,l_local_module,'Retrieving Legal Entity information for calendar: '|| g_calendar_code ||' and Period: '||g_period_code);
416: END IF;
417:
418: OPEN Cur_get_le(g_period_id);
419: FETCH Cur_get_le INTO x_le_id,g_le_name;
419: FETCH Cur_get_le INTO x_le_id,g_le_name;
420: IF (Cur_get_le%NOTFOUND) THEN
421: CLOSE Cur_get_le;
422:
423: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
424: THEN
425: /*alloc_log_msg(2, 'No legal entity exists for cost calendar: ' ||g_calendar_code);*/
426: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,l_local_module,'No legal entity exists for cost calendar: ' ||g_calendar_code ||' and Period: '||g_period_code);
427: END IF;
422:
423: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
424: THEN
425: /*alloc_log_msg(2, 'No legal entity exists for cost calendar: ' ||g_calendar_code);*/
426: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,l_local_module,'No legal entity exists for cost calendar: ' ||g_calendar_code ||' and Period: '||g_period_code);
427: END IF;
428: RETURN(-1); /* No calendar exists.*/
429: END IF;
430: CLOSE Cur_get_le;
429: END IF;
430: CLOSE Cur_get_le;
431:
432: /* Fetch the fiscal policy information for the company retrieved */
433: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
434: THEN
435: /*alloc_log_msg( 2,'Retrieving Fiscal policy for legal entity: ' ||g_le_name );*/
436: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,l_local_module,'Retrieving Fiscal policy for legal entity: ' ||g_le_name);
437: END IF;
432: /* Fetch the fiscal policy information for the company retrieved */
433: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
434: THEN
435: /*alloc_log_msg( 2,'Retrieving Fiscal policy for legal entity: ' ||g_le_name );*/
436: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,l_local_module,'Retrieving Fiscal policy for legal entity: ' ||g_le_name);
437: END IF;
438:
439: OPEN Cur_get_fiscal_plcy(X_le_id);
440: FETCH Cur_get_fiscal_plcy INTO P_fiscal_plcy;
439: OPEN Cur_get_fiscal_plcy(X_le_id);
440: FETCH Cur_get_fiscal_plcy INTO P_fiscal_plcy;
441: IF (Cur_get_fiscal_plcy%NOTFOUND) THEN
442: CLOSE Cur_get_fiscal_plcy;
443: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
444: THEN
445: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,l_local_module,'Retrieving Fiscal policy for legal entity: ' ||g_le_name);
446: END IF;
447: alloc_log_msg(C_LOG_FILE, 'No fiscal policy is defined for legal_entity ' || g_le_name);
441: IF (Cur_get_fiscal_plcy%NOTFOUND) THEN
442: CLOSE Cur_get_fiscal_plcy;
443: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
444: THEN
445: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,l_local_module,'Retrieving Fiscal policy for legal entity: ' ||g_le_name);
446: END IF;
447: alloc_log_msg(C_LOG_FILE, 'No fiscal policy is defined for legal_entity ' || g_le_name);
448: RETURN(-2); /* No fiscal policy is defined for this company.*/
449: END IF;
463: */
464:
465: alloc_log_msg( C_LOG_FILE, 'Retrieved Fiscal Policy Details successfully' );
466:
467: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
468: THEN
469: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_local_module||'.end','Retrieved discal policy details successfully');
470: END IF;
471: RETURN(0);
465: alloc_log_msg( C_LOG_FILE, 'Retrieved Fiscal Policy Details successfully' );
466:
467: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
468: THEN
469: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_local_module||'.end','Retrieved discal policy details successfully');
470: END IF;
471: RETURN(0);
472: END get_legal_entity_details;
473:
497:
498: PROCEDURE delete_interface(v_status OUT NOCOPY NUMBER) IS
499: l_local_module VARCHAR2(80) := '.delete_interface';
500: BEGIN
501: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
502: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,c_module||l_local_module||'.begin','Delete interface');
503: END IF;
504:
505: alloc_log_msg(C_LOG_FILE, 'Deleting rows from gl_aloc_inp for calendar '||
498: PROCEDURE delete_interface(v_status OUT NOCOPY NUMBER) IS
499: l_local_module VARCHAR2(80) := '.delete_interface';
500: BEGIN
501: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
502: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,c_module||l_local_module||'.begin','Delete interface');
503: END IF;
504:
505: alloc_log_msg(C_LOG_FILE, 'Deleting rows from gl_aloc_inp for calendar '||
506: g_calendar_code||' and period '||g_period_code || ' and cost type '||g_cost_mthd_code);
513: v_status :=0;
514:
515: alloc_log_msg( C_LOG_FILE, TO_CHAR(SQL%ROWCOUNT) || ' Rows deleted from Interface table gl_aloc_inp' );
516:
517: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
518: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,c_module||l_local_module||'.end','Delete interface');
519: END IF;
520:
521: EXCEPTION
514:
515: alloc_log_msg( C_LOG_FILE, TO_CHAR(SQL%ROWCOUNT) || ' Rows deleted from Interface table gl_aloc_inp' );
516:
517: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
518: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,c_module||l_local_module||'.end','Delete interface');
519: END IF;
520:
521: EXCEPTION
522:
588: BEGIN
589: l_previous_module := g_calling_module;
590: g_calling_module := g_calling_module||l_local_module;
591:
592: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
593: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||'.begin','Allocating Cost');
594: END IF;
595:
596: /* B1418787 List out all the allocation codes that exceed 100% */
589: l_previous_module := g_calling_module;
590: g_calling_module := g_calling_module||l_local_module;
591:
592: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
593: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||'.begin','Allocating Cost');
594: END IF;
595:
596: /* B1418787 List out all the allocation codes that exceed 100% */
597: alloc_log_msg( C_LOG_FILE, 'Following allocation codes will be ignored as the total percentage does not equal 100.');
602: FOR cur_alloc_fixed_invalid_tmp IN cur_alloc_fixed_invalid LOOP
603: alloc_log_msg( C_LOG_FILE, rpad(cur_alloc_fixed_invalid_tmp.alloc_code, 15, ' ') || ' - ' ||rpad(cur_alloc_fixed_invalid_tmp.total_percentage, 16, ' '));
604: END LOOP;
605: /* Bug 7458002 - Commented
606: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
607: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,g_calling_module||'.delete_allocations','deleting Allocations ...');
608: END IF;
609: delete_allocations(v_from_alloc_code, v_to_alloc_code, x_status);
610:
603: alloc_log_msg( C_LOG_FILE, rpad(cur_alloc_fixed_invalid_tmp.alloc_code, 15, ' ') || ' - ' ||rpad(cur_alloc_fixed_invalid_tmp.total_percentage, 16, ' '));
604: END LOOP;
605: /* Bug 7458002 - Commented
606: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
607: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,g_calling_module||'.delete_allocations','deleting Allocations ...');
608: END IF;
609: delete_allocations(v_from_alloc_code, v_to_alloc_code, x_status);
610:
611: IF (x_status < 0)
615: END IF;*/
616:
617: IF (v_refresh_interface = 1)
618: THEN
619: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
620: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,g_calling_module||'.delete_interface','deleting Interface data...');
621: END IF;
622:
623: delete_interface(x_status);
616:
617: IF (v_refresh_interface = 1)
618: THEN
619: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
620: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,g_calling_module||'.delete_interface','deleting Interface data...');
621: END IF;
622:
623: delete_interface(x_status);
624: IF (x_status < 0)
627: return;
628: END IF;
629: alloc_log_msg( C_LOG_FILE, 'Retrieving Expenses ...');
630:
631: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
632: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,g_calling_module||'.get_expenses','Retrieving Expenses ....');
633: END IF;
634: get_expenses(v_from_alloc_code, v_to_alloc_code);
635:
628: END IF;
629: alloc_log_msg( C_LOG_FILE, 'Retrieving Expenses ...');
630:
631: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
632: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,g_calling_module||'.get_expenses','Retrieving Expenses ....');
633: END IF;
634: get_expenses(v_from_alloc_code, v_to_alloc_code);
635:
636: g_calling_module := l_previous_module||l_local_module;
634: get_expenses(v_from_alloc_code, v_to_alloc_code);
635:
636: g_calling_module := l_previous_module||l_local_module;
637:
638: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
639: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,g_calling_module||'.get_alloc_basis','Retrieving Basis Information ....');
640: END IF;
641: alloc_log_msg( C_LOG_FILE, 'Retrieving Basis Information ...');
642: get_alloc_basis(v_from_alloc_code, v_to_alloc_code);
635:
636: g_calling_module := l_previous_module||l_local_module;
637:
638: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
639: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,g_calling_module||'.get_alloc_basis','Retrieving Basis Information ....');
640: END IF;
641: alloc_log_msg( C_LOG_FILE, 'Retrieving Basis Information ...');
642: get_alloc_basis(v_from_alloc_code, v_to_alloc_code);
643: g_calling_module := l_previous_module||l_local_module;
645: /* Do not refresh the interface */
646:
647: alloc_log_msg( C_LOG_FILE, 'Processing Fixed Precentage Information ...');
648:
649: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
650: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,g_calling_module||'.refresh_fixed','Processing Fixed Percentage Information ....');
651: END IF;
652: refresh_fixed(v_from_alloc_code,v_to_alloc_code);
653: g_calling_module := l_previous_module||l_local_module;
646:
647: alloc_log_msg( C_LOG_FILE, 'Processing Fixed Precentage Information ...');
648:
649: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
650: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,g_calling_module||'.refresh_fixed','Processing Fixed Percentage Information ....');
651: END IF;
652: refresh_fixed(v_from_alloc_code,v_to_alloc_code);
653: g_calling_module := l_previous_module||l_local_module;
654: END IF;
652: refresh_fixed(v_from_alloc_code,v_to_alloc_code);
653: g_calling_module := l_previous_module||l_local_module;
654: END IF;
655:
656: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
657: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,g_calling_module||'.process_alloc_dtl','Allocating Expenses ...');
658: END IF;
659:
660: alloc_log_msg( C_LOG_FILE, 'Allocating Expenses ...');
653: g_calling_module := l_previous_module||l_local_module;
654: END IF;
655:
656: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
657: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,g_calling_module||'.process_alloc_dtl','Allocating Expenses ...');
658: END IF;
659:
660: alloc_log_msg( C_LOG_FILE, 'Allocating Expenses ...');
661: process_alloc_dtl(v_from_alloc_code,v_to_alloc_code);
666:
667: EXCEPTION
668: WHEN others THEN
669: alloc_log_msg( C_LOG_FILE, to_char(SQLCODE) || ' ' || SQLERRM);
670: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
671: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,g_calling_module,to_char(SQLCODE) || ' ' || SQLERRM);
672: END IF;
673: v_status := -1;
674: END cost_allocate;
667: EXCEPTION
668: WHEN others THEN
669: alloc_log_msg( C_LOG_FILE, to_char(SQLCODE) || ' ' || SQLERRM);
670: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
671: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,g_calling_module,to_char(SQLCODE) || ' ' || SQLERRM);
672: END IF;
673: v_status := -1;
674: END cost_allocate;
675:
735: FOR cur_get_exp_tmp IN cur_get_exp
736: LOOP
737: alloc_log_msg( C_LOG_FILE, ' Processing allocation code '||cur_get_exp_tmp.exp_alloc_code);
738:
739: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
740: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,g_calling_module||'.put_alloc_expenses',' Processing allocation code '||cur_get_exp_tmp.exp_alloc_code);
741: END IF;
742:
743: put_alloc_expenses(
736: LOOP
737: alloc_log_msg( C_LOG_FILE, ' Processing allocation code '||cur_get_exp_tmp.exp_alloc_code);
738:
739: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
740: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,g_calling_module||'.put_alloc_expenses',' Processing allocation code '||cur_get_exp_tmp.exp_alloc_code);
741: END IF;
742:
743: put_alloc_expenses(
744: cur_get_exp_tmp.exp_alloc_id,
874: open cur_bal_type;
875: fetch cur_bal_type INTO x_in_actual_flag;
876: close cur_bal_type;
877:
878: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
879: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module,'Calling FND_FLEX_EXT.GET_SEGMENTS() API');
880: END IF;
881:
882: x_return_status := fnd_flex_ext.get_segments (
875: fetch cur_bal_type INTO x_in_actual_flag;
876: close cur_bal_type;
877:
878: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
879: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module,'Calling FND_FLEX_EXT.GET_SEGMENTS() API');
880: END IF;
881:
882: x_return_status := fnd_flex_ext.get_segments (
883: application_short_name => 'SQLGL',
924: alloc_log_msg(C_LOG_FILE,FND_MESSAGE.GET);
925: RETURN;
926: END IF;
927:
928: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module,'Finished Calling FND_FLEX_EXT.GET_SEGMENTS() API');
930: END IF;
931:
932: x_in_ytd_ptd := v_ytd_ptd;
925: RETURN;
926: END IF;
927:
928: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module,'Finished Calling FND_FLEX_EXT.GET_SEGMENTS() API');
930: END IF;
931:
932: x_in_ytd_ptd := v_ytd_ptd;
933:
995: x_error_status := nvl(x_error_status,0);
996:
997: IF (x_error_status <> 100 AND x_error_status >= 0) THEN
998: /* INVCONV sschinch */
999: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1000: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module,'Calling FND_FLEX_EXT.GET_COMBINATION_ID() API');
1001: END IF;
1002: x_to_account_id := fnd_flex_ext.get_ccid(application_short_name => 'SQLGL',
1003: key_flex_code => 'GL#',
996:
997: IF (x_error_status <> 100 AND x_error_status >= 0) THEN
998: /* INVCONV sschinch */
999: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1000: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module,'Calling FND_FLEX_EXT.GET_COMBINATION_ID() API');
1001: END IF;
1002: x_to_account_id := fnd_flex_ext.get_ccid(application_short_name => 'SQLGL',
1003: key_flex_code => 'GL#',
1004: structure_number => g_structure_number,
1015: alloc_log_msg(C_LOG_FILE, ' Account: '||x_to_segment|| ' Amount = '||to_char(x_amount));
1016: ELSE
1017: l_mesg_text := FND_MESSAGE.GET;
1018: alloc_log_msg(C_LOG_FILE,l_mesg_text);
1019: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1020: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,g_calling_module,'Error returned from FND_FLEX_EXT.GET_COMBINATION_ID() API '||l_mesg_text);
1021: END IF;
1022: END IF;
1023: END IF;
1016: ELSE
1017: l_mesg_text := FND_MESSAGE.GET;
1018: alloc_log_msg(C_LOG_FILE,l_mesg_text);
1019: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1020: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,g_calling_module,'Error returned from FND_FLEX_EXT.GET_COMBINATION_ID() API '||l_mesg_text);
1021: END IF;
1022: END IF;
1023: END IF;
1024: /* end SSCHINCH */
1062:
1063: IS
1064: l_local_module VARCHAR2(80):= '.insert_alloc_inp';
1065: BEGIN
1066: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1067: THEN
1068: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||l_local_module||'.begin','Inserting ...');
1069: END IF;
1070:
1064: l_local_module VARCHAR2(80):= '.insert_alloc_inp';
1065: BEGIN
1066: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1067: THEN
1068: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||l_local_module||'.begin','Inserting ...');
1069: END IF;
1070:
1071: INSERT
1072: INTO
1107: 0,
1108: 0,
1109: NULL
1110: );
1111: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1112: THEN
1113: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||l_local_module||'.end','Completed Inserting data into interface...');
1114: END IF;
1115: EXCEPTION
1109: NULL
1110: );
1111: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1112: THEN
1113: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||l_local_module||'.end','Completed Inserting data into interface...');
1114: END IF;
1115: EXCEPTION
1116: WHEN OTHERS THEN
1117: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1113: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||l_local_module||'.end','Completed Inserting data into interface...');
1114: END IF;
1115: EXCEPTION
1116: WHEN OTHERS THEN
1117: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1118: THEN
1119: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,g_calling_module||l_local_module,to_char(SQLCODE)||' '||SQLERRM);
1120: END IF;
1121: END insert_alloc_inp;
1115: EXCEPTION
1116: WHEN OTHERS THEN
1117: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1118: THEN
1119: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,g_calling_module||l_local_module,to_char(SQLCODE)||' '||SQLERRM);
1120: END IF;
1121: END insert_alloc_inp;
1122:
1123: /* *********************************************************
1269: EXCEPTION
1270: WHEN NO_DATA_FOUND THEN
1271: alloc_log_msg(C_LOG_FILE, '0 Rows deleted from gl_aloc_inp for fixed');
1272:
1273: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1274: THEN
1275: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,g_calling_module,'0 Rows deleted from gl_aloc_inp for fixed');
1276: END IF;
1277: WHEN OTHERS THEN
1271: alloc_log_msg(C_LOG_FILE, '0 Rows deleted from gl_aloc_inp for fixed');
1272:
1273: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1274: THEN
1275: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,g_calling_module,'0 Rows deleted from gl_aloc_inp for fixed');
1276: END IF;
1277: WHEN OTHERS THEN
1278: alloc_log_msg(C_LOG_FILE, to_char(SQLCODE) || ' ' || SQLERRM);
1279:
1276: END IF;
1277: WHEN OTHERS THEN
1278: alloc_log_msg(C_LOG_FILE, to_char(SQLCODE) || ' ' || SQLERRM);
1279:
1280: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1281: THEN
1282: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,g_calling_module,to_char(SQLCODE) || ' ' || SQLERRM);
1283: END IF;
1284: END ;
1278: alloc_log_msg(C_LOG_FILE, to_char(SQLCODE) || ' ' || SQLERRM);
1279:
1280: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1281: THEN
1282: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,g_calling_module,to_char(SQLCODE) || ' ' || SQLERRM);
1283: END IF;
1284: END ;
1285: g_calling_module := g_calling_module||l_local_module;
1286: FOR cur_aloc_fixed_tmp IN cur_alloc_fixed LOOP
1292: );
1293:
1294: END LOOP;
1295: g_calling_module := l_previous_module;
1296: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1297: THEN
1298: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||l_local_module||'.end','Completed successfully');
1299: END IF;
1300:
1294: END LOOP;
1295: g_calling_module := l_previous_module;
1296: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1297: THEN
1298: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||l_local_module||'.end','Completed successfully');
1299: END IF;
1300:
1301: END refresh_fixed;
1302:
1357: x_allocated_amount gl_aloc_inp.amount%type;
1358: x_alloc_code gl_aloc_mst.alloc_code%TYPE;
1359: l_local_module VARCHAR2(80) := '.process_aloc_dtl';
1360: BEGIN
1361: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1362: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||l_local_module||'.begin',' Starting..');
1363: END IF;
1364:
1365: FOR cur_alocinp_tmp IN cur_glaloc_inp LOOP
1358: x_alloc_code gl_aloc_mst.alloc_code%TYPE;
1359: l_local_module VARCHAR2(80) := '.process_aloc_dtl';
1360: BEGIN
1361: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1362: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||l_local_module||'.begin',' Starting..');
1363: END IF;
1364:
1365: FOR cur_alocinp_tmp IN cur_glaloc_inp LOOP
1366: IF (X_prev_alloc_id <> cur_alocinp_tmp.alloc_id) THEN
1529: END IF;
1530: END LOOP;
1531:
1532: /* Bug 7458002 - To delete obsoleted rows in gl_aloc_dtl (Start) */
1533: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1534: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||l_local_module||'.delete_allocations','deleting Allocations ...');
1535: END IF;
1536: delete_allocations(v_from_alloc_code, v_to_alloc_code, x_status);
1537:
1530: END LOOP;
1531:
1532: /* Bug 7458002 - To delete obsoleted rows in gl_aloc_dtl (Start) */
1533: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1534: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module||l_local_module||'.delete_allocations','deleting Allocations ...');
1535: END IF;
1536: delete_allocations(v_from_alloc_code, v_to_alloc_code, x_status);
1537:
1538: IF (x_status < 0)
1542: /* Bug 7458002 - End */
1543:
1544: EXCEPTION
1545: WHEN OTHERS THEN
1546: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1547: THEN
1548: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,g_calling_module||l_local_module,to_char(SQLCODE)||' '||SQLERRM);
1549: END IF;
1550: END process_alloc_dtl;
1544: EXCEPTION
1545: WHEN OTHERS THEN
1546: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1547: THEN
1548: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,g_calling_module||l_local_module,to_char(SQLCODE)||' '||SQLERRM);
1549: END IF;
1550: END process_alloc_dtl;
1551:
1552: