[Home] [Help]
320: IF vl_prc_no_code_count > 0 THEN
321: errbuf:= 'Reporting Code Type has not been updated for existing ' ||
322: 'Records. Please update the records and resubmit!';
323: retcode := -1;
324: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
325: RETURN;
326: END IF;
327:
328: FOR crec IN facts_record
466: IF l_call_status = FALSE THEN
467: errbuf := 'Can not wait for the status of the request ID:'||
468: l_request_ids(l_counter).request_id ;
469: retcode := '2';
470: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
471: ELSIF dphase= 'COMPLETE' THEN
472: IF l_counter = l_request_ids.COUNT THEN
473: l_flag := 1;
474: END IF;
478: END IF;
479:
480: END LOOP;
481:
482: IF ( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,errbuf);
484: END IF;
485:
486: ELSE -- vl_prc_map_count = 0
479:
480: END LOOP;
481:
482: IF ( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,errbuf);
484: END IF;
485:
486: ELSE -- vl_prc_map_count = 0
487: errbuf:= 'Program Reporting Code Mapping has not been done! '||
486: ELSE -- vl_prc_map_count = 0
487: errbuf:= 'Program Reporting Code Mapping has not been done! '||
488: 'Please map the Program Reporting Code and resubmit!';
489: retcode := -1;
490: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
491: END IF;
492:
493: ELSE -- vl_fiscalyear_count = 0
494: errbuf:= 'Budget Fiscal Year Mapping has not been done! '||
493: ELSE -- vl_fiscalyear_count = 0
494: errbuf:= 'Budget Fiscal Year Mapping has not been done! '||
495: 'Please map the Budget Fiscal Year Segments and resubmit!';
496: retcode := -1;
497: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
498: END IF;
499: EXCEPTION
500: WHEN OTHERS THEN
501: errbuf := SQLERRM;
499: EXCEPTION
500: WHEN OTHERS THEN
501: errbuf := SQLERRM;
502: retcode := -1;
503: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
504: l_module_name||'.final_exception',errbuf);
505: RAISE;
506:
507:
578: vp_zip := RPAD(zip,10);
579:
580:
581:
582: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
583: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
584: 'Deriving Treasury Symbol Id .....') ;
585: END IF;
586: load_treasury_symbol_id ;
579:
580:
581:
582: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
583: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
584: 'Deriving Treasury Symbol Id .....') ;
585: END IF;
586: load_treasury_symbol_id ;
587:
587:
588: IF vp_retcode <> 0 THEN
589: retcode := vp_retcode;
590: errbuf := vp_errbuf;
591: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
592: l_module_name,vp_errbuf);
593: RETURN;
594: END IF;
595: check_prc_map_seg(v_treasury_symbol_id,
600: IF vp_retcode <> 0 OR vl_catb_rc_map_status = 'FAIL' OR
601: vl_prn_rc_map_status = 'FAIL' THEN
602: retcode := vp_retcode;
603: errbuf := vp_errbuf;
604: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
605: l_module_name,vp_errbuf);
606: RETURN;
607: END IF;
608:
610: THEN v_year_gtn2001 := TRUE;
611: END IF;
612:
613:
614: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
615: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
616: 'Running FACTSII process');
617: END IF;
618:
611: END IF;
612:
613:
614: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
615: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
616: 'Running FACTSII process');
617: END IF;
618:
619: vc_fiscal_yr := LPAD(to_char(vp_report_fiscal_yr),4) ;
617: END IF;
618:
619: vc_fiscal_yr := LPAD(to_char(vp_report_fiscal_yr),4) ;
620:
621: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
622: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
623: 'Deriving Treasury Symbol Id .....') ;
624: END IF;
625: load_treasury_symbol_id ;
618:
619: vc_fiscal_yr := LPAD(to_char(vp_report_fiscal_yr),4) ;
620:
621: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
622: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
623: 'Deriving Treasury Symbol Id .....') ;
624: END IF;
625: load_treasury_symbol_id ;
626:
624: END IF;
625: load_treasury_symbol_id ;
626:
627: IF vp_retcode = 0 THEN
628: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
629: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
630: 'Purging FACTS Transactions.....') ;
631: END IF;
632: purge_facts_transactions ;
625: load_treasury_symbol_id ;
626:
627: IF vp_retcode = 0 THEN
628: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
629: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
630: 'Purging FACTS Transactions.....') ;
631: END IF;
632: purge_facts_transactions ;
633: END IF ;
632: purge_facts_transactions ;
633: END IF ;
634:
635: IF vp_retcode = 0 THEN
636: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
637: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
638: 'Deriving Qualifier Segments.....') ;
639: END IF;
640: get_qualifier_segments ;
633: END IF ;
634:
635: IF vp_retcode = 0 THEN
636: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
637: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
638: 'Deriving Qualifier Segments.....') ;
639: END IF;
640: get_qualifier_segments ;
641: END IF ;
640: get_qualifier_segments ;
641: END IF ;
642:
643: IF vp_retcode = 0 THEN
644: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
645: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
646: 'Deriving Treasury Symbol information.....');
647: END IF;
648: get_treasury_symbol_info ;
641: END IF ;
642:
643: IF vp_retcode = 0 THEN
644: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
645: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
646: 'Deriving Treasury Symbol information.....');
647: END IF;
648: get_treasury_symbol_info ;
649: END IF ;
648: get_treasury_symbol_info ;
649: END IF ;
650:
651: IF vp_retcode = 0 THEN
652: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
653: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
654: 'Deriving Period information.....') ;
655: END IF;
656: get_period_info ;
649: END IF ;
650:
651: IF vp_retcode = 0 THEN
652: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
653: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
654: 'Deriving Period information.....') ;
655: END IF;
656: get_period_info ;
657: END IF ;
656: get_period_info ;
657: END IF ;
658:
659: IF vp_retcode = 0 THEN
660: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
661: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
662: 'Starting FACTS Main Process.....') ;
663: END IF;
664: process_facts_transactions ;
657: END IF ;
658:
659: IF vp_retcode = 0 THEN
660: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
661: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
662: 'Starting FACTS Main Process.....') ;
663: END IF;
664: process_facts_transactions ;
665: END IF ;
681: errbuf := 'Generate FACTS II Reports and Bulk Files Process completed with warning '||
682: 'because the Public Law, Advance and Transfer attribute '||
683: 'columns are not established on the '||
684: 'Define System Parameters Form.';
685: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
686: END IF;
687:
688: ELSIF vp_retcode = 1 THEN
689: retcode := vp_retcode ;
693: retcode := vp_retcode ;
694: errbuf := vp_errbuf ;
695: vl_facts2_status := 'ERROR';
696: ROLLBACK ;
697: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
698: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
699: 'Stopped FACTS Main Process.....') ;
700: END IF;
701: END IF ;
694: errbuf := vp_errbuf ;
695: vl_facts2_status := 'ERROR';
696: ROLLBACK ;
697: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
698: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
699: 'Stopped FACTS Main Process.....') ;
700: END IF;
701: END IF ;
702:
710: EXCEPTION
711: WHEN OTHERS THEN
712: vp_retcode := sqlcode ;
713: vp_errbuf := sqlerrm || ' [MAIN] ' ;
714: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
715: l_module_name||'.final_exception',vp_errbuf);
716:
717: ROLLBACK;
718:
735: FROM fv_treasury_symbols
736: WHERE treasury_symbol = vp_treasury_symbol
737: AND set_of_books_id = vp_set_of_books_id ;
738:
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,
741: ' Treasury Symbol ID: ' ||v_treasury_symbol_id);
742: END IF;
743:
736: WHERE treasury_symbol = vp_treasury_symbol
737: AND set_of_books_id = vp_set_of_books_id ;
738:
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,
741: ' Treasury Symbol ID: ' ||v_treasury_symbol_id);
742: END IF;
743:
744: EXCEPTION
745: WHEN NO_DATA_FOUND THEN
746: vp_retcode := -1 ;
747: vp_errbuf := 'Treasury Symbol Id cannot be found for the Treasury
748: Symbol - '||vp_treasury_symbol||' [ GET_TREASURY_SYMBOL_ID ] ' ;
749: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
750: l_module_name||'.exception1',vp_errbuf);
751: WHEN TOO_MANY_ROWS Then
752: vp_retcode := -1 ;
753: vp_errbuf := 'More than one Treasury Symbol Id found for the Treasury
751: WHEN TOO_MANY_ROWS Then
752: vp_retcode := -1 ;
753: vp_errbuf := 'More than one Treasury Symbol Id found for the Treasury
754: Symbol - '||vp_treasury_symbol||' [ GET_TREASURY_SYMBOL_ID ] ' ;
755: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
756: l_module_name||'.exception2',vp_errbuf);
757: WHEN OTHERS THEN
758: vp_errbuf := SQLERRM;
759: vp_retcode := -1;
756: l_module_name||'.exception2',vp_errbuf);
757: WHEN OTHERS THEN
758: vp_errbuf := SQLERRM;
759: vp_retcode := -1;
760: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
761: l_module_name||'.final_exception',vp_errbuf);
762: RAISE;
763: END load_treasury_symbol_id ;
764: --------------------------------------------------------------------------------------
786: Null ;
787: When Others Then
788: vp_retcode := sqlcode ;
789: vp_errbuf := sqlerrm ;
790: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
791: l_module_name||'.final_exception',vp_errbuf);
792: END purge_facts_transactions ;
793: --------------------------------------------------------------------------------
794: -- Gets the Accounting and Balancing segment names for the Chart
821: WHEN NO_DATA_FOUND THEN
822: vp_retcode := -1 ;
823: vp_errbuf := 'Error getting Chart of Accounts Id for ledger id '
824: ||vp_set_of_books_id;
825: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);
826: RETURN;
827: END;
828: -- Getting the Account and Balancing segments' application column names
829: BEGIN
835: EXCEPTION
836: WHEN OTHERS THEN
837: vp_retcode := -1;
838: vp_errbuf := error_message;
839: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);
840: RETURN;
841: END;
842:
843: -- Getting the Value Set Id for the Account Segment
854: WHEN NO_DATA_FOUND THEN
855: vp_retcode := -1 ;
856: vp_errbuf := 'Error getting Value Set Id for segment'
857: ||v_acc_seg_name||' [GET_USSGL_ACCOUNT_NUM]' ;
858: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
859: RETURN;
860: END ;
861:
862: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
858: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
859: RETURN;
860: END ;
861:
862: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
863: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
864: ' COA ID: '||v_chart_of_accounts_id);
865: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
866: ' ACC SEG: '||v_acc_seg_name);
859: RETURN;
860: END ;
861:
862: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
863: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
864: ' COA ID: '||v_chart_of_accounts_id);
865: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
866: ' ACC SEG: '||v_acc_seg_name);
867: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
861:
862: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
863: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
864: ' COA ID: '||v_chart_of_accounts_id);
865: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
866: ' ACC SEG: '||v_acc_seg_name);
867: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
868: ' BAL SEG: '||v_bal_seg_name);
869: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
863: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
864: ' COA ID: '||v_chart_of_accounts_id);
865: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
866: ' ACC SEG: '||v_acc_seg_name);
867: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
868: ' BAL SEG: '||v_bal_seg_name);
869: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
870: ' ACC Val Set ID: '||v_acc_val_set_id);
871: END IF;
865: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
866: ' ACC SEG: '||v_acc_seg_name);
867: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
868: ' BAL SEG: '||v_bal_seg_name);
869: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
870: ' ACC Val Set ID: '||v_acc_val_set_id);
871: END IF;
872:
873: -- Getting Fiscal year segment name from fv_pya_fiscal_year_segment
874: SELECT application_column_name
875: INTO v_fyr_segment_name
876: FROM fv_pya_fiscalyear_segment
877: WHERE set_of_books_id = vp_set_of_books_id;
878: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
880: 'Fiscal year segment: '||v_fyr_segment_name);
881: END IF;
882: EXCEPTION
875: INTO v_fyr_segment_name
876: FROM fv_pya_fiscalyear_segment
877: WHERE set_of_books_id = vp_set_of_books_id;
878: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
880: 'Fiscal year segment: '||v_fyr_segment_name);
881: END IF;
882: EXCEPTION
883: WHEN OTHERS THEN
882: EXCEPTION
883: WHEN OTHERS THEN
884: vp_retcode := sqlcode;
885: vp_errbuf := sqlerrm ;
886: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
887: l_module_name||'.final_exception',vp_errbuf);
888: END get_qualifier_segments ;
889: --------------------------------------------------------------------------------------
890: -- Gets all the information that remains contant throughout the
940: /* IF v_year_gtn2001 THEN
941: vc_acct_split_seq_num := '000';
942: END IF; */
943:
944: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
945: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
946: l_module_name, 'Financing Acct >>> - ' ||
947: vl_financing_acct || ' >>>> - Cohort Seg Name - ' ||
948: v_cohort_seg_name) ;
941: vc_acct_split_seq_num := '000';
942: END IF; */
943:
944: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
945: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
946: l_module_name, 'Financing Acct >>> - ' ||
947: vl_financing_acct || ' >>>> - Cohort Seg Name - ' ||
948: v_cohort_seg_name) ;
949: END IF ;
985: WHEN NO_DATA_FOUND THEN
986: vp_retcode := -1 ;
987: vp_errbuf := 'Error Getting Treasury Symbol related Information'||
988: ' for the passed Treasury Symbol [GET_TREASURY_SYMBOL_INFO] ' ;
989: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
990: l_module_name||'.exception1', vp_errbuf) ;
991: WHEN TOO_MANY_ROWS THEN
992: vp_retcode := -1 ;
993: vp_errbuf := 'More than one set of information returned for the'||
991: WHEN TOO_MANY_ROWS THEN
992: vp_retcode := -1 ;
993: vp_errbuf := 'More than one set of information returned for the'||
994: ' passed Treasury Symbol [GET_TREASURY_SYMBOL_INFO]' ;
995: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
996: l_module_name||'.exception2', vp_errbuf) ;
997: WHEN OTHERS THEN
998: vp_errbuf := SQLERRM;
999: vp_retcode := -1;
996: l_module_name||'.exception2', vp_errbuf) ;
997: WHEN OTHERS THEN
998: vp_errbuf := SQLERRM;
999: vp_retcode := -1;
1000: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1001: l_module_name||'.final_exception',vp_errbuf);
1002: RAISE;
1003: END get_treasury_symbol_info ;
1004: --------------------------------------------------------------------------------
1028: AND application_id = 101
1029: AND period_year = vp_report_fiscal_yr
1030: AND period_num = v_period_num ;
1031:
1032: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1033: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1034: l_module_name,' Period Name: '||v_period_name);
1035: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1036: l_module_name,' Period Start Dt: '||v_period_start_dt);
1029: AND period_year = vp_report_fiscal_yr
1030: AND period_num = v_period_num ;
1031:
1032: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1033: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1034: l_module_name,' Period Name: '||v_period_name);
1035: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1036: l_module_name,' Period Start Dt: '||v_period_start_dt);
1037: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1031:
1032: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1033: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1034: l_module_name,' Period Name: '||v_period_name);
1035: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1036: l_module_name,' Period Start Dt: '||v_period_start_dt);
1037: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1038: l_module_name,' Period End Dt: '||v_period_end_dt);
1039: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1033: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1034: l_module_name,' Period Name: '||v_period_name);
1035: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1036: l_module_name,' Period Start Dt: '||v_period_start_dt);
1037: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1038: l_module_name,' Period End Dt: '||v_period_end_dt);
1039: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1040: l_module_name,' Quarter Num: '||vp_report_qtr);
1041: END IF;
1035: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1036: l_module_name,' Period Start Dt: '||v_period_start_dt);
1037: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1038: l_module_name,' Period End Dt: '||v_period_end_dt);
1039: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1040: l_module_name,' Quarter Num: '||vp_report_qtr);
1041: END IF;
1042:
1043: EXCEPTION
1044: WHEN NO_DATA_FOUND THEN
1045: vp_retcode := -1 ;
1046: vp_errbuf := 'Error Getting Period Information for the passed '||
1047: 'period [GET_PERIOD_INFO]' ;
1048: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
1049: RETURN;
1050: WHEN TOO_MANY_ROWS THEN
1051: vp_retcode := -1 ;
1052: vp_errbuf := 'More than one period information returned for the '||
1050: WHEN TOO_MANY_ROWS THEN
1051: vp_retcode := -1 ;
1052: vp_errbuf := 'More than one period information returned for the '||
1053: 'passed Period [GET_PERIOD_INFO]' ;
1054: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
1055: RETURN;
1056: END ;
1057:
1058: BEGIN
1078: -- AND adjustment_period_flag = 'N'
1079: AND ledger_id = vp_set_of_books_id
1080: AND period_year = vp_report_fiscal_yr ;
1081:
1082: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1083: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1084: l_module_name,' Begin Prd Name: '||v_begin_period_name);
1085: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1086: l_module_name,
1079: AND ledger_id = vp_set_of_books_id
1080: AND period_year = vp_report_fiscal_yr ;
1081:
1082: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1083: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1084: l_module_name,' Begin Prd Name: '||v_begin_period_name);
1085: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1086: l_module_name,
1087: ' Begin Prd St Dt: '|| v_begin_period_start_dt);
1081:
1082: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1083: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1084: l_module_name,' Begin Prd Name: '||v_begin_period_name);
1085: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1086: l_module_name,
1087: ' Begin Prd St Dt: '|| v_begin_period_start_dt);
1088: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1089: ' Begin Prd End Dt: '|| v_begin_period_end_dt);
1084: l_module_name,' Begin Prd Name: '||v_begin_period_name);
1085: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1086: l_module_name,
1087: ' Begin Prd St Dt: '|| v_begin_period_start_dt);
1088: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1089: ' Begin Prd End Dt: '|| v_begin_period_end_dt);
1090: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1091: ' Begin Prd Num: '||v_begin_period_num);
1092: END IF;
1086: l_module_name,
1087: ' Begin Prd St Dt: '|| v_begin_period_start_dt);
1088: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1089: ' Begin Prd End Dt: '|| v_begin_period_end_dt);
1090: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1091: ' Begin Prd Num: '||v_begin_period_num);
1092: END IF;
1093:
1094: EXCEPTION
1095: WHEN NO_DATA_FOUND THEN
1096: vp_retcode := -1 ;
1097: vp_errbuf := 'Error Getting Beginning Period Information ' ||
1098: '[GET_PERIOD_INFO]' ;
1099: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
1100: l_module_name, vp_errbuf) ;
1101: RETURN;
1102: WHEN TOO_MANY_ROWS THEN
1103: vp_retcode := -1 ;
1102: WHEN TOO_MANY_ROWS THEN
1103: vp_retcode := -1 ;
1104: vp_errbuf := 'More than one Beginning Period Returned !!'||
1105: ' [GET_PERIOD_INFO]' ;
1106: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
1107: l_module_name, vp_errbuf) ;
1108: RETURN;
1109: END ;
1110: EXCEPTION
1111: -- Exception Processing
1112: WHEN OTHERS THEN
1113: vp_retcode := sqlcode ;
1114: vp_errbuf := sqlerrm || ' [GET_PERIOD_INFO] ' ;
1115: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1116: l_module_name||'.final_exception',vp_errbuf);
1117: END get_period_info ;
1118:
1119: --------------------------------------------------------------------------------
1219: -- Get all the transaction balances for the combinations that have
1220: -- fund values which are associated with the passed Treasury
1221: -- Symbol. Sum all the amounts and group the data by Account Number
1222: -- and Fund Value.
1223: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1224: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1225: 'Selecting FACTS Transactions.....') ;
1226: END IF;
1227: BEGIN
1220: -- fund values which are associated with the passed Treasury
1221: -- Symbol. Sum all the amounts and group the data by Account Number
1222: -- and Fund Value.
1223: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1224: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1225: 'Selecting FACTS Transactions.....') ;
1226: END IF;
1227: BEGIN
1228: vl_main_cursor := DBMS_SQL.OPEN_CURSOR ;
1229: EXCEPTION
1230: WHEN OTHERS THEN
1231: vp_retcode := sqlcode ;
1232: vp_errbuf := sqlerrm ;
1233: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1234: l_module_name||'.vl_main_cursor', vp_errbuf) ;
1235: RETURN;
1236: END ;
1237:
1308: ' ORDER BY GLCC.' || v_acc_seg_name ;
1309:
1310:
1311:
1312: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1313: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1314: 'Main Select: '||vl_main_select);
1315: END IF;
1316:
1309:
1310:
1311:
1312: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1313: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1314: 'Main Select: '||vl_main_select);
1315: END IF;
1316:
1317: BEGIN
1319: EXCEPTION
1320: WHEN OTHERS THEN
1321: vp_retcode := sqlcode ;
1322: vp_errbuf := sqlerrm ;
1323: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1324: l_module_name||'.dbms_sql_parse', vp_errbuf) ;
1325: RETURN;
1326: END ;
1327:
1353: EXCEPTION
1354: WHEN OTHERS THEN
1355: vp_retcode := sqlcode ;
1356: VP_ERRBUF := sqlerrm ;
1357: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1358: l_module_name||'.dbms_sql_parse', vp_errbuf) ;
1359: RETURN;
1360: END ;
1361:
1358: l_module_name||'.dbms_sql_parse', vp_errbuf) ;
1359: RETURN;
1360: END ;
1361:
1362: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1364: 'Processing FACTS Transactions starts.....');
1365: END IF;
1366: LOOP
1359: RETURN;
1360: END ;
1361:
1362: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1364: 'Processing FACTS Transactions starts.....');
1365: END IF;
1366: LOOP
1367: -- This is a Dummy Loop since we have no command in PL/SQL to skip
1405: -- No Rows to process for FACTS II Report !!
1406: vp_retcode := 1 ;
1407: VP_ERRBUF := 'No Data found for FACTS II process' ;
1408:
1409: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1410: '=======================' ||
1411: '===================================================') ;
1412: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1413: vp_errbuf) ;
1408:
1409: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1410: '=======================' ||
1411: '===================================================') ;
1412: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1413: vp_errbuf) ;
1414: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1415: '=======================' ||
1416: '===================================================') ;
1410: '=======================' ||
1411: '===================================================') ;
1412: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1413: vp_errbuf) ;
1414: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1415: '=======================' ||
1416: '===================================================') ;
1417: RETURN;
1418: END IF;
1435: dbms_sql.column_value(vl_main_cursor, 4, vb_amount);
1436: dbms_sql.column_value(vl_main_cursor, 5, ve_amount);
1437: END IF;
1438:
1439: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1440: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1441: '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
1442: END IF;
1443:
1436: dbms_sql.column_value(vl_main_cursor, 5, ve_amount);
1437: END IF;
1438:
1439: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1440: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1441: '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
1442: END IF;
1443:
1444: -- FACTS Account Number Validation Process
1457: vl_old_acct_num := vl_acct_num ;
1458: vl_old_exception := v_record_category ;
1459: END IF ;
1460:
1461: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1462: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1463: 'Processing for> Acct-'||vl_acct_num||
1464: ' > USSGL Acct-'||vl_sgl_acct_num||' > Fund-'||vl_fund_value||
1465: ' Cohort >-'||vl_cohort_yr|| ' > Category - ' ||
1458: vl_old_exception := v_record_category ;
1459: END IF ;
1460:
1461: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1462: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1463: 'Processing for> Acct-'||vl_acct_num||
1464: ' > USSGL Acct-'||vl_sgl_acct_num||' > Fund-'||vl_fund_value||
1465: ' Cohort >-'||vl_cohort_yr|| ' > Category - ' ||
1466: v_record_category ) ;
1501: ---v_amount := vl_amount;
1502: ------------------------------------------- */
1503: v_amount := ve_amount; -- bug 5065974
1504:
1505: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1507: 'Creating exception: '|| v_record_category);
1508: END IF;
1509: create_facts_record ;
1502: ------------------------------------------- */
1503: v_amount := ve_amount; -- bug 5065974
1504:
1505: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1506: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1507: 'Creating exception: '|| v_record_category);
1508: END IF;
1509: create_facts_record ;
1510: IF vp_retcode <> 0 THEN
1524: INTO v_dummy_cohort
1525: FROM DUAL;
1526: --Bug#4234865 Changed v_dummy_cohort to vl_cohort_yr
1527: IF LENGTH(vl_cohort_yr) = 1 THEN
1528: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1529: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1530: 'Cohort value: '||vl_cohort_yr|| ' is a single digit!');
1531: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1532: 'Taking Cohort value from report parameter.');
1525: FROM DUAL;
1526: --Bug#4234865 Changed v_dummy_cohort to vl_cohort_yr
1527: IF LENGTH(vl_cohort_yr) = 1 THEN
1528: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1529: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1530: 'Cohort value: '||vl_cohort_yr|| ' is a single digit!');
1531: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1532: 'Taking Cohort value from report parameter.');
1533: END IF;
1527: IF LENGTH(vl_cohort_yr) = 1 THEN
1528: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1529: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1530: 'Cohort value: '||vl_cohort_yr|| ' is a single digit!');
1531: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1532: 'Taking Cohort value from report parameter.');
1533: END IF;
1534: v_dummy_cohort := vp_report_fiscal_yr;
1535: --Bug#4234865 Added the ELSE part
1537: v_dummy_cohort := vl_cohort_yr;
1538: END IF;
1539:
1540: EXCEPTION WHEN INVALID_NUMBER THEN
1541: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1542: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1543: 'Cohort value: '||vl_cohort_yr|| ' is non-numeric!');
1544: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1545: 'Taking Cohort value from report parameter.');
1538: END IF;
1539:
1540: EXCEPTION WHEN INVALID_NUMBER THEN
1541: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1542: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1543: 'Cohort value: '||vl_cohort_yr|| ' is non-numeric!');
1544: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1545: 'Taking Cohort value from report parameter.');
1546: END IF;
1540: EXCEPTION WHEN INVALID_NUMBER THEN
1541: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1542: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1543: 'Cohort value: '||vl_cohort_yr|| ' is non-numeric!');
1544: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1545: 'Taking Cohort value from report parameter.');
1546: END IF;
1547: v_dummy_cohort := vp_report_fiscal_yr;
1548: END;
1569: WHERE period_year = vp_report_fiscal_yr
1570: AND set_of_books_id = vp_set_of_books_id;
1571: EXCEPTION
1572: WHEN NO_DATA_FOUND THEN
1573: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1574: 'Please set up the Budget Fiscal Year Segment Mapping for period year '||vp_report_fiscal_yr);
1575: RAISE;
1576: END;
1577:
1583: END IF;
1584: END IF;
1585: END IF;
1586:
1587: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1588: THEN
1589: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1590: 'Year bud auth: '||v_year_budget_auth);
1591: END IF;
1585: END IF;
1586:
1587: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1588: THEN
1589: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1590: 'Year bud auth: '||v_year_budget_auth);
1591: END IF;
1592: EXCEPTION WHEN OTHERS THEN
1593: vp_retcode := sqlcode;
1592: EXCEPTION WHEN OTHERS THEN
1593: vp_retcode := sqlcode;
1594: vp_errbuf := 'Error when processing v_year_budget_auth: '||
1595: sqlerrm;
1596: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1597: l_module_name||'.exception_1',vp_errbuf);
1598: RETURN;
1599: END;
1600:
1619:
1620: -------------- Legislation Indicator Processing Starts ----------------
1621: IF va_legis_Ind_flag = 'Y' OR va_public_law_code_flag = 'Y'
1622: OR va_advance_flag = 'Y' OR va_transfer_ind = 'Y' THEN
1623: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1624: IF (va_legis_ind_flag ='Y' AND va_public_law_code_flag ='Y') THEN
1625: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1626: THEN
1627: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1621: IF va_legis_Ind_flag = 'Y' OR va_public_law_code_flag = 'Y'
1622: OR va_advance_flag = 'Y' OR va_transfer_ind = 'Y' THEN
1623: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1624: IF (va_legis_ind_flag ='Y' AND va_public_law_code_flag ='Y') THEN
1625: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1626: THEN
1627: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1628: ' ++ Leg Ind and P.Law Processing ++') ;
1629: END IF;
1623: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1624: IF (va_legis_ind_flag ='Y' AND va_public_law_code_flag ='Y') THEN
1625: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1626: THEN
1627: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1628: ' ++ Leg Ind and P.Law Processing ++') ;
1629: END IF;
1630: ELSIF (va_legis_ind_flag = 'Y' AND va_public_law_code_flag = 'N')
1631: THEN
1628: ' ++ Leg Ind and P.Law Processing ++') ;
1629: END IF;
1630: ELSIF (va_legis_ind_flag = 'Y' AND va_public_law_code_flag = 'N')
1631: THEN
1632: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1633: THEN
1634: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1635: ' ++ Leg Ind Processing ++') ;
1636: END IF;
1630: ELSIF (va_legis_ind_flag = 'Y' AND va_public_law_code_flag = 'N')
1631: THEN
1632: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1633: THEN
1634: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1635: ' ++ Leg Ind Processing ++') ;
1636: END IF;
1637: ELSIF va_legis_ind_flag = 'N' AND va_public_law_code_flag = 'Y'
1638: THEN
1635: ' ++ Leg Ind Processing ++') ;
1636: END IF;
1637: ELSIF va_legis_ind_flag = 'N' AND va_public_law_code_flag = 'Y'
1638: THEN
1639: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1640: THEN
1641: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1642: ' ++ Pub Law Processing ++') ;
1643: END IF;
1637: ELSIF va_legis_ind_flag = 'N' AND va_public_law_code_flag = 'Y'
1638: THEN
1639: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1640: THEN
1641: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1642: ' ++ Pub Law Processing ++') ;
1643: END IF;
1644: END IF ;
1645:
1643: END IF;
1644: END IF ;
1645:
1646: IF va_advance_flag = 'Y' THEN
1647: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1648: THEN
1649: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1650: '++ Advance Type Processing ++') ;
1651: END IF;
1645:
1646: IF va_advance_flag = 'Y' THEN
1647: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1648: THEN
1649: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1650: '++ Advance Type Processing ++') ;
1651: END IF;
1652: END IF;
1653: IF va_transfer_ind = 'Y' THEN
1650: '++ Advance Type Processing ++') ;
1651: END IF;
1652: END IF;
1653: IF va_transfer_ind = 'Y' THEN
1654: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1655: THEN
1656: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1657: '++ Transfer Acct Processing ++') ;
1658: END IF;
1652: END IF;
1653: IF va_transfer_ind = 'Y' THEN
1654: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1655: THEN
1656: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1657: '++ Transfer Acct Processing ++') ;
1658: END IF;
1659: END IF;
1660: END IF ;
1688: va_transfer_dept_id := ' ' ;
1689: va_transfer_main_acct := ' ' ;
1690: END IF ;
1691:
1692: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1693: THEN
1694: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1695: 'Period number '||v_begin_period_num) ;
1696: END IF;
1690: END IF ;
1691:
1692: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1693: THEN
1694: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1695: 'Period number '||v_begin_period_num) ;
1696: END IF;
1697:
1698: /* ------- bug 5065974 -------------------
1793: v_record_category := 'REPORTED' ;
1794: --v_amount := v_begin_amount ; -- bug 5065974
1795: v_amount := vb_balance_amount ; -- bug 5065974
1796: v_period_activity := 0 ;
1797: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1798: THEN
1799: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1800: 'Begin Balance(' || va_balance_type_flag || ') >>>> - ' || to_char(v_amount)) ;
1801: END IF ;
1795: v_amount := vb_balance_amount ; -- bug 5065974
1796: v_period_activity := 0 ;
1797: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1798: THEN
1799: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1800: 'Begin Balance(' || va_balance_type_flag || ') >>>> - ' || to_char(v_amount)) ;
1801: END IF ;
1802:
1803: create_facts_record ;
1812: v_record_category := 'REPORTED' ;
1813: --v_amount := v_begin_amount ;
1814: v_amount := vb_balance_amount ;
1815: v_period_activity := 0 ;
1816: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1817: THEN
1818: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Begin Balance(' ||
1819: va_balance_type_flag || ') >>>> - ' || to_char(v_amount)) ;
1820: END IF ;
1814: v_amount := vb_balance_amount ;
1815: v_period_activity := 0 ;
1816: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1817: THEN
1818: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Begin Balance(' ||
1819: va_balance_type_flag || ') >>>> - ' || to_char(v_amount)) ;
1820: END IF ;
1821:
1822: create_facts_record ;
1835: EXCEPTION
1836: WHEN OTHERS THEN
1837: vp_retcode := sqlcode ;
1838: VP_ERRBUF := sqlerrm ;
1839: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1840: l_module_name||'.vl_legis_cursor', vp_errbuf) ;
1841: RETURN ;
1842: END ;
1843:
1867: gl_access_set_security_pkg.CHECK_SEGVALS,
1868: null, 'glcc', null);
1869: -- Get the transactions for the account Number and Fund (and
1870: -- cohort segment, if required)
1871: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1872: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1873: 'vl_legis_Select') ;
1874: END IF;
1875:
1868: null, 'glcc', null);
1869: -- Get the transactions for the account Number and Fund (and
1870: -- cohort segment, if required)
1871: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1872: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1873: 'vl_legis_Select') ;
1874: END IF;
1875:
1876: vl_legis_select :=
1952: IF (das_where IS NOT NULL) THEN
1953: vl_legis_select := vl_legis_select || 'AND ' || das_where;
1954: END IF;
1955:
1956: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1957: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1958: vl_legis_select) ;
1959: END IF;
1960:
1953: vl_legis_select := vl_legis_select || 'AND ' || das_where;
1954: END IF;
1955:
1956: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1957: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1958: vl_legis_select) ;
1959: END IF;
1960:
1961: BEGIN
1963: EXCEPTION
1964: WHEN OTHERS THEN
1965: vp_retcode := sqlcode ;
1966: vp_errbuf := sqlerrm ;
1967: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1968: l_module_name||'.dbms_sql_parse_vl_legis_cursor',
1969: vp_errbuf) ;
1970: RETURN ;
1971: END ;
2025: EXCEPTION
2026: WHEN OTHERS THEN
2027: vp_retcode := sqlcode ;
2028: vp_errbuf := sqlerrm ;
2029: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2030: l_module_name||'.dbms_sql_execute_vl_legis_cursor',
2031: vp_errbuf) ;
2032: RETURN ;
2033: END ;
2073: dbms_sql.column_value(vl_legis_cursor, vl_count,
2074: vl_advance_type);
2075: END IF;
2076:
2077: IF ( FND_LOG.LEVEL_STATEMENT >=
2078: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2079: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2080: l_module_name,'Ref 1-'||NVL(vl_legis_ref,'Ref Null')) ;
2081: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2074: vl_advance_type);
2075: END IF;
2076:
2077: IF ( FND_LOG.LEVEL_STATEMENT >=
2078: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2079: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2080: l_module_name,'Ref 1-'||NVL(vl_legis_ref,'Ref Null')) ;
2081: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2082: l_module_name,'P Law-'||
2075: END IF;
2076:
2077: IF ( FND_LOG.LEVEL_STATEMENT >=
2078: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2079: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2080: l_module_name,'Ref 1-'||NVL(vl_legis_ref,'Ref Null')) ;
2081: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2082: l_module_name,'P Law-'||
2083: NVL(va_public_law_code_val, 'P Law Null')) ;
2077: IF ( FND_LOG.LEVEL_STATEMENT >=
2078: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2079: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2080: l_module_name,'Ref 1-'||NVL(vl_legis_ref,'Ref Null')) ;
2081: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2082: l_module_name,'P Law-'||
2083: NVL(va_public_law_code_val, 'P Law Null')) ;
2084: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2085: l_module_name,'Amt:'||
2080: l_module_name,'Ref 1-'||NVL(vl_legis_ref,'Ref Null')) ;
2081: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2082: l_module_name,'P Law-'||
2083: NVL(va_public_law_code_val, 'P Law Null')) ;
2084: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2085: l_module_name,'Amt:'||
2086: NVL(TO_CHAR(vl_legis_amount), 'Amt Null')) ;
2087: END IF ;
2088:
2122: vl_sgl_acct_num_bak := v_sgl_acct_num;
2123: v_sgl_acct_num := vl_acct_num ;
2124: va_public_law_code_val := NULL;
2125: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2126: IF ( FND_LOG.LEVEL_STATEMENT >=
2127: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2128: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2129: l_module_name,'Creating exception :'||
2130: v_record_category);
2123: v_sgl_acct_num := vl_acct_num ;
2124: va_public_law_code_val := NULL;
2125: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2126: IF ( FND_LOG.LEVEL_STATEMENT >=
2127: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2128: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2129: l_module_name,'Creating exception :'||
2130: v_record_category);
2131: END IF;
2124: va_public_law_code_val := NULL;
2125: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2126: IF ( FND_LOG.LEVEL_STATEMENT >=
2127: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2128: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2129: l_module_name,'Creating exception :'||
2130: v_record_category);
2131: END IF;
2132:
2143: vl_sgl_acct_num_bak := v_sgl_acct_num;
2144: v_sgl_acct_num := vl_acct_num ;
2145: va_public_law_code_val := NULL;
2146: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2147: IF ( FND_LOG.LEVEL_STATEMENT >=
2148: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2149: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2150: l_module_name,'Creating exception :'||
2151: v_record_category);
2144: v_sgl_acct_num := vl_acct_num ;
2145: va_public_law_code_val := NULL;
2146: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2147: IF ( FND_LOG.LEVEL_STATEMENT >=
2148: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2149: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2150: l_module_name,'Creating exception :'||
2151: v_record_category);
2152: END IF;
2145: va_public_law_code_val := NULL;
2146: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2147: IF ( FND_LOG.LEVEL_STATEMENT >=
2148: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2149: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2150: l_module_name,'Creating exception :'||
2151: v_record_category);
2152: END IF;
2153: create_facts_record ;
2160: vl_sgl_acct_num_bak := v_sgl_acct_num;
2161: v_sgl_acct_num := vl_acct_num ;
2162: va_public_law_code_val := NULL;
2163: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2164: IF ( FND_LOG.LEVEL_STATEMENT >=
2165: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2166: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2167: l_module_name,'Creating exception :'||
2168: v_record_category);
2161: v_sgl_acct_num := vl_acct_num ;
2162: va_public_law_code_val := NULL;
2163: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2164: IF ( FND_LOG.LEVEL_STATEMENT >=
2165: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2166: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2167: l_module_name,'Creating exception :'||
2168: v_record_category);
2169: END IF;
2162: va_public_law_code_val := NULL;
2163: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2164: IF ( FND_LOG.LEVEL_STATEMENT >=
2165: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2166: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2167: l_module_name,'Creating exception :'||
2168: v_record_category);
2169: END IF;
2170: create_facts_record ;
2185: vl_sgl_acct_num_bak := v_sgl_acct_num;
2186: v_sgl_acct_num := vl_acct_num ;
2187: va_public_law_code_val := NULL;
2188: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2189: IF ( FND_LOG.LEVEL_STATEMENT >=
2190: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2191: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2192: l_module_name,'Creating exception :'||
2193: v_record_category);
2186: v_sgl_acct_num := vl_acct_num ;
2187: va_public_law_code_val := NULL;
2188: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2189: IF ( FND_LOG.LEVEL_STATEMENT >=
2190: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2191: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2192: l_module_name,'Creating exception :'||
2193: v_record_category);
2194: END IF;
2187: va_public_law_code_val := NULL;
2188: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2189: IF ( FND_LOG.LEVEL_STATEMENT >=
2190: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2191: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2192: l_module_name,'Creating exception :'||
2193: v_record_category);
2194: END IF;
2195: create_facts_record ;
2220: FROM fv_be_transaction_types
2221: WHERE be_tt_id = vl_tran_type
2222: AND set_of_books_id = vp_set_of_books_id ;
2223:
2224: IF ( FND_LOG.LEVEL_STATEMENT >=
2225: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2226: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2227: l_module_name,
2228: 'Legislation Indicator-'||
2221: WHERE be_tt_id = vl_tran_type
2222: AND set_of_books_id = vp_set_of_books_id ;
2223:
2224: IF ( FND_LOG.LEVEL_STATEMENT >=
2225: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2226: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2227: l_module_name,
2228: 'Legislation Indicator-'||
2229: NVL(va_legis_ind_val,'Legis Null')) ;
2222: AND set_of_books_id = vp_set_of_books_id ;
2223:
2224: IF ( FND_LOG.LEVEL_STATEMENT >=
2225: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2226: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2227: l_module_name,
2228: 'Legislation Indicator-'||
2229: NVL(va_legis_ind_val,'Legis Null')) ;
2230: END IF ;
2237: v_amount := vl_legis_amount ;
2238:
2239: IF NOT v_year_gtn2001 THEN
2240: v_record_category := 'NO_LEGIS_INDICATOR' ;
2241: IF ( FND_LOG.LEVEL_STATEMENT >=
2242: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2243: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2244: l_module_name,
2245: 'Creating Exception: '||v_record_category) ;
2238:
2239: IF NOT v_year_gtn2001 THEN
2240: v_record_category := 'NO_LEGIS_INDICATOR' ;
2241: IF ( FND_LOG.LEVEL_STATEMENT >=
2242: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2243: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2244: l_module_name,
2245: 'Creating Exception: '||v_record_category) ;
2246: END IF ;
2239: IF NOT v_year_gtn2001 THEN
2240: v_record_category := 'NO_LEGIS_INDICATOR' ;
2241: IF ( FND_LOG.LEVEL_STATEMENT >=
2242: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2243: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2244: l_module_name,
2245: 'Creating Exception: '||v_record_category) ;
2246: END IF ;
2247: create_facts_record ;
2260: v_sgl_acct_num := vl_sgl_acct_num ;
2261: v_amount := vl_legis_amount ;
2262: IF NOT v_year_gtn2001 THEN
2263: v_record_category := 'NO_LEGIS_INDICATOR' ;
2264: IF ( FND_LOG.LEVEL_STATEMENT >=
2265: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2266: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2267: l_module_name,
2268: 'Creating Exception: '||v_record_category) ;
2261: v_amount := vl_legis_amount ;
2262: IF NOT v_year_gtn2001 THEN
2263: v_record_category := 'NO_LEGIS_INDICATOR' ;
2264: IF ( FND_LOG.LEVEL_STATEMENT >=
2265: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2266: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2267: l_module_name,
2268: 'Creating Exception: '||v_record_category) ;
2269: END IF ;
2262: IF NOT v_year_gtn2001 THEN
2263: v_record_category := 'NO_LEGIS_INDICATOR' ;
2264: IF ( FND_LOG.LEVEL_STATEMENT >=
2265: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2266: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2267: l_module_name,
2268: 'Creating Exception: '||v_record_category) ;
2269: END IF ;
2270: create_facts_record ;
2292: INTO va_advance_type_val
2293: FROM fv_be_trx_dtls
2294: WHERE transaction_id = vl_legis_ref
2295: AND set_of_books_id = vp_set_of_books_id ;
2296: IF ( FND_LOG.LEVEL_STATEMENT >=
2297: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2298: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2299: l_module_name,'Advance Type - '||
2300: NVL(va_advance_type_val, 'Advance Type Null')) ;
2293: FROM fv_be_trx_dtls
2294: WHERE transaction_id = vl_legis_ref
2295: AND set_of_books_id = vp_set_of_books_id ;
2296: IF ( FND_LOG.LEVEL_STATEMENT >=
2297: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2298: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2299: l_module_name,'Advance Type - '||
2300: NVL(va_advance_type_val, 'Advance Type Null')) ;
2301: END IF ;
2294: WHERE transaction_id = vl_legis_ref
2295: AND set_of_books_id = vp_set_of_books_id ;
2296: IF ( FND_LOG.LEVEL_STATEMENT >=
2297: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2298: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2299: l_module_name,'Advance Type - '||
2300: NVL(va_advance_type_val, 'Advance Type Null')) ;
2301: END IF ;
2302: -- If the advance_type value is null then set it to 'X'
2344: va_transfer_main_acct
2345: FROM fv_be_trx_dtls
2346: WHERE transaction_id = vl_legis_ref
2347: AND set_of_books_id = vp_set_of_books_id ;
2348: IF ( FND_LOG.LEVEL_STATEMENT >=
2349: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2350: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2351: l_module_name,'Transfer Dept ID- '||
2352: NVL(va_transfer_dept_id, 'Transfer Dept ID Null'));
2345: FROM fv_be_trx_dtls
2346: WHERE transaction_id = vl_legis_ref
2347: AND set_of_books_id = vp_set_of_books_id ;
2348: IF ( FND_LOG.LEVEL_STATEMENT >=
2349: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2350: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2351: l_module_name,'Transfer Dept ID- '||
2352: NVL(va_transfer_dept_id, 'Transfer Dept ID Null'));
2353: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2346: WHERE transaction_id = vl_legis_ref
2347: AND set_of_books_id = vp_set_of_books_id ;
2348: IF ( FND_LOG.LEVEL_STATEMENT >=
2349: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2350: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2351: l_module_name,'Transfer Dept ID- '||
2352: NVL(va_transfer_dept_id, 'Transfer Dept ID Null'));
2353: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2354: l_module_name,'Transfer Main Acct-'||
2349: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2350: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2351: l_module_name,'Transfer Dept ID- '||
2352: NVL(va_transfer_dept_id, 'Transfer Dept ID Null'));
2353: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2354: l_module_name,'Transfer Main Acct-'||
2355: NVL(va_transfer_main_acct,
2356: 'Transfer Main Acct Null'));
2357: END IF ;
2365: v_sgl_acct_num := vl_acct_num ;
2366: va_transfer_dept_id := NULL;
2367: va_transfer_main_acct := NULL;
2368: v_record_category := 'TRANSFER_DTLS_NOT_DEFINED' ;
2369: IF ( FND_LOG.LEVEL_STATEMENT >=
2370: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2372: l_module_name,'Creating exception :'||
2373: v_record_category);
2366: va_transfer_dept_id := NULL;
2367: va_transfer_main_acct := NULL;
2368: v_record_category := 'TRANSFER_DTLS_NOT_DEFINED' ;
2369: IF ( FND_LOG.LEVEL_STATEMENT >=
2370: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2372: l_module_name,'Creating exception :'||
2373: v_record_category);
2374: END IF;
2367: va_transfer_main_acct := NULL;
2368: v_record_category := 'TRANSFER_DTLS_NOT_DEFINED' ;
2369: IF ( FND_LOG.LEVEL_STATEMENT >=
2370: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2371: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2372: l_module_name,'Creating exception :'||
2373: v_record_category);
2374: END IF;
2375: create_facts_record ;
2384: v_sgl_acct_num := vl_acct_num ;
2385: va_transfer_dept_id := NULL;
2386: va_transfer_main_acct := NULL;
2387: v_record_category := 'TRANSFER_INFO_NOT_DEFINED' ;
2388: IF ( FND_LOG.LEVEL_STATEMENT >=
2389: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2391: l_module_name,'Creating exception :'||
2392: v_record_category);
2385: va_transfer_dept_id := NULL;
2386: va_transfer_main_acct := NULL;
2387: v_record_category := 'TRANSFER_INFO_NOT_DEFINED' ;
2388: IF ( FND_LOG.LEVEL_STATEMENT >=
2389: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2391: l_module_name,'Creating exception :'||
2392: v_record_category);
2393: END IF;
2386: va_transfer_main_acct := NULL;
2387: v_record_category := 'TRANSFER_INFO_NOT_DEFINED' ;
2388: IF ( FND_LOG.LEVEL_STATEMENT >=
2389: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2391: l_module_name,'Creating exception :'||
2392: v_record_category);
2393: END IF;
2394: create_facts_record ;
2411: v_sgl_acct_num := vl_acct_num ;
2412: va_transfer_main_acct := NULL;
2413: va_transfer_dept_id := NULL;
2414: v_record_category := 'TRANSFER_INFO_NOT_DEFINED' ;
2415: IF ( FND_LOG.LEVEL_STATEMENT >=
2416: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2418: l_module_name,'Creating exception :'||
2419: v_record_category);
2412: va_transfer_main_acct := NULL;
2413: va_transfer_dept_id := NULL;
2414: v_record_category := 'TRANSFER_INFO_NOT_DEFINED' ;
2415: IF ( FND_LOG.LEVEL_STATEMENT >=
2416: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2418: l_module_name,'Creating exception :'||
2419: v_record_category);
2420: END IF;
2413: va_transfer_dept_id := NULL;
2414: v_record_category := 'TRANSFER_INFO_NOT_DEFINED' ;
2415: IF ( FND_LOG.LEVEL_STATEMENT >=
2416: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2418: l_module_name,'Creating exception :'||
2419: v_record_category);
2420: END IF;
2421: create_facts_record ;
2431:
2432: END IF;
2433: --------------------------------------------------------------------------------
2434: -- Update the Temp table
2435: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2436: THEN
2437: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2438: l_module_name,' Acct - '||vl_acct_num) ;
2439: END IF;
2433: --------------------------------------------------------------------------------
2434: -- Update the Temp table
2435: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2436: THEN
2437: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2438: l_module_name,' Acct - '||vl_acct_num) ;
2439: END IF;
2440:
2441: IF vl_exception_cat = 0 THEN
2441: IF vl_exception_cat = 0 THEN
2442: v_record_category := 'REPORTED' ;
2443: v_amount := vl_legis_amount ;
2444: v_period_activity := vl_legis_amount;
2445: IF ( FND_LOG.LEVEL_STATEMENT >=
2446: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2447: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2448: l_module_name,
2449: 'Created facts record in ' || vl_period_name);
2442: v_record_category := 'REPORTED' ;
2443: v_amount := vl_legis_amount ;
2444: v_period_activity := vl_legis_amount;
2445: IF ( FND_LOG.LEVEL_STATEMENT >=
2446: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2447: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2448: l_module_name,
2449: 'Created facts record in ' || vl_period_name);
2450: END IF;
2443: v_amount := vl_legis_amount ;
2444: v_period_activity := vl_legis_amount;
2445: IF ( FND_LOG.LEVEL_STATEMENT >=
2446: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2447: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2448: l_module_name,
2449: 'Created facts record in ' || vl_period_name);
2450: END IF;
2451: create_facts_record ;
2461: EXCEPTION
2462: WHEN OTHERS THEN
2463: vp_retcode := sqlcode ;
2464: VP_ERRBUF := sqlerrm ;
2465: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2466: l_module_name||'.close_cursor_vl_legis_cursor',
2467: vp_errbuf);
2468: RETURN ;
2469: END ;
2478: WHEN OTHERS THEN
2479: vp_retcode := sqlcode ;
2480: vp_errbuf := sqlerrm ||
2481: ' [ PROCESS_FACTS_TRANSCTIONS-LEGIS IND ] ' ;
2482: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2483: l_module_name||'message1', vp_errbuf) ;
2484: RETURN ;
2485: END; -- Legislative processing
2486:
2499:
2500: END IF;
2501:
2502: IF va_appor_cat_val IN ('A', 'B') THEN
2503: IF ( FND_LOG.LEVEL_STATEMENT
2504: >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2506: '++ Apportionment Category Processing ++') ;
2507: END IF ;
2500: END IF;
2501:
2502: IF va_appor_cat_val IN ('A', 'B') THEN
2503: IF ( FND_LOG.LEVEL_STATEMENT
2504: >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2506: '++ Apportionment Category Processing ++') ;
2507: END IF ;
2508:
2501:
2502: IF va_appor_cat_val IN ('A', 'B') THEN
2503: IF ( FND_LOG.LEVEL_STATEMENT
2504: >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2506: '++ Apportionment Category Processing ++') ;
2507: END IF ;
2508:
2509: -- Get the Program segment name for the current fund value
2508:
2509: -- Get the Program segment name for the current fund value
2510: get_program_segment (vl_fund_value) ;
2511:
2512: IF ( FND_LOG.LEVEL_STATEMENT >=
2513: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2514: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2515: l_module_name, 'Fund: '||vl_fund_value||
2516: ' Cat B Prog Seg: ' ||v_catb_prg_seg_name||
2509: -- Get the Program segment name for the current fund value
2510: get_program_segment (vl_fund_value) ;
2511:
2512: IF ( FND_LOG.LEVEL_STATEMENT >=
2513: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2514: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2515: l_module_name, 'Fund: '||vl_fund_value||
2516: ' Cat B Prog Seg: ' ||v_catb_prg_seg_name||
2517: ' PRN Prog Seg: ' || v_prn_prg_seg_name) ;
2510: get_program_segment (vl_fund_value) ;
2511:
2512: IF ( FND_LOG.LEVEL_STATEMENT >=
2513: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2514: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2515: l_module_name, 'Fund: '||vl_fund_value||
2516: ' Cat B Prog Seg: ' ||v_catb_prg_seg_name||
2517: ' PRN Prog Seg: ' || v_prn_prg_seg_name) ;
2518: End If ;
2528: EXCEPTION
2529: WHEN OTHERS THEN
2530: vp_retcode := sqlcode ;
2531: vp_errbuf := sqlerrm ;
2532: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2533: l_module_name||'.open_vl_appor_cursor',
2534: vp_errbuf) ;
2535: RETURN ;
2536: END ;
2553: EXCEPTION
2554: WHEN OTHERS THEN
2555: vp_retcode := sqlcode ;
2556: vp_errbuf := sqlerrm || ' [MAIN - APPOR]' ;
2557: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2558: l_module_name||'.parse_vl_appor_cursor', vp_errbuf) ;
2559: RETURN ;
2560: END ;
2561:
2600: EXCEPTION
2601: WHEN OTHERS THEN
2602: vp_retcode := sqlcode ;
2603: vp_errbuf := sqlerrm ;
2604: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2605: l_module_name||'.execute_vl_appor_cursor',
2606: vp_errbuf) ;
2607: RETURN ;
2608: END ;
2637: END IF ;
2638:
2639: -- vl_appor_ctr := vl_appor_ctr + 1 ;
2640: -- get_appor_cat_b_text(vl_program) ;
2641: IF ( FND_LOG.LEVEL_STATEMENT >=
2642: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2643: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2644: l_module_name,'Appor Beg-->
2645: Acct: '||vl_acct_num||
2638:
2639: -- vl_appor_ctr := vl_appor_ctr + 1 ;
2640: -- get_appor_cat_b_text(vl_program) ;
2641: IF ( FND_LOG.LEVEL_STATEMENT >=
2642: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2643: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2644: l_module_name,'Appor Beg-->
2645: Acct: '||vl_acct_num||
2646: ' Fund: '||vl_fund_value||
2639: -- vl_appor_ctr := vl_appor_ctr + 1 ;
2640: -- get_appor_cat_b_text(vl_program) ;
2641: IF ( FND_LOG.LEVEL_STATEMENT >=
2642: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2643: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2644: l_module_name,'Appor Beg-->
2645: Acct: '||vl_acct_num||
2646: ' Fund: '||vl_fund_value||
2647: ' Cat B Prgm: '||vl_catb_program ||
2668:
2669: va_appor_cat_b_dtl := vl_catb_rc_val;
2670: va_appor_cat_b_txt := vl_catb_pgm_desc;
2671:
2672: IF ( FND_LOG.LEVEL_STATEMENT >=
2673: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2674: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2675: l_module_name,
2676: 'Cat B RC Val: '||vl_catb_rc_val||
2669: va_appor_cat_b_dtl := vl_catb_rc_val;
2670: va_appor_cat_b_txt := vl_catb_pgm_desc;
2671:
2672: IF ( FND_LOG.LEVEL_STATEMENT >=
2673: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2674: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2675: l_module_name,
2676: 'Cat B RC Val: '||vl_catb_rc_val||
2677: 'Cat B PGM Desc: '||vl_catb_pgm_desc||
2670: va_appor_cat_b_txt := vl_catb_pgm_desc;
2671:
2672: IF ( FND_LOG.LEVEL_STATEMENT >=
2673: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2674: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2675: l_module_name,
2676: 'Cat B RC Val: '||vl_catb_rc_val||
2677: 'Cat B PGM Desc: '||vl_catb_pgm_desc||
2678: 'PRN RC Val: '||vl_prn_rc_val||
2682: IF vl_catb_exception = 1 THEN
2683: v_record_category := 'VALID_CATB_CODE_NOT_FOUND';
2684: vp_errbuf := 'Valid Category B Code not found '||
2685: 'for program value: '||vl_catb_program;
2686: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
2687: l_module_name||'.VALID_CAT_CODE_NOT_FOUND', vp_errbuf) ;
2688:
2689: va_appor_cat_b_txt := vl_catb_program;
2690: v_tbal_fund_value := vl_fund_value;
2698: v_record_category := 'VALID_PRN_CODE_NOT_FOUND';
2699: vp_errbuf := 'Valid Program Reporting Number code '
2700: ||'not found '||
2701: 'for program value: '||vl_prn_program;
2702: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
2703: l_module_name||'.VALID_PRN_CODE_NOT_FOUND'
2704: , vp_errbuf) ;
2705:
2706: va_appor_cat_b_txt := NULL;
2741: EXCEPTION
2742: WHEN OTHERS THEN
2743: vp_retcode := sqlcode ;
2744: vp_errbuf := sqlerrm ;
2745: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2746: l_module_name||'.close_vl_appor_cursor',vp_errbuf) ;
2747: RETURN ;
2748: END ;
2749:
2753: EXCEPTION
2754: WHEN OTHERS THEN
2755: vp_retcode := sqlcode ;
2756: vp_errbuf := sqlerrm ;
2757: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2758: l_module_name||'.open_vl_appor_cursor',
2759: vp_errbuf) ;
2760: RETURN ;
2761: END ;
2777: EXCEPTION
2778: WHEN OTHERS THEN
2779: vp_retcode := sqlcode ;
2780: vp_errbuf := sqlerrm || ' [MAIN - APPOR]' ;
2781: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2782: l_module_name||'.parse_vl_appor_cursor',
2783: vp_errbuf) ;
2784: RETURN ;
2785: END ;
2821: EXCEPTION
2822: WHEN OTHERS THEN
2823: vp_retcode := sqlcode ;
2824: vp_errbuf := sqlerrm ;
2825: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2826: l_module_name||
2827: '.execute_vl_appor_cursor',
2828: vp_errbuf) ;
2829: RETURN ;
2862:
2863: IF vp_retcode <> 0 THEN
2864: RETURN ;
2865: END IF ;
2866: IF ( FND_LOG.LEVEL_STATEMENT >=
2867: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2868: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2869: 'Appor End --> Acct - '||vl_acct_num||
2870: ' Fund >>>> - '||vl_fund_value||
2863: IF vp_retcode <> 0 THEN
2864: RETURN ;
2865: END IF ;
2866: IF ( FND_LOG.LEVEL_STATEMENT >=
2867: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2868: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2869: 'Appor End --> Acct - '||vl_acct_num||
2870: ' Fund >>>> - '||vl_fund_value||
2871: ' Cat B Prgm >>>> - '||vl_catb_program||
2864: RETURN ;
2865: END IF ;
2866: IF ( FND_LOG.LEVEL_STATEMENT >=
2867: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2868: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2869: 'Appor End --> Acct - '||vl_acct_num||
2870: ' Fund >>>> - '||vl_fund_value||
2871: ' Cat B Prgm >>>> - '||vl_catb_program||
2872: ' PRN Prgm >>>> - '||vl_prn_program||
2889: va_appor_cat_b_dtl := vl_catb_rc_val;
2890: va_appor_cat_b_txt := vl_catb_pgm_desc;
2891: va_prn_num := vl_prn_rc_val;
2892: va_prn_txt := vl_prn_pgm_desc;
2893: IF ( FND_LOG.LEVEL_STATEMENT >=
2894: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2895: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2896: l_module_name,
2897: 'Cat B RC Val: '||vl_catb_rc_val||
2890: va_appor_cat_b_txt := vl_catb_pgm_desc;
2891: va_prn_num := vl_prn_rc_val;
2892: va_prn_txt := vl_prn_pgm_desc;
2893: IF ( FND_LOG.LEVEL_STATEMENT >=
2894: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2895: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2896: l_module_name,
2897: 'Cat B RC Val: '||vl_catb_rc_val||
2898: 'Cat B PGM Desc: '||vl_catb_pgm_desc ||
2891: va_prn_num := vl_prn_rc_val;
2892: va_prn_txt := vl_prn_pgm_desc;
2893: IF ( FND_LOG.LEVEL_STATEMENT >=
2894: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2895: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2896: l_module_name,
2897: 'Cat B RC Val: '||vl_catb_rc_val||
2898: 'Cat B PGM Desc: '||vl_catb_pgm_desc ||
2899: 'PRN RC Val: '||vl_catb_rc_val||
2905: IF vl_catb_exception = 1 THEN
2906: v_record_category := 'VALID_CATB_CODE_NOT_FOUND';
2907: vp_errbuf := 'Valid Category B Code not found '||
2908: 'for program value: '||vl_catb_program;
2909: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
2910: l_module_name||'.VALID_CAT_CODE_NOT_FOUND', vp_errbuf) ;
2911:
2912:
2913: va_appor_cat_b_txt := vl_catb_program;
2923: IF vl_prn_exception = 1 THEN
2924: v_record_category := 'VALID_PRN_CODE_NOT_FOUND';
2925: vp_errbuf := 'Valid Program Reporting Number Code not found '||
2926: 'for program value: '||vl_prn_program;
2927: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
2928: l_module_name||'.VALID_PRN_CODE_NOT_FOUND', vp_errbuf) ;
2929:
2930:
2931: va_prn_txt := vl_prn_program;
2962: EXCEPTION
2963: WHEN OTHERS THEN
2964: vp_retcode := sqlcode ;
2965: vp_errbuf := sqlerrm ;
2966: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2967: l_module_name||'.close_vl_appor_cursor',
2968: vp_errbuf) ;
2969: RETURN ;
2970: END ;
2978: -- v_amount := vl_amount ;
2979: v_amount := ve_amount ; -- bug 5065974
2980: v_sgl_acct_num := vl_acct_num ;
2981:
2982: IF ( FND_LOG.LEVEL_EXCEPTION >=
2983: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2984: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION,
2985: l_module_name, 'Program segment Not '||
2986: 'defined Or null,so doing the default processing');
2979: v_amount := ve_amount ; -- bug 5065974
2980: v_sgl_acct_num := vl_acct_num ;
2981:
2982: IF ( FND_LOG.LEVEL_EXCEPTION >=
2983: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2984: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION,
2985: l_module_name, 'Program segment Not '||
2986: 'defined Or null,so doing the default processing');
2987: END IF;
2980: v_sgl_acct_num := vl_acct_num ;
2981:
2982: IF ( FND_LOG.LEVEL_EXCEPTION >=
2983: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2984: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION,
2985: l_module_name, 'Program segment Not '||
2986: 'defined Or null,so doing the default processing');
2987: END IF;
2988:
3014: EXCEPTION
3015: WHEN OTHERS THEN
3016: vp_retcode := sqlcode ;
3017: vp_errbuf := sqlerrm ;
3018: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3019: l_module_name||'.close_vl_main_cursor', vp_errbuf) ;
3020: RETURN ;
3021: END ;
3022: -- Rolling up the Inserted Data into Account Number
3021: END ;
3022: -- Rolling up the Inserted Data into Account Number
3023: -- Fund Value is also added in the roll up to accomodate ATB Process.
3024: -- tbal_Fund_value column will be blank for FACTS II processing.
3025: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3026: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3027: 'Rolling up to Account Number');
3028: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3029: 'tbal fund value '||v_tbal_fund_value);
3022: -- Rolling up the Inserted Data into Account Number
3023: -- Fund Value is also added in the roll up to accomodate ATB Process.
3024: -- tbal_Fund_value column will be blank for FACTS II processing.
3025: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3026: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3027: 'Rolling up to Account Number');
3028: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3029: 'tbal fund value '||v_tbal_fund_value);
3030: END IF ;
3024: -- tbal_Fund_value column will be blank for FACTS II processing.
3025: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3026: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3027: 'Rolling up to Account Number');
3028: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3029: 'tbal fund value '||v_tbal_fund_value);
3030: END IF ;
3031:
3032: /* Procedure to rollup the records */
3032: /* Procedure to rollup the records */
3033: facts_rollup_records;
3034:
3035: -- Submit edit check process
3036: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3037: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3038: 'Submitting Edit Check Process.....') ;
3039: END IF;
3040:
3033: facts_rollup_records;
3034:
3035: -- Submit edit check process
3036: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3037: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3038: 'Submitting Edit Check Process.....') ;
3039: END IF;
3040:
3041: fv_facts_edit_check.perform_edit_checks
3071:
3072: commit;
3073: IF vl_req_id = 0 THEN
3074: vp_errbuf := 'Error Priniting Edit Check Report' ;
3075: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3076: END IF;
3077:
3078: l_call_status := fnd_concurrent.wait_for_request(
3079: vl_req_id,
3093:
3094: -- Generate other files only when edit check succeeds
3095: IF vl_ec_retcode IN (0, 1) THEN
3096: /* Process only if Edit Check is valid or run mode is Final */
3097: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3098: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3099: 'Edit Check Process Completed Succesfully ');
3100: END IF;
3101: -- Generate the MAF_Sequence_Number based on the Run Mode
3094: -- Generate other files only when edit check succeeds
3095: IF vl_ec_retcode IN (0, 1) THEN
3096: /* Process only if Edit Check is valid or run mode is Final */
3097: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3098: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3099: 'Edit Check Process Completed Succesfully ');
3100: END IF;
3101: -- Generate the MAF_Sequence_Number based on the Run Mode
3102: DECLARE
3116: vc_maf_seq_num := 1;
3117: END IF;
3118: CLOSE c_maf_seq;
3119: END;
3120: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3121: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3122: 'Creating FACTS Detail Record.....');
3123: END IF;
3124:
3117: END IF;
3118: CLOSE c_maf_seq;
3119: END;
3120: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3121: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3122: 'Creating FACTS Detail Record.....');
3123: END IF;
3124:
3125: -- Create Concatenated FACTS Record in the Temp table Column
3154: -- Create Contact Information and Request Record Header
3155: -- and its concatenated output format in the Temp table
3156: -- Record Category is set to CNT_HDR to distinguish from
3157: -- detail records
3158: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3159: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3160: 'Creating Contact Header Record.....FACTS II ') ;
3161: END IF;
3162: INSERT INTO FV_FACTS_TEMP
3155: -- and its concatenated output format in the Temp table
3156: -- Record Category is set to CNT_HDR to distinguish from
3157: -- detail records
3158: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3159: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3160: 'Creating Contact Header Record.....FACTS II ') ;
3161: END IF;
3162: INSERT INTO FV_FACTS_TEMP
3163: (treasury_symbol_id,
3199: EXCEPTION
3200: WHEN OTHERS THEN
3201: vp_retcode := sqlcode ;
3202: vp_errbuf := sqlerrm || '[FACTS RUN UPDATE]' ;
3203: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3204: l_module_name||'.insert_fv_facts_run', vp_errbuf) ;
3205: RETURN ;
3206: END ;
3207: END IF ;
3218: WHERE ffh.treasury_symbol_id = footnote_rec.treasury_symbol_id
3219: AND ffh.sgl_acct_number = footnote_rec.sgl_acct_number
3220: AND ffh.footnote_header_id = ffl.footnote_header_id ;
3221: IF footnote_count = 0 THEN
3222: IF ( FND_LOG.LEVEL_STATEMENT >=
3223: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3224: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3225: l_module_name,
3226: 'Creating Footnote Records.....');
3219: AND ffh.sgl_acct_number = footnote_rec.sgl_acct_number
3220: AND ffh.footnote_header_id = ffl.footnote_header_id ;
3221: IF footnote_count = 0 THEN
3222: IF ( FND_LOG.LEVEL_STATEMENT >=
3223: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3224: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3225: l_module_name,
3226: 'Creating Footnote Records.....');
3227: END IF;
3220: AND ffh.footnote_header_id = ffl.footnote_header_id ;
3221: IF footnote_count = 0 THEN
3222: IF ( FND_LOG.LEVEL_STATEMENT >=
3223: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3224: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3225: l_module_name,
3226: 'Creating Footnote Records.....');
3227: END IF;
3228: INSERT INTO fv_facts_footnote_hdr
3257: -- if concurrent request submission failed then abort process
3258: IF vl_req_id = 0 THEN
3259: vp_errbuf := 'Error submitting FACTS ATB Report ';
3260: vp_retcode := -1 ;
3261: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3262: ELSE
3263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3264: THEN
3265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3259: vp_errbuf := 'Error submitting FACTS ATB Report ';
3260: vp_retcode := -1 ;
3261: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3262: ELSE
3263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3264: THEN
3265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3266: 'Concurrent Request Id For FACTS ATB Report - ' || vl_req_id);
3267: END IF;
3261: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3262: ELSE
3263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3264: THEN
3265: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3266: 'Concurrent Request Id For FACTS ATB Report - ' || vl_req_id);
3267: END IF;
3268:
3269: l_call_status := fnd_concurrent.wait_for_request(
3291: -- if concurrent request submission failed then abort process
3292: IF vl_req_id = 0 THEN
3293: vp_errbuf := 'Error submitting FACTS Exception Report Process';
3294: vp_retcode := -1 ;
3295: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
3296: vp_errbuf) ;
3297: ELSE
3298: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3299: THEN
3294: vp_retcode := -1 ;
3295: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
3296: vp_errbuf) ;
3297: ELSE
3298: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3299: THEN
3300: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3301: 'Concurrent Request Id for FACTS Exception Report - '||vl_req_id);
3302: END IF;
3296: vp_errbuf) ;
3297: ELSE
3298: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3299: THEN
3300: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3301: 'Concurrent Request Id for FACTS Exception Report - '||vl_req_id);
3302: END IF;
3303: l_call_status := fnd_concurrent.wait_for_request(
3304: vl_req_id,
3320: EXCEPTION
3321: WHEN OTHERS THEN
3322: vp_retcode := sqlcode ;
3323: vp_errbuf := sqlerrm ;
3324: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3325: l_module_name||'.final_exception', vp_errbuf) ;
3326:
3327: END process_facts_transactions;
3328: --------------------------------------------------------------------------------
3431: AND parent_flex_value in
3432: (SELECT ussgl_account
3433: FROM fv_facts_ussgl_accounts
3434: WHERE ussgl_account = parent_flex_value) ;
3435: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3436: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3437: 'Parent in GL - ' || vl_ussgl_acct_num) ;
3438: END IF ;
3439: -- Parent Found. Perform Validations
3432: (SELECT ussgl_account
3433: FROM fv_facts_ussgl_accounts
3434: WHERE ussgl_account = parent_flex_value) ;
3435: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3436: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3437: 'Parent in GL - ' || vl_ussgl_acct_num) ;
3438: END IF ;
3439: -- Parent Found. Perform Validations
3440: get_ussgl_info( vl_ussgl_acct_num,
3457: exception_category := 'NON_FACTSII' ;
3458: RETURN ;
3459: END IF ;
3460: IF vl_exists IS NOT NULL THEN
3461: IF ( FND_LOG.LEVEL_STATEMENT >=
3462: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3463: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3464: l_module_name,
3465: 'Valid Parent [vl_exists] ') ;
3458: RETURN ;
3459: END IF ;
3460: IF vl_exists IS NOT NULL THEN
3461: IF ( FND_LOG.LEVEL_STATEMENT >=
3462: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3463: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3464: l_module_name,
3465: 'Valid Parent [vl_exists] ') ;
3466: END IF ;
3459: END IF ;
3460: IF vl_exists IS NOT NULL THEN
3461: IF ( FND_LOG.LEVEL_STATEMENT >=
3462: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3463: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3464: l_module_name,
3465: 'Valid Parent [vl_exists] ') ;
3466: END IF ;
3467: -- Parent is a Valid USSGL Account
3544: exception_category := 'NON_BUD_ACCT' ;
3545: RETURN ;
3546: END IF ;
3547: WHEN TOO_MANY_ROWS THEN
3548: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
3549: 'More then one Parent for '||acct_num) ;
3550: -- Too Many Parents. Process Exception
3551: sgl_acct_num := acct_num ;
3552: exception_category := 'USSGL_MULTIPLE_PARENTS' ;
3556: EXCEPTION
3557: WHEN OTHERS THEN
3558: vp_retcode := sqlcode ;
3559: vp_errbuf := sqlerrm || ' [GET_USSGL_ACCOUNT_NUM] ' ;
3560: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3561: l_module_name||'.final_exception', vp_errbuf) ;
3562: RETURN;
3563: END get_ussgl_acct_num ;
3564: --------------------------------------------------------------------------------
3581: ELSE
3582: l_year_budget_auth := v_year_budget_auth;
3583: END IF;
3584:
3585: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3586: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3587: 'Creating FACTS Record') ;
3588: END IF ;
3589:
3582: l_year_budget_auth := v_year_budget_auth;
3583: END IF;
3584:
3585: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3586: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3587: 'Creating FACTS Record') ;
3588: END IF ;
3589:
3590: INSERT INTO FV_FACTS_TEMP
3663: EXCEPTION
3664: WHEN OTHERS THEN
3665: vp_retcode := sqlcode ;
3666: vp_errbuf := sqlerrm || ' [CREATE_FACTS_RECORD] ' ;
3667: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3668: l_module_name||'.final_exception', vp_errbuf) ;
3669: RETURN;
3670: END create_facts_record ;
3671: --------------------------------------------------------------------------------
3689: vl_dummy NUMBER;
3690: BEGIN
3691: l_module_name := g_module_name || 'load_facts_attributes';
3692: BEGIN
3693: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3694: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3695: 'LOAD - Acct Num -> '||acct_num) ;
3696: END IF;
3697: SELECT balance_type,
3690: BEGIN
3691: l_module_name := g_module_name || 'load_facts_attributes';
3692: BEGIN
3693: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3694: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3695: 'LOAD - Acct Num -> '||acct_num) ;
3696: END IF;
3697: SELECT balance_type,
3698: public_law_code,
3736: WHEN NO_DATA_FOUND THEN
3737: vp_retcode := -1 ;
3738: vp_errbuf := 'Error! No Attributes Definied for the Account - ' ||
3739: v_acct_num || ' [LOAD_FACTS_ATTRIBURES]' ;
3740: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
3741: vp_errbuf) ;
3742: RETURN;
3743: WHEN OTHERS THEN
3744: vp_retcode := sqlcode ;
3742: RETURN;
3743: WHEN OTHERS THEN
3744: vp_retcode := sqlcode ;
3745: vp_errbuf := sqlerrm ;
3746: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3747: vp_errbuf) ;
3748: RETURN;
3749: END ;
3750:
3776: EXCEPTION WHEN NO_DATA_FOUND THEN NULL;
3777: WHEN OTHERS THEN
3778: vp_retcode := sqlcode ;
3779: vp_errbuf := sqlerrm ;
3780: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3781: l_module_name||'.select1', vp_errbuf) ;
3782: RETURN;
3783: END;
3784: --------------------------------------------------------------------------------
3801: WHEN NO_DATA_FOUND THEN
3802: vp_retcode := -1 ;
3803: vp_errbuf := 'Error getting Fund Category value for the fund - '||
3804: fund_val || ' [LOAD_FACTS_ATTRIBURES]' ;
3805: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
3806: l_module_name||'.select2', vp_errbuf) ;
3807: RETURN;
3808: WHEN OTHERS THEN
3809: vp_retcode := sqlcode ;
3807: RETURN;
3808: WHEN OTHERS THEN
3809: vp_retcode := sqlcode ;
3810: vp_errbuf := sqlerrm || ' [LOAD_FACTS_ATTRIBURES]' ;
3811: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3812: l_module_name||'.select2', vp_errbuf) ;
3813: RETURN;
3814: END ;
3815:
3812: l_module_name||'.select2', vp_errbuf) ;
3813: RETURN;
3814: END ;
3815:
3816: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3817: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3818: 'Get ending balance to report amount '||
3819: 'for exception records.');
3820: END IF;
3813: RETURN;
3814: END ;
3815:
3816: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3817: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3818: 'Get ending balance to report amount '||
3819: 'for exception records.');
3820: END IF;
3821:
3842: -- Create Exception
3843: vl_sgl_acct_num := v_sgl_acct_num ;
3844: v_sgl_acct_num := acct_num ;
3845: v_record_category := 'INDEF_DEF_NOT_DEFINED' ;
3846: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3847: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3848: 'Creating Exception: '||v_record_category);
3849: END IF;
3850: create_facts_record ;
3843: vl_sgl_acct_num := v_sgl_acct_num ;
3844: v_sgl_acct_num := acct_num ;
3845: v_record_category := 'INDEF_DEF_NOT_DEFINED' ;
3846: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3847: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3848: 'Creating Exception: '||v_record_category);
3849: END IF;
3850: create_facts_record ;
3851: -- Reset the value back to v_sgl_acct_number
3868: va_appor_cat_val := 'C' ;
3869: ELSE
3870: va_appor_cat_val := ' ' ;
3871: END IF ;
3872: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3873: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3874: 'Acct - ' || acct_num ||
3875: ' Fund cat - ' || vl_fund_category || ' Appr Cat - ' ||
3876: va_appor_cat_val || ' Flag - ' || va_appor_cat_flag) ;
3869: ELSE
3870: va_appor_cat_val := ' ' ;
3871: END IF ;
3872: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3873: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3874: 'Acct - ' || acct_num ||
3875: ' Fund cat - ' || vl_fund_category || ' Appr Cat - ' ||
3876: va_appor_cat_val || ' Flag - ' || va_appor_cat_flag) ;
3877: END IF ;
3889: va_prn_txt := '';
3890:
3891: END IF;
3892:
3893: IF ( FND_LOG.LEVEL_STATEMENT >=
3894: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3895: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3896: l_module_name, 'Defaulting the Reporting'
3897: ||'codes as the apportionment '
3890:
3891: END IF;
3892:
3893: IF ( FND_LOG.LEVEL_STATEMENT >=
3894: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3895: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3896: l_module_name, 'Defaulting the Reporting'
3897: ||'codes as the apportionment '
3898: ||'Category flag is N ') ;
3891: END IF;
3892:
3893: IF ( FND_LOG.LEVEL_STATEMENT >=
3894: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3895: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3896: l_module_name, 'Defaulting the Reporting'
3897: ||'codes as the apportionment '
3898: ||'Category flag is N ') ;
3899: End If ;
3948:
3949: IF va_bea_category_val IS NULL THEN
3950: -- Create Exception Record for BEA Category
3951: v_record_category := 'BEA_CATEGORY_NOT_DEFINED' ;
3952: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3953: THEN
3954: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3955: 'Creating Exception: '||
3956: v_record_category);
3950: -- Create Exception Record for BEA Category
3951: v_record_category := 'BEA_CATEGORY_NOT_DEFINED' ;
3952: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3953: THEN
3954: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3955: 'Creating Exception: '||
3956: v_record_category);
3957: END IF;
3958: create_facts_record ;
3960: EXCEPTION
3961: WHEN NO_DATA_FOUND THEN
3962: -- Create Exception Record for BEA Category
3963: v_record_category := 'BEA_CATEGORY_NOT_DEFINED' ;
3964: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3965: THEN
3966: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3967: 'Creating Exception: '||
3968: v_record_category);
3962: -- Create Exception Record for BEA Category
3963: v_record_category := 'BEA_CATEGORY_NOT_DEFINED' ;
3964: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3965: THEN
3966: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3967: 'Creating Exception: '||
3968: v_record_category);
3969: END IF;
3970: create_facts_record ;
3993:
3994: IF va_budget_function IS NULL THEN
3995: -- Create Exception Record for Budget Function
3996: v_record_category := 'BUDGET_FNCTN_NOT_DEFINED' ;
3997: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3998: THEN
3999: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4000: 'Creating Exception: '||
4001: v_record_category);
3995: -- Create Exception Record for Budget Function
3996: v_record_category := 'BUDGET_FNCTN_NOT_DEFINED' ;
3997: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3998: THEN
3999: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4000: 'Creating Exception: '||
4001: v_record_category);
4002: END IF;
4003: create_facts_record ;
4005: EXCEPTION
4006: WHEN NO_DATA_FOUND THEN
4007: -- Create Exception Record for Budget Function
4008: v_record_category := 'BUDGET_FNCTN_NOT_DEFINED' ;
4009: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4010: THEN
4011: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4012: l_module_name,'Creating Exception: '||
4013: v_record_category);
4007: -- Create Exception Record for Budget Function
4008: v_record_category := 'BUDGET_FNCTN_NOT_DEFINED' ;
4009: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4010: THEN
4011: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4012: l_module_name,'Creating Exception: '||
4013: v_record_category);
4014: END IF;
4015: create_facts_record ;
4038:
4039: IF va_borrowing_source_val IS NULL THEN
4040: -- Create Exception Record for Borrowing Source
4041: v_record_category := 'B_SOURCE_NOT_DEFINED' ;
4042: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4043: THEN
4044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4045: l_module_name,'Creating Exception: '||
4046: v_record_category);
4040: -- Create Exception Record for Borrowing Source
4041: v_record_category := 'B_SOURCE_NOT_DEFINED' ;
4042: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4043: THEN
4044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4045: l_module_name,'Creating Exception: '||
4046: v_record_category);
4047: END IF;
4048: create_facts_record ;
4050: EXCEPTION
4051: WHEN NO_DATA_FOUND THEN
4052: -- Create Exception Record for Borrowing Source
4053: v_record_category := 'B_SOURCE_NOT_DEFINED' ;
4054: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4055: THEN
4056: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4057: l_module_name,'Creating Exception: '||
4058: v_record_category);
4052: -- Create Exception Record for Borrowing Source
4053: v_record_category := 'B_SOURCE_NOT_DEFINED' ;
4054: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4055: THEN
4056: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4057: l_module_name,'Creating Exception: '||
4058: v_record_category);
4059: END IF;
4060: create_facts_record ;
4069: EXCEPTION
4070: WHEN OTHERS THEN
4071: vp_retcode := sqlcode ;
4072: vp_errbuf := sqlerrm || ' [LOAD_FACTS_ATTRIBUTES]' ;
4073: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
4074: '.final_exception', vp_errbuf) ;
4075: END load_facts_attributes ;
4076: --------------------------------------------------------------------------------
4077: -- Gets the information like enabled flag and reporting type
4098: reporting_type := NULL ;
4099: WHEN OTHERS THEN
4100: vp_retcode := sqlcode ;
4101: vp_errbuf := sqlerrm ;
4102: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
4103: '.final_exception', vp_errbuf) ;
4104: RETURN ;
4105: END get_ussgl_info ;
4106: --------------------------------------------------------------------------------
4122: -- Process Null Account Types
4123: vp_retcode := -1 ;
4124: vp_errbuf := 'Account Type found null for the for the
4125: Account Number - ' || acct_num ;
4126: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message1',
4127: vp_errbuf) ;
4128: RETURN ;
4129: END IF ;
4130: EXCEPTION
4131: WHEN NO_DATA_FOUND THEN
4132: vp_retcode := -1 ;
4133: vp_errbuf := 'Account Type Cannot be derived for the Account Number - '
4134: || acct_num ;
4135: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
4136: l_module_name||'.exception1', vp_errbuf) ;
4137: RETURN ;
4138: WHEN OTHERS THEN
4139: vp_errbuf := SQLERRM;
4137: RETURN ;
4138: WHEN OTHERS THEN
4139: vp_errbuf := SQLERRM;
4140: vp_retcode := -1;
4141: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
4142: RAISE;
4143: END get_account_type ;
4144: --------------------------------------------------------------------------------
4145: -- Gets the SGL Parent Account for the passed account number
4175: -- Return the account Number
4176: RETURN ;
4177: EXCEPTION
4178: WHEN NO_DATA_FOUND THEN
4179: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
4180: 'Look for parent in FV_FACTS_ATTRIBUTES');
4181: sgl_acct_num := NULL ;
4182: RETURN ;
4183: END ;
4182: RETURN ;
4183: END ;
4184: EXCEPTION
4185: WHEN NO_DATA_FOUND THEN
4186: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
4187: 'No Parent Exists ' );
4188: --Fix for bug # 2450918 . Included the 'RETURN' statement below
4189: RETURN;
4190: WHEN TOO_MANY_ROWS Then
4188: --Fix for bug # 2450918 . Included the 'RETURN' statement below
4189: RETURN;
4190: WHEN TOO_MANY_ROWS Then
4191: -- Too Many Parents. Return Nulls
4192: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
4193: 'Too Many Parents');
4194: RETURN ;
4195: END ;
4196: EXCEPTION
4195: END ;
4196: EXCEPTION
4197: WHEN OTHERS THEN
4198: l_errbuf := SQLERRM;
4199: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4200: l_module_name||'.final_exception',l_errbuf);
4201: RAISE;
4202: END get_sgl_parent ;
4203: --------------------------------------------------------------------------------
4226: EXCEPTION
4227: WHEN OTHERS THEN
4228: vp_retcode := sqlcode ;
4229: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Open Cursor] ' ;
4230: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4231: l_module_name||'.open_vl_bal_cursor', vp_errbuf) ;
4232: RETURN;
4233: END ;
4234:
4252: AND GLB.PERIOD_NUM = :period_num
4253: AND GLB.PERIOD_YEAR = :period_year
4254: AND glb.currency_code = :currency_code ';
4255:
4256: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4258: 'Calc bal: '||vl_bal_select) ;
4259: END IF;
4260:
4253: AND GLB.PERIOD_YEAR = :period_year
4254: AND glb.currency_code = :currency_code ';
4255:
4256: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4258: 'Calc bal: '||vl_bal_select) ;
4259: END IF;
4260:
4261: BEGIN
4263: EXCEPTION
4264: WHEN OTHERS THEN
4265: vp_retcode := sqlcode ;
4266: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Parse] ' ;
4267: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4268: l_module_name||'.parse_vl_bal_cursor', vp_errbuf) ;
4269: RETURN;
4270: END ;
4271:
4287: EXCEPTION
4288: WHEN OTHERS THEN
4289: vp_retcode := sqlcode ;
4290: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Execute Cursor] ' ;
4291: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4292: l_module_name||'.execute_vl_bal_cursor', vp_errbuf) ;
4293: END ;
4294: LOOP
4295: IF dbms_sql.fetch_rows(vl_bal_cursor) = 0 THEN
4306: EXCEPTION
4307: WHEN OTHERS THEN
4308: vp_retcode := sqlcode ;
4309: vp_errbuf := sqlerrm ;
4310: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4311: l_module_name||'.close_vl_bal_cursor', vp_errbuf) ;
4312: RETURN ;
4313: END ;
4314: EXCEPTION
4314: EXCEPTION
4315: WHEN OTHERS THEN
4316: vp_retcode := sqlcode ;
4317: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Others]' ;
4318: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name, vp_errbuf);
4319: RETURN;
4320: END calc_balance;
4321: --------------------------------------------------------------------------------
4322: -- Gets the Program segment name and prc_mapping_flag from v_segs_array and
4355: WHEN NO_DATA_FOUND THEN
4356: vp_retcode := -1 ;
4357: vp_errbuf := 'Error getting Value Set Id for segment'
4358: ||v_segs_array(i).segment||' [GET_PROGRAM_SEGMENT]' ;
4359: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
4360: WHEN TOO_MANY_ROWS THEN
4361: -- Too many value set ids returned for the program segment.
4362: vp_retcode := -1 ;
4363: vp_errbuf := 'Program Segment - ' || v_segs_array(i).segment || ' returned
4361: -- Too many value set ids returned for the program segment.
4362: vp_retcode := -1 ;
4363: vp_errbuf := 'Program Segment - ' || v_segs_array(i).segment || ' returned
4364: more than one Value Sets !! '||'[ GET_PROGRAM_SEGMENT ]' ;
4365: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
4366: END ;
4367:
4368: IF v_segs_array(i).code_type = 'B' THEN
4369: v_catb_prg_seg_name := v_segs_array(i).segment;
4395: -- Fund Value not found in FV_BUDGET_DISTRIBUTION_HDR table.
4396: vp_retcode := -1 ;
4397: vp_errbuf := 'Fund Value - ' || v_fund_value || ' returned more
4398: than one program segment value !! '||'[GET_PROGRAM_SEGMENT]' ;
4399: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
4400: l_module_name||'.exception1', vp_errbuf) ;
4401: RETURN;
4402: WHEN OTHERS THEN
4403: vp_errbuf := SQLERRM;
4401: RETURN;
4402: WHEN OTHERS THEN
4403: vp_errbuf := SQLERRM;
4404: vp_retcode := -1;
4405: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
4406: '.final_exception',vp_errbuf);
4407: RAISE;
4408:
4409: END get_program_segment ;
4469: ', GLCC.' || v_fyr_segment_name || v_cohort_select;
4470: EXCEPTION
4471: WHEN OTHERS THEN
4472: l_errbuf := SQLERRM;
4473: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4474: l_module_name||'.final_exception',l_errbuf);
4475: RAISE;
4476: END build_appor_select ;
4477: --------------------------------------------------------------------------------
4504: WHEN NO_DATA_FOUND THEN
4505: vp_retcode := -1 ;
4506: vp_errbuf := 'Cannot Find Apportionment Category B Text for
4507: the Program ' || p_program||' [GET_SEGMENT_TEXT] ';
4508: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
4509: l_module_name||'.exception1', vp_errbuf) ;
4510: RETURN;
4511: WHEN TOO_MANY_ROWS THEN
4512: vp_retcode := -1 ;
4511: WHEN TOO_MANY_ROWS THEN
4512: vp_retcode := -1 ;
4513: vp_errbuf := 'More then one Apportionment Category B Text found for
4514: the Program '||p_program||' [GET_SEGMENT_TEXT]';
4515: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
4516: l_module_name||'.exception2', vp_errbuf) ;
4517: RETURN;
4518: WHEN OTHERS THEN
4519: vp_errbuf := SQLERRM;
4517: RETURN;
4518: WHEN OTHERS THEN
4519: vp_errbuf := SQLERRM;
4520: vp_retcode := -1;
4521: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4522: l_module_name||'.final_exception3',vp_errbuf);
4523: RAISE;
4524: END ;
4525: --------------------------------------------------------------------------------
4540: -- No Apportionment category B Processing or
4541: -- Legislation Indicator processing is done.
4542: -- Program segment cannot be found for Apportionment
4543: -- Category B Processing
4544: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4545: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4546: 'Normal Processing ') ;
4547: END IF ;
4548: IF va_balance_type_flag IN ('S', 'E') THEN
4541: -- Legislation Indicator processing is done.
4542: -- Program segment cannot be found for Apportionment
4543: -- Category B Processing
4544: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4545: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4546: 'Normal Processing ') ;
4547: END IF ;
4548: IF va_balance_type_flag IN ('S', 'E') THEN
4549: va_balance_type_val := 'E' ;
4560: v_amount := vl_amount ;
4561: v_period_activity := vl_period_activity;
4562: ------------------------------------------------- */
4563: v_amount := ve_amount;
4564: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4565: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4566: 'Ending Balance(Normal) -> '||v_amount);
4567: END IF;
4568:
4561: v_period_activity := vl_period_activity;
4562: ------------------------------------------------- */
4563: v_amount := ve_amount;
4564: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4565: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4566: 'Ending Balance(Normal) -> '||v_amount);
4567: END IF;
4568:
4569: create_facts_record ;
4573: END IF ;
4574: IF (rec_cat = 'E' ) THEN
4575: v_record_category := 'PROGRAM_SEGMENT_NOT_DEF' ;
4576: v_tbal_fund_value := vl_fund_value ;
4577: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4578: THEN
4579: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4580: 'Creating Exception: '||
4581: v_record_category);
4575: v_record_category := 'PROGRAM_SEGMENT_NOT_DEF' ;
4576: v_tbal_fund_value := vl_fund_value ;
4577: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4578: THEN
4579: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4580: 'Creating Exception: '||
4581: v_record_category);
4582: END IF;
4583: create_facts_record ;
4602:
4603: IF vp_retcode <> 0 THEN
4604: RETURN ;
4605: END IF ;
4606: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4607: THEN
4608: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4609: 'Beginning Balance(Normal) -> '||v_begin_amount);
4610: END IF ;
4604: RETURN ;
4605: END IF ;
4606: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4607: THEN
4608: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4609: 'Beginning Balance(Normal) -> '||v_begin_amount);
4610: END IF ;
4611: va_balance_type_val := 'B' ;
4612: v_record_category := 'REPORTED' ;
4621: END IF ;
4622: EXCEPTION
4623: WHEN OTHERS THEN
4624: l_errbuf := SQLERRM;
4625: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4626: l_module_name||'.final_exception',l_errbuf);
4627: RAISE;
4628: END default_processing;
4629: --------------------------------------------------------------------------------------
4791: END IF;
4792: END LOOP;
4793: */
4794:
4795: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4796: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4797: 'Setting up Debit/Credit Indicator') ;
4798: END IF;
4799:
4792: END LOOP;
4793: */
4794:
4795: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4796: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4797: 'Setting up Debit/Credit Indicator') ;
4798: END IF;
4799:
4800: UPDATE fv_facts_temp
4810: AND treasury_symbol_id = v_treasury_symbol_id ;
4811: EXCEPTION
4812: WHEN OTHERS THEN
4813: l_errbuf := SQLERRM;
4814: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4815: l_module_name||'.final_exception',l_errbuf);
4816: RAISE;
4817:
4818:
4992: END IF;
4993:
4994: END LOOP;
4995:
4996: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4997: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4998: 'fund_value :'|| fund_rec.fund_value);
4999: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5000: 'prg segment :'|| vl_prg_seg);
4993:
4994: END LOOP;
4995:
4996: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4997: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4998: 'fund_value :'|| fund_rec.fund_value);
4999: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5000: 'prg segment :'|| vl_prg_seg);
5001: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4995:
4996: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4997: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4998: 'fund_value :'|| fund_rec.fund_value);
4999: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5000: 'prg segment :'|| vl_prg_seg);
5001: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5002: 'prc flag :'|| vl_prc_flag);
5003: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4997: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4998: 'fund_value :'|| fund_rec.fund_value);
4999: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5000: 'prg segment :'|| vl_prg_seg);
5001: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5002: 'prc flag :'|| vl_prc_flag);
5003: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5004: 'prc header id :'||vl_prc_header_id);
5005: END IF;
4999: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5000: 'prg segment :'|| vl_prg_seg);
5001: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5002: 'prc flag :'|| vl_prc_flag);
5003: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5004: 'prc header id :'||vl_prc_header_id);
5005: END IF;
5006:
5007:
5020: EXCEPTION
5021: WHEN OTHERS THEN
5022: vp_errbuf := SQLERRM;
5023: vp_retcode := -1;
5024: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5025: l_module_name||'.final_exception',vp_errbuf);
5026:
5027: END check_prc_map_seg;
5028: --------------------------------------------------------------------------------
5191: EXCEPTION
5192: WHEN OTHERS THEN
5193: vp_errbuf := 'GET_PRC_VAL.'||SQLERRM;
5194: vp_retcode := -1;
5195: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5196: l_module_name||'.final_exception',vp_errbuf);
5197: RAISE;
5198:
5199: END get_prc_val;
5261: EXCEPTION
5262: WHEN OTHERS THEN
5263: errbuf := SQLERRM;
5264: retcode := -1;
5265: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5266: l_module_name||'.final_exception',errbuf);
5267: RAISE;
5268:
5269: