[Home] [Help]
250: EXCEPTION
251: WHEN OTHERS THEN
252: vp_retcode := sqlcode ;
253: vp_errbuf := sqlerrm ;
254: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
255: RAISE;
256:
257: End;
258:
353: -- Legislation Indicator processing is done.
354: -- If FACTS is run and program segment cannot be found for Apportionment
355: -- Category B Processing
356:
357: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
358: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Normal Processing ') ;
359: End If ;
360: va_balance_type_val := 'B' ;
361: v_record_category := 'REPORTED' ;
354: -- If FACTS is run and program segment cannot be found for Apportionment
355: -- Category B Processing
356:
357: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
358: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Normal Processing ') ;
359: End If ;
360: va_balance_type_val := 'B' ;
361: v_record_category := 'REPORTED' ;
362: CALC_BALANCE (vl_ccid,
370: vl_period_activity,
371: pagebreak) ;
372: v_amount := vl_amount ;
373: v_period_activity := vl_period_activity;
374: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
375: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Ending Balance(Normal) -> '||v_amount);
376: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'period_activity --> '||v_period_activity);
377: END IF;
378: v_record_category := 'REPORTED';
371: pagebreak) ;
372: v_amount := vl_amount ;
373: v_period_activity := vl_period_activity;
374: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
375: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Ending Balance(Normal) -> '||v_amount);
376: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'period_activity --> '||v_period_activity);
377: END IF;
378: v_record_category := 'REPORTED';
379: v_tbal_fund_value := vl_fund_value ;
372: v_amount := vl_amount ;
373: v_period_activity := vl_period_activity;
374: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
375: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Ending Balance(Normal) -> '||v_amount);
376: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'period_activity --> '||v_period_activity);
377: END IF;
378: v_record_category := 'REPORTED';
379: v_tbal_fund_value := vl_fund_value ;
380: Create_Facts_Record ;
384: EXCEPTION
385: WHEN OTHERS THEN
386: vp_retcode := sqlcode ;
387: vp_errbuf := sqlerrm ;
388: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
389: RAISE;
390:
391: End;
392: -- ------------------------------------------------------------------
435: fv_utility.log_mesg('currency_code:'||currency_code);
436: fv_utility.log_mesg('Period:'||Period);
437:
438:
439: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
440: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
441: 'Running Trial balance by fund fund range ' ||
442: vp_fund_low || ' ' || vp_fund_high) ;
443: End If ;
436: fv_utility.log_mesg('Period:'||Period);
437:
438:
439: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
440: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
441: 'Running Trial balance by fund fund range ' ||
442: vp_fund_low || ' ' || vp_fund_high) ;
443: End If ;
444:
458: errbuf :=
459: 'Trial Balance by Fund Range Process completed with warning because
460: the Public Law, Advance, and Transfer attribute columns are not
461: established on the Define System Parameters Form.';
462: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
463: 'Trial Balance by Fund Range Process completed with warning because
464: the Public Law, Advance, and Transfer attribute columns are not
465: established on the Define System Parameters Form.');
466: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);
462: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
463: 'Trial Balance by Fund Range Process completed with warning because
464: the Public Law, Advance, and Transfer attribute columns are not
465: established on the Define System Parameters Form.');
466: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);
467: ELSE
468: errbuf := 'Trial Balance By Fund Range Process Completed Successfully' ;
469: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
470: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, errbuf);
465: established on the Define System Parameters Form.');
466: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);
467: ELSE
468: errbuf := 'Trial Balance By Fund Range Process Completed Successfully' ;
469: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
470: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, errbuf);
471: END IF ;
472: END IF;
473: fv_utility.log_mesg('errbuf :: '||errbuf);
466: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);
467: ELSE
468: errbuf := 'Trial Balance By Fund Range Process Completed Successfully' ;
469: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
470: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, errbuf);
471: END IF ;
472: END IF;
473: fv_utility.log_mesg('errbuf :: '||errbuf);
474: COMMIT ;
482: -- Exception Processing
483: When Others Then
484: vp_retcode := sqlcode ;
485: vp_errbuf := sqlerrm || ' [TRIAL_BALANCE_MAIN] ' ;
486: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
487: '.final_exception',vp_errbuf);
488: END MAIN ;
489:
490: -- -------------------------------------------------------------------
500: BEGIN
501: -- Modified the code for the bug 1399282
502: -- When called from Trial Balance process, the parameter passed is period name.
503: v_period_name := vp_period_name;
504: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
506: 'period name '||vp_period_name) ;
507: END IF;
508: Begin
501: -- Modified the code for the bug 1399282
502: -- When called from Trial Balance process, the parameter passed is period name.
503: v_period_name := vp_period_name;
504: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
505: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
506: 'period name '||vp_period_name) ;
507: END IF;
508: Begin
509: Select period_year,period_num,start_date,end_date
516: When OTHERS then
517: vp_retcode := -1 ;
518: vp_errbuf := 'Error Getting Period Year and Period Number for the passed
519: Period [GET_PERIOD_INFO]' ;
520: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
521: '.select1', vp_errbuf) ;
522: End;
523: Begin
524: -- Select Period Information for Beginning Period
541: When NO_DATA_FOUND Then
542: vp_retcode := -1 ;
543: vp_errbuf := 'Error Getting Beginning Period Information
544: [GET_PERIOD_INFO]' ;
545: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
546: Return ;
547: When TOO_MANY_ROWS Then
548: vp_retcode := -1 ;
549: vp_errbuf := 'More than one Beginning Period Returned !!
547: When TOO_MANY_ROWS Then
548: vp_retcode := -1 ;
549: vp_errbuf := 'More than one Beginning Period Returned !!
550: [GET_PERIOD_INFO]' ;
551: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vp_errbuf) ;
552: Return ;
553: End ;
554: EXCEPTION
555: -- Exception Processing
555: -- Exception Processing
556: When Others Then
557: vp_retcode := sqlcode ;
558: vp_errbuf := sqlerrm || ' [GET_PERIOD_INFO] ' ;
559: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
560: Return ;
561: END GET_PERIOD_INFO ;
562: -- -------------------------------------------------------------------
563: -- PROCEDURE GET_TREASURY_SYMBOL_INFO
630: v_financing_acct := vl_financing_acct;
631: IF v_year_gtn2001 THEN
632: vc_acct_split_seq_num := '000';
633: END IF;
634: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
635: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Financing Acct >>> - ' ||
636: vl_financing_acct || ' >>>> - Cohort Seg Name - ' ||
637: v_cohort_seg_name) ;
638: End If ;
631: IF v_year_gtn2001 THEN
632: vc_acct_split_seq_num := '000';
633: END IF;
634: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
635: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Financing Acct >>> - ' ||
636: vl_financing_acct || ' >>>> - Cohort Seg Name - ' ||
637: v_cohort_seg_name) ;
638: End If ;
639: ------------------------------------------------
676: When NO_DATA_FOUND Then
677: vp_retcode := -1 ;
678: vp_errbuf := 'Error Getting Treasury Symbol related Information
679: for the passed Treasury Symbol [GET_TREASURY_SYMBOL_INFO] ' ;
680: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception1', vp_errbuf) ;
681: When TOO_MANY_ROWS Then
682: vp_retcode := -1 ;
683: vp_errbuf := 'More than one set of information returned for the
684: passed Treasury Symbol [GET_TREASURY_SYMBOL_INFO]' ;
681: When TOO_MANY_ROWS Then
682: vp_retcode := -1 ;
683: vp_errbuf := 'More than one set of information returned for the
684: passed Treasury Symbol [GET_TREASURY_SYMBOL_INFO]' ;
685: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception2', vp_errbuf) ;
686: WHEN OTHERS THEN
687: vp_retcode := sqlcode ;
688: vp_errbuf := sqlerrm ;
689: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
685: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception2', vp_errbuf) ;
686: WHEN OTHERS THEN
687: vp_retcode := sqlcode ;
688: vp_errbuf := sqlerrm ;
689: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
690: RAISE;
691: END GET_TREASURY_SYMBOL_INFO ;
692: -- -------------------------------------------------------------------
693: -- PROCEDURE PROCESS_FACTS_TRANSACTIONS
816: -- Symbol. Sum all the amounts and group the data by Account Number
817: -- and Fund Value.
818: -- Dynamic SQL is used for declaring the following cursor and to
819: -- fetch the values.
820: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
821: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Selecting FACTS Transactions.....') ;
822: END IF;
823: Begin
824: vl_main_cursor := DBMS_SQL.OPEN_CURSOR ;
817: -- and Fund Value.
818: -- Dynamic SQL is used for declaring the following cursor and to
819: -- fetch the values.
820: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
821: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Selecting FACTS Transactions.....') ;
822: END IF;
823: Begin
824: vl_main_cursor := DBMS_SQL.OPEN_CURSOR ;
825: Exception
825: Exception
826: When Others Then
827: vp_retcode := sqlcode ;
828: VP_ERRBUF := sqlerrm ;
829: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.open_vl_main_cursor', vp_errbuf) ;
830: Return ;
831: End ;
832: If v_cohort_seg_name IS NOT NULL Then
833: v_cohort_select := ', GLCC.' || v_cohort_seg_name ;
886: Exception
887: When Others Then
888: vp_retcode := sqlcode ;
889: VP_ERRBUF := sqlerrm ;
890: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
891: '.parse_vl_main_cursor', vp_errbuf) ;
892: Return ;
893: End ;
894:
918: Exception
919: When Others Then
920: vp_retcode := sqlcode ;
921: VP_ERRBUF := sqlerrm ;
922: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
923: '.execute_vl_main_cursor', vp_errbuf) ;
924: Return ;
925: End ;
926:
923: '.execute_vl_main_cursor', vp_errbuf) ;
924: Return ;
925: End ;
926:
927: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
928: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
929: 'Processing FACTS Transactions starts.....');
930: END IF;
931: LOOP
924: Return ;
925: End ;
926:
927: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
928: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
929: 'Processing FACTS Transactions starts.....');
930: END IF;
931: LOOP
932: -- This is a Dummy Loop since we have no command in PL/SQL to skip
990: dbms_sql.column_value(vl_main_cursor, l_counter, vl_cohort_yr);
991: l_counter:=l_counter+1;
992: END IF;
993:
994: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
995: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
996: '==========================================================');
997: END IF;
998:
991: l_counter:=l_counter+1;
992: END IF;
993:
994: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
995: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
996: '==========================================================');
997: END IF;
998:
999: -- Fix for bug 2798371
1003: INTO v_dummy_cohort
1004: FROM DUAL;
1005:
1006: IF LENGTH(v_dummy_cohort) = 1 THEN
1007: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1008: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1009: 'Cohort value: '||vl_cohort_yr||' is a single digit!');
1010: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1011: 'Taking Cohort value from report parameter.');
1004: FROM DUAL;
1005:
1006: IF LENGTH(v_dummy_cohort) = 1 THEN
1007: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1008: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1009: 'Cohort value: '||vl_cohort_yr||' is a single digit!');
1010: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1011: 'Taking Cohort value from report parameter.');
1012: END IF;
1006: IF LENGTH(v_dummy_cohort) = 1 THEN
1007: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1008: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1009: 'Cohort value: '||vl_cohort_yr||' is a single digit!');
1010: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1011: 'Taking Cohort value from report parameter.');
1012: END IF;
1013: v_dummy_cohort := vp_report_fiscal_yr;
1014: END if;
1013: v_dummy_cohort := vp_report_fiscal_yr;
1014: END if;
1015:
1016: EXCEPTION WHEN INVALID_NUMBER THEN
1017: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1018: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1019: l_module_name, 'Cohort value: '||vl_cohort_yr
1020: ||' is non-numeric!');
1021: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1014: END if;
1015:
1016: EXCEPTION WHEN INVALID_NUMBER THEN
1017: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1018: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1019: l_module_name, 'Cohort value: '||vl_cohort_yr
1020: ||' is non-numeric!');
1021: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1022: l_module_name, 'Taking Cohort value from report parameter.');
1017: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1018: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1019: l_module_name, 'Cohort value: '||vl_cohort_yr
1020: ||' is non-numeric!');
1021: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1022: l_module_name, 'Taking Cohort value from report parameter.');
1023: END IF;
1024: v_dummy_cohort := vp_report_fiscal_yr;
1025: END;
1030: LENGTH(v_dummy_cohort)-1, 2), 2, ' '), ' ') ;
1031:
1032: -- Acct Number Validation based on type of Processing(FACTSII or TBal)
1033:
1034: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1035: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1036: 'Processing for >>>> Acct -> '||vl_acct_num||
1037: ' >>>> Fund -> '||vl_fund_value||
1038: ' Cohort >>>> -> ' ||vl_cohort_yr||
1031:
1032: -- Acct Number Validation based on type of Processing(FACTSII or TBal)
1033:
1034: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1035: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1036: 'Processing for >>>> Acct -> '||vl_acct_num||
1037: ' >>>> Fund -> '||vl_fund_value||
1038: ' Cohort >>>> -> ' ||vl_cohort_yr||
1039: ' >>>> Amt -> ' ||
1051: vl_attributes_found := 'N' ;
1052:
1053: GET_SGL_PARENT(vl_acct_num, vl_parent_ac , v_sgl_acct_num) ;
1054:
1055: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1057: l_module_name, 'Parent A/c : '||vl_parent_ac||
1058: ' USSGL : '||v_sgl_acct_num);
1059: END IF;
1052:
1053: GET_SGL_PARENT(vl_acct_num, vl_parent_ac , v_sgl_acct_num) ;
1054:
1055: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
1057: l_module_name, 'Parent A/c : '||vl_parent_ac||
1058: ' USSGL : '||v_sgl_acct_num);
1059: END IF;
1060:
1068: vl_attributes_found := 'Y';
1069: END IF;
1070:
1071: if vl_retcode = -1 then
1072: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
1073: 'No attributes defined '||vl_acct_num||' and '||vl_parent_ac);
1074: else
1075: vl_attributes_found := 'Y' ;
1076: End if;
1078: -- In case no attributes are found then insert beginning and ending
1079: -- balance records
1080:
1081: If vl_attributes_found = 'N' then
1082: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Attributes not found ') ;
1083:
1084: -- Get the Beginning Balance
1085: CALC_BALANCE (
1086: vl_ccid,
1096:
1097: v_amount := v_begin_amount ;
1098: v_period_activity := vl_period_activity ;
1099: va_balance_type_val := 'B' ;
1100: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1101: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1102: 'begin Balance for >>>> - ' || v_begin_amount);
1103: END IF;
1104: v_tbal_fund_value := vl_fund_value ;
1097: v_amount := v_begin_amount ;
1098: v_period_activity := vl_period_activity ;
1099: va_balance_type_val := 'B' ;
1100: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1101: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1102: 'begin Balance for >>>> - ' || v_begin_amount);
1103: END IF;
1104: v_tbal_fund_value := vl_fund_value ;
1105: create_facts_record ;
1128: IF g_reimb_agree_seg_name IS NOT NULL THEN
1129: IF vl_reimb_agree_val IS NOT NULL THEN
1130: get_trx_part_from_reimb(vl_reimb_agree_val);
1131: ELSE
1132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1133: 'Reimbursable Agreement value is null!!' ||
1134: ' Setting transaction partner value to 0.');
1135: END IF;
1136: ELSE
1133: 'Reimbursable Agreement value is null!!' ||
1134: ' Setting transaction partner value to 0.');
1135: END IF;
1136: ELSE
1137: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1138: 'Reimbursable Agreement segment is not defined!!' ||
1139: ' Setting transaction partner value to 0.');
1140: END IF;
1141: END IF;
1153:
1154:
1155: -------------- Legislation Indicator Processing Starts ----------------
1156: If va_public_law_code_flag = 'Y' OR va_advance_flag = 'Y' OR va_transfer_ind = 'Y' Then
1157: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1158: If va_legis_ind_flag = 'Y' and
1159: va_public_law_code_flag = 'N' then
1160: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1161: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1156: If va_public_law_code_flag = 'Y' OR va_advance_flag = 'Y' OR va_transfer_ind = 'Y' Then
1157: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1158: If va_legis_ind_flag = 'Y' and
1159: va_public_law_code_flag = 'N' then
1160: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1161: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1162: ' ++++++++ Leg Ind Processing ++++++++') ;
1163: END IF;
1164: Elsif va_legis_ind_flag = 'N' and
1157: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1158: If va_legis_ind_flag = 'Y' and
1159: va_public_law_code_flag = 'N' then
1160: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1161: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1162: ' ++++++++ Leg Ind Processing ++++++++') ;
1163: END IF;
1164: Elsif va_legis_ind_flag = 'N' and
1165: va_public_law_code_flag = 'Y' then
1162: ' ++++++++ Leg Ind Processing ++++++++') ;
1163: END IF;
1164: Elsif va_legis_ind_flag = 'N' and
1165: va_public_law_code_flag = 'Y' then
1166: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1167: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1168: ' ++++++++ Pub Law Processing ++++++++') ;
1169: END IF;
1170: End If ;
1163: END IF;
1164: Elsif va_legis_ind_flag = 'N' and
1165: va_public_law_code_flag = 'Y' then
1166: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1167: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1168: ' ++++++++ Pub Law Processing ++++++++') ;
1169: END IF;
1170: End If ;
1171: --
1169: END IF;
1170: End If ;
1171: --
1172: IF va_advance_flag = 'Y' THEN
1173: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1174: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1175: ' ++++++++ Advance Type Processing ++++++++') ;
1176: END IF;
1177: END IF;
1170: End If ;
1171: --
1172: IF va_advance_flag = 'Y' THEN
1173: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1174: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1175: ' ++++++++ Advance Type Processing ++++++++') ;
1176: END IF;
1177: END IF;
1178: IF va_transfer_ind = 'Y' THEN
1175: ' ++++++++ Advance Type Processing ++++++++') ;
1176: END IF;
1177: END IF;
1178: IF va_transfer_ind = 'Y' THEN
1179: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1180: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1181: ' ++++++++ Transfer Acct Processing ++++++++') ;
1182: END IF;
1183: END IF;
1176: END IF;
1177: END IF;
1178: IF va_transfer_ind = 'Y' THEN
1179: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1180: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1181: ' ++++++++ Transfer Acct Processing ++++++++') ;
1182: END IF;
1183: END IF;
1184:
1205: IF va_transfer_ind = 'Y' THEN
1206: va_transfer_dept_id := ' ' ;
1207: va_transfer_main_acct := ' ' ;
1208: END IF ;
1209: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1210: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1211: 'Period number '||v_begin_period_num) ;
1212: END IF;
1213: CALC_BALANCE (
1206: va_transfer_dept_id := ' ' ;
1207: va_transfer_main_acct := ' ' ;
1208: END IF ;
1209: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1210: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1211: 'Period number '||v_begin_period_num) ;
1212: END IF;
1213: CALC_BALANCE (
1214: vl_ccid,
1221: v_begin_amount,
1222: vl_period_activity,
1223: vl_pagebreak) ;
1224:
1225: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1226: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1227: ' Legis Ind Begin Balance -> ' || v_begin_amount) ;
1228: End If ;
1229: If vp_retcode <> 0 Then
1222: vl_period_activity,
1223: vl_pagebreak) ;
1224:
1225: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1226: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1227: ' Legis Ind Begin Balance -> ' || v_begin_amount) ;
1228: End If ;
1229: If vp_retcode <> 0 Then
1230: Return ;
1280: v_amount := vb_balance_amount ;
1281: v_period_activity := 0 ; --Bug 2577862
1282: v_period_dr := 0;
1283: v_period_cr := 0;
1284: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1285: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1286: 'begin Balance >>>> - ' || to_char(v_begin_amount)) ;
1287: END IF;
1288: if v_amount > 0 then
1281: v_period_activity := 0 ; --Bug 2577862
1282: v_period_dr := 0;
1283: v_period_cr := 0;
1284: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1285: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1286: 'begin Balance >>>> - ' || to_char(v_begin_amount)) ;
1287: END IF;
1288: if v_amount > 0 then
1289: CREATE_FACTS_RECORD ;
1302: Exception
1303: When Others Then
1304: vp_retcode := sqlcode ;
1305: VP_ERRBUF := sqlerrm ;
1306: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1307: '.open_vl_legis_cursor', vp_errbuf) ;
1308: Return ;
1309: End ;
1310:
1328:
1329: -- Get the transactions for the account Number and Fund (and
1330: -- cohort segment, if required)
1331:
1332: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1333: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'vl_legis_Select') ;
1334: END IF;
1335:
1336: vl_legis_select :=
1329: -- Get the transactions for the account Number and Fund (and
1330: -- cohort segment, if required)
1331:
1332: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1333: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'vl_legis_Select') ;
1334: END IF;
1335:
1336: vl_legis_select :=
1337: 'Select gjl.reference_1,
1369: AND glp.period_year = :report_fiscal_yr
1370: AND glp.period_num > :period_num) ';
1371:
1372:
1373: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1374: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vl_legis_select) ;
1375: END IF;
1376:
1377:
1370: AND glp.period_num > :period_num) ';
1371:
1372:
1373: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1374: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vl_legis_select) ;
1375: END IF;
1376:
1377:
1378: Begin
1380: Exception
1381: When Others Then
1382: vp_retcode := sqlcode ;
1383: VP_ERRBUF := sqlerrm ;
1384: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1385: '.parse_vl_legis_cursor', vp_errbuf) ;
1386: Return ;
1387: End ;
1388:
1444: Exception
1445: When Others Then
1446: vp_retcode := sqlcode ;
1447: VP_ERRBUF := sqlerrm ;
1448: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1449: '.execute_vl_legis_cursor', vp_errbuf) ;
1450: Return ;
1451: End ;
1452: va_account_ctr := 0;
1490: IF va_advance_type_col IS NOT NULL THEN
1491: dbms_sql.column_value(vl_legis_cursor, vl_count, vl_advance_type);
1492: END IF;
1493:
1494: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1496: 'Ref 1 - '||nvl(vl_legis_ref,'Ref Null'));
1497: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1498: 'Amt - '|| nvl(to_char(vl_legis_amount),
1491: dbms_sql.column_value(vl_legis_cursor, vl_count, vl_advance_type);
1492: END IF;
1493:
1494: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1496: 'Ref 1 - '||nvl(vl_legis_ref,'Ref Null'));
1497: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1498: 'Amt - '|| nvl(to_char(vl_legis_amount),
1499: 'Amt Null')) ;
1493:
1494: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1495: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1496: 'Ref 1 - '||nvl(vl_legis_ref,'Ref Null'));
1497: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1498: 'Amt - '|| nvl(to_char(vl_legis_amount),
1499: 'Amt Null')) ;
1500: End If ;
1501:
1510: va_balance_type_val := 'C';
1511: IF vl_adj_num < v_period_num THEN
1512: va_balance_type_val := 'P';
1513: END IF;
1514: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1515: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1516: 'vl_period ' || vl_period_name);
1517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1518: 'vl_adj_flag ' || vl_adj_flag);
1511: IF vl_adj_num < v_period_num THEN
1512: va_balance_type_val := 'P';
1513: END IF;
1514: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1515: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1516: 'vl_period ' || vl_period_name);
1517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1518: 'vl_adj_flag ' || vl_adj_flag);
1519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1513: END IF;
1514: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1515: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1516: 'vl_period ' || vl_period_name);
1517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1518: 'vl_adj_flag ' || vl_adj_flag);
1519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1520: 'vl_balance_flag ' || va_balance_type_val);
1521: END IF;
1515: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1516: 'vl_period ' || vl_period_name);
1517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1518: 'vl_adj_flag ' || vl_adj_flag);
1519: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1520: 'vl_balance_flag ' || va_balance_type_val);
1521: END IF;
1522:
1523: -----------------------------------------------------------------------
1570: --va_public_law_code_val := '000-000' ;
1571: va_public_law_code_val := ' ' ;
1572: END ;
1573:
1574: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1575: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'P Law-'||
1576: nvl(va_public_law_code_val,'P Law Null'));
1577: END IF;
1578:
1571: va_public_law_code_val := ' ' ;
1572: END ;
1573:
1574: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1575: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'P Law-'||
1576: nvl(va_public_law_code_val,'P Law Null'));
1577: END IF;
1578:
1579: ELSE -- vl_legis_ref is null
1595: INTO va_advance_type_val
1596: FROM fv_be_trx_dtls
1597: WHERE transaction_id = vl_legis_ref
1598: AND set_of_books_id = vp_set_of_books_id ;
1599: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1600: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1601: 'Advance Type - '||
1602: nvl(va_advance_type_val, 'Advance Type Null')) ;
1603: END IF ;
1596: FROM fv_be_trx_dtls
1597: WHERE transaction_id = vl_legis_ref
1598: AND set_of_books_id = vp_set_of_books_id ;
1599: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1600: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1601: 'Advance Type - '||
1602: nvl(va_advance_type_val, 'Advance Type Null')) ;
1603: END IF ;
1604: -- If the advance_type value is null then set it to 'X'
1631: INTO va_transfer_dept_id, va_transfer_main_acct
1632: FROM fv_be_trx_dtls
1633: WHERE transaction_id = vl_legis_ref
1634: AND set_of_books_id = vp_set_of_books_id ;
1635: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1636: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1637: 'Transfer Dept ID - '||
1638: nvl(va_transfer_dept_id, 'Transfer Dept ID Null')) ;
1639: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1632: FROM fv_be_trx_dtls
1633: WHERE transaction_id = vl_legis_ref
1634: AND set_of_books_id = vp_set_of_books_id ;
1635: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1636: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1637: 'Transfer Dept ID - '||
1638: nvl(va_transfer_dept_id, 'Transfer Dept ID Null')) ;
1639: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1640: 'Transfer Main Acct - '||
1635: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1636: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1637: 'Transfer Dept ID - '||
1638: nvl(va_transfer_dept_id, 'Transfer Dept ID Null')) ;
1639: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1640: 'Transfer Main Acct - '||
1641: nvl(va_transfer_main_acct, 'Transfer Main Acct Null')) ;
1642: END IF ;
1643:
1665: END IF;
1666: END IF;
1667: END IF;
1668:
1669: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1670: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1671: ' Acct - '||vl_acct_num) ;
1672: END IF;
1673: v_amount := 0;
1666: END IF;
1667: END IF;
1668:
1669: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1670: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1671: ' Acct - '||vl_acct_num) ;
1672: END IF;
1673: v_amount := 0;
1674: v_period_activity := 0;
1679: else
1680: v_period_activity := vl_legis_amount;
1681: End if;
1682:
1683: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1684: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1685: 'period_net_dr - '|| v_period_dr) ;
1686: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1687: 'period_net_cr - '|| v_period_cr) ;
1680: v_period_activity := vl_legis_amount;
1681: End if;
1682:
1683: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1684: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1685: 'period_net_dr - '|| v_period_dr) ;
1686: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1687: 'period_net_cr - '|| v_period_cr) ;
1688: END IF;
1682:
1683: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1684: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1685: 'period_net_dr - '|| v_period_dr) ;
1686: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1687: 'period_net_cr - '|| v_period_cr) ;
1688: END IF;
1689: CREATE_FACTS_RECORD ;
1690: If vp_retcode <> 0 Then
1699: Exception
1700: When Others Then
1701: vp_retcode := sqlcode ;
1702: VP_ERRBUF := sqlerrm ;
1703: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1704: '.close_vl_legis_cursor', vp_errbuf) ;
1705: Return ;
1706: End ;
1707:
1715: When Others Then
1716: vp_retcode := sqlcode ;
1717: vp_errbuf := sqlerrm ||
1718: ' [ PROCESS_FACTS_TRANSCTIONS-LEGIS IND ] ' ;
1719: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1720: '.exception_1', vp_errbuf) ;
1721: Return ;
1722: END ;
1723: -------------- Apportionment Category Processing Starts ----------------
1735:
1736: END IF; */
1737:
1738: If va_appor_cat_val IN ('A', 'B') then
1739: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1740: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1741: ' ++++++++ Apportionment Category Processing ++++++++++') ;
1742: End If ;
1743: -- Get the Program segment name for the current fund value
1736: END IF; */
1737:
1738: If va_appor_cat_val IN ('A', 'B') then
1739: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1740: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1741: ' ++++++++ Apportionment Category Processing ++++++++++') ;
1742: End If ;
1743: -- Get the Program segment name for the current fund value
1744: GET_PROGRAM_SEGMENT (vl_fund_value) ;
1742: End If ;
1743: -- Get the Program segment name for the current fund value
1744: GET_PROGRAM_SEGMENT (vl_fund_value) ;
1745:
1746: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1747: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1748: 'Fund - '||vl_fund_value||' > CAT B Prog Seg - '||v_catb_prg_seg_name|| ' > PRN Prog Seg - '||v_prn_prg_seg_name);
1749: End If ;
1750:
1743: -- Get the Program segment name for the current fund value
1744: GET_PROGRAM_SEGMENT (vl_fund_value) ;
1745:
1746: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1747: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1748: 'Fund - '||vl_fund_value||' > CAT B Prog Seg - '||v_catb_prg_seg_name|| ' > PRN Prog Seg - '||v_prn_prg_seg_name);
1749: End If ;
1750:
1751: If v_catb_prg_seg_name IS NOT NULL OR
1755: Exception
1756: When Others Then
1757: vp_retcode := sqlcode ;
1758: VP_ERRBUF := sqlerrm ;
1759: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1760: '.open_vl_appor_cursor', vp_errbuf) ;
1761: Return ;
1762: End ;
1763: -- Dynamic SQL to group the amount by Fund, Acct
1779: Exception
1780: When Others Then
1781: vp_retcode := sqlcode ;
1782: vp_errbuf := sqlerrm || ' [MAIN - APPOR]' ;
1783: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1784: '.parse_vl_appor_cursor', vp_errbuf) ;
1785: Return ;
1786: End ;
1787:
1832: Exception
1833: When Others Then
1834: vp_retcode := sqlcode ;
1835: vp_errbuf := sqlerrm||'[execute_vl_appor_cursor]' ;
1836: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1837: '.execute_vl_appor_cursor', vp_errbuf) ;
1838: Return ;
1839: End ;
1840:
1880: -- Get_Appor_Cat_B_Text(vl_program) ;
1881:
1882: get_prc_val(vl_catb_program, vl_catb_rc_val, vl_catb_pgm_desc,
1883: vl_prn_program, vl_prn_rc_val, vl_prn_pgm_desc);
1884: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1885: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1886: 'Appor Beg --> Acct - '||vl_acct_num||
1887: ' Fund >>>> - '||vl_fund_value ||
1888: ' CAT B Prgm >>>> - '||vl_catb_program ||
1881:
1882: get_prc_val(vl_catb_program, vl_catb_rc_val, vl_catb_pgm_desc,
1883: vl_prn_program, vl_prn_rc_val, vl_prn_pgm_desc);
1884: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1885: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1886: 'Appor Beg --> Acct - '||vl_acct_num||
1887: ' Fund >>>> - '||vl_fund_value ||
1888: ' CAT B Prgm >>>> - '||vl_catb_program ||
1889: ' PRN Prgm >>>> - '||vl_prn_program ||
1929: Exception
1930: When Others Then
1931: vp_retcode := sqlcode ;
1932: VP_ERRBUF := sqlerrm||'[vl_appor_cursor]' ;
1933: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1934: '.close_vl_appor_cursor', vp_errbuf) ;
1935: Return ;
1936: End ;
1937:
1941: Exit ;
1942:
1943: End If ; /* Program segment not null */
1944: END IF; /* va_appor_cat_val = 'B' */
1945: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Apportion category is not B or
1946: Program Segment Not defined Or Null');
1947: v_amount := vl_amount ;
1948: v_ccid := vl_ccid;
1949: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1945: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Apportion category is not B or
1946: Program Segment Not defined Or Null');
1947: v_amount := vl_amount ;
1948: v_ccid := vl_ccid;
1949: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1950: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,
1951: ' So calling the default processing') ;
1952: END IF;
1953: DEFAULT_PROCESSING (vl_ccid,vl_fund_value,vl_acct_num,'E');
1946: Program Segment Not defined Or Null');
1947: v_amount := vl_amount ;
1948: v_ccid := vl_ccid;
1949: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1950: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,
1951: ' So calling the default processing') ;
1952: END IF;
1953: DEFAULT_PROCESSING (vl_ccid,vl_fund_value,vl_acct_num,'E');
1954: EXIT; -- continue with the next account
1953: DEFAULT_PROCESSING (vl_ccid,vl_fund_value,vl_acct_num,'E');
1954: EXIT; -- continue with the next account
1955: Else
1956: --- Default processing
1957: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1958: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,
1959: 'No special attributes defined , doing Normal processing');
1960: END IF;
1961: DEFAULT_PROCESSING (vl_ccid,vl_fund_value,vl_acct_num,'R',vl_pagebreak);
1954: EXIT; -- continue with the next account
1955: Else
1956: --- Default processing
1957: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1958: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,
1959: 'No special attributes defined , doing Normal processing');
1960: END IF;
1961: DEFAULT_PROCESSING (vl_ccid,vl_fund_value,vl_acct_num,'R',vl_pagebreak);
1962: -- Exit to end the Dummy Loop
1978: Exception
1979: When Others Then
1980: vp_retcode := sqlcode ;
1981: VP_ERRBUF := sqlerrm||'[vl_main_cursor]' ;
1982: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
1983: '.close_vl_main_cursor', vp_errbuf) ;
1984: Return ;
1985: End ;
1986:
1983: '.close_vl_main_cursor', vp_errbuf) ;
1984: Return ;
1985: End ;
1986:
1987: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1988: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1989: 'Calling Rollup process '|| v_tbal_fund_value);
1990: END IF;
1991:
1984: Return ;
1985: End ;
1986:
1987: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1988: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1989: 'Calling Rollup process '|| v_tbal_fund_value);
1990: END IF;
1991:
1992: IF (vl_row_count > 0) then
1997: EXCEPTION
1998: WHEN OTHERS THEN
1999: vp_retcode := sqlcode ;
2000: vp_errbuf := sqlerrm ;
2001: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
2002: RAISE;
2003: END PROCESS_FACTS_TRANSACTIONS ;
2004: -- -------------------------------------------------------------------
2005: -- PROCEDURE LOAD_FACTS_ATTRIBUTES
2026: BEGIN
2027:
2028: Begin
2029: v_retcode := 0;
2030: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2031: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2032: 'LOAD - Acct Num -> ' || acct_num || ' sob -> '
2033: || vp_set_of_books_id ) ;
2034: END IF;
2027:
2028: Begin
2029: v_retcode := 0;
2030: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2031: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2032: 'LOAD - Acct Num -> ' || acct_num || ' sob -> '
2033: || vp_set_of_books_id ) ;
2034: END IF;
2035: SELECT balance_type,
2082: return;
2083: When Others Then
2084: vp_retcode := sqlcode ;
2085: vp_errbuf := sqlerrm ;
2086: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_1', vp_errbuf) ;
2087: return;
2088: End ;
2089: --------------------------------------------------------------------------------
2090: -- Get the attribute column names for public_law_code and other
2116: EXCEPTION WHEN NO_DATA_FOUND THEN NULL;
2117: WHEN OTHERS THEN
2118: vp_retcode := sqlcode ;
2119: vp_errbuf := sqlerrm ;
2120: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.no_data_found', vp_errbuf) ;
2121: RETURN;
2122: END;
2123: --------------------------------------------------------------------------------
2124: -- Getting the One time Pull up Values
2145: When NO_DATA_FOUND Then
2146: vp_retcode := -1 ;
2147: vp_errbuf := 'Error getting Fund Category value for the fund - '||
2148: fund_val || ' [LOAD_FACTS_ATTRIBURES]' ;
2149: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.no_data_found1', vp_errbuf) ;
2150: return;
2151: When Others Then
2152: vp_retcode := sqlcode ;
2153: vp_errbuf := sqlerrm || ' [LOAD_FACTS_ATTRIBURES]' ;
2150: return;
2151: When Others Then
2152: vp_retcode := sqlcode ;
2153: vp_errbuf := sqlerrm || ' [LOAD_FACTS_ATTRIBURES]' ;
2154: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception_2', vp_errbuf) ;
2155: return;
2156: End ;
2157: ------------------------------------------------
2158: -- Deriving Indefinite Definite Flag
2179: va_appor_cat_val := 'C' ;
2180: Else
2181: va_appor_cat_val := ' ' ;
2182: End If ;
2183: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2184: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Acct - ' || acct_num ||
2185: ' Fund cat - ' || vl_fund_category || ' Appr Cat - ' ||
2186: va_appor_cat_val || ' Flag - ' || va_appor_cat_flag) ;
2187: End If ;
2180: Else
2181: va_appor_cat_val := ' ' ;
2182: End If ;
2183: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2184: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Acct - ' || acct_num ||
2185: ' Fund cat - ' || vl_fund_category || ' Appr Cat - ' ||
2186: va_appor_cat_val || ' Flag - ' || va_appor_cat_flag) ;
2187: End If ;
2188: Else
2202: va_prn_txt := 'Default PRN Code';
2203:
2204: END IF;
2205:
2206: IF ( FND_LOG.LEVEL_STATEMENT >=
2207: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2208: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2209: l_module_name, 'Defaulting the Reporting'
2210: ||'codes as the apportionment '
2203:
2204: END IF;
2205:
2206: IF ( FND_LOG.LEVEL_STATEMENT >=
2207: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2208: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2209: l_module_name, 'Defaulting the Reporting'
2210: ||'codes as the apportionment '
2211: ||'Category flag is N ') ;
2204: END IF;
2205:
2206: IF ( FND_LOG.LEVEL_STATEMENT >=
2207: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2208: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
2209: l_module_name, 'Defaulting the Reporting'
2210: ||'codes as the apportionment '
2211: ||'Category flag is N ') ;
2212: End If ;
2337: EXCEPTION
2338: When Others Then
2339: vp_retcode := sqlcode ;
2340: vp_errbuf := sqlerrm || ' [LOAD_FACTS_ATTRIBUTES]' ;
2341: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
2342: END LOAD_FACTS_ATTRIBUTES ;
2343: -- -------------------------------------------------------------------
2344: -- PROCEDURE CALC_BALANCE
2345: -- -------------------------------------------------------------------
2373: Exception
2374: When Others Then
2375: vp_retcode := sqlcode ;
2376: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Open Cursor] ' ;
2377: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.open_vl_bal_cursor', vp_errbuf) ;
2378: return;
2379: End ;
2380: -- Get the Balance
2381: vl_bal_select :=
2415: AND GLB.PERIOD_NUM = :period_num
2416: AND GLB.PERIOD_YEAR = :period_year
2417: AND glb.currency_code = :currency_code ' ;
2418:
2419: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'mg calc '||vl_bal_select) ;
2421: END IF;
2422:
2423: Begin
2416: AND GLB.PERIOD_YEAR = :period_year
2417: AND glb.currency_code = :currency_code ' ;
2418:
2419: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'mg calc '||vl_bal_select) ;
2421: END IF;
2422:
2423: Begin
2424: dbms_sql.parse(vl_bal_cursor, vl_bal_select, DBMS_SQL.V7) ;
2425: Exception
2426: When Others Then
2427: vp_retcode := sqlcode ;
2428: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Parse] ' ;
2429: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.parse_vl_bal_cursor', vp_errbuf) ;
2430: return;
2431: End ;
2432:
2433: -- Bind the variables
2452: Exception
2453: When Others Then
2454: vp_retcode := sqlcode ;
2455: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Execute Cursor] ' ;
2456: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.execute_vl_bal_cursor', vp_errbuf) ;
2457: End ;
2458: Loop
2459: if dbms_sql.fetch_rows(vl_bal_cursor) = 0 then
2460: exit;
2472: Exception
2473: When Others Then
2474: vp_retcode := sqlcode ;
2475: VP_ERRBUF := sqlerrm ;
2476: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.close_vl_bal_cursor', vp_errbuf) ;
2477: Return ;
2478: End ;
2479: EXCEPTION
2480: When Others Then
2479: EXCEPTION
2480: When Others Then
2481: vp_retcode := sqlcode ;
2482: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Others]' ;
2483: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
2484: return;
2485: END CALC_BALANCE ;
2486: -- -------------------------------------------------------------------
2487: -- PROCEDURE CREATE_FACTS_RECORD
2568: --using the Reimbursable Agreement segment value,
2569: --if the segment has been setup or has a value,
2570: --else default to 0.
2571: ----------------------------------------------------------------
2572: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2573: 'va_transaction_partner_val ::g_reimb_agree_seg_name ::'
2574: ||va_transaction_partner_val||'::'||g_reimb_agree_seg_name);
2575:
2576: IF va_transaction_partner_val <> 'N' THEN
2591: IF vp_retcode <> 0 THEN
2592: RETURN;
2593: END IF;
2594: ELSE
2595: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2596: 'Reimbursable Agreement value is null!!' ||
2597: ' Setting transaction partner value to 0.');
2598: va_transaction_partner_val := 0;
2599: END IF;
2597: ' Setting transaction partner value to 0.');
2598: va_transaction_partner_val := 0;
2599: END IF;
2600: ELSE
2601: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2602: 'Reimbursable Agreement segment is not defined!!' ||
2603: ' Setting transaction partner value to 0.');
2604: va_transaction_partner_val := 0;
2605: END IF;
2684: va_prn_num,
2685: va_prn_txt) ;
2686:
2687:
2688: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2689: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Created FACTS Record') ;
2690: End If ;
2691: EXCEPTION
2692: When Others Then
2685: va_prn_txt) ;
2686:
2687:
2688: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2689: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Created FACTS Record') ;
2690: End If ;
2691: EXCEPTION
2692: When Others Then
2693: vp_retcode := sqlcode ;
2691: EXCEPTION
2692: When Others Then
2693: vp_retcode := sqlcode ;
2694: vp_errbuf := sqlerrm || ' [CREATE_FACTS_RECORD] ' ;
2695: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
2696: return;
2697: END CREATE_FACTS_RECORD ;
2698: -- -------------------------------------------------------------------
2699: -- PROCEDURE GET_PROGRAM_SEGMENT
2874: When NO_DATA_FOUND Then
2875: vp_retcode := -1 ;
2876: vp_errbuf := 'Error getting Value Set Id for segment'
2877: ||vl_prg_seg_name||' [GET_PROGRAM_SEGMENT]' ;
2878: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||
2879: '.no_data_found', vp_errbuf) ;
2880: When TOO_MANY_ROWS Then
2881: -- Too many value set ids returned for the program segment.
2882: vp_retcode := -1 ;
2882: vp_retcode := -1 ;
2883: vp_errbuf := 'Program Segment - '||vl_prg_seg_name||
2884: ' returned
2885: more than one Value Set !! '||'[ GET_PROGRAM_SEGMENT ]' ;
2886: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
2887: '.exception_1', vp_errbuf) ;
2888: End ;
2889: END IF;
2890:
2913: vp_retcode := -1 ;
2914: vp_errbuf := 'Fund Value - ' || v_fund_value || ' returned more
2915: than one program segment value !! ' ||
2916: '[ GET_PROGRAM_SEGMENT ]' ;
2917: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
2918: return;
2919: WHEN OTHERS THEN
2920: vp_retcode := sqlcode ;
2921: vp_errbuf := sqlerrm ;
2918: return;
2919: WHEN OTHERS THEN
2920: vp_retcode := sqlcode ;
2921: vp_errbuf := sqlerrm ;
2922: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
2923: RAISE;
2924: END GET_PROGRAM_SEGMENT ;
2925: -- -------------------------------------------------------------------
2926: -- PROCEDURE GET_APPOR_CAT_B_TEXT
2951: When NO_DATA_FOUND Then
2952: vp_retcode := -1 ;
2953: vp_errbuf := 'Cannot Find Apportionment Category B Text for
2954: the Program ' || p_program||' [GET_SEGMENT_TEXT] ';
2955: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
2956: return;
2957: When TOO_MANY_ROWS Then
2958: vp_retcode := -1 ;
2959: vp_errbuf := 'More then one Apportionment Category B Text found for
2957: When TOO_MANY_ROWS Then
2958: vp_retcode := -1 ;
2959: vp_errbuf := 'More then one Apportionment Category B Text found for
2960: the Program '||p_program||' [GET_SEGMENT_TEXT]';
2961: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
2962: return;
2963: WHEN OTHERS THEN
2964: vp_retcode := sqlcode ;
2965: vp_errbuf := sqlerrm ;
2962: return;
2963: WHEN OTHERS THEN
2964: vp_retcode := sqlcode ;
2965: vp_errbuf := sqlerrm ;
2966: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
2967: RAISE;
2968: End ;
2969: -- -------------------------------------------------------------------
2970: -- PROCEDURE GET_ACCOUNT_TYPE
2988: -- Process Null Account Types
2989: vp_retcode := -1 ;
2990: vp_errbuf := 'Account Type found null for the for the
2991: Account Number - ' || acct_num ;
2992: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message1', vp_errbuf) ;
2993: Return ;
2994: End If ;
2995: Exception
2996: When No_Data_Found Then
2996: When No_Data_Found Then
2997: vp_retcode := -1 ;
2998: vp_errbuf := 'Account Type Cannot be derived for the Account Number - '
2999: || acct_num ;
3000: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3001: Return ;
3002: WHEN OTHERS THEN
3003: vp_retcode := sqlcode ;
3004: vp_errbuf := sqlerrm ;
3001: Return ;
3002: WHEN OTHERS THEN
3003: vp_retcode := sqlcode ;
3004: vp_errbuf := sqlerrm ;
3005: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
3006: RAISE;
3007: End GET_ACCOUNT_TYPE ;
3008: -- -------------------------------------------------------------------
3009: -- PROCEDURE GET_SGL_PARENT
3042:
3043: WHEN OTHERS THEN
3044: vp_retcode := sqlcode ;
3045: vp_errbuf := sqlerrm ;
3046: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
3047: '.first_exception',vp_errbuf);
3048: RETURN;
3049: END;
3050:
3068: RETURN ;
3069: WHEN OTHERS THEN
3070: vp_retcode := sqlcode ;
3071: vp_errbuf := sqlerrm ;
3072: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
3073: '.final_exception',vp_errbuf);
3074: RAISE;
3075: END GET_SGL_PARENT ;
3076: -- -------------------------------------------------------------------
3155: EXCEPTION
3156: WHEN OTHERS THEN
3157: vp_retcode := sqlcode ;
3158: vp_errbuf := sqlerrm ||'[ build_appor_select]';
3159: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
3160: '.final_exception',vp_errbuf);
3161: RAISE;
3162:
3163: End build_appor_select ;
3171: l_module_name VARCHAR2(200) := g_module_name || 'Load_Treasury_Symbol_Id';
3172: Begin
3173:
3174: IF vp_treasury_symbol IS NULL THEN
3175: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3176: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3177: 'No FACTS II or FACTS I and II reportable Treasury Account Symbols exist for fund '||p_flex_value);
3178: END IF;
3179: RETURN;
3172: Begin
3173:
3174: IF vp_treasury_symbol IS NULL THEN
3175: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3176: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3177: 'No FACTS II or FACTS I and II reportable Treasury Account Symbols exist for fund '||p_flex_value);
3178: END IF;
3179: RETURN;
3180: END IF;
3184: where treasury_symbol = vp_treasury_symbol
3185: AND (FACTS_REPORTABLE_INDICATOR like 'II' or FACTS_REPORTABLE_INDICATOR like 'I and II')
3186: and set_of_books_id = vp_set_of_books_id ;
3187:
3188: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3189: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3190: 'Treas Symb id:'||v_treasury_symbol_id);
3191: END IF;
3192:
3185: AND (FACTS_REPORTABLE_INDICATOR like 'II' or FACTS_REPORTABLE_INDICATOR like 'I and II')
3186: and set_of_books_id = vp_set_of_books_id ;
3187:
3188: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3189: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3190: 'Treas Symb id:'||v_treasury_symbol_id);
3191: END IF;
3192:
3193: Exception
3194: WHEN NO_DATA_FOUND Then
3195: vp_retcode := -1 ;
3196: vp_errbuf := 'Treasury Symbol Id cannot be found for the Treasury
3197: Symbol - '||vp_treasury_symbol||' [ GET_TREASURY_SYMBOL_ID ] ' ;
3198: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3199: Return ;
3200: WHEN TOO_MANY_ROWS Then
3201: vp_retcode := -1 ;
3202: vp_errbuf := 'More than one Treasury Symbol Id found for the Treasury
3200: WHEN TOO_MANY_ROWS Then
3201: vp_retcode := -1 ;
3202: vp_errbuf := 'More than one Treasury Symbol Id found for the Treasury
3203: Symbol - '||vp_treasury_symbol||' [ GET_TREASURY_SYMBOL_ID ] ' ;
3204: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3205: WHEN OTHERS THEN
3206: vp_retcode := sqlcode ;
3207: vp_errbuf := sqlerrm ;
3208: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
3204: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3205: WHEN OTHERS THEN
3206: vp_retcode := sqlcode ;
3207: vp_errbuf := sqlerrm ;
3208: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
3209: '.final_exception',vp_errbuf);
3210: RAISE;
3211: End Load_Treasury_symbol_id;
3212: -------------------------------------------------------------------
3219: vl_exec_ret Integer ;
3220:
3221: BEGIN
3222: select_group_by_columns(vp_report_id,vp_attribute_set,vl_group_by);
3223: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3224: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3225: 'Group by ' || vl_group_by);
3226: END IF;
3227:
3220:
3221: BEGIN
3222: select_group_by_columns(vp_report_id,vp_attribute_set,vl_group_by);
3223: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3224: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3225: 'Group by ' || vl_group_by);
3226: END IF;
3227:
3228: vl_rollup_cursor := DBMS_SQL.OPEN_CURSOR;
3330: ADVANCE_FLAG ,
3331: TRANSFER_DEPT_ID,
3332: TRANSFER_MAIN_ACCT ' || vl_group_by ;
3333:
3334: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3335: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vl_rollup);
3336: END IF;
3337: dbms_sql.parse(vl_rollup_cursor, vl_rollup, DBMS_SQL.V7) ;
3338: vl_exec_ret := dbms_sql.execute(vl_rollup_cursor);
3331: TRANSFER_DEPT_ID,
3332: TRANSFER_MAIN_ACCT ' || vl_group_by ;
3333:
3334: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3335: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vl_rollup);
3336: END IF;
3337: dbms_sql.parse(vl_rollup_cursor, vl_rollup, DBMS_SQL.V7) ;
3338: vl_exec_ret := dbms_sql.execute(vl_rollup_cursor);
3339: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3335: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, vl_rollup);
3336: END IF;
3337: dbms_sql.parse(vl_rollup_cursor, vl_rollup, DBMS_SQL.V7) ;
3338: vl_exec_ret := dbms_sql.execute(vl_rollup_cursor);
3339: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3340: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' No of records rolled up '
3341: || vl_exec_ret);
3342: END IF;
3343:
3336: END IF;
3337: dbms_sql.parse(vl_rollup_cursor, vl_rollup, DBMS_SQL.V7) ;
3338: vl_exec_ret := dbms_sql.execute(vl_rollup_cursor);
3339: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3340: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' No of records rolled up '
3341: || vl_exec_ret);
3342: END IF;
3343:
3344: -- Delete the Detail Records that are used in rollup process
3359: NVL(amount1,0) = 0 AND
3360: NVL(amount2,0) = 0)
3361: AND treasury_symbol_id = v_treasury_symbol_id;
3362:
3363: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'NO OF ROWS DELETED FROM FV_FACTS_TEMP '||SQL%ROWCOUNT) ;
3364:
3365: -- Set up Debit/Credit Indicator
3366: EXCEPTION
3367: WHEN OTHERS THEN
3366: EXCEPTION
3367: WHEN OTHERS THEN
3368: vp_retcode := sqlcode ;
3369: vp_errbuf := sqlerrm ;
3370: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
3371: '.final_exception',vp_errbuf);
3372: RAISE;
3373: END FACTS_ROLLUP_RECORDS;
3374:
3385: IS
3386: l_module_name VARCHAR2(200) := g_module_name || 'PROCESS_BY_FUND_RANGE';
3387: BEGIN
3388: fv_utility.log_mesg('PROCESS_BY_FUND_RANGE :: ');
3389: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3391: 'Within the process_by_fund_range...') ;
3392: END IF;
3393:
3386: l_module_name VARCHAR2(200) := g_module_name || 'PROCESS_BY_FUND_RANGE';
3387: BEGIN
3388: fv_utility.log_mesg('PROCESS_BY_FUND_RANGE :: ');
3389: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3391: 'Within the process_by_fund_range...') ;
3392: END IF;
3393:
3394: If vp_retcode = 0 Then
3391: 'Within the process_by_fund_range...') ;
3392: END IF;
3393:
3394: If vp_retcode = 0 Then
3395: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3396: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3397: 'Deriving Qualifier Segments.....') ;
3398: END IF;
3399:
3392: END IF;
3393:
3394: If vp_retcode = 0 Then
3395: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3396: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3397: 'Deriving Qualifier Segments.....') ;
3398: END IF;
3399:
3400: -- Getting the Chart of Accounts Id
3409: WHEN NO_DATA_FOUND THEN
3410: vp_retcode := -1 ;
3411: vp_errbuf := 'Error getting Chart of Accounts Id for ledger id '
3412: ||vp_set_of_books_id;
3413: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);
3414: RETURN;
3415: END;
3416: -- Getting the Account and Balancing segments' application column names
3417: BEGIN
3421: error_code,
3422: error_message);
3423: fv_utility.log_mesg('v_acc_seg_name :: v_bal_seg_name::error_code::'||v_acc_seg_name||'|'||v_bal_seg_name||
3424: '|'||error_message);
3425: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3427: 'Acc segment:'||v_acc_seg_name||' Bal Segment: '||v_bal_seg_name);
3428: END IF;
3429:
3422: error_message);
3423: fv_utility.log_mesg('v_acc_seg_name :: v_bal_seg_name::error_code::'||v_acc_seg_name||'|'||v_bal_seg_name||
3424: '|'||error_message);
3425: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3427: 'Acc segment:'||v_acc_seg_name||' Bal Segment: '||v_bal_seg_name);
3428: END IF;
3429:
3430: EXCEPTION
3430: EXCEPTION
3431: WHEN OTHERS THEN
3432: vp_retcode := -1;
3433: vp_errbuf := error_message;
3434: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);
3435: RETURN;
3436: END;
3437:
3438: /*
3447: AND id_flex_num = vp_coa_id
3448: AND enabled_flag = 'Y'
3449: AND segment_name like 'Reimbursable Agreement';
3450:
3451: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3452: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3453: ' Reimbursable Agreement SEGMENT IS'||
3454: to_char(g_reimb_agree_seg_name));
3455: END IF;
3448: AND enabled_flag = 'Y'
3449: AND segment_name like 'Reimbursable Agreement';
3450:
3451: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3452: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3453: ' Reimbursable Agreement SEGMENT IS'||
3454: to_char(g_reimb_agree_seg_name));
3455: END IF;
3456: EXCEPTION
3456: EXCEPTION
3457: WHEN NO_DATA_FOUND THEN
3458: vp_retcode := 2 ;
3459: vp_errbuf := 'GET QUALIFIER SEGMENTS - Reimbursable Agreement SEGMENT IS NOT FOUND';
3460: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,vp_errbuf);
3461: RETURN;
3462: WHEN TOO_MANY_ROWS THEN
3463: vp_retcode := 2 ;
3464: vp_errbuf := 'GET QUALIFIER SEGMENTS - More than one ' ||
3462: WHEN TOO_MANY_ROWS THEN
3463: vp_retcode := 2 ;
3464: vp_errbuf := 'GET QUALIFIER SEGMENTS - More than one ' ||
3465: 'row returned while getting Reimbursable Agreement SEGMENT';
3466: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,vp_errbuf);
3467: RETURN;
3468: WHEN OTHERS THEN
3469: vp_retcode := SQLCODE;
3470: vp_errbuf := SQLERRM ||
3469: vp_retcode := SQLCODE;
3470: vp_errbuf := SQLERRM ||
3471: '-- GET QUALIFIER SEGMENTS Error '||
3472: 'when getting Reimbursable Agreement SEGMENT';
3473: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3474: vp_errbuf);
3475: RETURN;
3476: END;
3477: */
3500: when no_data_found then
3501: vp_retcode := -1 ;
3502: vp_errbuf := 'Error getting acc_value_set_id or
3503: coa or Fiscal year segment name';
3504: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);
3505: RETURN;
3506: END;
3507:
3508: End If ;
3507:
3508: End If ;
3509:
3510: If vp_retcode = 0 Then
3511: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3513: l_module_name, 'Deriving Period information.....') ;
3514: END IF;
3515:
3508: End If ;
3509:
3510: If vp_retcode = 0 Then
3511: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3513: l_module_name, 'Deriving Period information.....') ;
3514: END IF;
3515:
3516: GET_PERIOD_INFO ;
3515:
3516: GET_PERIOD_INFO ;
3517: End If ;
3518: If vp_retcode = 0 Then
3519: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3520: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3521: 'Processing for each Fund.....');
3522: END IF;
3523: PROCESS_EACH_FUND ;
3516: GET_PERIOD_INFO ;
3517: End If ;
3518: If vp_retcode = 0 Then
3519: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3520: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3521: 'Processing for each Fund.....');
3522: END IF;
3523: PROCESS_EACH_FUND ;
3524: End If ;
3526: -- Exception Processing
3527: WHEN OTHERS THEN
3528: vp_retcode := sqlcode ;
3529: vp_errbuf := sqlerrm ;
3530: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
3531: '.final_exception',vp_errbuf);
3532: RETURN;
3533: END PROCESS_BY_FUND_RANGE;
3534: -- -------------------------------------------------------------------
3579: When NO_DATA_FOUND Then
3580: vp_retcode := -1 ;
3581: vp_errbuf := 'Error getting Value Set Id for balancing segment'
3582: ||v_bal_seg_name||' [PROCESS_EACH_FUND]' ;
3583: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3584: return;
3585: END;
3586: -- Get the maximum number of records within the fund range.
3587: -- This is useful in submitting the ATB report.
3593: if v_rec_count = 0 then
3594: vp_retcode := -1 ;
3595: fnd_message.set_name('FV','FV_FACTS_FVALUE_NOT_FOUND');
3596: vp_errbuf :=fnd_message.get ;
3597: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf);
3598: return ;
3599: end if;
3600:
3601:
3603: FOR C_Get_Fund_Values_Rec IN C_Get_Fund_Values
3604: LOOP
3605: vp_retcode := 0;
3606: v_fund_value := C_Get_Fund_Values_Rec.flex_value;
3607: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3608: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3609: 'Purging FACTS Temp....') ;
3610: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3611: 'Fund Vlaue : ' || v_fund_value) ;
3604: LOOP
3605: vp_retcode := 0;
3606: v_fund_value := C_Get_Fund_Values_Rec.flex_value;
3607: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3608: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3609: 'Purging FACTS Temp....') ;
3610: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3611: 'Fund Vlaue : ' || v_fund_value) ;
3612: END IF;
3606: v_fund_value := C_Get_Fund_Values_Rec.flex_value;
3607: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3608: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3609: 'Purging FACTS Temp....') ;
3610: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3611: 'Fund Vlaue : ' || v_fund_value) ;
3612: END IF;
3613: -- Increment the counter for fund
3614:
3627: Load_Treasury_Symbol_Id(C_Get_Fund_Values_Rec.flex_value);
3628:
3629: -- Getting the Treasury Symbol information
3630: If vp_retcode = 0 Then
3631: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3632: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3633: 'Deriving Treasury Symbol information.....');
3634: END IF;
3635: GET_TREASURY_SYMBOL_INFO ;
3628:
3629: -- Getting the Treasury Symbol information
3630: If vp_retcode = 0 Then
3631: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3632: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3633: 'Deriving Treasury Symbol information.....');
3634: END IF;
3635: GET_TREASURY_SYMBOL_INFO ;
3636: End if;
3639: EXCEPTION
3640: When NO_DATA_FOUND Then
3641: vp_errbuf := 'No treasury symbol found for the fund '
3642: ||C_Get_Fund_Values_Rec.flex_value||' [PROCESS_EACH_FUND]' ;
3643: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3644: When OTHERS then
3645: vp_errbuf := 'Error populating the treasury symbol for the fund '
3646: ||C_Get_Fund_Values_Rec.flex_value||' [PROCESS_EACH_FUND]'||SQLERRM ;
3647: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name, vp_errbuf) ;
3643: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3644: When OTHERS then
3645: vp_errbuf := 'Error populating the treasury symbol for the fund '
3646: ||C_Get_Fund_Values_Rec.flex_value||' [PROCESS_EACH_FUND]'||SQLERRM ;
3647: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name, vp_errbuf) ;
3648: END;
3649:
3650: --Bug No # 2450918
3651: If vp_retcode = 0 Then
3648: END;
3649:
3650: --Bug No # 2450918
3651: If vp_retcode = 0 Then
3652: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3653: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3654: 'Starting TB Main Process.....') ;
3655: END IF;
3656: PROCESS_FACTS_TRANSACTIONS ;
3649:
3650: --Bug No # 2450918
3651: If vp_retcode = 0 Then
3652: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3653: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3654: 'Starting TB Main Process.....') ;
3655: END IF;
3656: PROCESS_FACTS_TRANSACTIONS ;
3657: End If ;
3685:
3686: if vl_req_id = 0 then
3687: vp_errbuf := 'Error submitting RX Report ';
3688: vp_retcode := -1 ;
3689: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3690: return;
3691: Else
3692: -- if concurrent request submission failed then abort process
3693: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3689: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, vp_errbuf) ;
3690: return;
3691: Else
3692: -- if concurrent request submission failed then abort process
3693: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3694: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3695: 'Concurrent Request Id for RX Report - ' ||vl_req_id);
3696: END IF;
3697: end if;
3690: return;
3691: Else
3692: -- if concurrent request submission failed then abort process
3693: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3694: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3695: 'Concurrent Request Id for RX Report - ' ||vl_req_id);
3696: END IF;
3697: end if;
3698:
3700: EXCEPTION
3701: WHEN OTHERS THEN
3702: vp_retcode := sqlcode ;
3703: vp_errbuf := sqlerrm ;
3704: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
3705: '.final_exception',vp_errbuf);
3706: RETURN;
3707: END PROCESS_EACH_FUND;
3708: --------------------------------------------------------------------------------
3725: vl_prg_val_set_id NUMBER(15);
3726: vl_seg_txt VARCHAR2(100);
3727: vl_segment VARCHAR2(50);
3728: BEGIN
3729: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3730: 'get_prc_val:'||p_catb_program_val);
3731: For I in 1..2
3732: Loop
3733: IF I = 1 THEN
3744: vl_prg_val_set_id := v_prn_prg_val_set_id;
3745: vl_segment := v_prn_prg_seg_name;
3746: END IF;
3747:
3748: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3749: 'vl_prc_header_id:vl_program_val:vl_prc_flag:vl_prg_val_set_id:vl_segment:'||vl_prc_header_id
3750: ||'|'||vl_program_val||'|'||vl_prc_flag||'|'||vl_prg_val_set_id||'|'||vl_segment);
3751:
3752: vl_prc_found := 'N';
3767: WHEN NO_DATA_FOUND THEN NULL;
3768: WHEN OTHERS THEN
3769: vp_errbuf := SQLERRM;
3770: vp_retcode := -1;
3771: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3772: l_module_name||'.exception1',vp_errbuf);
3773:
3774: END;
3775:
3788: WHEN NO_DATA_FOUND THEN NULL;
3789: WHEN OTHERS THEN
3790: vp_errbuf := SQLERRM;
3791: vp_retcode := -1;
3792: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3793: l_module_name||'.exception2',vp_errbuf);
3794: END;
3795: END IF;
3796:
3809: vp_retcode := -1;
3810: vl_prc_val := NULL;
3811: vl_prc_desc := NULL;
3812:
3813: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3814: l_module_name||'.exceptionx3',vp_errbuf);
3815:
3816: END;
3817: get_segment_text(vl_program_val,
3852: p_prn_rc_desc := vl_prc_desc;
3853: p_prn_rc_val := vl_prc_val;
3854:
3855: END IF;
3856: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3857: 'p_catb_rc_val:p_catb_rc_desc:p_prn_rc_desc:p_prn_rc_val:reporting_code:vl_prc_desc::'
3858: ||p_catb_rc_val||'|'||p_catb_rc_desc||'|'||p_prn_rc_desc||'|'||p_prn_rc_val||'|'||vl_prc_val||'|'||vl_prc_desc);
3859:
3860: END LOOP;
3870: EXCEPTION
3871: WHEN OTHERS THEN
3872: vp_errbuf := SQLERRM ||'[GET_PRC_VAL]';
3873: vp_retcode := -1;
3874: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3875: l_module_name||'.final_exception',vp_errbuf);
3876: RAISE;
3877:
3878: END get_prc_val;
3931: EXCEPTION
3932: WHEN OTHERS THEN
3933: vp_errbuf := SQLERRM;
3934: vp_retcode := -1;
3935: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',vp_errbuf);
3936: RAISE;
3937:
3938: END process_cat_b_seq;
3939: */
3944:
3945: l_module_name VARCHAR2(200) := g_module_name || 'get_trx_part_from_reimb';
3946: l_cust_class_code VARCHAR2(25);
3947: BEGIN
3948: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3949: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
3950: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3951: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3952: 'BEGIN '||l_module_name);
3946: l_cust_class_code VARCHAR2(25);
3947: BEGIN
3948: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3949: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
3950: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3951: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3952: 'BEGIN '||l_module_name);
3953: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3954: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
3947: BEGIN
3948: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3949: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
3950: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3951: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3952: 'BEGIN '||l_module_name);
3953: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3954: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
3955: END IF;
3949: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
3950: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3951: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3952: 'BEGIN '||l_module_name);
3953: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3954: 'p_reimb_agree_seg_val:'||p_reimb_agree_seg_val);
3955: END IF;
3956: SELECT hzca.customer_class_code
3957: INTO l_cust_class_code
3966: ELSIF l_cust_class_code <> 'FEDERAL' THEN
3967: va_transaction_partner_val := 'X';
3968: END IF;
3969:
3970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3971: 'va_transaction_partner_val:'||va_transaction_partner_val);
3972:
3973: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3969:
3970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3971: 'va_transaction_partner_val:'||va_transaction_partner_val);
3972:
3973: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3975: 'g_transaction_partner_val:'||va_transaction_partner_val);
3976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3977: 'END '||l_module_name);
3970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3971: 'va_transaction_partner_val:'||va_transaction_partner_val);
3972:
3973: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3975: 'g_transaction_partner_val:'||va_transaction_partner_val);
3976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3977: 'END '||l_module_name);
3978: END IF;
3972:
3973: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3975: 'g_transaction_partner_val:'||va_transaction_partner_val);
3976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3977: 'END '||l_module_name);
3978: END IF;
3979: EXCEPTION
3980: WHEN NO_DATA_FOUND THEN
3977: 'END '||l_module_name);
3978: END IF;
3979: EXCEPTION
3980: WHEN NO_DATA_FOUND THEN
3981: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3982: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3983: 'No record found for trx number: '||p_reimb_agree_seg_val);
3984: END IF;
3985: WHEN OTHERS THEN
3978: END IF;
3979: EXCEPTION
3980: WHEN NO_DATA_FOUND THEN
3981: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3982: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3983: 'No record found for trx number: '||p_reimb_agree_seg_val);
3984: END IF;
3985: WHEN OTHERS THEN
3986: vp_retcode := -1;
3984: END IF;
3985: WHEN OTHERS THEN
3986: vp_retcode := -1;
3987: vp_errbuf := SQLERRM;
3988: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
3989: l_module_name||'.final_exception',vp_errbuf);
3990: END get_trx_part_from_reimb;
3991: --------------------------------------------------------------------------------
3992: BEGIN