[Home] [Help]
332: IF vl_prc_no_code_count > 0 THEN
333: errbuf:= 'Reporting Code Type has not been updated for existing ' ||
334: 'Records. Please update the records and resubmit!';
335: retcode := -1;
336: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
337: RETURN;
338: END IF;
339:
340: FOR crec IN facts_record
478: IF l_call_status = FALSE THEN
479: errbuf := 'Can not wait for the status of the request ID:'||
480: l_request_ids(l_counter).request_id ;
481: retcode := '2';
482: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
483: ELSIF dphase= 'COMPLETE' THEN
484: IF l_counter = l_request_ids.COUNT THEN
485: l_flag := 1;
486: END IF;
490: END IF;
491:
492: END LOOP;
493:
494: IF ( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,errbuf);
496: END IF;
497:
498: ELSE -- vl_prc_map_count = 0
491:
492: END LOOP;
493:
494: IF ( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,errbuf);
496: END IF;
497:
498: ELSE -- vl_prc_map_count = 0
499: errbuf:= 'Program Reporting Code Mapping has not been done! '||
498: ELSE -- vl_prc_map_count = 0
499: errbuf:= 'Program Reporting Code Mapping has not been done! '||
500: 'Please map the Program Reporting Code and resubmit!';
501: retcode := -1;
502: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
503: END IF;
504:
505: ELSE -- vl_fiscalyear_count = 0
506: errbuf:= 'Budget Fiscal Year Mapping has not been done! '||
505: ELSE -- vl_fiscalyear_count = 0
506: errbuf:= 'Budget Fiscal Year Mapping has not been done! '||
507: 'Please map the Budget Fiscal Year Segments and resubmit!';
508: retcode := -1;
509: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
510: END IF;
511: EXCEPTION
512: WHEN OTHERS THEN
513: errbuf := SQLERRM;
511: EXCEPTION
512: WHEN OTHERS THEN
513: errbuf := SQLERRM;
514: retcode := -1;
515: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
516: l_module_name||'.final_exception',errbuf);
517: RAISE;
518:
519:
593: vp_zip := RPAD(zip,10);
594:
595:
596:
597: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
598: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
599: 'Deriving Treasury Symbol Id .....') ;
600: END IF;
601: load_treasury_symbol_id ;
594:
595:
596:
597: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
598: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
599: 'Deriving Treasury Symbol Id .....') ;
600: END IF;
601: load_treasury_symbol_id ;
602:
602:
603: IF vp_retcode <> 0 THEN
604: retcode := vp_retcode;
605: errbuf := vp_errbuf;
606: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
607: l_module_name,vp_errbuf);
608: RETURN;
609: END IF;
610: check_prc_map_seg(v_treasury_symbol_id,
611: p_ledger_id,
612: vl_fund, vl_catb_rc_map_status,vl_prn_rc_map_status);
613:
614:
615: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'vl_catb_rc_map_status ->'||vl_catb_rc_map_status);
616: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'vl_prn_rc_map_status ->'||vl_prn_rc_map_status);
617:
618: IF vp_retcode <> 0 OR vl_catb_rc_map_status = 'FAIL' OR
619: vl_prn_rc_map_status = 'FAIL' THEN
612: vl_fund, vl_catb_rc_map_status,vl_prn_rc_map_status);
613:
614:
615: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'vl_catb_rc_map_status ->'||vl_catb_rc_map_status);
616: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'vl_prn_rc_map_status ->'||vl_prn_rc_map_status);
617:
618: IF vp_retcode <> 0 OR vl_catb_rc_map_status = 'FAIL' OR
619: vl_prn_rc_map_status = 'FAIL' THEN
620: retcode := vp_retcode;
618: IF vp_retcode <> 0 OR vl_catb_rc_map_status = 'FAIL' OR
619: vl_prn_rc_map_status = 'FAIL' THEN
620: retcode := vp_retcode;
621: errbuf := vp_errbuf;
622: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Error : Either there is no Program Reporting Code mapping found or Category B reporting code mapping found for Treasury Symbol '||vp_treasury_symbol);
623: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,errbuf);
624: RETURN;
625: END IF;
626:
619: vl_prn_rc_map_status = 'FAIL' THEN
620: retcode := vp_retcode;
621: errbuf := vp_errbuf;
622: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Error : Either there is no Program Reporting Code mapping found or Category B reporting code mapping found for Treasury Symbol '||vp_treasury_symbol);
623: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,errbuf);
624: RETURN;
625: END IF;
626:
627: IF vp_report_fiscal_yr > 2001
628: THEN v_year_gtn2001 := TRUE;
629: END IF;
630:
631:
632: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
633: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
634: 'Running FACTSII process');
635: END IF;
636:
629: END IF;
630:
631:
632: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
633: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
634: 'Running FACTSII process');
635: END IF;
636:
637: vc_fiscal_yr := LPAD(to_char(vp_report_fiscal_yr),4) ;
635: END IF;
636:
637: vc_fiscal_yr := LPAD(to_char(vp_report_fiscal_yr),4) ;
638:
639: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
640: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
641: 'Deriving Treasury Symbol Id .....') ;
642: END IF;
643: load_treasury_symbol_id ;
636:
637: vc_fiscal_yr := LPAD(to_char(vp_report_fiscal_yr),4) ;
638:
639: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
640: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
641: 'Deriving Treasury Symbol Id .....') ;
642: END IF;
643: load_treasury_symbol_id ;
644:
642: END IF;
643: load_treasury_symbol_id ;
644:
645: IF vp_retcode = 0 THEN
646: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
647: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
648: 'Purging FACTS Transactions.....') ;
649: END IF;
650: purge_facts_transactions ;
643: load_treasury_symbol_id ;
644:
645: IF vp_retcode = 0 THEN
646: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
647: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
648: 'Purging FACTS Transactions.....') ;
649: END IF;
650: purge_facts_transactions ;
651: END IF ;
650: purge_facts_transactions ;
651: END IF ;
652:
653: IF vp_retcode = 0 THEN
654: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
655: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
656: 'Deriving Qualifier Segments.....') ;
657: END IF;
658: get_qualifier_segments ;
651: END IF ;
652:
653: IF vp_retcode = 0 THEN
654: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
655: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
656: 'Deriving Qualifier Segments.....') ;
657: END IF;
658: get_qualifier_segments ;
659: END IF ;
658: get_qualifier_segments ;
659: END IF ;
660:
661: IF vp_retcode = 0 THEN
662: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
663: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
664: 'Deriving Treasury Symbol information.....');
665: END IF;
666: get_treasury_symbol_info ;
659: END IF ;
660:
661: IF vp_retcode = 0 THEN
662: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
663: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
664: 'Deriving Treasury Symbol information.....');
665: END IF;
666: get_treasury_symbol_info ;
667: END IF ;
666: get_treasury_symbol_info ;
667: END IF ;
668:
669: IF vp_retcode = 0 THEN
670: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
671: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
672: 'Deriving Period information.....') ;
673: END IF;
674: get_period_info ;
667: END IF ;
668:
669: IF vp_retcode = 0 THEN
670: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
671: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
672: 'Deriving Period information.....') ;
673: END IF;
674: get_period_info ;
675: END IF ;
674: get_period_info ;
675: END IF ;
676:
677: IF vp_retcode = 0 THEN
678: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
679: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
680: 'Starting FACTS Main Process.....') ;
681: END IF;
682: process_facts_transactions ;
675: END IF ;
676:
677: IF vp_retcode = 0 THEN
678: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
679: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
680: 'Starting FACTS Main Process.....') ;
681: END IF;
682: process_facts_transactions ;
683: END IF ;
699: errbuf := 'Generate FACTS II Reports and Bulk Files Process completed with warning '||
700: 'because the Public Law, Advance and Transfer attribute '||
701: 'columns are not established on the '||
702: 'Define System Parameters Form.';
703: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
704: END IF;
705:
706: ELSIF vp_retcode = 1 THEN
707: retcode := vp_retcode ;
711: retcode := vp_retcode ;
712: errbuf := vp_errbuf ;
713: vl_facts2_status := 'ERROR';
714: ROLLBACK ;
715: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
716: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
717: 'Stopped FACTS Main Process.....') ;
718: END IF;
719: END IF ;
712: errbuf := vp_errbuf ;
713: vl_facts2_status := 'ERROR';
714: ROLLBACK ;
715: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
716: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
717: 'Stopped FACTS Main Process.....') ;
718: END IF;
719: END IF ;
720:
728: EXCEPTION
729: WHEN OTHERS THEN
730: vp_retcode := sqlcode ;
731: vp_errbuf := sqlerrm || ' [MAIN] ' ;
732: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
733: l_module_name||'.final_exception',vp_errbuf);
734:
735: ROLLBACK;
736:
756: WHERE treasury_symbol = vp_treasury_symbol
757: AND set_of_books_id = vp_set_of_books_id
758: AND (FACTS_REPORTABLE_INDICATOR like 'II' or FACTS_REPORTABLE_INDICATOR like 'I and II');
759:
760: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
761: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
762: ' Treasury Symbol ID: ' ||v_treasury_symbol_id);
763: END IF;
764:
757: AND set_of_books_id = vp_set_of_books_id
758: AND (FACTS_REPORTABLE_INDICATOR like 'II' or FACTS_REPORTABLE_INDICATOR like 'I and II');
759:
760: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
761: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
762: ' Treasury Symbol ID: ' ||v_treasury_symbol_id);
763: END IF;
764:
765: EXCEPTION
766: WHEN NO_DATA_FOUND THEN
767: vp_retcode := -1 ;
768: vp_errbuf := 'Treasury Symbol Id cannot be found for the Treasury
769: Symbol - '||vp_treasury_symbol||' [ GET_TREASURY_SYMBOL_ID ] ' ;
770: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
771: l_module_name||'.exception1',vp_errbuf);
772: WHEN TOO_MANY_ROWS Then
773: vp_retcode := -1 ;
774: vp_errbuf := 'More than one Treasury Symbol Id found for the Treasury
772: WHEN TOO_MANY_ROWS Then
773: vp_retcode := -1 ;
774: vp_errbuf := 'More than one Treasury Symbol Id found for the Treasury
775: Symbol - '||vp_treasury_symbol||' [ GET_TREASURY_SYMBOL_ID ] ' ;
776: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
777: l_module_name||'.exception2',vp_errbuf);
778: WHEN OTHERS THEN
779: vp_errbuf := SQLERRM;
780: vp_retcode := -1;
777: l_module_name||'.exception2',vp_errbuf);
778: WHEN OTHERS THEN
779: vp_errbuf := SQLERRM;
780: vp_retcode := -1;
781: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
782: l_module_name||'.final_exception',vp_errbuf);
783: RAISE;
784: END load_treasury_symbol_id ;
785: --------------------------------------------------------------------------------------
807: Null ;
808: When Others Then
809: vp_retcode := sqlcode ;
810: vp_errbuf := sqlerrm ;
811: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
812: l_module_name||'.final_exception',vp_errbuf);
813: END purge_facts_transactions ;
814: --------------------------------------------------------------------------------
815: -- Gets the Accounting and Balancing segment names for the Chart
842: WHEN NO_DATA_FOUND THEN
843: vp_retcode := -1 ;
844: vp_errbuf := 'Error getting Chart of Accounts Id for ledger id '
845: ||vp_set_of_books_id;
846: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);
847: RETURN;
848: END;
849: -- Getting the Account and Balancing segments' application column names
850: BEGIN
856: EXCEPTION
857: WHEN OTHERS THEN
858: vp_retcode := -1;
859: vp_errbuf := error_message;
860: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);
861: RETURN;
862: END;
863:
864: -- Getting the Value Set Id for the Account Segment
875: WHEN NO_DATA_FOUND THEN
876: vp_retcode := -1 ;
877: vp_errbuf := 'Error getting Value Set Id for segment'
878: ||v_acc_seg_name||' [GET_USSGL_ACCOUNT_NUM]' ;
879: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
880: RETURN;
881: END ;
882:
883: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
879: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
880: RETURN;
881: END ;
882:
883: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
885: ' COA ID: '||v_chart_of_accounts_id);
886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
887: ' ACC SEG: '||v_acc_seg_name);
880: RETURN;
881: END ;
882:
883: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
885: ' COA ID: '||v_chart_of_accounts_id);
886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
887: ' ACC SEG: '||v_acc_seg_name);
888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
882:
883: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
885: ' COA ID: '||v_chart_of_accounts_id);
886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
887: ' ACC SEG: '||v_acc_seg_name);
888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
889: ' BAL SEG: '||v_bal_seg_name);
890: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
885: ' COA ID: '||v_chart_of_accounts_id);
886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
887: ' ACC SEG: '||v_acc_seg_name);
888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
889: ' BAL SEG: '||v_bal_seg_name);
890: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
891: ' ACC Val Set ID: '||v_acc_val_set_id);
892: END IF;
886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
887: ' ACC SEG: '||v_acc_seg_name);
888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
889: ' BAL SEG: '||v_bal_seg_name);
890: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
891: ' ACC Val Set ID: '||v_acc_val_set_id);
892: END IF;
893:
894: -- Getting Fiscal year segment name from fv_pya_fiscal_year_segment
895: SELECT application_column_name
896: INTO v_fyr_segment_name
897: FROM fv_pya_fiscalyear_segment
898: WHERE set_of_books_id = vp_set_of_books_id;
899: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
900: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
901: 'Fiscal year segment: '||v_fyr_segment_name);
902: END IF;
903: EXCEPTION
896: INTO v_fyr_segment_name
897: FROM fv_pya_fiscalyear_segment
898: WHERE set_of_books_id = vp_set_of_books_id;
899: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
900: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
901: 'Fiscal year segment: '||v_fyr_segment_name);
902: END IF;
903: EXCEPTION
904: WHEN OTHERS THEN
903: EXCEPTION
904: WHEN OTHERS THEN
905: vp_retcode := sqlcode;
906: vp_errbuf := sqlerrm ;
907: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
908: l_module_name||'.final_exception',vp_errbuf);
909: END get_qualifier_segments ;
910: --------------------------------------------------------------------------------------
911: -- Gets all the information that remains contant throughout the
970: /* IF v_year_gtn2001 THEN
971: vc_acct_split_seq_num := '000';
972: END IF; */
973:
974: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
976: l_module_name, 'Financing Acct >>> - ' ||
977: vl_financing_acct || ' >>>> - Cohort Seg Name - ' ||
978: v_cohort_seg_name) ;
971: vc_acct_split_seq_num := '000';
972: END IF; */
973:
974: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
976: l_module_name, 'Financing Acct >>> - ' ||
977: vl_financing_acct || ' >>>> - Cohort Seg Name - ' ||
978: v_cohort_seg_name) ;
979: END IF ;
1017: WHEN NO_DATA_FOUND THEN
1018: vp_retcode := -1 ;
1019: vp_errbuf := 'Error Getting Treasury Symbol related Information'||
1020: ' for the passed Treasury Symbol [GET_TREASURY_SYMBOL_INFO] ' ;
1021: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
1022: l_module_name||'.exception1', vp_errbuf) ;
1023: WHEN TOO_MANY_ROWS THEN
1024: vp_retcode := -1 ;
1025: vp_errbuf := 'More than one set of information returned for the'||
1023: WHEN TOO_MANY_ROWS THEN
1024: vp_retcode := -1 ;
1025: vp_errbuf := 'More than one set of information returned for the'||
1026: ' passed Treasury Symbol [GET_TREASURY_SYMBOL_INFO]' ;
1027: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
1028: l_module_name||'.exception2', vp_errbuf) ;
1029: WHEN OTHERS THEN
1030: vp_errbuf := SQLERRM;
1031: vp_retcode := -1;
1028: l_module_name||'.exception2', vp_errbuf) ;
1029: WHEN OTHERS THEN
1030: vp_errbuf := SQLERRM;
1031: vp_retcode := -1;
1032: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1033: l_module_name||'.final_exception',vp_errbuf);
1034: RAISE;
1035: END get_treasury_symbol_info ;
1036: --------------------------------------------------------------------------------
1060: AND application_id = 101
1061: AND period_year = vp_report_fiscal_yr
1062: AND period_num = v_period_num ;
1063:
1064: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1065: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1066: l_module_name,' Period Name: '||v_period_name);
1067: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1068: l_module_name,' Period Start Dt: '||v_period_start_dt);
1061: AND period_year = vp_report_fiscal_yr
1062: AND period_num = v_period_num ;
1063:
1064: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1065: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1066: l_module_name,' Period Name: '||v_period_name);
1067: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1068: l_module_name,' Period Start Dt: '||v_period_start_dt);
1069: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1063:
1064: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1065: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1066: l_module_name,' Period Name: '||v_period_name);
1067: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1068: l_module_name,' Period Start Dt: '||v_period_start_dt);
1069: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1070: l_module_name,' Period End Dt: '||v_period_end_dt);
1071: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1065: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1066: l_module_name,' Period Name: '||v_period_name);
1067: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1068: l_module_name,' Period Start Dt: '||v_period_start_dt);
1069: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1070: l_module_name,' Period End Dt: '||v_period_end_dt);
1071: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1072: l_module_name,' Quarter Num: '||vp_report_qtr);
1073: END IF;
1067: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1068: l_module_name,' Period Start Dt: '||v_period_start_dt);
1069: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1070: l_module_name,' Period End Dt: '||v_period_end_dt);
1071: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1072: l_module_name,' Quarter Num: '||vp_report_qtr);
1073: END IF;
1074:
1075: EXCEPTION
1076: WHEN NO_DATA_FOUND THEN
1077: vp_retcode := -1 ;
1078: vp_errbuf := 'Error Getting Period Information for the passed '||
1079: 'period [GET_PERIOD_INFO]' ;
1080: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
1081: RETURN;
1082: WHEN TOO_MANY_ROWS THEN
1083: vp_retcode := -1 ;
1084: vp_errbuf := 'More than one period information returned for the '||
1082: WHEN TOO_MANY_ROWS THEN
1083: vp_retcode := -1 ;
1084: vp_errbuf := 'More than one period information returned for the '||
1085: 'passed Period [GET_PERIOD_INFO]' ;
1086: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
1087: RETURN;
1088: END ;
1089:
1090: BEGIN
1110: -- AND adjustment_period_flag = 'N'
1111: AND ledger_id = vp_set_of_books_id
1112: AND period_year = vp_report_fiscal_yr ;
1113:
1114: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1116: l_module_name,' Begin Prd Name: '||v_begin_period_name);
1117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1118: l_module_name,
1111: AND ledger_id = vp_set_of_books_id
1112: AND period_year = vp_report_fiscal_yr ;
1113:
1114: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1116: l_module_name,' Begin Prd Name: '||v_begin_period_name);
1117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1118: l_module_name,
1119: ' Begin Prd St Dt: '|| v_begin_period_start_dt);
1113:
1114: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1116: l_module_name,' Begin Prd Name: '||v_begin_period_name);
1117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1118: l_module_name,
1119: ' Begin Prd St Dt: '|| v_begin_period_start_dt);
1120: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1121: ' Begin Prd End Dt: '|| v_begin_period_end_dt);
1116: l_module_name,' Begin Prd Name: '||v_begin_period_name);
1117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1118: l_module_name,
1119: ' Begin Prd St Dt: '|| v_begin_period_start_dt);
1120: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1121: ' Begin Prd End Dt: '|| v_begin_period_end_dt);
1122: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1123: ' Begin Prd Num: '||v_begin_period_num);
1124: END IF;
1118: l_module_name,
1119: ' Begin Prd St Dt: '|| v_begin_period_start_dt);
1120: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1121: ' Begin Prd End Dt: '|| v_begin_period_end_dt);
1122: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1123: ' Begin Prd Num: '||v_begin_period_num);
1124: END IF;
1125:
1126: EXCEPTION
1127: WHEN NO_DATA_FOUND THEN
1128: vp_retcode := -1 ;
1129: vp_errbuf := 'Error Getting Beginning Period Information ' ||
1130: '[GET_PERIOD_INFO]' ;
1131: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
1132: l_module_name, vp_errbuf) ;
1133: RETURN;
1134: WHEN TOO_MANY_ROWS THEN
1135: vp_retcode := -1 ;
1134: WHEN TOO_MANY_ROWS THEN
1135: vp_retcode := -1 ;
1136: vp_errbuf := 'More than one Beginning Period Returned !!'||
1137: ' [GET_PERIOD_INFO]' ;
1138: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
1139: l_module_name, vp_errbuf) ;
1140: RETURN;
1141: END ;
1142: EXCEPTION
1143: -- Exception Processing
1144: WHEN OTHERS THEN
1145: vp_retcode := sqlcode ;
1146: vp_errbuf := sqlerrm || ' [GET_PERIOD_INFO] ' ;
1147: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1148: l_module_name||'.final_exception',vp_errbuf);
1149: END get_period_info ;
1150:
1151: --------------------------------------------------------------------------------
1251: -- Get all the transaction balances for the combinations that have
1252: -- fund values which are associated with the passed Treasury
1253: -- Symbol. Sum all the amounts and group the data by Account Number
1254: -- and Fund Value.
1255: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1257: 'Selecting FACTS Transactions.....') ;
1258: END IF;
1259: BEGIN
1252: -- fund values which are associated with the passed Treasury
1253: -- Symbol. Sum all the amounts and group the data by Account Number
1254: -- and Fund Value.
1255: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1257: 'Selecting FACTS Transactions.....') ;
1258: END IF;
1259: BEGIN
1260: vl_main_cursor := DBMS_SQL.OPEN_CURSOR ;
1261: EXCEPTION
1262: WHEN OTHERS THEN
1263: vp_retcode := sqlcode ;
1264: vp_errbuf := sqlerrm ;
1265: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1266: l_module_name||'.vl_main_cursor', vp_errbuf) ;
1267: RETURN;
1268: END ;
1269:
1341: ' ORDER BY GLCC.' || v_acc_seg_name ;
1342:
1343:
1344:
1345: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1346: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1347: 'Main Select: '||vl_main_select);
1348: END IF;
1349:
1342:
1343:
1344:
1345: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1346: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1347: 'Main Select: '||vl_main_select);
1348: END IF;
1349:
1350: BEGIN
1352: EXCEPTION
1353: WHEN OTHERS THEN
1354: vp_retcode := sqlcode ;
1355: vp_errbuf := sqlerrm ;
1356: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1357: l_module_name||'.dbms_sql_parse', vp_errbuf) ;
1358: RETURN;
1359: END ;
1360:
1386: EXCEPTION
1387: WHEN OTHERS THEN
1388: vp_retcode := sqlcode ;
1389: VP_ERRBUF := sqlerrm ;
1390: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1391: l_module_name||'.dbms_sql_parse', vp_errbuf) ;
1392: RETURN;
1393: END ;
1394:
1391: l_module_name||'.dbms_sql_parse', vp_errbuf) ;
1392: RETURN;
1393: END ;
1394:
1395: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1396: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1397: 'Processing FACTS Transactions starts.....');
1398: END IF;
1399: LOOP
1392: RETURN;
1393: END ;
1394:
1395: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1396: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1397: 'Processing FACTS Transactions starts.....');
1398: END IF;
1399: LOOP
1400: -- This is a Dummy Loop since we have no command in PL/SQL to skip
1439: -- No Rows to process for FACTS II Report !!
1440: vp_retcode := 1 ;
1441: VP_ERRBUF := 'No Data found for FACTS II process' ;
1442:
1443: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1444: '=======================' ||
1445: '===================================================') ;
1446: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1447: vp_errbuf) ;
1442:
1443: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1444: '=======================' ||
1445: '===================================================') ;
1446: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1447: vp_errbuf) ;
1448: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1449: '=======================' ||
1450: '===================================================') ;
1444: '=======================' ||
1445: '===================================================') ;
1446: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1447: vp_errbuf) ;
1448: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1449: '=======================' ||
1450: '===================================================') ;
1451: RETURN;
1452: END IF;
1469: dbms_sql.column_value(vl_main_cursor, 4, vb_amount);
1470: dbms_sql.column_value(vl_main_cursor, 5, ve_amount);
1471: END IF;
1472:
1473: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1474: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1475: '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
1476: END IF;
1477:
1470: dbms_sql.column_value(vl_main_cursor, 5, ve_amount);
1471: END IF;
1472:
1473: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1474: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1475: '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
1476: END IF;
1477:
1478: -- FACTS Account Number Validation Process
1491: vl_old_acct_num := vl_acct_num ;
1492: vl_old_exception := v_record_category ;
1493: END IF ;
1494:
1495: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1497: 'Processing for> Acct-'||vl_acct_num||
1498: ' > USSGL Acct-'||vl_sgl_acct_num||' > Fund-'||vl_fund_value||
1499: ' Cohort >-'||vl_cohort_yr|| ' > Category - ' ||
1492: vl_old_exception := v_record_category ;
1493: END IF ;
1494:
1495: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1497: 'Processing for> Acct-'||vl_acct_num||
1498: ' > USSGL Acct-'||vl_sgl_acct_num||' > Fund-'||vl_fund_value||
1499: ' Cohort >-'||vl_cohort_yr|| ' > Category - ' ||
1500: v_record_category ) ;
1535: ---v_amount := vl_amount;
1536: ------------------------------------------- */
1537: v_amount := ve_amount; -- bug 5065974
1538:
1539: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1540: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1541: 'Creating exception: '|| v_record_category);
1542: END IF;
1543: create_facts_record ;
1536: ------------------------------------------- */
1537: v_amount := ve_amount; -- bug 5065974
1538:
1539: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1540: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1541: 'Creating exception: '|| v_record_category);
1542: END IF;
1543: create_facts_record ;
1544: IF vp_retcode <> 0 THEN
1558: INTO v_dummy_cohort
1559: FROM DUAL;
1560: --Bug#4234865 Changed v_dummy_cohort to vl_cohort_yr
1561: IF LENGTH(vl_cohort_yr) = 1 THEN
1562: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1563: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1564: 'Cohort value: '||vl_cohort_yr|| ' is a single digit!');
1565: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1566: 'Taking Cohort value from report parameter.');
1559: FROM DUAL;
1560: --Bug#4234865 Changed v_dummy_cohort to vl_cohort_yr
1561: IF LENGTH(vl_cohort_yr) = 1 THEN
1562: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1563: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1564: 'Cohort value: '||vl_cohort_yr|| ' is a single digit!');
1565: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1566: 'Taking Cohort value from report parameter.');
1567: END IF;
1561: IF LENGTH(vl_cohort_yr) = 1 THEN
1562: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1563: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1564: 'Cohort value: '||vl_cohort_yr|| ' is a single digit!');
1565: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1566: 'Taking Cohort value from report parameter.');
1567: END IF;
1568: v_dummy_cohort := vp_report_fiscal_yr;
1569: --Bug#4234865 Added the ELSE part
1571: v_dummy_cohort := vl_cohort_yr;
1572: END IF;
1573:
1574: EXCEPTION WHEN INVALID_NUMBER THEN
1575: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1576: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1577: 'Cohort value: '||vl_cohort_yr|| ' is non-numeric!');
1578: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1579: 'Taking Cohort value from report parameter.');
1572: END IF;
1573:
1574: EXCEPTION WHEN INVALID_NUMBER THEN
1575: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1576: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1577: 'Cohort value: '||vl_cohort_yr|| ' is non-numeric!');
1578: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1579: 'Taking Cohort value from report parameter.');
1580: END IF;
1574: EXCEPTION WHEN INVALID_NUMBER THEN
1575: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1576: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1577: 'Cohort value: '||vl_cohort_yr|| ' is non-numeric!');
1578: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1579: 'Taking Cohort value from report parameter.');
1580: END IF;
1581: v_dummy_cohort := vp_report_fiscal_yr;
1582: END;
1605: WHERE period_year = vp_report_fiscal_yr
1606: AND set_of_books_id = vp_set_of_books_id;
1607: EXCEPTION
1608: WHEN NO_DATA_FOUND THEN
1609: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1610: 'Please set up the Budget Fiscal Year Segment Mapping for period year '||vp_report_fiscal_yr);
1611: RAISE;
1612: END;
1613:
1619: END IF;
1620: END IF;
1621: END IF;
1622:
1623: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1624: THEN
1625: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1626: 'Year bud auth: '||v_year_budget_auth);
1627: END IF;
1621: END IF;
1622:
1623: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1624: THEN
1625: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1626: 'Year bud auth: '||v_year_budget_auth);
1627: END IF;
1628: EXCEPTION WHEN OTHERS THEN
1629: vp_retcode := sqlcode;
1628: EXCEPTION WHEN OTHERS THEN
1629: vp_retcode := sqlcode;
1630: vp_errbuf := 'Error when processing v_year_budget_auth: '||
1631: sqlerrm;
1632: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1633: l_module_name||'.exception_1',vp_errbuf);
1634: RETURN;
1635: END;
1636:
1655:
1656: -------------- Legislation Indicator Processing Starts ----------------
1657: IF va_legis_Ind_flag = 'Y' OR va_public_law_code_flag = 'Y'
1658: OR va_advance_flag = 'Y' OR va_transfer_ind = 'Y' THEN
1659: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1660: IF (va_legis_ind_flag ='Y' AND va_public_law_code_flag ='Y') THEN
1661: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1662: THEN
1663: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1657: IF va_legis_Ind_flag = 'Y' OR va_public_law_code_flag = 'Y'
1658: OR va_advance_flag = 'Y' OR va_transfer_ind = 'Y' THEN
1659: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1660: IF (va_legis_ind_flag ='Y' AND va_public_law_code_flag ='Y') THEN
1661: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1662: THEN
1663: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1664: ' ++ Leg Ind and P.Law Processing ++') ;
1665: END IF;
1659: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1660: IF (va_legis_ind_flag ='Y' AND va_public_law_code_flag ='Y') THEN
1661: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1662: THEN
1663: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1664: ' ++ Leg Ind and P.Law Processing ++') ;
1665: END IF;
1666: ELSIF (va_legis_ind_flag = 'Y' AND va_public_law_code_flag = 'N')
1667: THEN
1664: ' ++ Leg Ind and P.Law Processing ++') ;
1665: END IF;
1666: ELSIF (va_legis_ind_flag = 'Y' AND va_public_law_code_flag = 'N')
1667: THEN
1668: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1669: THEN
1670: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1671: ' ++ Leg Ind Processing ++') ;
1672: END IF;
1666: ELSIF (va_legis_ind_flag = 'Y' AND va_public_law_code_flag = 'N')
1667: THEN
1668: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1669: THEN
1670: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1671: ' ++ Leg Ind Processing ++') ;
1672: END IF;
1673: ELSIF va_legis_ind_flag = 'N' AND va_public_law_code_flag = 'Y'
1674: THEN
1671: ' ++ Leg Ind Processing ++') ;
1672: END IF;
1673: ELSIF va_legis_ind_flag = 'N' AND va_public_law_code_flag = 'Y'
1674: THEN
1675: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1676: THEN
1677: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1678: ' ++ Pub Law Processing ++') ;
1679: END IF;
1673: ELSIF va_legis_ind_flag = 'N' AND va_public_law_code_flag = 'Y'
1674: THEN
1675: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1676: THEN
1677: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1678: ' ++ Pub Law Processing ++') ;
1679: END IF;
1680: END IF ;
1681:
1679: END IF;
1680: END IF ;
1681:
1682: IF va_advance_flag = 'Y' THEN
1683: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1684: THEN
1685: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1686: '++ Advance Type Processing ++') ;
1687: END IF;
1681:
1682: IF va_advance_flag = 'Y' THEN
1683: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1684: THEN
1685: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1686: '++ Advance Type Processing ++') ;
1687: END IF;
1688: END IF;
1689: IF va_transfer_ind = 'Y' THEN
1686: '++ Advance Type Processing ++') ;
1687: END IF;
1688: END IF;
1689: IF va_transfer_ind = 'Y' THEN
1690: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1691: THEN
1692: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1693: '++ Transfer Acct Processing ++') ;
1694: END IF;
1688: END IF;
1689: IF va_transfer_ind = 'Y' THEN
1690: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1691: THEN
1692: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1693: '++ Transfer Acct Processing ++') ;
1694: END IF;
1695: END IF;
1696: END IF ;
1724: va_transfer_dept_id := ' ' ;
1725: va_transfer_main_acct := ' ' ;
1726: END IF ;
1727:
1728: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1729: THEN
1730: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1731: 'Period number '||v_begin_period_num) ;
1732: END IF;
1726: END IF ;
1727:
1728: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1729: THEN
1730: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1731: 'Period number '||v_begin_period_num) ;
1732: END IF;
1733:
1734: /* ------- bug 5065974 -------------------
1829: v_record_category := 'REPORTED' ;
1830: --v_amount := v_begin_amount ; -- bug 5065974
1831: v_amount := vb_balance_amount ; -- bug 5065974
1832: v_period_activity := 0 ;
1833: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1834: THEN
1835: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1836: 'Begin Balance(' || va_balance_type_flag || ') >>>> - ' || to_char(v_amount)) ;
1837: END IF ;
1831: v_amount := vb_balance_amount ; -- bug 5065974
1832: v_period_activity := 0 ;
1833: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1834: THEN
1835: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1836: 'Begin Balance(' || va_balance_type_flag || ') >>>> - ' || to_char(v_amount)) ;
1837: END IF ;
1838:
1839: create_facts_record ;
1848: v_record_category := 'REPORTED' ;
1849: --v_amount := v_begin_amount ;
1850: v_amount := vb_balance_amount ;
1851: v_period_activity := 0 ;
1852: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1853: THEN
1854: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Begin Balance(' ||
1855: va_balance_type_flag || ') >>>> - ' || to_char(v_amount)) ;
1856: END IF ;
1850: v_amount := vb_balance_amount ;
1851: v_period_activity := 0 ;
1852: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1853: THEN
1854: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Begin Balance(' ||
1855: va_balance_type_flag || ') >>>> - ' || to_char(v_amount)) ;
1856: END IF ;
1857:
1858: create_facts_record ;
1871: EXCEPTION
1872: WHEN OTHERS THEN
1873: vp_retcode := sqlcode ;
1874: VP_ERRBUF := sqlerrm ;
1875: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1876: l_module_name||'.vl_legis_cursor', vp_errbuf) ;
1877: RETURN ;
1878: END ;
1879:
1903: gl_access_set_security_pkg.CHECK_SEGVALS,
1904: null, 'glcc', null);
1905: -- Get the transactions for the account Number and Fund (and
1906: -- cohort segment, if required)
1907: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1908: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1909: 'vl_legis_Select') ;
1910: END IF;
1911:
1904: null, 'glcc', null);
1905: -- Get the transactions for the account Number and Fund (and
1906: -- cohort segment, if required)
1907: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1908: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1909: 'vl_legis_Select') ;
1910: END IF;
1911:
1912: vl_legis_select :=
1988: IF (das_where IS NOT NULL) THEN
1989: vl_legis_select := vl_legis_select || 'AND ' || das_where;
1990: END IF;
1991:
1992: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1993: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1994: vl_legis_select) ;
1995: END IF;
1996:
1989: vl_legis_select := vl_legis_select || 'AND ' || das_where;
1990: END IF;
1991:
1992: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1993: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1994: vl_legis_select) ;
1995: END IF;
1996:
1997: BEGIN
1999: EXCEPTION
2000: WHEN OTHERS THEN
2001: vp_retcode := sqlcode ;
2002: vp_errbuf := sqlerrm ;
2003: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2004: l_module_name||'.dbms_sql_parse_vl_legis_cursor',
2005: vp_errbuf) ;
2006: RETURN ;
2007: END ;
2061: EXCEPTION
2062: WHEN OTHERS THEN
2063: vp_retcode := sqlcode ;
2064: vp_errbuf := sqlerrm ;
2065: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2066: l_module_name||'.dbms_sql_execute_vl_legis_cursor',
2067: vp_errbuf) ;
2068: RETURN ;
2069: END ;
2109: dbms_sql.column_value(vl_legis_cursor, vl_count,
2110: vl_advance_type);
2111: END IF;
2112:
2113: IF ( FND_LOG.LEVEL_STATEMENT >=
2114: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2116: l_module_name,'Ref 1-'||NVL(vl_legis_ref,'Ref Null')) ;
2117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2110: vl_advance_type);
2111: END IF;
2112:
2113: IF ( FND_LOG.LEVEL_STATEMENT >=
2114: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2116: l_module_name,'Ref 1-'||NVL(vl_legis_ref,'Ref Null')) ;
2117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2118: l_module_name,'P Law-'||
2111: END IF;
2112:
2113: IF ( FND_LOG.LEVEL_STATEMENT >=
2114: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2116: l_module_name,'Ref 1-'||NVL(vl_legis_ref,'Ref Null')) ;
2117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2118: l_module_name,'P Law-'||
2119: NVL(va_public_law_code_val, 'P Law Null')) ;
2113: IF ( FND_LOG.LEVEL_STATEMENT >=
2114: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2116: l_module_name,'Ref 1-'||NVL(vl_legis_ref,'Ref Null')) ;
2117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2118: l_module_name,'P Law-'||
2119: NVL(va_public_law_code_val, 'P Law Null')) ;
2120: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2121: l_module_name,'Amt:'||
2116: l_module_name,'Ref 1-'||NVL(vl_legis_ref,'Ref Null')) ;
2117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2118: l_module_name,'P Law-'||
2119: NVL(va_public_law_code_val, 'P Law Null')) ;
2120: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2121: l_module_name,'Amt:'||
2122: NVL(TO_CHAR(vl_legis_amount), 'Amt Null')) ;
2123: END IF ;
2124:
2158: vl_sgl_acct_num_bak := v_sgl_acct_num;
2159: v_sgl_acct_num := vl_acct_num ;
2160: va_public_law_code_val := NULL;
2161: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2162: IF ( FND_LOG.LEVEL_STATEMENT >=
2163: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2164: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2165: l_module_name,'Creating exception :'||
2166: v_record_category);
2159: v_sgl_acct_num := vl_acct_num ;
2160: va_public_law_code_val := NULL;
2161: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2162: IF ( FND_LOG.LEVEL_STATEMENT >=
2163: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2164: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2165: l_module_name,'Creating exception :'||
2166: v_record_category);
2167: END IF;
2160: va_public_law_code_val := NULL;
2161: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2162: IF ( FND_LOG.LEVEL_STATEMENT >=
2163: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2164: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2165: l_module_name,'Creating exception :'||
2166: v_record_category);
2167: END IF;
2168:
2179: vl_sgl_acct_num_bak := v_sgl_acct_num;
2180: v_sgl_acct_num := vl_acct_num ;
2181: va_public_law_code_val := NULL;
2182: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2183: IF ( FND_LOG.LEVEL_STATEMENT >=
2184: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2185: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2186: l_module_name,'Creating exception :'||
2187: v_record_category);
2180: v_sgl_acct_num := vl_acct_num ;
2181: va_public_law_code_val := NULL;
2182: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2183: IF ( FND_LOG.LEVEL_STATEMENT >=
2184: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2185: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2186: l_module_name,'Creating exception :'||
2187: v_record_category);
2188: END IF;
2181: va_public_law_code_val := NULL;
2182: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2183: IF ( FND_LOG.LEVEL_STATEMENT >=
2184: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2185: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2186: l_module_name,'Creating exception :'||
2187: v_record_category);
2188: END IF;
2189: create_facts_record ;
2196: vl_sgl_acct_num_bak := v_sgl_acct_num;
2197: v_sgl_acct_num := vl_acct_num ;
2198: va_public_law_code_val := NULL;
2199: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2200: IF ( FND_LOG.LEVEL_STATEMENT >=
2201: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2202: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2203: l_module_name,'Creating exception :'||
2204: v_record_category);
2197: v_sgl_acct_num := vl_acct_num ;
2198: va_public_law_code_val := NULL;
2199: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2200: IF ( FND_LOG.LEVEL_STATEMENT >=
2201: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2202: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2203: l_module_name,'Creating exception :'||
2204: v_record_category);
2205: END IF;
2198: va_public_law_code_val := NULL;
2199: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2200: IF ( FND_LOG.LEVEL_STATEMENT >=
2201: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2202: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2203: l_module_name,'Creating exception :'||
2204: v_record_category);
2205: END IF;
2206: create_facts_record ;
2221: vl_sgl_acct_num_bak := v_sgl_acct_num;
2222: v_sgl_acct_num := vl_acct_num ;
2223: va_public_law_code_val := NULL;
2224: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2225: IF ( FND_LOG.LEVEL_STATEMENT >=
2226: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2227: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2228: l_module_name,'Creating exception :'||
2229: v_record_category);
2222: v_sgl_acct_num := vl_acct_num ;
2223: va_public_law_code_val := NULL;
2224: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2225: IF ( FND_LOG.LEVEL_STATEMENT >=
2226: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2227: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2228: l_module_name,'Creating exception :'||
2229: v_record_category);
2230: END IF;
2223: va_public_law_code_val := NULL;
2224: v_record_category := 'PUBLIC_LAW_NOT_DEFINED' ;
2225: IF ( FND_LOG.LEVEL_STATEMENT >=
2226: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2227: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2228: l_module_name,'Creating exception :'||
2229: v_record_category);
2230: END IF;
2231: create_facts_record ;
2256: FROM fv_be_transaction_types
2257: WHERE be_tt_id = vl_tran_type
2258: AND set_of_books_id = vp_set_of_books_id ;
2259:
2260: IF ( FND_LOG.LEVEL_STATEMENT >=
2261: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2263: l_module_name,
2264: 'Legislation Indicator-'||
2257: WHERE be_tt_id = vl_tran_type
2258: AND set_of_books_id = vp_set_of_books_id ;
2259:
2260: IF ( FND_LOG.LEVEL_STATEMENT >=
2261: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2263: l_module_name,
2264: 'Legislation Indicator-'||
2265: NVL(va_legis_ind_val,'Legis Null')) ;
2258: AND set_of_books_id = vp_set_of_books_id ;
2259:
2260: IF ( FND_LOG.LEVEL_STATEMENT >=
2261: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2262: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2263: l_module_name,
2264: 'Legislation Indicator-'||
2265: NVL(va_legis_ind_val,'Legis Null')) ;
2266: END IF ;
2273: v_amount := vl_legis_amount ;
2274:
2275: IF NOT v_year_gtn2001 THEN
2276: v_record_category := 'NO_LEGIS_INDICATOR' ;
2277: IF ( FND_LOG.LEVEL_STATEMENT >=
2278: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2280: l_module_name,
2281: 'Creating Exception: '||v_record_category) ;
2274:
2275: IF NOT v_year_gtn2001 THEN
2276: v_record_category := 'NO_LEGIS_INDICATOR' ;
2277: IF ( FND_LOG.LEVEL_STATEMENT >=
2278: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2280: l_module_name,
2281: 'Creating Exception: '||v_record_category) ;
2282: END IF ;
2275: IF NOT v_year_gtn2001 THEN
2276: v_record_category := 'NO_LEGIS_INDICATOR' ;
2277: IF ( FND_LOG.LEVEL_STATEMENT >=
2278: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2280: l_module_name,
2281: 'Creating Exception: '||v_record_category) ;
2282: END IF ;
2283: create_facts_record ;
2296: v_sgl_acct_num := vl_sgl_acct_num ;
2297: v_amount := vl_legis_amount ;
2298: IF NOT v_year_gtn2001 THEN
2299: v_record_category := 'NO_LEGIS_INDICATOR' ;
2300: IF ( FND_LOG.LEVEL_STATEMENT >=
2301: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2302: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2303: l_module_name,
2304: 'Creating Exception: '||v_record_category) ;
2297: v_amount := vl_legis_amount ;
2298: IF NOT v_year_gtn2001 THEN
2299: v_record_category := 'NO_LEGIS_INDICATOR' ;
2300: IF ( FND_LOG.LEVEL_STATEMENT >=
2301: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2302: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2303: l_module_name,
2304: 'Creating Exception: '||v_record_category) ;
2305: END IF ;
2298: IF NOT v_year_gtn2001 THEN
2299: v_record_category := 'NO_LEGIS_INDICATOR' ;
2300: IF ( FND_LOG.LEVEL_STATEMENT >=
2301: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2302: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2303: l_module_name,
2304: 'Creating Exception: '||v_record_category) ;
2305: END IF ;
2306: create_facts_record ;
2328: INTO va_advance_type_val
2329: FROM fv_be_trx_dtls
2330: WHERE transaction_id = vl_legis_ref
2331: AND set_of_books_id = vp_set_of_books_id ;
2332: IF ( FND_LOG.LEVEL_STATEMENT >=
2333: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2334: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2335: l_module_name,'Advance Type - '||
2336: NVL(va_advance_type_val, 'Advance Type Null')) ;
2329: FROM fv_be_trx_dtls
2330: WHERE transaction_id = vl_legis_ref
2331: AND set_of_books_id = vp_set_of_books_id ;
2332: IF ( FND_LOG.LEVEL_STATEMENT >=
2333: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2334: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2335: l_module_name,'Advance Type - '||
2336: NVL(va_advance_type_val, 'Advance Type Null')) ;
2337: END IF ;
2330: WHERE transaction_id = vl_legis_ref
2331: AND set_of_books_id = vp_set_of_books_id ;
2332: IF ( FND_LOG.LEVEL_STATEMENT >=
2333: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2334: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2335: l_module_name,'Advance Type - '||
2336: NVL(va_advance_type_val, 'Advance Type Null')) ;
2337: END IF ;
2338: -- If the advance_type value is null then set it to 'X'
2380: va_transfer_main_acct
2381: FROM fv_be_trx_dtls
2382: WHERE transaction_id = vl_legis_ref
2383: AND set_of_books_id = vp_set_of_books_id ;
2384: IF ( FND_LOG.LEVEL_STATEMENT >=
2385: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2386: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2387: l_module_name,'Transfer Dept ID- '||
2388: NVL(va_transfer_dept_id, 'Transfer Dept ID Null'));
2381: FROM fv_be_trx_dtls
2382: WHERE transaction_id = vl_legis_ref
2383: AND set_of_books_id = vp_set_of_books_id ;
2384: IF ( FND_LOG.LEVEL_STATEMENT >=
2385: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2386: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2387: l_module_name,'Transfer Dept ID- '||
2388: NVL(va_transfer_dept_id, 'Transfer Dept ID Null'));
2389: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2382: WHERE transaction_id = vl_legis_ref
2383: AND set_of_books_id = vp_set_of_books_id ;
2384: IF ( FND_LOG.LEVEL_STATEMENT >=
2385: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2386: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2387: l_module_name,'Transfer Dept ID- '||
2388: NVL(va_transfer_dept_id, 'Transfer Dept ID Null'));
2389: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2390: l_module_name,'Transfer Main Acct-'||
2385: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2386: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2387: l_module_name,'Transfer Dept ID- '||
2388: NVL(va_transfer_dept_id, 'Transfer Dept ID Null'));
2389: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2390: l_module_name,'Transfer Main Acct-'||
2391: NVL(va_transfer_main_acct,
2392: 'Transfer Main Acct Null'));
2393: END IF ;
2401: v_sgl_acct_num := vl_acct_num ;
2402: va_transfer_dept_id := NULL;
2403: va_transfer_main_acct := NULL;
2404: v_record_category := 'TRANSFER_DTLS_NOT_DEFINED' ;
2405: IF ( FND_LOG.LEVEL_STATEMENT >=
2406: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2407: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2408: l_module_name,'Creating exception :'||
2409: v_record_category);
2402: va_transfer_dept_id := NULL;
2403: va_transfer_main_acct := NULL;
2404: v_record_category := 'TRANSFER_DTLS_NOT_DEFINED' ;
2405: IF ( FND_LOG.LEVEL_STATEMENT >=
2406: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2407: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2408: l_module_name,'Creating exception :'||
2409: v_record_category);
2410: END IF;
2403: va_transfer_main_acct := NULL;
2404: v_record_category := 'TRANSFER_DTLS_NOT_DEFINED' ;
2405: IF ( FND_LOG.LEVEL_STATEMENT >=
2406: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2407: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2408: l_module_name,'Creating exception :'||
2409: v_record_category);
2410: END IF;
2411: create_facts_record ;
2420: v_sgl_acct_num := vl_acct_num ;
2421: va_transfer_dept_id := NULL;
2422: va_transfer_main_acct := NULL;
2423: v_record_category := 'TRANSFER_INFO_NOT_DEFINED' ;
2424: IF ( FND_LOG.LEVEL_STATEMENT >=
2425: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2427: l_module_name,'Creating exception :'||
2428: v_record_category);
2421: va_transfer_dept_id := NULL;
2422: va_transfer_main_acct := NULL;
2423: v_record_category := 'TRANSFER_INFO_NOT_DEFINED' ;
2424: IF ( FND_LOG.LEVEL_STATEMENT >=
2425: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2427: l_module_name,'Creating exception :'||
2428: v_record_category);
2429: END IF;
2422: va_transfer_main_acct := NULL;
2423: v_record_category := 'TRANSFER_INFO_NOT_DEFINED' ;
2424: IF ( FND_LOG.LEVEL_STATEMENT >=
2425: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2427: l_module_name,'Creating exception :'||
2428: v_record_category);
2429: END IF;
2430: create_facts_record ;
2447: v_sgl_acct_num := vl_acct_num ;
2448: va_transfer_main_acct := NULL;
2449: va_transfer_dept_id := NULL;
2450: v_record_category := 'TRANSFER_INFO_NOT_DEFINED' ;
2451: IF ( FND_LOG.LEVEL_STATEMENT >=
2452: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2453: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2454: l_module_name,'Creating exception :'||
2455: v_record_category);
2448: va_transfer_main_acct := NULL;
2449: va_transfer_dept_id := NULL;
2450: v_record_category := 'TRANSFER_INFO_NOT_DEFINED' ;
2451: IF ( FND_LOG.LEVEL_STATEMENT >=
2452: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2453: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2454: l_module_name,'Creating exception :'||
2455: v_record_category);
2456: END IF;
2449: va_transfer_dept_id := NULL;
2450: v_record_category := 'TRANSFER_INFO_NOT_DEFINED' ;
2451: IF ( FND_LOG.LEVEL_STATEMENT >=
2452: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2453: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2454: l_module_name,'Creating exception :'||
2455: v_record_category);
2456: END IF;
2457: create_facts_record ;
2467:
2468: END IF;
2469: --------------------------------------------------------------------------------
2470: -- Update the Temp table
2471: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2472: THEN
2473: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2474: l_module_name,' Acct - '||vl_acct_num) ;
2475: END IF;
2469: --------------------------------------------------------------------------------
2470: -- Update the Temp table
2471: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2472: THEN
2473: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2474: l_module_name,' Acct - '||vl_acct_num) ;
2475: END IF;
2476:
2477: IF vl_exception_cat = 0 THEN
2477: IF vl_exception_cat = 0 THEN
2478: v_record_category := 'REPORTED' ;
2479: v_amount := vl_legis_amount ;
2480: v_period_activity := vl_legis_amount;
2481: IF ( FND_LOG.LEVEL_STATEMENT >=
2482: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2484: l_module_name,
2485: 'Created facts record in ' || vl_period_name);
2478: v_record_category := 'REPORTED' ;
2479: v_amount := vl_legis_amount ;
2480: v_period_activity := vl_legis_amount;
2481: IF ( FND_LOG.LEVEL_STATEMENT >=
2482: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2484: l_module_name,
2485: 'Created facts record in ' || vl_period_name);
2486: END IF;
2479: v_amount := vl_legis_amount ;
2480: v_period_activity := vl_legis_amount;
2481: IF ( FND_LOG.LEVEL_STATEMENT >=
2482: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2483: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2484: l_module_name,
2485: 'Created facts record in ' || vl_period_name);
2486: END IF;
2487: --Added for bug 9190256.
2504: EXCEPTION
2505: WHEN OTHERS THEN
2506: vp_retcode := sqlcode ;
2507: VP_ERRBUF := sqlerrm ;
2508: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2509: l_module_name||'.close_cursor_vl_legis_cursor',
2510: vp_errbuf);
2511: RETURN ;
2512: END ;
2521: WHEN OTHERS THEN
2522: vp_retcode := sqlcode ;
2523: vp_errbuf := sqlerrm ||
2524: ' [ PROCESS_FACTS_TRANSCTIONS-LEGIS IND ] ' ;
2525: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2526: l_module_name||'message1', vp_errbuf) ;
2527: RETURN ;
2528: END; -- Legislative processing
2529:
2542:
2543: END IF;
2544:
2545: IF va_appor_cat_val IN ('A', 'B') THEN
2546: IF ( FND_LOG.LEVEL_STATEMENT
2547: >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2548: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2549: '++ Apportionment Category Processing ++') ;
2550: END IF ;
2543: END IF;
2544:
2545: IF va_appor_cat_val IN ('A', 'B') THEN
2546: IF ( FND_LOG.LEVEL_STATEMENT
2547: >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2548: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2549: '++ Apportionment Category Processing ++') ;
2550: END IF ;
2551:
2544:
2545: IF va_appor_cat_val IN ('A', 'B') THEN
2546: IF ( FND_LOG.LEVEL_STATEMENT
2547: >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2548: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2549: '++ Apportionment Category Processing ++') ;
2550: END IF ;
2551:
2552: -- Get the Program segment name for the current fund value
2551:
2552: -- Get the Program segment name for the current fund value
2553: get_program_segment (vl_fund_value) ;
2554:
2555: IF ( FND_LOG.LEVEL_STATEMENT >=
2556: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2557: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2558: l_module_name, 'Fund: '||vl_fund_value||
2559: ' Cat B Prog Seg: ' ||v_catb_prg_seg_name||
2552: -- Get the Program segment name for the current fund value
2553: get_program_segment (vl_fund_value) ;
2554:
2555: IF ( FND_LOG.LEVEL_STATEMENT >=
2556: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2557: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2558: l_module_name, 'Fund: '||vl_fund_value||
2559: ' Cat B Prog Seg: ' ||v_catb_prg_seg_name||
2560: ' PRN Prog Seg: ' || v_prn_prg_seg_name) ;
2553: get_program_segment (vl_fund_value) ;
2554:
2555: IF ( FND_LOG.LEVEL_STATEMENT >=
2556: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2557: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2558: l_module_name, 'Fund: '||vl_fund_value||
2559: ' Cat B Prog Seg: ' ||v_catb_prg_seg_name||
2560: ' PRN Prog Seg: ' || v_prn_prg_seg_name) ;
2561: End If ;
2571: EXCEPTION
2572: WHEN OTHERS THEN
2573: vp_retcode := sqlcode ;
2574: vp_errbuf := sqlerrm ;
2575: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2576: l_module_name||'.open_vl_appor_cursor',
2577: vp_errbuf) ;
2578: RETURN ;
2579: END ;
2596: EXCEPTION
2597: WHEN OTHERS THEN
2598: vp_retcode := sqlcode ;
2599: vp_errbuf := sqlerrm || ' [MAIN - APPOR]' ;
2600: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2601: l_module_name||'.parse_vl_appor_cursor', vp_errbuf) ;
2602: RETURN ;
2603: END ;
2604:
2643: EXCEPTION
2644: WHEN OTHERS THEN
2645: vp_retcode := sqlcode ;
2646: vp_errbuf := sqlerrm ;
2647: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2648: l_module_name||'.execute_vl_appor_cursor',
2649: vp_errbuf) ;
2650: RETURN ;
2651: END ;
2680: END IF ;
2681:
2682: -- vl_appor_ctr := vl_appor_ctr + 1 ;
2683: -- get_appor_cat_b_text(vl_program) ;
2684: IF ( FND_LOG.LEVEL_STATEMENT >=
2685: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2686: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2687: l_module_name,'Appor Beg-->
2688: Acct: '||vl_acct_num||
2681:
2682: -- vl_appor_ctr := vl_appor_ctr + 1 ;
2683: -- get_appor_cat_b_text(vl_program) ;
2684: IF ( FND_LOG.LEVEL_STATEMENT >=
2685: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2686: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2687: l_module_name,'Appor Beg-->
2688: Acct: '||vl_acct_num||
2689: ' Fund: '||vl_fund_value||
2682: -- vl_appor_ctr := vl_appor_ctr + 1 ;
2683: -- get_appor_cat_b_text(vl_program) ;
2684: IF ( FND_LOG.LEVEL_STATEMENT >=
2685: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2686: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2687: l_module_name,'Appor Beg-->
2688: Acct: '||vl_acct_num||
2689: ' Fund: '||vl_fund_value||
2690: ' Cat B Prgm: '||vl_catb_program ||
2711:
2712: va_appor_cat_b_dtl := vl_catb_rc_val;
2713: va_appor_cat_b_txt := vl_catb_pgm_desc;
2714:
2715: IF ( FND_LOG.LEVEL_STATEMENT >=
2716: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2717: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2718: l_module_name,
2719: 'Cat B RC Val: '||vl_catb_rc_val||
2712: va_appor_cat_b_dtl := vl_catb_rc_val;
2713: va_appor_cat_b_txt := vl_catb_pgm_desc;
2714:
2715: IF ( FND_LOG.LEVEL_STATEMENT >=
2716: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2717: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2718: l_module_name,
2719: 'Cat B RC Val: '||vl_catb_rc_val||
2720: 'Cat B PGM Desc: '||vl_catb_pgm_desc||
2713: va_appor_cat_b_txt := vl_catb_pgm_desc;
2714:
2715: IF ( FND_LOG.LEVEL_STATEMENT >=
2716: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2717: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2718: l_module_name,
2719: 'Cat B RC Val: '||vl_catb_rc_val||
2720: 'Cat B PGM Desc: '||vl_catb_pgm_desc||
2721: 'PRN RC Val: '||vl_prn_rc_val||
2725: IF vl_catb_exception = 1 THEN
2726: v_record_category := 'VALID_CATB_CODE_NOT_FOUND';
2727: vp_errbuf := 'Valid Category B Code not found '||
2728: 'for program value: '||vl_catb_program;
2729: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
2730: l_module_name||'.VALID_CAT_CODE_NOT_FOUND', vp_errbuf) ;
2731:
2732: va_appor_cat_b_txt := vl_catb_program;
2733: v_tbal_fund_value := vl_fund_value;
2741: v_record_category := 'VALID_PRN_CODE_NOT_FOUND';
2742: vp_errbuf := 'Valid Program Reporting Number code '
2743: ||'not found '||
2744: 'for program value: '||vl_prn_program;
2745: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
2746: l_module_name||'.VALID_PRN_CODE_NOT_FOUND'
2747: , vp_errbuf) ;
2748:
2749: va_appor_cat_b_txt := NULL;
2784: EXCEPTION
2785: WHEN OTHERS THEN
2786: vp_retcode := sqlcode ;
2787: vp_errbuf := sqlerrm ;
2788: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2789: l_module_name||'.close_vl_appor_cursor',vp_errbuf) ;
2790: RETURN ;
2791: END ;
2792:
2796: EXCEPTION
2797: WHEN OTHERS THEN
2798: vp_retcode := sqlcode ;
2799: vp_errbuf := sqlerrm ;
2800: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2801: l_module_name||'.open_vl_appor_cursor',
2802: vp_errbuf) ;
2803: RETURN ;
2804: END ;
2820: EXCEPTION
2821: WHEN OTHERS THEN
2822: vp_retcode := sqlcode ;
2823: vp_errbuf := sqlerrm || ' [MAIN - APPOR]' ;
2824: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2825: l_module_name||'.parse_vl_appor_cursor',
2826: vp_errbuf) ;
2827: RETURN ;
2828: END ;
2864: EXCEPTION
2865: WHEN OTHERS THEN
2866: vp_retcode := sqlcode ;
2867: vp_errbuf := sqlerrm ;
2868: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2869: l_module_name||
2870: '.execute_vl_appor_cursor',
2871: vp_errbuf) ;
2872: RETURN ;
2905:
2906: IF vp_retcode <> 0 THEN
2907: RETURN ;
2908: END IF ;
2909: IF ( FND_LOG.LEVEL_STATEMENT >=
2910: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2911: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2912: 'Appor End --> Acct - '||vl_acct_num||
2913: ' Fund >>>> - '||vl_fund_value||
2906: IF vp_retcode <> 0 THEN
2907: RETURN ;
2908: END IF ;
2909: IF ( FND_LOG.LEVEL_STATEMENT >=
2910: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2911: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2912: 'Appor End --> Acct - '||vl_acct_num||
2913: ' Fund >>>> - '||vl_fund_value||
2914: ' Cat B Prgm >>>> - '||vl_catb_program||
2907: RETURN ;
2908: END IF ;
2909: IF ( FND_LOG.LEVEL_STATEMENT >=
2910: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2911: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2912: 'Appor End --> Acct - '||vl_acct_num||
2913: ' Fund >>>> - '||vl_fund_value||
2914: ' Cat B Prgm >>>> - '||vl_catb_program||
2915: ' PRN Prgm >>>> - '||vl_prn_program||
2932: va_appor_cat_b_dtl := vl_catb_rc_val;
2933: va_appor_cat_b_txt := vl_catb_pgm_desc;
2934: va_prn_num := vl_prn_rc_val;
2935: va_prn_txt := vl_prn_pgm_desc;
2936: IF ( FND_LOG.LEVEL_STATEMENT >=
2937: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2938: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2939: l_module_name,
2940: 'Cat B RC Val: '||vl_catb_rc_val||
2933: va_appor_cat_b_txt := vl_catb_pgm_desc;
2934: va_prn_num := vl_prn_rc_val;
2935: va_prn_txt := vl_prn_pgm_desc;
2936: IF ( FND_LOG.LEVEL_STATEMENT >=
2937: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2938: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2939: l_module_name,
2940: 'Cat B RC Val: '||vl_catb_rc_val||
2941: 'Cat B PGM Desc: '||vl_catb_pgm_desc ||
2934: va_prn_num := vl_prn_rc_val;
2935: va_prn_txt := vl_prn_pgm_desc;
2936: IF ( FND_LOG.LEVEL_STATEMENT >=
2937: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2938: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2939: l_module_name,
2940: 'Cat B RC Val: '||vl_catb_rc_val||
2941: 'Cat B PGM Desc: '||vl_catb_pgm_desc ||
2942: 'PRN RC Val: '||vl_catb_rc_val||
2948: IF vl_catb_exception = 1 THEN
2949: v_record_category := 'VALID_CATB_CODE_NOT_FOUND';
2950: vp_errbuf := 'Valid Category B Code not found '||
2951: 'for program value: '||vl_catb_program;
2952: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
2953: l_module_name||'.VALID_CAT_CODE_NOT_FOUND', vp_errbuf) ;
2954:
2955:
2956: va_appor_cat_b_txt := vl_catb_program;
2966: IF vl_prn_exception = 1 THEN
2967: v_record_category := 'VALID_PRN_CODE_NOT_FOUND';
2968: vp_errbuf := 'Valid Program Reporting Number Code not found '||
2969: 'for program value: '||vl_prn_program;
2970: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
2971: l_module_name||'.VALID_PRN_CODE_NOT_FOUND', vp_errbuf) ;
2972:
2973:
2974: va_prn_txt := vl_prn_program;
3005: EXCEPTION
3006: WHEN OTHERS THEN
3007: vp_retcode := sqlcode ;
3008: vp_errbuf := sqlerrm ;
3009: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3010: l_module_name||'.close_vl_appor_cursor',
3011: vp_errbuf) ;
3012: RETURN ;
3013: END ;
3021: -- v_amount := vl_amount ;
3022: v_amount := ve_amount ; -- bug 5065974
3023: v_sgl_acct_num := vl_acct_num ;
3024:
3025: IF ( FND_LOG.LEVEL_EXCEPTION >=
3026: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3027: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION,
3028: l_module_name, 'Program segment Not '||
3029: 'defined Or null,so doing the default processing');
3022: v_amount := ve_amount ; -- bug 5065974
3023: v_sgl_acct_num := vl_acct_num ;
3024:
3025: IF ( FND_LOG.LEVEL_EXCEPTION >=
3026: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3027: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION,
3028: l_module_name, 'Program segment Not '||
3029: 'defined Or null,so doing the default processing');
3030: END IF;
3023: v_sgl_acct_num := vl_acct_num ;
3024:
3025: IF ( FND_LOG.LEVEL_EXCEPTION >=
3026: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3027: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION,
3028: l_module_name, 'Program segment Not '||
3029: 'defined Or null,so doing the default processing');
3030: END IF;
3031:
3057: EXCEPTION
3058: WHEN OTHERS THEN
3059: vp_retcode := sqlcode ;
3060: vp_errbuf := sqlerrm ;
3061: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3062: l_module_name||'.close_vl_main_cursor', vp_errbuf) ;
3063: RETURN ;
3064: END ;
3065: -- Rolling up the Inserted Data into Account Number
3064: END ;
3065: -- Rolling up the Inserted Data into Account Number
3066: -- Fund Value is also added in the roll up to accomodate ATB Process.
3067: -- tbal_Fund_value column will be blank for FACTS II processing.
3068: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3069: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3070: 'Rolling up to Account Number');
3071: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3072: 'tbal fund value '||v_tbal_fund_value);
3065: -- Rolling up the Inserted Data into Account Number
3066: -- Fund Value is also added in the roll up to accomodate ATB Process.
3067: -- tbal_Fund_value column will be blank for FACTS II processing.
3068: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3069: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3070: 'Rolling up to Account Number');
3071: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3072: 'tbal fund value '||v_tbal_fund_value);
3073: END IF ;
3067: -- tbal_Fund_value column will be blank for FACTS II processing.
3068: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3069: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3070: 'Rolling up to Account Number');
3071: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3072: 'tbal fund value '||v_tbal_fund_value);
3073: END IF ;
3074:
3075: /* Procedure to rollup the records */
3075: /* Procedure to rollup the records */
3076: facts_rollup_records;
3077:
3078: -- Submit edit check process
3079: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3080: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3081: 'Submitting Edit Check Process.....') ;
3082: END IF;
3083:
3076: facts_rollup_records;
3077:
3078: -- Submit edit check process
3079: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3080: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3081: 'Submitting Edit Check Process.....') ;
3082: END IF;
3083:
3084: fv_facts_edit_check.perform_edit_checks
3116:
3117: commit;
3118: IF vl_req_id = 0 THEN
3119: vp_errbuf := 'Error Priniting Edit Check Report' ;
3120: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3121: END IF;
3122:
3123: l_call_status := fnd_concurrent.wait_for_request(
3124: vl_req_id,
3140:
3141: -- Generate other files only when edit check succeeds
3142: IF vl_ec_retcode IN (0, 1) THEN
3143: /* Process only if Edit Check is valid or run mode is Final */
3144: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3145: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3146: 'Edit Check Process Completed Succesfully ');
3147: END IF;
3148: -- Generate the MAF_Sequence_Number based on the Run Mode
3141: -- Generate other files only when edit check succeeds
3142: IF vl_ec_retcode IN (0, 1) THEN
3143: /* Process only if Edit Check is valid or run mode is Final */
3144: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3145: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3146: 'Edit Check Process Completed Succesfully ');
3147: END IF;
3148: -- Generate the MAF_Sequence_Number based on the Run Mode
3149: DECLARE
3163: vc_maf_seq_num := 1;
3164: END IF;
3165: CLOSE c_maf_seq;
3166: END;
3167: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3168: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3169: 'Creating FACTS Detail Record.....');
3170: END IF;
3171:
3164: END IF;
3165: CLOSE c_maf_seq;
3166: END;
3167: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3168: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3169: 'Creating FACTS Detail Record.....');
3170: END IF;
3171:
3172: -- Create Concatenated FACTS Record in the Temp table Column
3201: -- Create Contact Information and Request Record Header
3202: -- and its concatenated output format in the Temp table
3203: -- Record Category is set to CNT_HDR to distinguish from
3204: -- detail records
3205: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3206: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3207: 'Creating Contact Header Record.....FACTS II ') ;
3208: END IF;
3209: INSERT INTO FV_FACTS_TEMP
3202: -- and its concatenated output format in the Temp table
3203: -- Record Category is set to CNT_HDR to distinguish from
3204: -- detail records
3205: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3206: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3207: 'Creating Contact Header Record.....FACTS II ') ;
3208: END IF;
3209: INSERT INTO FV_FACTS_TEMP
3210: (treasury_symbol_id,
3246: EXCEPTION
3247: WHEN OTHERS THEN
3248: vp_retcode := sqlcode ;
3249: vp_errbuf := sqlerrm || '[FACTS RUN UPDATE]' ;
3250: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3251: l_module_name||'.insert_fv_facts_run', vp_errbuf) ;
3252: RETURN ;
3253: END ;
3254: END IF ;
3265: WHERE ffh.treasury_symbol_id = footnote_rec.treasury_symbol_id
3266: AND ffh.sgl_acct_number = footnote_rec.sgl_acct_number
3267: AND ffh.footnote_header_id = ffl.footnote_header_id ;
3268: IF footnote_count = 0 THEN
3269: IF ( FND_LOG.LEVEL_STATEMENT >=
3270: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3271: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3272: l_module_name,
3273: 'Creating Footnote Records.....');
3266: AND ffh.sgl_acct_number = footnote_rec.sgl_acct_number
3267: AND ffh.footnote_header_id = ffl.footnote_header_id ;
3268: IF footnote_count = 0 THEN
3269: IF ( FND_LOG.LEVEL_STATEMENT >=
3270: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3271: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3272: l_module_name,
3273: 'Creating Footnote Records.....');
3274: END IF;
3267: AND ffh.footnote_header_id = ffl.footnote_header_id ;
3268: IF footnote_count = 0 THEN
3269: IF ( FND_LOG.LEVEL_STATEMENT >=
3270: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3271: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3272: l_module_name,
3273: 'Creating Footnote Records.....');
3274: END IF;
3275: INSERT INTO fv_facts_footnote_hdr
3305: -- if concurrent request submission failed then abort process
3306: IF vl_req_id = 0 THEN
3307: vp_errbuf := 'Error submitting FACTS ATB Report ';
3308: vp_retcode := -1 ;
3309: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3310: ELSE
3311: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3312: THEN
3313: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3307: vp_errbuf := 'Error submitting FACTS ATB Report ';
3308: vp_retcode := -1 ;
3309: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3310: ELSE
3311: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3312: THEN
3313: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3314: 'Concurrent Request Id For FACTS ATB Report - ' || vl_req_id);
3315: END IF;
3309: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3310: ELSE
3311: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3312: THEN
3313: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3314: 'Concurrent Request Id For FACTS ATB Report - ' || vl_req_id);
3315: END IF;
3316:
3317: l_call_status := fnd_concurrent.wait_for_request(
3339: -- if concurrent request submission failed then abort process
3340: IF vl_req_id = 0 THEN
3341: vp_errbuf := 'Error submitting FACTS Exception Report Process';
3342: vp_retcode := -1 ;
3343: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
3344: vp_errbuf) ;
3345: ELSE
3346: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3347: THEN
3342: vp_retcode := -1 ;
3343: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
3344: vp_errbuf) ;
3345: ELSE
3346: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3347: THEN
3348: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3349: 'Concurrent Request Id for FACTS Exception Report - '||vl_req_id);
3350: END IF;
3344: vp_errbuf) ;
3345: ELSE
3346: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3347: THEN
3348: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3349: 'Concurrent Request Id for FACTS Exception Report - '||vl_req_id);
3350: END IF;
3351: l_call_status := fnd_concurrent.wait_for_request(
3352: vl_req_id,
3369: EXCEPTION
3370: WHEN OTHERS THEN
3371: vp_retcode := sqlcode ;
3372: vp_errbuf := sqlerrm ;
3373: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3374: l_module_name||'.final_exception', vp_errbuf) ;
3375:
3376: END process_facts_transactions;
3377: --------------------------------------------------------------------------------
3480: AND parent_flex_value in
3481: (SELECT ussgl_account
3482: FROM fv_facts_ussgl_accounts
3483: WHERE ussgl_account = parent_flex_value) ;
3484: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3486: 'Parent in GL - ' || vl_ussgl_acct_num) ;
3487: END IF ;
3488: -- Parent Found. Perform Validations
3481: (SELECT ussgl_account
3482: FROM fv_facts_ussgl_accounts
3483: WHERE ussgl_account = parent_flex_value) ;
3484: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3485: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3486: 'Parent in GL - ' || vl_ussgl_acct_num) ;
3487: END IF ;
3488: -- Parent Found. Perform Validations
3489: get_ussgl_info( vl_ussgl_acct_num,
3506: exception_category := 'NON_FACTSII' ;
3507: RETURN ;
3508: END IF ;
3509: IF vl_exists IS NOT NULL THEN
3510: IF ( FND_LOG.LEVEL_STATEMENT >=
3511: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3513: l_module_name,
3514: 'Valid Parent [vl_exists] ') ;
3507: RETURN ;
3508: END IF ;
3509: IF vl_exists IS NOT NULL THEN
3510: IF ( FND_LOG.LEVEL_STATEMENT >=
3511: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3513: l_module_name,
3514: 'Valid Parent [vl_exists] ') ;
3515: END IF ;
3508: END IF ;
3509: IF vl_exists IS NOT NULL THEN
3510: IF ( FND_LOG.LEVEL_STATEMENT >=
3511: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3513: l_module_name,
3514: 'Valid Parent [vl_exists] ') ;
3515: END IF ;
3516: -- Parent is a Valid USSGL Account
3593: exception_category := 'NON_BUD_ACCT' ;
3594: RETURN ;
3595: END IF ;
3596: WHEN TOO_MANY_ROWS THEN
3597: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
3598: 'More then one Parent for '||acct_num) ;
3599: -- Too Many Parents. Process Exception
3600: sgl_acct_num := acct_num ;
3601: exception_category := 'USSGL_MULTIPLE_PARENTS' ;
3605: EXCEPTION
3606: WHEN OTHERS THEN
3607: vp_retcode := sqlcode ;
3608: vp_errbuf := sqlerrm || ' [GET_USSGL_ACCOUNT_NUM] ' ;
3609: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3610: l_module_name||'.final_exception', vp_errbuf) ;
3611: RETURN;
3612: END get_ussgl_acct_num ;
3613: --------------------------------------------------------------------------------
3630: ELSE
3631: l_year_budget_auth := v_year_budget_auth;
3632: END IF;
3633:
3634: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3635: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3636: 'Creating FACTS Record') ;
3637: END IF ;
3638:
3631: l_year_budget_auth := v_year_budget_auth;
3632: END IF;
3633:
3634: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3635: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3636: 'Creating FACTS Record') ;
3637: END IF ;
3638:
3639: -- CGAC: When the PYA value on FACTS Attributes form is 'N' then report blank.
3722: EXCEPTION
3723: WHEN OTHERS THEN
3724: vp_retcode := sqlcode ;
3725: vp_errbuf := sqlerrm || ' [CREATE_FACTS_RECORD] ' ;
3726: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3727: l_module_name||'.final_exception', vp_errbuf) ;
3728: RETURN;
3729: END create_facts_record ;
3730: --------------------------------------------------------------------------------
3748: vl_dummy NUMBER;
3749: BEGIN
3750: l_module_name := g_module_name || 'load_facts_attributes';
3751: BEGIN
3752: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3753: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3754: 'LOAD - Acct Num -> '||acct_num) ;
3755: END IF;
3756: SELECT balance_type,
3749: BEGIN
3750: l_module_name := g_module_name || 'load_facts_attributes';
3751: BEGIN
3752: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3753: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3754: 'LOAD - Acct Num -> '||acct_num) ;
3755: END IF;
3756: SELECT balance_type,
3757: public_law_code,
3797: WHEN NO_DATA_FOUND THEN
3798: vp_retcode := -1 ;
3799: vp_errbuf := 'Error! No Attributes Definied for the Account - ' ||
3800: v_acct_num || ' [LOAD_FACTS_ATTRIBURES]' ;
3801: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
3802: vp_errbuf) ;
3803: RETURN;
3804: WHEN OTHERS THEN
3805: vp_retcode := sqlcode ;
3803: RETURN;
3804: WHEN OTHERS THEN
3805: vp_retcode := sqlcode ;
3806: vp_errbuf := sqlerrm ;
3807: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3808: vp_errbuf) ;
3809: RETURN;
3810: END ;
3811:
3837: EXCEPTION WHEN NO_DATA_FOUND THEN NULL;
3838: WHEN OTHERS THEN
3839: vp_retcode := sqlcode ;
3840: vp_errbuf := sqlerrm ;
3841: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3842: l_module_name||'.select1', vp_errbuf) ;
3843: RETURN;
3844: END;
3845: --------------------------------------------------------------------------------
3872: WHEN NO_DATA_FOUND THEN
3873: vp_retcode := -1 ;
3874: vp_errbuf := 'Error getting Fund Category value for the fund - '||
3875: fund_val || ' [LOAD_FACTS_ATTRIBURES]' ;
3876: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
3877: l_module_name||'.select2', vp_errbuf) ;
3878: RETURN;
3879: WHEN OTHERS THEN
3880: vp_retcode := sqlcode ;
3878: RETURN;
3879: WHEN OTHERS THEN
3880: vp_retcode := sqlcode ;
3881: vp_errbuf := sqlerrm || ' [LOAD_FACTS_ATTRIBURES]' ;
3882: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3883: l_module_name||'.select2', vp_errbuf) ;
3884: RETURN;
3885: END ;
3886:
3883: l_module_name||'.select2', vp_errbuf) ;
3884: RETURN;
3885: END ;
3886:
3887: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3889: 'Get ending balance to report amount '||
3890: 'for exception records.');
3891: END IF;
3884: RETURN;
3885: END ;
3886:
3887: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3889: 'Get ending balance to report amount '||
3890: 'for exception records.');
3891: END IF;
3892:
3913: -- Create Exception
3914: vl_sgl_acct_num := v_sgl_acct_num ;
3915: v_sgl_acct_num := acct_num ;
3916: v_record_category := 'INDEF_DEF_NOT_DEFINED' ;
3917: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3919: 'Creating Exception: '||v_record_category);
3920: END IF;
3921: create_facts_record ;
3914: vl_sgl_acct_num := v_sgl_acct_num ;
3915: v_sgl_acct_num := acct_num ;
3916: v_record_category := 'INDEF_DEF_NOT_DEFINED' ;
3917: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3919: 'Creating Exception: '||v_record_category);
3920: END IF;
3921: create_facts_record ;
3922: -- Reset the value back to v_sgl_acct_number
3939: va_appor_cat_val := 'C' ;
3940: ELSE
3941: va_appor_cat_val := ' ' ;
3942: END IF ;
3943: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3944: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3945: 'Acct - ' || acct_num ||
3946: ' Fund cat - ' || vl_fund_category || ' Appr Cat - ' ||
3947: va_appor_cat_val || ' Flag - ' || va_appor_cat_flag) ;
3940: ELSE
3941: va_appor_cat_val := ' ' ;
3942: END IF ;
3943: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3944: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3945: 'Acct - ' || acct_num ||
3946: ' Fund cat - ' || vl_fund_category || ' Appr Cat - ' ||
3947: va_appor_cat_val || ' Flag - ' || va_appor_cat_flag) ;
3948: END IF ;
3960: va_prn_txt := '';
3961:
3962: END IF;
3963:
3964: IF ( FND_LOG.LEVEL_STATEMENT >=
3965: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3966: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3967: l_module_name, 'Defaulting the Reporting'
3968: ||'codes as the apportionment '
3961:
3962: END IF;
3963:
3964: IF ( FND_LOG.LEVEL_STATEMENT >=
3965: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3966: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3967: l_module_name, 'Defaulting the Reporting'
3968: ||'codes as the apportionment '
3969: ||'Category flag is N ') ;
3962: END IF;
3963:
3964: IF ( FND_LOG.LEVEL_STATEMENT >=
3965: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3966: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3967: l_module_name, 'Defaulting the Reporting'
3968: ||'codes as the apportionment '
3969: ||'Category flag is N ') ;
3970: End If ;
4019:
4020: IF va_bea_category_val IS NULL THEN
4021: -- Create Exception Record for BEA Category
4022: v_record_category := 'BEA_CATEGORY_NOT_DEFINED' ;
4023: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4024: THEN
4025: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4026: 'Creating Exception: '||
4027: v_record_category);
4021: -- Create Exception Record for BEA Category
4022: v_record_category := 'BEA_CATEGORY_NOT_DEFINED' ;
4023: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4024: THEN
4025: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4026: 'Creating Exception: '||
4027: v_record_category);
4028: END IF;
4029: create_facts_record ;
4031: EXCEPTION
4032: WHEN NO_DATA_FOUND THEN
4033: -- Create Exception Record for BEA Category
4034: v_record_category := 'BEA_CATEGORY_NOT_DEFINED' ;
4035: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4036: THEN
4037: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4038: 'Creating Exception: '||
4039: v_record_category);
4033: -- Create Exception Record for BEA Category
4034: v_record_category := 'BEA_CATEGORY_NOT_DEFINED' ;
4035: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4036: THEN
4037: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4038: 'Creating Exception: '||
4039: v_record_category);
4040: END IF;
4041: create_facts_record ;
4066:
4067: IF va_budget_function IS NULL THEN
4068: -- Create Exception Record for Budget Function
4069: v_record_category := 'BUDGET_FNCTN_NOT_DEFINED' ;
4070: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4071: THEN
4072: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4073: 'Creating Exception: '||
4074: v_record_category);
4068: -- Create Exception Record for Budget Function
4069: v_record_category := 'BUDGET_FNCTN_NOT_DEFINED' ;
4070: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4071: THEN
4072: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4073: 'Creating Exception: '||
4074: v_record_category);
4075: END IF;
4076: create_facts_record ;
4078: EXCEPTION
4079: WHEN NO_DATA_FOUND THEN
4080: -- Create Exception Record for Budget Function
4081: v_record_category := 'BUDGET_FNCTN_NOT_DEFINED' ;
4082: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4083: THEN
4084: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4085: l_module_name,'Creating Exception: '||
4086: v_record_category);
4080: -- Create Exception Record for Budget Function
4081: v_record_category := 'BUDGET_FNCTN_NOT_DEFINED' ;
4082: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4083: THEN
4084: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4085: l_module_name,'Creating Exception: '||
4086: v_record_category);
4087: END IF;
4088: create_facts_record ;
4110:
4111: IF va_borrowing_source_val IS NULL THEN
4112: -- Create Exception Record for Borrowing Source
4113: v_record_category := 'B_SOURCE_NOT_DEFINED' ;
4114: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4115: THEN
4116: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4117: l_module_name,'Creating Exception: '||
4118: v_record_category);
4112: -- Create Exception Record for Borrowing Source
4113: v_record_category := 'B_SOURCE_NOT_DEFINED' ;
4114: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4115: THEN
4116: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4117: l_module_name,'Creating Exception: '||
4118: v_record_category);
4119: END IF;
4120: create_facts_record ;
4122: EXCEPTION
4123: WHEN NO_DATA_FOUND THEN
4124: -- Create Exception Record for Borrowing Source
4125: v_record_category := 'B_SOURCE_NOT_DEFINED' ;
4126: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4127: THEN
4128: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4129: l_module_name,'Creating Exception: '||
4130: v_record_category);
4124: -- Create Exception Record for Borrowing Source
4125: v_record_category := 'B_SOURCE_NOT_DEFINED' ;
4126: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4127: THEN
4128: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4129: l_module_name,'Creating Exception: '||
4130: v_record_category);
4131: END IF;
4132: create_facts_record ;
4141: EXCEPTION
4142: WHEN OTHERS THEN
4143: vp_retcode := sqlcode ;
4144: vp_errbuf := sqlerrm || ' [LOAD_FACTS_ATTRIBUTES]' ;
4145: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
4146: '.final_exception', vp_errbuf) ;
4147: END load_facts_attributes ;
4148: --------------------------------------------------------------------------------
4149: -- Gets the information like enabled flag and reporting type
4170: reporting_type := NULL ;
4171: WHEN OTHERS THEN
4172: vp_retcode := sqlcode ;
4173: vp_errbuf := sqlerrm ;
4174: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
4175: '.final_exception', vp_errbuf) ;
4176: RETURN ;
4177: END get_ussgl_info ;
4178: --------------------------------------------------------------------------------
4194: -- Process Null Account Types
4195: vp_retcode := -1 ;
4196: vp_errbuf := 'Account Type found null for the for the
4197: Account Number - ' || acct_num ;
4198: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message1',
4199: vp_errbuf) ;
4200: RETURN ;
4201: END IF ;
4202: EXCEPTION
4203: WHEN NO_DATA_FOUND THEN
4204: vp_retcode := -1 ;
4205: vp_errbuf := 'Account Type Cannot be derived for the Account Number - '
4206: || acct_num ;
4207: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
4208: l_module_name||'.exception1', vp_errbuf) ;
4209: RETURN ;
4210: WHEN OTHERS THEN
4211: vp_errbuf := SQLERRM;
4209: RETURN ;
4210: WHEN OTHERS THEN
4211: vp_errbuf := SQLERRM;
4212: vp_retcode := -1;
4213: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
4214: RAISE;
4215: END get_account_type ;
4216: --------------------------------------------------------------------------------
4217: -- Gets the SGL Parent Account for the passed account number
4247: -- Return the account Number
4248: RETURN ;
4249: EXCEPTION
4250: WHEN NO_DATA_FOUND THEN
4251: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
4252: 'Look for parent in FV_FACTS_ATTRIBUTES');
4253: sgl_acct_num := NULL ;
4254: RETURN ;
4255: END ;
4254: RETURN ;
4255: END ;
4256: EXCEPTION
4257: WHEN NO_DATA_FOUND THEN
4258: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
4259: 'No Parent Exists ' );
4260: --Fix for bug # 2450918 . Included the 'RETURN' statement below
4261: RETURN;
4262: WHEN TOO_MANY_ROWS Then
4260: --Fix for bug # 2450918 . Included the 'RETURN' statement below
4261: RETURN;
4262: WHEN TOO_MANY_ROWS Then
4263: -- Too Many Parents. Return Nulls
4264: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
4265: 'Too Many Parents');
4266: RETURN ;
4267: END ;
4268: EXCEPTION
4267: END ;
4268: EXCEPTION
4269: WHEN OTHERS THEN
4270: l_errbuf := SQLERRM;
4271: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4272: l_module_name||'.final_exception',l_errbuf);
4273: RAISE;
4274: END get_sgl_parent ;
4275: --------------------------------------------------------------------------------
4298: EXCEPTION
4299: WHEN OTHERS THEN
4300: vp_retcode := sqlcode ;
4301: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Open Cursor] ' ;
4302: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4303: l_module_name||'.open_vl_bal_cursor', vp_errbuf) ;
4304: RETURN;
4305: END ;
4306:
4324: AND GLB.PERIOD_NUM = :period_num
4325: AND GLB.PERIOD_YEAR = :period_year
4326: AND glb.currency_code = :currency_code ';
4327:
4328: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4329: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4330: 'Calc bal: '||vl_bal_select) ;
4331: END IF;
4332:
4325: AND GLB.PERIOD_YEAR = :period_year
4326: AND glb.currency_code = :currency_code ';
4327:
4328: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4329: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4330: 'Calc bal: '||vl_bal_select) ;
4331: END IF;
4332:
4333: BEGIN
4335: EXCEPTION
4336: WHEN OTHERS THEN
4337: vp_retcode := sqlcode ;
4338: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Parse] ' ;
4339: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4340: l_module_name||'.parse_vl_bal_cursor', vp_errbuf) ;
4341: RETURN;
4342: END ;
4343:
4359: EXCEPTION
4360: WHEN OTHERS THEN
4361: vp_retcode := sqlcode ;
4362: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Execute Cursor] ' ;
4363: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4364: l_module_name||'.execute_vl_bal_cursor', vp_errbuf) ;
4365: END ;
4366: LOOP
4367: IF dbms_sql.fetch_rows(vl_bal_cursor) = 0 THEN
4378: EXCEPTION
4379: WHEN OTHERS THEN
4380: vp_retcode := sqlcode ;
4381: vp_errbuf := sqlerrm ;
4382: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4383: l_module_name||'.close_vl_bal_cursor', vp_errbuf) ;
4384: RETURN ;
4385: END ;
4386: EXCEPTION
4386: EXCEPTION
4387: WHEN OTHERS THEN
4388: vp_retcode := sqlcode ;
4389: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Others]' ;
4390: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name, vp_errbuf);
4391: RETURN;
4392: END calc_balance;
4393: --------------------------------------------------------------------------------
4394: -- Gets the Program segment name and prc_mapping_flag from v_segs_array and
4427: WHEN NO_DATA_FOUND THEN
4428: vp_retcode := -1 ;
4429: vp_errbuf := 'Error getting Value Set Id for segment'
4430: ||v_segs_array(i).segment||' [GET_PROGRAM_SEGMENT]' ;
4431: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
4432: WHEN TOO_MANY_ROWS THEN
4433: -- Too many value set ids returned for the program segment.
4434: vp_retcode := -1 ;
4435: vp_errbuf := 'Program Segment - ' || v_segs_array(i).segment || ' returned
4433: -- Too many value set ids returned for the program segment.
4434: vp_retcode := -1 ;
4435: vp_errbuf := 'Program Segment - ' || v_segs_array(i).segment || ' returned
4436: more than one Value Sets !! '||'[ GET_PROGRAM_SEGMENT ]' ;
4437: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
4438: END ;
4439:
4440: IF v_segs_array(i).code_type = 'B' THEN
4441: v_catb_prg_seg_name := v_segs_array(i).segment;
4467: -- Fund Value not found in FV_BUDGET_DISTRIBUTION_HDR table.
4468: vp_retcode := -1 ;
4469: vp_errbuf := 'Fund Value - ' || v_fund_value || ' returned more
4470: than one program segment value !! '||'[GET_PROGRAM_SEGMENT]' ;
4471: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
4472: l_module_name||'.exception1', vp_errbuf) ;
4473: RETURN;
4474: WHEN OTHERS THEN
4475: vp_errbuf := SQLERRM;
4473: RETURN;
4474: WHEN OTHERS THEN
4475: vp_errbuf := SQLERRM;
4476: vp_retcode := -1;
4477: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
4478: '.final_exception',vp_errbuf);
4479: RAISE;
4480:
4481: END get_program_segment ;
4541: ', GLCC.' || v_fyr_segment_name || v_cohort_select;
4542: EXCEPTION
4543: WHEN OTHERS THEN
4544: l_errbuf := SQLERRM;
4545: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4546: l_module_name||'.final_exception',l_errbuf);
4547: RAISE;
4548: END build_appor_select ;
4549: --------------------------------------------------------------------------------
4576: WHEN NO_DATA_FOUND THEN
4577: vp_retcode := -1 ;
4578: vp_errbuf := 'Cannot Find Apportionment Category B Text for
4579: the Program ' || p_program||' [GET_SEGMENT_TEXT] ';
4580: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
4581: l_module_name||'.exception1', vp_errbuf) ;
4582: RETURN;
4583: WHEN TOO_MANY_ROWS THEN
4584: vp_retcode := -1 ;
4583: WHEN TOO_MANY_ROWS THEN
4584: vp_retcode := -1 ;
4585: vp_errbuf := 'More then one Apportionment Category B Text found for
4586: the Program '||p_program||' [GET_SEGMENT_TEXT]';
4587: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
4588: l_module_name||'.exception2', vp_errbuf) ;
4589: RETURN;
4590: WHEN OTHERS THEN
4591: vp_errbuf := SQLERRM;
4589: RETURN;
4590: WHEN OTHERS THEN
4591: vp_errbuf := SQLERRM;
4592: vp_retcode := -1;
4593: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4594: l_module_name||'.final_exception3',vp_errbuf);
4595: RAISE;
4596: END ;
4597: --------------------------------------------------------------------------------
4612: -- No Apportionment category B Processing or
4613: -- Legislation Indicator processing is done.
4614: -- Program segment cannot be found for Apportionment
4615: -- Category B Processing
4616: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4617: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4618: 'Normal Processing ') ;
4619: END IF ;
4620: IF va_balance_type_flag IN ('S', 'E') THEN
4613: -- Legislation Indicator processing is done.
4614: -- Program segment cannot be found for Apportionment
4615: -- Category B Processing
4616: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4617: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4618: 'Normal Processing ') ;
4619: END IF ;
4620: IF va_balance_type_flag IN ('S', 'E') THEN
4621: va_balance_type_val := 'E' ;
4632: v_amount := vl_amount ;
4633: v_period_activity := vl_period_activity;
4634: ------------------------------------------------- */
4635: v_amount := ve_amount;
4636: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4637: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4638: 'Ending Balance(Normal) -> '||v_amount);
4639: END IF;
4640:
4633: v_period_activity := vl_period_activity;
4634: ------------------------------------------------- */
4635: v_amount := ve_amount;
4636: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4637: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4638: 'Ending Balance(Normal) -> '||v_amount);
4639: END IF;
4640:
4641: create_facts_record ;
4645: END IF ;
4646: IF (rec_cat = 'E' ) THEN
4647: v_record_category := 'PROGRAM_SEGMENT_NOT_DEF' ;
4648: v_tbal_fund_value := vl_fund_value ;
4649: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4650: THEN
4651: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4652: 'Creating Exception: '||
4653: v_record_category);
4647: v_record_category := 'PROGRAM_SEGMENT_NOT_DEF' ;
4648: v_tbal_fund_value := vl_fund_value ;
4649: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4650: THEN
4651: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4652: 'Creating Exception: '||
4653: v_record_category);
4654: END IF;
4655: create_facts_record ;
4674:
4675: IF vp_retcode <> 0 THEN
4676: RETURN ;
4677: END IF ;
4678: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4679: THEN
4680: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4681: 'Beginning Balance(Normal) -> '||v_begin_amount);
4682: END IF ;
4676: RETURN ;
4677: END IF ;
4678: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4679: THEN
4680: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4681: 'Beginning Balance(Normal) -> '||v_begin_amount);
4682: END IF ;
4683: va_balance_type_val := 'B' ;
4684: v_record_category := 'REPORTED' ;
4693: END IF ;
4694: EXCEPTION
4695: WHEN OTHERS THEN
4696: l_errbuf := SQLERRM;
4697: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4698: l_module_name||'.final_exception',l_errbuf);
4699: RAISE;
4700: END default_processing;
4701: --------------------------------------------------------------------------------------
4866: END IF;
4867: END LOOP;
4868: */
4869:
4870: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4871: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4872: 'Setting up Debit/Credit Indicator') ;
4873: END IF;
4874:
4867: END LOOP;
4868: */
4869:
4870: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4871: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
4872: 'Setting up Debit/Credit Indicator') ;
4873: END IF;
4874:
4875: UPDATE fv_facts_temp
4885: AND treasury_symbol_id = v_treasury_symbol_id ;
4886: EXCEPTION
4887: WHEN OTHERS THEN
4888: l_errbuf := SQLERRM;
4889: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4890: l_module_name||'.final_exception',l_errbuf);
4891: RAISE;
4892:
4893:
5068: EXIT;*/
5069: END IF;
5070:
5071:
5072: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5073: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5074: 'fund_value :'|| fund_rec.fund_value);
5075: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5076: 'prg segment :'|| vl_prg_seg);
5069: END IF;
5070:
5071:
5072: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5073: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5074: 'fund_value :'|| fund_rec.fund_value);
5075: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5076: 'prg segment :'|| vl_prg_seg);
5077: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5071:
5072: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5073: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5074: 'fund_value :'|| fund_rec.fund_value);
5075: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5076: 'prg segment :'|| vl_prg_seg);
5077: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5078: 'prc flag :'|| vl_prc_flag);
5079: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5073: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5074: 'fund_value :'|| fund_rec.fund_value);
5075: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5076: 'prg segment :'|| vl_prg_seg);
5077: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5078: 'prc flag :'|| vl_prc_flag);
5079: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5080: 'prc header id :'||vl_prc_header_id);
5081: END IF;
5075: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5076: 'prg segment :'|| vl_prg_seg);
5077: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5078: 'prc flag :'|| vl_prc_flag);
5079: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
5080: 'prc header id :'||vl_prc_header_id);
5081: END IF;
5082:
5083:
5096: EXCEPTION
5097: WHEN OTHERS THEN
5098: vp_errbuf := SQLERRM;
5099: vp_retcode := -1;
5100: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5101: l_module_name||'.final_exception',vp_errbuf);
5102:
5103: END check_prc_map_seg;
5104: --------------------------------------------------------------------------------
5267: EXCEPTION
5268: WHEN OTHERS THEN
5269: vp_errbuf := 'GET_PRC_VAL.'||SQLERRM;
5270: vp_retcode := -1;
5271: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5272: l_module_name||'.final_exception',vp_errbuf);
5273: RAISE;
5274:
5275: END get_prc_val;
5337: EXCEPTION
5338: WHEN OTHERS THEN
5339: errbuf := SQLERRM;
5340: retcode := -1;
5341: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
5342: l_module_name||'.final_exception',errbuf);
5343: RAISE;
5344:
5345: