eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.FV_FACTS_TBAL_TRX dependencies on FND_LOG

Line 215: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

211: EXCEPTION
212: WHEN OTHERS THEN
213: vp_retcode := sqlcode ;
214: vp_errbuf := sqlerrm ;
215: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
216: RAISE;
217:
218: End;
219:

Line 318: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

314: -- Legislation Indicator processing is done.
315: -- If FACTS is run and program segment cannot be found for Apportionment
316: -- Category B Processing
317:
318: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
319: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Normal Processing ') ;
320: End If ;
321: va_balance_type_val := 'B' ;
322: v_record_category := 'REPORTED' ;

Line 319: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Normal Processing ') ;

315: -- If FACTS is run and program segment cannot be found for Apportionment
316: -- Category B Processing
317:
318: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
319: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Normal Processing ') ;
320: End If ;
321: va_balance_type_val := 'B' ;
322: v_record_category := 'REPORTED' ;
323: CALC_BALANCE (vl_ccid,

Line 335: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

331: vl_period_activity,
332: pagebreak) ;
333: v_amount := vl_amount ;
334: v_period_activity := vl_period_activity;
335: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
336: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Ending Balance(Normal) -> '||v_amount);
337: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'period_activity --> '||v_period_activity);
338: END IF;
339: v_record_category := 'REPORTED';

Line 336: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Ending Balance(Normal) -> '||v_amount);

332: pagebreak) ;
333: v_amount := vl_amount ;
334: v_period_activity := vl_period_activity;
335: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
336: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Ending Balance(Normal) -> '||v_amount);
337: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'period_activity --> '||v_period_activity);
338: END IF;
339: v_record_category := 'REPORTED';
340: v_tbal_fund_value := vl_fund_value ;

Line 337: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'period_activity --> '||v_period_activity);

333: v_amount := vl_amount ;
334: v_period_activity := vl_period_activity;
335: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
336: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Ending Balance(Normal) -> '||v_amount);
337: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'period_activity --> '||v_period_activity);
338: END IF;
339: v_record_category := 'REPORTED';
340: v_tbal_fund_value := vl_fund_value ;
341: Create_Facts_Record ;

Line 349: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

345: EXCEPTION
346: WHEN OTHERS THEN
347: vp_retcode := sqlcode ;
348: vp_errbuf := sqlerrm ;
349: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
350: RAISE;
351:
352: End;
353: -- ------------------------------------------------------------------

Line 389: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

385: vp_output_format := output_format;
386: vp_retcode := 0 ;
387:
388:
389: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
391: 'Running Trial balance by fund fund range ' ||
392: vp_fund_low || ' ' || vp_fund_high) ;
393: End If ;

Line 390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

386: vp_retcode := 0 ;
387:
388:
389: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
391: 'Running Trial balance by fund fund range ' ||
392: vp_fund_low || ' ' || vp_fund_high) ;
393: End If ;
394:

Line 408: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

404: errbuf :=
405: 'Trial Balance by Fund Range Process completed with warning because
406: the Public Law, Advance, and Transfer attribute columns are not
407: established on the Define System Parameters Form.';
408: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
409: 'Trial Balance by Fund Range Process completed with warning because
410: the Public Law, Advance, and Transfer attribute columns are not
411: established on the Define System Parameters Form.');
412: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);

Line 412: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);

408: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
409: 'Trial Balance by Fund Range Process completed with warning because
410: the Public Law, Advance, and Transfer attribute columns are not
411: established on the Define System Parameters Form.');
412: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);
413: ELSE
414: errbuf := 'Trial Balance By Fund Range Process Completed Successfully' ;
415: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, errbuf);

Line 415: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

411: established on the Define System Parameters Form.');
412: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);
413: ELSE
414: errbuf := 'Trial Balance By Fund Range Process Completed Successfully' ;
415: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, errbuf);
417: END IF ;
418: END IF;
419: COMMIT ;

Line 416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, errbuf);

412: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);
413: ELSE
414: errbuf := 'Trial Balance By Fund Range Process Completed Successfully' ;
415: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, errbuf);
417: END IF ;
418: END IF;
419: COMMIT ;
420: ELSE

Line 430: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

426: -- Exception Processing
427: When Others Then
428: vp_retcode := sqlcode ;
429: vp_errbuf := sqlerrm || ' [TRIAL_BALANCE_MAIN] ' ;
430: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
431: '.final_exception',vp_errbuf);
432: END MAIN ;
433:
434: -- -------------------------------------------------------------------

Line 448: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

444: BEGIN
445: -- Modified the code for the bug 1399282
446: -- When called from Trial Balance process, the parameter passed is period name.
447: v_period_name := vp_period_name;
448: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
449: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
450: 'period name '||vp_period_name) ;
451: END IF;
452: Begin

Line 449: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

445: -- Modified the code for the bug 1399282
446: -- When called from Trial Balance process, the parameter passed is period name.
447: v_period_name := vp_period_name;
448: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
449: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
450: 'period name '||vp_period_name) ;
451: END IF;
452: Begin
453: Select period_year,period_num,start_date,end_date

Line 464: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

460: When OTHERS then
461: vp_retcode := -1 ;
462: vp_errbuf := 'Error Getting Period Year and Period Number for the passed
463: Period [GET_PERIOD_INFO]' ;
464: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
465: '.select1', vp_errbuf) ;
466: End;
467: Begin
468: -- Select Period Information for Beginning Period

Line 489: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;

485: When NO_DATA_FOUND Then
486: vp_retcode := -1 ;
487: vp_errbuf := 'Error Getting Beginning Period Information
488: [GET_PERIOD_INFO]' ;
489: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
490: Return ;
491: When TOO_MANY_ROWS Then
492: vp_retcode := -1 ;
493: vp_errbuf := 'More than one Beginning Period Returned !!

Line 495: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vp_errbuf) ;

491: When TOO_MANY_ROWS Then
492: vp_retcode := -1 ;
493: vp_errbuf := 'More than one Beginning Period Returned !!
494: [GET_PERIOD_INFO]' ;
495: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vp_errbuf) ;
496: Return ;
497: End ;
498: EXCEPTION
499: -- Exception Processing

Line 503: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

499: -- Exception Processing
500: When Others Then
501: vp_retcode := sqlcode ;
502: vp_errbuf := sqlerrm || ' [GET_PERIOD_INFO] ' ;
503: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
504: Return ;
505: END GET_PERIOD_INFO ;
506: -- -------------------------------------------------------------------
507: -- PROCEDURE GET_TREASURY_SYMBOL_INFO

Line 569: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

565: v_financing_acct := vl_financing_acct;
566: IF v_year_gtn2001 THEN
567: vc_acct_split_seq_num := '000';
568: END IF;
569: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
570: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Financing Acct >>> - ' ||
571: vl_financing_acct || ' >>>> - Cohort Seg Name - ' ||
572: v_cohort_seg_name) ;
573: End If ;

Line 570: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Financing Acct >>> - ' ||

566: IF v_year_gtn2001 THEN
567: vc_acct_split_seq_num := '000';
568: END IF;
569: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
570: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Financing Acct >>> - ' ||
571: vl_financing_acct || ' >>>> - Cohort Seg Name - ' ||
572: v_cohort_seg_name) ;
573: End If ;
574: ------------------------------------------------

Line 615: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception1', vp_errbuf) ;

611: When NO_DATA_FOUND Then
612: vp_retcode := -1 ;
613: vp_errbuf := 'Error Getting Treasury Symbol related Information
614: for the passed Treasury Symbol [GET_TREASURY_SYMBOL_INFO] ' ;
615: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception1', vp_errbuf) ;
616: When TOO_MANY_ROWS Then
617: vp_retcode := -1 ;
618: vp_errbuf := 'More than one set of information returned for the
619: passed Treasury Symbol [GET_TREASURY_SYMBOL_INFO]' ;

Line 620: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception2', vp_errbuf) ;

616: When TOO_MANY_ROWS Then
617: vp_retcode := -1 ;
618: vp_errbuf := 'More than one set of information returned for the
619: passed Treasury Symbol [GET_TREASURY_SYMBOL_INFO]' ;
620: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception2', vp_errbuf) ;
621: WHEN OTHERS THEN
622: vp_retcode := sqlcode ;
623: vp_errbuf := sqlerrm ;
624: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

Line 624: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

620: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception2', vp_errbuf) ;
621: WHEN OTHERS THEN
622: vp_retcode := sqlcode ;
623: vp_errbuf := sqlerrm ;
624: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
625: RAISE;
626: END GET_TREASURY_SYMBOL_INFO ;
627: -- -------------------------------------------------------------------
628: -- PROCEDURE PROCESS_FACTS_TRANSACTIONS

Line 739: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

735: -- Symbol. Sum all the amounts and group the data by Account Number
736: -- and Fund Value.
737: -- Dynamic SQL is used for declaring the following cursor and to
738: -- fetch the values.
739: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
740: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Selecting FACTS Transactions.....') ;
741: END IF;
742: Begin
743: vl_main_cursor := DBMS_SQL.OPEN_CURSOR ;

Line 740: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Selecting FACTS Transactions.....') ;

736: -- and Fund Value.
737: -- Dynamic SQL is used for declaring the following cursor and to
738: -- fetch the values.
739: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
740: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Selecting FACTS Transactions.....') ;
741: END IF;
742: Begin
743: vl_main_cursor := DBMS_SQL.OPEN_CURSOR ;
744: Exception

Line 748: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.open_vl_main_cursor', vp_errbuf) ;

744: Exception
745: When Others Then
746: vp_retcode := sqlcode ;
747: VP_ERRBUF := sqlerrm ;
748: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.open_vl_main_cursor', vp_errbuf) ;
749: Return ;
750: End ;
751: If v_cohort_seg_name IS NOT NULL Then
752: v_cohort_select := ', GLCC.' || v_cohort_seg_name ;

Line 806: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

802: Exception
803: When Others Then
804: vp_retcode := sqlcode ;
805: VP_ERRBUF := sqlerrm ;
806: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
807: '.parse_vl_main_cursor', vp_errbuf) ;
808: Return ;
809: End ;
810:

Line 835: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

831: Exception
832: When Others Then
833: vp_retcode := sqlcode ;
834: VP_ERRBUF := sqlerrm ;
835: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
836: '.execute_vl_main_cursor', vp_errbuf) ;
837: Return ;
838: End ;
839:

Line 840: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

836: '.execute_vl_main_cursor', vp_errbuf) ;
837: Return ;
838: End ;
839:
840: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
841: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
842: 'Processing FACTS Transactions starts.....');
843: END IF;
844: LOOP

Line 841: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

837: Return ;
838: End ;
839:
840: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
841: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
842: 'Processing FACTS Transactions starts.....');
843: END IF;
844: LOOP
845: -- This is a Dummy Loop since we have no command in PL/SQL to skip

Line 902: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

898: IF v_cohort_seg_name IS NOT NULL THEN
899: dbms_sql.column_value(vl_main_cursor, 6, vl_cohort_yr);
900: END IF;
901:
902: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
903: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
904: '==========================================================');
905: END IF;
906:

Line 903: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

899: dbms_sql.column_value(vl_main_cursor, 6, vl_cohort_yr);
900: END IF;
901:
902: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
903: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
904: '==========================================================');
905: END IF;
906:
907: -- Fix for bug 2798371

Line 915: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

911: INTO v_dummy_cohort
912: FROM DUAL;
913:
914: IF LENGTH(v_dummy_cohort) = 1 THEN
915: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
916: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
917: 'Cohort value: '||vl_cohort_yr||' is a single digit!');
918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
919: 'Taking Cohort value from report parameter.');

Line 916: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

912: FROM DUAL;
913:
914: IF LENGTH(v_dummy_cohort) = 1 THEN
915: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
916: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
917: 'Cohort value: '||vl_cohort_yr||' is a single digit!');
918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
919: 'Taking Cohort value from report parameter.');
920: END IF;

Line 918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

914: IF LENGTH(v_dummy_cohort) = 1 THEN
915: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
916: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
917: 'Cohort value: '||vl_cohort_yr||' is a single digit!');
918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
919: 'Taking Cohort value from report parameter.');
920: END IF;
921: v_dummy_cohort := vp_report_fiscal_yr;
922: END if;

Line 925: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

921: v_dummy_cohort := vp_report_fiscal_yr;
922: END if;
923:
924: EXCEPTION WHEN INVALID_NUMBER THEN
925: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
926: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
927: l_module_name, 'Cohort value: '||vl_cohort_yr
928: ||' is non-numeric!');
929: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,

Line 926: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,

922: END if;
923:
924: EXCEPTION WHEN INVALID_NUMBER THEN
925: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
926: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
927: l_module_name, 'Cohort value: '||vl_cohort_yr
928: ||' is non-numeric!');
929: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
930: l_module_name, 'Taking Cohort value from report parameter.');

Line 929: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,

925: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
926: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
927: l_module_name, 'Cohort value: '||vl_cohort_yr
928: ||' is non-numeric!');
929: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
930: l_module_name, 'Taking Cohort value from report parameter.');
931: END IF;
932: v_dummy_cohort := vp_report_fiscal_yr;
933: END;

Line 942: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

938: LENGTH(v_dummy_cohort)-1, 2), 2, ' '), ' ') ;
939:
940: -- Acct Number Validation based on type of Processing(FACTSII or TBal)
941:
942: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
943: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
944: 'Processing for >>>> Acct -> '||vl_acct_num||
945: ' >>>> Fund -> '||vl_fund_value||
946: ' Cohort >>>> -> ' ||vl_cohort_yr||

Line 943: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

939:
940: -- Acct Number Validation based on type of Processing(FACTSII or TBal)
941:
942: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
943: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
944: 'Processing for >>>> Acct -> '||vl_acct_num||
945: ' >>>> Fund -> '||vl_fund_value||
946: ' Cohort >>>> -> ' ||vl_cohort_yr||
947: ' >>>> Amt -> ' ||

Line 963: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

959: vl_attributes_found := 'N' ;
960:
961: GET_SGL_PARENT(vl_acct_num, vl_parent_ac , v_sgl_acct_num) ;
962:
963: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
964: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
965: l_module_name, 'Parent A/c : '||vl_parent_ac||
966: ' USSGL : '||v_sgl_acct_num);
967: END IF;

Line 964: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,

960:
961: GET_SGL_PARENT(vl_acct_num, vl_parent_ac , v_sgl_acct_num) ;
962:
963: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
964: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
965: l_module_name, 'Parent A/c : '||vl_parent_ac||
966: ' USSGL : '||v_sgl_acct_num);
967: END IF;
968:

Line 980: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,

976: vl_attributes_found := 'Y';
977: END IF;
978:
979: if vl_retcode = -1 then
980: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
981: 'No attributes defined '||vl_acct_num||' and '||vl_parent_ac);
982: else
983: vl_attributes_found := 'Y' ;
984: End if;

Line 990: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Attributes not found ') ;

986: -- In case no attributes are found then insert beginning and ending
987: -- balance records
988:
989: If vl_attributes_found = 'N' then
990: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Attributes not found ') ;
991:
992: -- Get the Beginning Balance
993: CALC_BALANCE (
994: vl_ccid,

Line 1008: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1004:
1005: v_amount := v_begin_amount ;
1006: v_period_activity := vl_period_activity ;
1007: va_balance_type_val := 'B' ;
1008: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1009: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1010: 'begin Balance for >>>> - ' || v_begin_amount);
1011: END IF;
1012: v_tbal_fund_value := vl_fund_value ;

Line 1009: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1005: v_amount := v_begin_amount ;
1006: v_period_activity := vl_period_activity ;
1007: va_balance_type_val := 'B' ;
1008: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1009: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1010: 'begin Balance for >>>> - ' || v_begin_amount);
1011: END IF;
1012: v_tbal_fund_value := vl_fund_value ;
1013: create_facts_record ;

Line 1034: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1030:
1031:
1032: -------------- Legislation Indicator Processing Starts ----------------
1033: If va_public_law_code_flag = 'Y' OR va_advance_flag = 'Y' OR va_transfer_ind = 'Y' Then
1034: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1035: If va_legis_ind_flag = 'Y' and
1036: va_public_law_code_flag = 'N' then
1037: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1038: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

Line 1037: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1033: If va_public_law_code_flag = 'Y' OR va_advance_flag = 'Y' OR va_transfer_ind = 'Y' Then
1034: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1035: If va_legis_ind_flag = 'Y' and
1036: va_public_law_code_flag = 'N' then
1037: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1038: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1039: ' ++++++++ Leg Ind Processing ++++++++') ;
1040: END IF;
1041: Elsif va_legis_ind_flag = 'N' and

Line 1038: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1034: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1035: If va_legis_ind_flag = 'Y' and
1036: va_public_law_code_flag = 'N' then
1037: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1038: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1039: ' ++++++++ Leg Ind Processing ++++++++') ;
1040: END IF;
1041: Elsif va_legis_ind_flag = 'N' and
1042: va_public_law_code_flag = 'Y' then

Line 1043: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1039: ' ++++++++ Leg Ind Processing ++++++++') ;
1040: END IF;
1041: Elsif va_legis_ind_flag = 'N' and
1042: va_public_law_code_flag = 'Y' then
1043: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1045: ' ++++++++ Pub Law Processing ++++++++') ;
1046: END IF;
1047: End If ;

Line 1044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1040: END IF;
1041: Elsif va_legis_ind_flag = 'N' and
1042: va_public_law_code_flag = 'Y' then
1043: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1045: ' ++++++++ Pub Law Processing ++++++++') ;
1046: END IF;
1047: End If ;
1048: --

Line 1050: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1046: END IF;
1047: End If ;
1048: --
1049: IF va_advance_flag = 'Y' THEN
1050: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1051: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1052: ' ++++++++ Advance Type Processing ++++++++') ;
1053: END IF;
1054: END IF;

Line 1051: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1047: End If ;
1048: --
1049: IF va_advance_flag = 'Y' THEN
1050: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1051: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1052: ' ++++++++ Advance Type Processing ++++++++') ;
1053: END IF;
1054: END IF;
1055: IF va_transfer_ind = 'Y' THEN

Line 1056: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1052: ' ++++++++ Advance Type Processing ++++++++') ;
1053: END IF;
1054: END IF;
1055: IF va_transfer_ind = 'Y' THEN
1056: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1057: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1058: ' ++++++++ Transfer Acct Processing ++++++++') ;
1059: END IF;
1060: END IF;

Line 1057: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1053: END IF;
1054: END IF;
1055: IF va_transfer_ind = 'Y' THEN
1056: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1057: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1058: ' ++++++++ Transfer Acct Processing ++++++++') ;
1059: END IF;
1060: END IF;
1061:

Line 1086: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1082: IF va_transfer_ind = 'Y' THEN
1083: va_transfer_dept_id := ' ' ;
1084: va_transfer_main_acct := ' ' ;
1085: END IF ;
1086: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1087: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1088: 'Period number '||v_begin_period_num) ;
1089: END IF;
1090: CALC_BALANCE (

Line 1087: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1083: va_transfer_dept_id := ' ' ;
1084: va_transfer_main_acct := ' ' ;
1085: END IF ;
1086: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1087: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1088: 'Period number '||v_begin_period_num) ;
1089: END IF;
1090: CALC_BALANCE (
1091: vl_ccid,

Line 1102: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1098: v_begin_amount,
1099: vl_period_activity,
1100: vl_pagebreak) ;
1101:
1102: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1103: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1104: ' Legis Ind Begin Balance -> ' || v_begin_amount) ;
1105: End If ;
1106: If vp_retcode <> 0 Then

Line 1103: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1099: vl_period_activity,
1100: vl_pagebreak) ;
1101:
1102: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1103: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1104: ' Legis Ind Begin Balance -> ' || v_begin_amount) ;
1105: End If ;
1106: If vp_retcode <> 0 Then
1107: Return ;

Line 1161: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1157: v_amount := vb_balance_amount ;
1158: v_period_activity := 0 ; --Bug 2577862
1159: v_period_dr := 0;
1160: v_period_cr := 0;
1161: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1162: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1163: 'begin Balance >>>> - ' || to_char(v_begin_amount)) ;
1164: END IF;
1165: if v_amount > 0 then

Line 1162: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1158: v_period_activity := 0 ; --Bug 2577862
1159: v_period_dr := 0;
1160: v_period_cr := 0;
1161: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1162: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1163: 'begin Balance >>>> - ' || to_char(v_begin_amount)) ;
1164: END IF;
1165: if v_amount > 0 then
1166: CREATE_FACTS_RECORD ;

Line 1183: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

1179: Exception
1180: When Others Then
1181: vp_retcode := sqlcode ;
1182: VP_ERRBUF := sqlerrm ;
1183: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1184: '.open_vl_legis_cursor', vp_errbuf) ;
1185: Return ;
1186: End ;
1187:

Line 1209: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1205:
1206: -- Get the transactions for the account Number and Fund (and
1207: -- cohort segment, if required)
1208:
1209: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1210: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'vl_legis_Select') ;
1211: END IF;
1212:
1213: vl_legis_select :=

Line 1210: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'vl_legis_Select') ;

1206: -- Get the transactions for the account Number and Fund (and
1207: -- cohort segment, if required)
1208:
1209: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1210: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'vl_legis_Select') ;
1211: END IF;
1212:
1213: vl_legis_select :=
1214: 'Select gjl.reference_1,

Line 1250: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1246: AND glp.period_year = :report_fiscal_yr
1247: AND glp.period_num > :period_num) ';
1248:
1249:
1250: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vl_legis_select) ;
1252: END IF;
1253:
1254:

Line 1251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vl_legis_select) ;

1247: AND glp.period_num > :period_num) ';
1248:
1249:
1250: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1251: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vl_legis_select) ;
1252: END IF;
1253:
1254:
1255: Begin

Line 1261: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

1257: Exception
1258: When Others Then
1259: vp_retcode := sqlcode ;
1260: VP_ERRBUF := sqlerrm ;
1261: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1262: '.parse_vl_legis_cursor', vp_errbuf) ;
1263: Return ;
1264: End ;
1265:

Line 1325: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

1321: Exception
1322: When Others Then
1323: vp_retcode := sqlcode ;
1324: VP_ERRBUF := sqlerrm ;
1325: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1326: '.execute_vl_legis_cursor', vp_errbuf) ;
1327: Return ;
1328: End ;
1329: va_account_ctr := 0;

Line 1371: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1367: IF va_advance_type_col IS NOT NULL THEN
1368: dbms_sql.column_value(vl_legis_cursor, vl_count, vl_advance_type);
1369: END IF;
1370:
1371: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1372: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1373: 'Ref 1 - '||nvl(vl_legis_ref,'Ref Null'));
1374: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1375: 'Amt - '|| nvl(to_char(vl_legis_amount),

Line 1372: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1368: dbms_sql.column_value(vl_legis_cursor, vl_count, vl_advance_type);
1369: END IF;
1370:
1371: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1372: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1373: 'Ref 1 - '||nvl(vl_legis_ref,'Ref Null'));
1374: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1375: 'Amt - '|| nvl(to_char(vl_legis_amount),
1376: 'Amt Null')) ;

Line 1374: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1370:
1371: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1372: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1373: 'Ref 1 - '||nvl(vl_legis_ref,'Ref Null'));
1374: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1375: 'Amt - '|| nvl(to_char(vl_legis_amount),
1376: 'Amt Null')) ;
1377: End If ;
1378:

Line 1391: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1387: va_balance_type_val := 'C';
1388: IF vl_adj_num < v_period_num THEN
1389: va_balance_type_val := 'P';
1390: END IF;
1391: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1392: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1393: 'vl_period ' || vl_period_name);
1394: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1395: 'vl_adj_flag ' || vl_adj_flag);

Line 1392: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1388: IF vl_adj_num < v_period_num THEN
1389: va_balance_type_val := 'P';
1390: END IF;
1391: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1392: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1393: 'vl_period ' || vl_period_name);
1394: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1395: 'vl_adj_flag ' || vl_adj_flag);
1396: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

Line 1394: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1390: END IF;
1391: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1392: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1393: 'vl_period ' || vl_period_name);
1394: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1395: 'vl_adj_flag ' || vl_adj_flag);
1396: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1397: 'vl_balance_flag ' || va_balance_type_val);
1398: END IF;

Line 1396: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1392: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1393: 'vl_period ' || vl_period_name);
1394: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1395: 'vl_adj_flag ' || vl_adj_flag);
1396: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1397: 'vl_balance_flag ' || va_balance_type_val);
1398: END IF;
1399:
1400: -----------------------------------------------------------------------

Line 1453: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1449: --va_public_law_code_val := '000-000' ;
1450: va_public_law_code_val := ' ' ;
1451: END ;
1452:
1453: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1454: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'P Law-'||
1455: nvl(va_public_law_code_val,'P Law Null'));
1456: END IF;
1457:

Line 1454: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'P Law-'||

1450: va_public_law_code_val := ' ' ;
1451: END ;
1452:
1453: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1454: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'P Law-'||
1455: nvl(va_public_law_code_val,'P Law Null'));
1456: END IF;
1457:
1458: ELSE -- vl_legis_ref is null

Line 1478: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1474: INTO va_advance_type_val
1475: FROM fv_be_trx_dtls
1476: WHERE transaction_id = vl_legis_ref
1477: AND set_of_books_id = vp_set_of_books_id ;
1478: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1479: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1480: 'Advance Type - '||
1481: nvl(va_advance_type_val, 'Advance Type Null')) ;
1482: END IF ;

Line 1479: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1475: FROM fv_be_trx_dtls
1476: WHERE transaction_id = vl_legis_ref
1477: AND set_of_books_id = vp_set_of_books_id ;
1478: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1479: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1480: 'Advance Type - '||
1481: nvl(va_advance_type_val, 'Advance Type Null')) ;
1482: END IF ;
1483: -- If the advance_type value is null then set it to 'X'

Line 1514: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1510: INTO va_transfer_dept_id, va_transfer_main_acct
1511: FROM fv_be_trx_dtls
1512: WHERE transaction_id = vl_legis_ref
1513: AND set_of_books_id = vp_set_of_books_id ;
1514: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1515: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1516: 'Transfer Dept ID - '||
1517: nvl(va_transfer_dept_id, 'Transfer Dept ID Null')) ;
1518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

Line 1515: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1511: FROM fv_be_trx_dtls
1512: WHERE transaction_id = vl_legis_ref
1513: AND set_of_books_id = vp_set_of_books_id ;
1514: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1515: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1516: 'Transfer Dept ID - '||
1517: nvl(va_transfer_dept_id, 'Transfer Dept ID Null')) ;
1518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1519: 'Transfer Main Acct - '||

Line 1518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1514: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1515: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1516: 'Transfer Dept ID - '||
1517: nvl(va_transfer_dept_id, 'Transfer Dept ID Null')) ;
1518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1519: 'Transfer Main Acct - '||
1520: nvl(va_transfer_main_acct, 'Transfer Main Acct Null')) ;
1521: END IF ;
1522:

Line 1548: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1544: END IF;
1545: END IF;
1546: END IF;
1547:
1548: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1549: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1550: ' Acct - '||vl_acct_num) ;
1551: END IF;
1552: v_amount := 0;

Line 1549: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1545: END IF;
1546: END IF;
1547:
1548: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1549: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1550: ' Acct - '||vl_acct_num) ;
1551: END IF;
1552: v_amount := 0;
1553: v_period_activity := 0;

Line 1562: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1558: else
1559: v_period_activity := vl_legis_amount;
1560: End if;
1561:
1562: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1563: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1564: 'period_net_dr - '|| v_period_dr) ;
1565: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1566: 'period_net_cr - '|| v_period_cr) ;

Line 1563: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1559: v_period_activity := vl_legis_amount;
1560: End if;
1561:
1562: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1563: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1564: 'period_net_dr - '|| v_period_dr) ;
1565: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1566: 'period_net_cr - '|| v_period_cr) ;
1567: END IF;

Line 1565: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1561:
1562: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1563: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1564: 'period_net_dr - '|| v_period_dr) ;
1565: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1566: 'period_net_cr - '|| v_period_cr) ;
1567: END IF;
1568: CREATE_FACTS_RECORD ;
1569: If vp_retcode <> 0 Then

Line 1582: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

1578: Exception
1579: When Others Then
1580: vp_retcode := sqlcode ;
1581: VP_ERRBUF := sqlerrm ;
1582: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1583: '.close_vl_legis_cursor', vp_errbuf) ;
1584: Return ;
1585: End ;
1586:

Line 1598: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

1594: When Others Then
1595: vp_retcode := sqlcode ;
1596: vp_errbuf := sqlerrm ||
1597: ' [ PROCESS_FACTS_TRANSCTIONS-LEGIS IND ] ' ;
1598: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1599: '.exception_1', vp_errbuf) ;
1600: Return ;
1601: END ;
1602: -------------- Apportionment Category Processing Starts ----------------

Line 1618: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1614:
1615: END IF; */
1616:
1617: If va_appor_cat_val IN ('A', 'B') then
1618: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1619: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1620: ' ++++++++ Apportionment Category Processing ++++++++++') ;
1621: End If ;
1622: -- Get the Program segment name for the current fund value

Line 1619: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1615: END IF; */
1616:
1617: If va_appor_cat_val IN ('A', 'B') then
1618: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1619: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1620: ' ++++++++ Apportionment Category Processing ++++++++++') ;
1621: End If ;
1622: -- Get the Program segment name for the current fund value
1623: GET_PROGRAM_SEGMENT (vl_fund_value) ;

Line 1625: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1621: End If ;
1622: -- Get the Program segment name for the current fund value
1623: GET_PROGRAM_SEGMENT (vl_fund_value) ;
1624:
1625: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1626: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1627: 'Fund - '||vl_fund_value||' > CAT B Prog Seg - '||v_catb_prg_seg_name|| ' > PRN Prog Seg - '||v_prn_prg_seg_name);
1628: End If ;
1629:

Line 1626: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1622: -- Get the Program segment name for the current fund value
1623: GET_PROGRAM_SEGMENT (vl_fund_value) ;
1624:
1625: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1626: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1627: 'Fund - '||vl_fund_value||' > CAT B Prog Seg - '||v_catb_prg_seg_name|| ' > PRN Prog Seg - '||v_prn_prg_seg_name);
1628: End If ;
1629:
1630: If v_catb_prg_seg_name IS NOT NULL OR

Line 1638: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

1634: Exception
1635: When Others Then
1636: vp_retcode := sqlcode ;
1637: VP_ERRBUF := sqlerrm ;
1638: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1639: '.open_vl_appor_cursor', vp_errbuf) ;
1640: Return ;
1641: End ;
1642: -- Dynamic SQL to group the amount by Fund, Acct

Line 1662: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

1658: Exception
1659: When Others Then
1660: vp_retcode := sqlcode ;
1661: vp_errbuf := sqlerrm || ' [MAIN - APPOR]' ;
1662: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1663: '.parse_vl_appor_cursor', vp_errbuf) ;
1664: Return ;
1665: End ;
1666:

Line 1715: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

1711: Exception
1712: When Others Then
1713: vp_retcode := sqlcode ;
1714: vp_errbuf := sqlerrm||'[execute_vl_appor_cursor]' ;
1715: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1716: '.execute_vl_appor_cursor', vp_errbuf) ;
1717: Return ;
1718: End ;
1719:

Line 1763: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1759: -- Get_Appor_Cat_B_Text(vl_program) ;
1760:
1761: get_prc_val(vl_catb_program, vl_catb_rc_val, vl_catb_pgm_desc,
1762: vl_prn_program, vl_prn_rc_val, vl_prn_pgm_desc);
1763: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1765: 'Appor Beg --> Acct - '||vl_acct_num||
1766: ' Fund >>>> - '||vl_fund_value ||
1767: ' CAT B Prgm >>>> - '||vl_catb_program ||

Line 1764: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1760:
1761: get_prc_val(vl_catb_program, vl_catb_rc_val, vl_catb_pgm_desc,
1762: vl_prn_program, vl_prn_rc_val, vl_prn_pgm_desc);
1763: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1765: 'Appor Beg --> Acct - '||vl_acct_num||
1766: ' Fund >>>> - '||vl_fund_value ||
1767: ' CAT B Prgm >>>> - '||vl_catb_program ||
1768: ' PRN Prgm >>>> - '||vl_prn_program ||

Line 1812: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

1808: Exception
1809: When Others Then
1810: vp_retcode := sqlcode ;
1811: VP_ERRBUF := sqlerrm||'[vl_appor_cursor]' ;
1812: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1813: '.close_vl_appor_cursor', vp_errbuf) ;
1814: Return ;
1815: End ;
1816:

Line 1824: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Apportion category is not B or

1820: Exit ;
1821:
1822: End If ; /* Program segment not null */
1823: END IF; /* va_appor_cat_val = 'B' */
1824: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Apportion category is not B or
1825: Program Segment Not defined Or Null');
1826: v_amount := vl_amount ;
1827: v_ccid := vl_ccid;
1828: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 1828: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1824: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Apportion category is not B or
1825: Program Segment Not defined Or Null');
1826: v_amount := vl_amount ;
1827: v_ccid := vl_ccid;
1828: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,
1830: ' So calling the default processing') ;
1831: END IF;
1832: DEFAULT_PROCESSING (vl_ccid,vl_fund_value,vl_acct_num,'E');

Line 1829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,

1825: Program Segment Not defined Or Null');
1826: v_amount := vl_amount ;
1827: v_ccid := vl_ccid;
1828: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,
1830: ' So calling the default processing') ;
1831: END IF;
1832: DEFAULT_PROCESSING (vl_ccid,vl_fund_value,vl_acct_num,'E');
1833: EXIT; -- continue with the next account

Line 1836: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1832: DEFAULT_PROCESSING (vl_ccid,vl_fund_value,vl_acct_num,'E');
1833: EXIT; -- continue with the next account
1834: Else
1835: --- Default processing
1836: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1837: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,
1838: 'No special attributes defined , doing Normal processing');
1839: END IF;
1840: DEFAULT_PROCESSING (vl_ccid,vl_fund_value,vl_acct_num,'R',vl_pagebreak);

Line 1837: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,

1833: EXIT; -- continue with the next account
1834: Else
1835: --- Default processing
1836: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1837: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,
1838: 'No special attributes defined , doing Normal processing');
1839: END IF;
1840: DEFAULT_PROCESSING (vl_ccid,vl_fund_value,vl_acct_num,'R',vl_pagebreak);
1841: -- Exit to end the Dummy Loop

Line 1861: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

1857: Exception
1858: When Others Then
1859: vp_retcode := sqlcode ;
1860: VP_ERRBUF := sqlerrm||'[vl_main_cursor]' ;
1861: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1862: '.close_vl_main_cursor', vp_errbuf) ;
1863: Return ;
1864: End ;
1865:

Line 1866: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1862: '.close_vl_main_cursor', vp_errbuf) ;
1863: Return ;
1864: End ;
1865:
1866: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1867: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1868: 'Calling Rollup process '|| v_tbal_fund_value);
1869: END IF;
1870:

Line 1867: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1863: Return ;
1864: End ;
1865:
1866: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1867: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1868: 'Calling Rollup process '|| v_tbal_fund_value);
1869: END IF;
1870:
1871: IF (vl_row_count > 0) then

Line 1880: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

1876: EXCEPTION
1877: WHEN OTHERS THEN
1878: vp_retcode := sqlcode ;
1879: vp_errbuf := sqlerrm ;
1880: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
1881: RAISE;
1882: END PROCESS_FACTS_TRANSACTIONS ;
1883: -- -------------------------------------------------------------------
1884: -- PROCEDURE LOAD_FACTS_ATTRIBUTES

Line 1905: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1901: BEGIN
1902:
1903: Begin
1904: v_retcode := 0;
1905: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1906: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1907: 'LOAD - Acct Num -> ' || acct_num || ' sob -> '
1908: || vp_set_of_books_id ) ;
1909: END IF;

Line 1906: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1902:
1903: Begin
1904: v_retcode := 0;
1905: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1906: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1907: 'LOAD - Acct Num -> ' || acct_num || ' sob -> '
1908: || vp_set_of_books_id ) ;
1909: END IF;
1910: SELECT balance_type,

Line 1958: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_1', vp_errbuf) ;

1954: return;
1955: When Others Then
1956: vp_retcode := sqlcode ;
1957: vp_errbuf := sqlerrm ;
1958: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_1', vp_errbuf) ;
1959: return;
1960: End ;
1961: --------------------------------------------------------------------------------
1962: -- Get the attribute column names for public_law_code and other

Line 1992: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.no_data_found', vp_errbuf) ;

1988: EXCEPTION WHEN NO_DATA_FOUND THEN NULL;
1989: WHEN OTHERS THEN
1990: vp_retcode := sqlcode ;
1991: vp_errbuf := sqlerrm ;
1992: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.no_data_found', vp_errbuf) ;
1993: RETURN;
1994: END;
1995: --------------------------------------------------------------------------------
1996: -- Getting the One time Pull up Values

Line 2018: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.no_data_found1', vp_errbuf) ;

2014: When NO_DATA_FOUND Then
2015: vp_retcode := -1 ;
2016: vp_errbuf := 'Error getting Fund Category value for the fund - '||
2017: fund_val || ' [LOAD_FACTS_ATTRIBURES]' ;
2018: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.no_data_found1', vp_errbuf) ;
2019: return;
2020: When Others Then
2021: vp_retcode := sqlcode ;
2022: vp_errbuf := sqlerrm || ' [LOAD_FACTS_ATTRIBURES]' ;

Line 2023: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_2', vp_errbuf) ;

2019: return;
2020: When Others Then
2021: vp_retcode := sqlcode ;
2022: vp_errbuf := sqlerrm || ' [LOAD_FACTS_ATTRIBURES]' ;
2023: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_2', vp_errbuf) ;
2024: return;
2025: End ;
2026: ------------------------------------------------
2027: -- Deriving Indefinite Definite Flag

Line 2052: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2048: va_appor_cat_val := 'C' ;
2049: Else
2050: va_appor_cat_val := ' ' ;
2051: End If ;
2052: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2053: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Acct - ' || acct_num ||
2054: ' Fund cat - ' || vl_fund_category || ' Appr Cat - ' ||
2055: va_appor_cat_val || ' Flag - ' || va_appor_cat_flag) ;
2056: End If ;

Line 2053: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Acct - ' || acct_num ||

2049: Else
2050: va_appor_cat_val := ' ' ;
2051: End If ;
2052: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2053: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Acct - ' || acct_num ||
2054: ' Fund cat - ' || vl_fund_category || ' Appr Cat - ' ||
2055: va_appor_cat_val || ' Flag - ' || va_appor_cat_flag) ;
2056: End If ;
2057: Else

Line 2075: IF ( FND_LOG.LEVEL_STATEMENT >=

2071: va_prn_txt := 'Default PRN Code';
2072:
2073: END IF;
2074:
2075: IF ( FND_LOG.LEVEL_STATEMENT >=
2076: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2077: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2078: l_module_name, 'Defaulting the Reporting'
2079: ||'codes as the apportionment '

Line 2076: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2072:
2073: END IF;
2074:
2075: IF ( FND_LOG.LEVEL_STATEMENT >=
2076: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2077: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2078: l_module_name, 'Defaulting the Reporting'
2079: ||'codes as the apportionment '
2080: ||'Category flag is N ') ;

Line 2077: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,

2073: END IF;
2074:
2075: IF ( FND_LOG.LEVEL_STATEMENT >=
2076: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2077: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2078: l_module_name, 'Defaulting the Reporting'
2079: ||'codes as the apportionment '
2080: ||'Category flag is N ') ;
2081: End If ;

Line 2206: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

2202: EXCEPTION
2203: When Others Then
2204: vp_retcode := sqlcode ;
2205: vp_errbuf := sqlerrm || ' [LOAD_FACTS_ATTRIBUTES]' ;
2206: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
2207: END LOAD_FACTS_ATTRIBUTES ;
2208: -- -------------------------------------------------------------------
2209: -- PROCEDURE CALC_BALANCE
2210: -- -------------------------------------------------------------------

Line 2242: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.open_vl_bal_cursor', vp_errbuf) ;

2238: Exception
2239: When Others Then
2240: vp_retcode := sqlcode ;
2241: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Open Cursor] ' ;
2242: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.open_vl_bal_cursor', vp_errbuf) ;
2243: return;
2244: End ;
2245: -- Get the Balance
2246: vl_bal_select :=

Line 2284: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2280: AND GLB.PERIOD_NUM = :period_num
2281: AND GLB.PERIOD_YEAR = :period_year
2282: AND glb.currency_code = :currency_code ' ;
2283:
2284: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2285: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'mg calc '||vl_bal_select) ;
2286: END IF;
2287:
2288: Begin

Line 2285: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'mg calc '||vl_bal_select) ;

2281: AND GLB.PERIOD_YEAR = :period_year
2282: AND glb.currency_code = :currency_code ' ;
2283:
2284: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2285: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'mg calc '||vl_bal_select) ;
2286: END IF;
2287:
2288: Begin
2289: dbms_sql.parse(vl_bal_cursor, vl_bal_select, DBMS_SQL.V7) ;

Line 2294: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.parse_vl_bal_cursor', vp_errbuf) ;

2290: Exception
2291: When Others Then
2292: vp_retcode := sqlcode ;
2293: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Parse] ' ;
2294: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.parse_vl_bal_cursor', vp_errbuf) ;
2295: return;
2296: End ;
2297:
2298: -- Bind the variables

Line 2321: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.execute_vl_bal_cursor', vp_errbuf) ;

2317: Exception
2318: When Others Then
2319: vp_retcode := sqlcode ;
2320: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Execute Cursor] ' ;
2321: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.execute_vl_bal_cursor', vp_errbuf) ;
2322: End ;
2323: Loop
2324: if dbms_sql.fetch_rows(vl_bal_cursor) = 0 then
2325: exit;

Line 2341: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.close_vl_bal_cursor', vp_errbuf) ;

2337: Exception
2338: When Others Then
2339: vp_retcode := sqlcode ;
2340: VP_ERRBUF := sqlerrm ;
2341: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.close_vl_bal_cursor', vp_errbuf) ;
2342: Return ;
2343: End ;
2344: EXCEPTION
2345: When Others Then

Line 2348: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

2344: EXCEPTION
2345: When Others Then
2346: vp_retcode := sqlcode ;
2347: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Others]' ;
2348: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
2349: return;
2350: END CALC_BALANCE ;
2351: -- -------------------------------------------------------------------
2352: -- PROCEDURE CREATE_FACTS_RECORD

Line 2477: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2473: va_prn_num,
2474: va_prn_txt) ;
2475:
2476:
2477: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2478: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Created FACTS Record') ;
2479: End If ;
2480: EXCEPTION
2481: When Others Then

Line 2478: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Created FACTS Record') ;

2474: va_prn_txt) ;
2475:
2476:
2477: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2478: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Created FACTS Record') ;
2479: End If ;
2480: EXCEPTION
2481: When Others Then
2482: vp_retcode := sqlcode ;

Line 2484: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

2480: EXCEPTION
2481: When Others Then
2482: vp_retcode := sqlcode ;
2483: vp_errbuf := sqlerrm || ' [CREATE_FACTS_RECORD] ' ;
2484: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
2485: return;
2486: END CREATE_FACTS_RECORD ;
2487: -- -------------------------------------------------------------------
2488: -- PROCEDURE GET_PROGRAM_SEGMENT

Line 2667: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||

2663: When NO_DATA_FOUND Then
2664: vp_retcode := -1 ;
2665: vp_errbuf := 'Error getting Value Set Id for segment'
2666: ||vl_prg_seg_name||' [GET_PROGRAM_SEGMENT]' ;
2667: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||
2668: '.no_data_found', vp_errbuf) ;
2669: When TOO_MANY_ROWS Then
2670: -- Too many value set ids returned for the program segment.
2671: vp_retcode := -1 ;

Line 2675: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

2671: vp_retcode := -1 ;
2672: vp_errbuf := 'Program Segment - '||vl_prg_seg_name||
2673: ' returned
2674: more than one Value Set !! '||'[ GET_PROGRAM_SEGMENT ]' ;
2675: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
2676: '.exception_1', vp_errbuf) ;
2677: End ;
2678: END IF;
2679:

Line 2706: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;

2702: vp_retcode := -1 ;
2703: vp_errbuf := 'Fund Value - ' || v_fund_value || ' returned more
2704: than one program segment value !! ' ||
2705: '[ GET_PROGRAM_SEGMENT ]' ;
2706: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
2707: return;
2708: WHEN OTHERS THEN
2709: vp_retcode := sqlcode ;
2710: vp_errbuf := sqlerrm ;

Line 2711: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

2707: return;
2708: WHEN OTHERS THEN
2709: vp_retcode := sqlcode ;
2710: vp_errbuf := sqlerrm ;
2711: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
2712: RAISE;
2713: END GET_PROGRAM_SEGMENT ;
2714: -- -------------------------------------------------------------------
2715: -- PROCEDURE GET_APPOR_CAT_B_TEXT

Line 2744: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;

2740: When NO_DATA_FOUND Then
2741: vp_retcode := -1 ;
2742: vp_errbuf := 'Cannot Find Apportionment Category B Text for
2743: the Program ' || p_program||' [GET_SEGMENT_TEXT] ';
2744: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
2745: return;
2746: When TOO_MANY_ROWS Then
2747: vp_retcode := -1 ;
2748: vp_errbuf := 'More then one Apportionment Category B Text found for

Line 2750: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;

2746: When TOO_MANY_ROWS Then
2747: vp_retcode := -1 ;
2748: vp_errbuf := 'More then one Apportionment Category B Text found for
2749: the Program '||p_program||' [GET_SEGMENT_TEXT]';
2750: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
2751: return;
2752: WHEN OTHERS THEN
2753: vp_retcode := sqlcode ;
2754: vp_errbuf := sqlerrm ;

Line 2755: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

2751: return;
2752: WHEN OTHERS THEN
2753: vp_retcode := sqlcode ;
2754: vp_errbuf := sqlerrm ;
2755: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
2756: RAISE;
2757: End ;
2758: -- -------------------------------------------------------------------
2759: -- PROCEDURE GET_ACCOUNT_TYPE

Line 2781: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message1', vp_errbuf) ;

2777: -- Process Null Account Types
2778: vp_retcode := -1 ;
2779: vp_errbuf := 'Account Type found null for the for the
2780: Account Number - ' || acct_num ;
2781: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message1', vp_errbuf) ;
2782: Return ;
2783: End If ;
2784: Exception
2785: When No_Data_Found Then

Line 2789: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;

2785: When No_Data_Found Then
2786: vp_retcode := -1 ;
2787: vp_errbuf := 'Account Type Cannot be derived for the Account Number - '
2788: || acct_num ;
2789: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
2790: Return ;
2791: WHEN OTHERS THEN
2792: vp_retcode := sqlcode ;
2793: vp_errbuf := sqlerrm ;

Line 2794: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

2790: Return ;
2791: WHEN OTHERS THEN
2792: vp_retcode := sqlcode ;
2793: vp_errbuf := sqlerrm ;
2794: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
2795: RAISE;
2796: End GET_ACCOUNT_TYPE ;
2797: -- -------------------------------------------------------------------
2798: -- PROCEDURE GET_SGL_PARENT

Line 2835: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

2831:
2832: WHEN OTHERS THEN
2833: vp_retcode := sqlcode ;
2834: vp_errbuf := sqlerrm ;
2835: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
2836: '.first_exception',vp_errbuf);
2837: RETURN;
2838: END;
2839:

Line 2861: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

2857: RETURN ;
2858: WHEN OTHERS THEN
2859: vp_retcode := sqlcode ;
2860: vp_errbuf := sqlerrm ;
2861: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
2862: '.final_exception',vp_errbuf);
2863: RAISE;
2864: END GET_SGL_PARENT ;
2865: -- -------------------------------------------------------------------

Line 2943: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

2939: EXCEPTION
2940: WHEN OTHERS THEN
2941: vp_retcode := sqlcode ;
2942: vp_errbuf := sqlerrm ||'[ build_appor_select]';
2943: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
2944: '.final_exception',vp_errbuf);
2945: RAISE;
2946:
2947: End build_appor_select ;

Line 2967: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;

2963: WHEN NO_DATA_FOUND Then
2964: vp_retcode := -1 ;
2965: vp_errbuf := 'Treasury Symbol Id cannot be found for the Treasury
2966: Symbol - '||vp_treasury_symbol||' [ GET_TREASURY_SYMBOL_ID ] ' ;
2967: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
2968: Return ;
2969: WHEN TOO_MANY_ROWS Then
2970: vp_retcode := -1 ;
2971: vp_errbuf := 'More than one Treasury Symbol Id found for the Treasury

Line 2973: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;

2969: WHEN TOO_MANY_ROWS Then
2970: vp_retcode := -1 ;
2971: vp_errbuf := 'More than one Treasury Symbol Id found for the Treasury
2972: Symbol - '||vp_treasury_symbol||' [ GET_TREASURY_SYMBOL_ID ] ' ;
2973: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
2974: WHEN OTHERS THEN
2975: vp_retcode := sqlcode ;
2976: vp_errbuf := sqlerrm ;
2977: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

Line 2977: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

2973: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
2974: WHEN OTHERS THEN
2975: vp_retcode := sqlcode ;
2976: vp_errbuf := sqlerrm ;
2977: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
2978: '.final_exception',vp_errbuf);
2979: RAISE;
2980: End Load_Treasury_symbol_id ;
2981: -------------------------------------------------------------------

Line 2992: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2988: vl_exec_ret Integer ;
2989:
2990: BEGIN
2991: select_group_by_columns(vp_report_id,vp_attribute_set,vl_group_by);
2992: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2993: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2994: 'Group by ' || vl_group_by);
2995: END IF;
2996:

Line 2993: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

2989:
2990: BEGIN
2991: select_group_by_columns(vp_report_id,vp_attribute_set,vl_group_by);
2992: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2993: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2994: 'Group by ' || vl_group_by);
2995: END IF;
2996:
2997: vl_rollup_cursor := DBMS_SQL.OPEN_CURSOR;

Line 3100: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3096: ADVANCE_FLAG ,
3097: TRANSFER_DEPT_ID,
3098: TRANSFER_MAIN_ACCT ' || vl_group_by ;
3099:
3100: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3101: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vl_rollup);
3102: END IF;
3103: dbms_sql.parse(vl_rollup_cursor, vl_rollup, DBMS_SQL.V7) ;
3104: vl_exec_ret := dbms_sql.execute(vl_rollup_cursor);

Line 3101: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vl_rollup);

3097: TRANSFER_DEPT_ID,
3098: TRANSFER_MAIN_ACCT ' || vl_group_by ;
3099:
3100: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3101: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vl_rollup);
3102: END IF;
3103: dbms_sql.parse(vl_rollup_cursor, vl_rollup, DBMS_SQL.V7) ;
3104: vl_exec_ret := dbms_sql.execute(vl_rollup_cursor);
3105: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 3105: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3101: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vl_rollup);
3102: END IF;
3103: dbms_sql.parse(vl_rollup_cursor, vl_rollup, DBMS_SQL.V7) ;
3104: vl_exec_ret := dbms_sql.execute(vl_rollup_cursor);
3105: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3106: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' No of records rolled up '
3107: || vl_exec_ret);
3108: END IF;
3109:

Line 3106: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' No of records rolled up '

3102: END IF;
3103: dbms_sql.parse(vl_rollup_cursor, vl_rollup, DBMS_SQL.V7) ;
3104: vl_exec_ret := dbms_sql.execute(vl_rollup_cursor);
3105: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3106: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' No of records rolled up '
3107: || vl_exec_ret);
3108: END IF;
3109:
3110: -- Delete the Detail Records that are used in rollup process

Line 3124: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

3120: EXCEPTION
3121: WHEN OTHERS THEN
3122: vp_retcode := sqlcode ;
3123: vp_errbuf := sqlerrm ;
3124: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
3125: '.final_exception',vp_errbuf);
3126: RAISE;
3127: END FACTS_ROLLUP_RECORDS;
3128:

Line 3142: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3138: Procedure PROCESS_BY_FUND_RANGE
3139: IS
3140: l_module_name VARCHAR2(200) := g_module_name || 'PROCESS_BY_FUND_RANGE';
3141: BEGIN
3142: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3143: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3144: 'Within the process_by_fund_range...') ;
3145: END IF;
3146:

Line 3143: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

3139: IS
3140: l_module_name VARCHAR2(200) := g_module_name || 'PROCESS_BY_FUND_RANGE';
3141: BEGIN
3142: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3143: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3144: 'Within the process_by_fund_range...') ;
3145: END IF;
3146:
3147: If vp_retcode = 0 Then

Line 3148: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3144: 'Within the process_by_fund_range...') ;
3145: END IF;
3146:
3147: If vp_retcode = 0 Then
3148: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3149: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3150: 'Deriving Qualifier Segments.....') ;
3151: END IF;
3152:

Line 3149: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

3145: END IF;
3146:
3147: If vp_retcode = 0 Then
3148: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3149: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3150: 'Deriving Qualifier Segments.....') ;
3151: END IF;
3152:
3153: -- Getting the Chart of Accounts Id

Line 3164: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);

3160: WHEN NO_DATA_FOUND THEN
3161: vp_retcode := -1 ;
3162: vp_errbuf := 'Error getting Chart of Accounts Id for ledger id '
3163: ||vp_set_of_books_id;
3164: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);
3165: RETURN;
3166: END;
3167: -- Getting the Account and Balancing segments' application column names
3168: BEGIN

Line 3178: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);

3174: EXCEPTION
3175: WHEN OTHERS THEN
3176: vp_retcode := -1;
3177: vp_errbuf := error_message;
3178: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);
3179: RETURN;
3180: END;
3181:
3182: /* Get fiscal year, account,balance segment names , Value set_id, */

Line 3205: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);

3201: when no_data_found then
3202: vp_retcode := -1 ;
3203: vp_errbuf := 'Error getting acc_value_set_id or
3204: coa or Fiscal year segment name';
3205: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);
3206: RETURN;
3207: END;
3208:
3209: End If ;

Line 3212: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3208:
3209: End If ;
3210:
3211: If vp_retcode = 0 Then
3212: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3213: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3214: l_module_name, 'Deriving Period information.....') ;
3215: END IF;
3216: GET_PERIOD_INFO ;

Line 3213: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,

3209: End If ;
3210:
3211: If vp_retcode = 0 Then
3212: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3213: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3214: l_module_name, 'Deriving Period information.....') ;
3215: END IF;
3216: GET_PERIOD_INFO ;
3217: End If ;

Line 3219: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3215: END IF;
3216: GET_PERIOD_INFO ;
3217: End If ;
3218: If vp_retcode = 0 Then
3219: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3220: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3221: 'Processing for each Fund.....');
3222: END IF;
3223: PROCESS_EACH_FUND ;

Line 3220: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

3216: GET_PERIOD_INFO ;
3217: End If ;
3218: If vp_retcode = 0 Then
3219: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3220: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3221: 'Processing for each Fund.....');
3222: END IF;
3223: PROCESS_EACH_FUND ;
3224: End If ;

Line 3230: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

3226: -- Exception Processing
3227: WHEN OTHERS THEN
3228: vp_retcode := sqlcode ;
3229: vp_errbuf := sqlerrm ;
3230: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
3231: '.final_exception',vp_errbuf);
3232: RETURN;
3233: END PROCESS_BY_FUND_RANGE;
3234: -- -------------------------------------------------------------------

Line 3281: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;

3277: When NO_DATA_FOUND Then
3278: vp_retcode := -1 ;
3279: vp_errbuf := 'Error getting Value Set Id for balancing segment'
3280: ||v_bal_seg_name||' [PROCESS_EACH_FUND]' ;
3281: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3282: return;
3283: END;
3284: -- Get the maximum number of records within the fund range.
3285: -- This is useful in submitting the ATB report.

Line 3295: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);

3291: if v_rec_count = 0 then
3292: vp_retcode := -1 ;
3293: fnd_message.set_name('FV','FV_FACTS_FVALUE_NOT_FOUND');
3294: vp_errbuf :=fnd_message.get ;
3295: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);
3296: return ;
3297: end if;
3298:
3299:

Line 3305: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3301: FOR C_Get_Fund_Values_Rec IN C_Get_Fund_Values
3302: LOOP
3303: vp_retcode := 0;
3304: v_fund_value := C_Get_Fund_Values_Rec.flex_value;
3305: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3306: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3307: 'Purging FACTS Temp....') ;
3308: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3309: 'Fund Vlaue : ' || v_fund_value) ;

Line 3306: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

3302: LOOP
3303: vp_retcode := 0;
3304: v_fund_value := C_Get_Fund_Values_Rec.flex_value;
3305: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3306: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3307: 'Purging FACTS Temp....') ;
3308: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3309: 'Fund Vlaue : ' || v_fund_value) ;
3310: END IF;

Line 3308: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

3304: v_fund_value := C_Get_Fund_Values_Rec.flex_value;
3305: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3306: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3307: 'Purging FACTS Temp....') ;
3308: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3309: 'Fund Vlaue : ' || v_fund_value) ;
3310: END IF;
3311: -- Increment the counter for fund
3312:

Line 3328: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3324: Load_Treasury_Symbol_Id;
3325:
3326: -- Getting the Treasury Symbol information
3327: If vp_retcode = 0 Then
3328: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3329: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3330: 'Deriving Treasury Symbol information.....');
3331: END IF;
3332: GET_TREASURY_SYMBOL_INFO ;

Line 3329: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

3325:
3326: -- Getting the Treasury Symbol information
3327: If vp_retcode = 0 Then
3328: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3329: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3330: 'Deriving Treasury Symbol information.....');
3331: END IF;
3332: GET_TREASURY_SYMBOL_INFO ;
3333: End if;

Line 3340: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;

3336: EXCEPTION
3337: When NO_DATA_FOUND Then
3338: vp_errbuf := 'No treasury symbol found for the fund '
3339: ||C_Get_Fund_Values_Rec.flex_value||' [PROCESS_EACH_FUND]' ;
3340: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3341: When OTHERS then
3342: vp_errbuf := 'Error populating the treasury symbol for the fund '
3343: ||C_Get_Fund_Values_Rec.flex_value||' [PROCESS_EACH_FUND]'||SQLERRM ;
3344: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name, vp_errbuf) ;

Line 3344: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name, vp_errbuf) ;

3340: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3341: When OTHERS then
3342: vp_errbuf := 'Error populating the treasury symbol for the fund '
3343: ||C_Get_Fund_Values_Rec.flex_value||' [PROCESS_EACH_FUND]'||SQLERRM ;
3344: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name, vp_errbuf) ;
3345: END;
3346:
3347: --Bug No # 2450918
3348: If vp_retcode = 0 Then

Line 3349: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3345: END;
3346:
3347: --Bug No # 2450918
3348: If vp_retcode = 0 Then
3349: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3350: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3351: 'Starting TB Main Process.....') ;
3352: END IF;
3353: PROCESS_FACTS_TRANSACTIONS ;

Line 3350: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

3346:
3347: --Bug No # 2450918
3348: If vp_retcode = 0 Then
3349: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3350: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3351: 'Starting TB Main Process.....') ;
3352: END IF;
3353: PROCESS_FACTS_TRANSACTIONS ;
3354: End If ;

Line 3376: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;

3372:
3373: if vl_req_id = 0 then
3374: vp_errbuf := 'Error submitting RX Report ';
3375: vp_retcode := -1 ;
3376: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3377: return;
3378: Else
3379: -- if concurrent request submission failed then abort process
3380: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 3380: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3376: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3377: return;
3378: Else
3379: -- if concurrent request submission failed then abort process
3380: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3381: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3382: 'Concurrent Request Id for RX Report - ' ||vl_req_id);
3383: END IF;
3384: end if;

Line 3381: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

3377: return;
3378: Else
3379: -- if concurrent request submission failed then abort process
3380: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3381: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3382: 'Concurrent Request Id for RX Report - ' ||vl_req_id);
3383: END IF;
3384: end if;
3385:

Line 3391: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||

3387: EXCEPTION
3388: WHEN OTHERS THEN
3389: vp_retcode := sqlcode ;
3390: vp_errbuf := sqlerrm ;
3391: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
3392: '.final_exception',vp_errbuf);
3393: RETURN;
3394: END PROCESS_EACH_FUND;
3395: --------------------------------------------------------------------------------

Line 3454: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,

3450: WHEN NO_DATA_FOUND THEN NULL;
3451: WHEN OTHERS THEN
3452: vp_errbuf := SQLERRM;
3453: vp_retcode := -1;
3454: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3455: l_module_name||'.exception1',vp_errbuf);
3456:
3457: END;
3458:

Line 3475: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,

3471: WHEN NO_DATA_FOUND THEN NULL;
3472: WHEN OTHERS THEN
3473: vp_errbuf := SQLERRM;
3474: vp_retcode := -1;
3475: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3476: l_module_name||'.exception2',vp_errbuf);
3477: END;
3478: END IF;
3479:

Line 3496: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,

3492: vp_retcode := -1;
3493: vl_prc_val := NULL;
3494: vl_prc_desc := NULL;
3495:
3496: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3497: l_module_name||'.exceptionx3',vp_errbuf);
3498:
3499: END;
3500: get_segment_text(vl_program_val,

Line 3554: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,

3550: EXCEPTION
3551: WHEN OTHERS THEN
3552: vp_errbuf := SQLERRM ||'[GET_PRC_VAL]';
3553: vp_retcode := -1;
3554: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3555: l_module_name||'.final_exception',vp_errbuf);
3556: RAISE;
3557:
3558: END get_prc_val;

Line 3615: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);

3611: EXCEPTION
3612: WHEN OTHERS THEN
3613: vp_errbuf := SQLERRM;
3614: vp_retcode := -1;
3615: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
3616: RAISE;
3617:
3618: END process_cat_b_seq;
3619: */