[Home] [Help]
104: v_cohort_select VARCHAR2(20) ;
105: v_fiscal_yr VARCHAR2(25);
106: v_dummy_cohort VARCHAR2(25);
107: v_acct_attr_flag VARCHAR2(1) ;
108: v_record_category fv_facts_temp.fct_int_record_category%TYPE ;
109: v_sgl_acct_num fv_facts_ussgl_accounts.ussgl_account%TYPE ;
110: v_amount NUMBER ;
111: v_year_budget_auth VARCHAR2(3);
112: v_tbal_fund_value fv_fund_parameters.fund_value%TYPE ;
110: v_amount NUMBER ;
111: v_year_budget_auth VARCHAR2(3);
112: v_tbal_fund_value fv_fund_parameters.fund_value%TYPE ;
113: v_acct_num fv_Facts_attributes.facts_acct_number%TYPE ;
114: v_tbal_indicator fv_facts_temp.tbal_indicator%TYPE ;
115: v_period_activity NUMBER;
116: v_edit_check_code NUMBER ;
117: --SF 133 enhancement
118: --v_g_edit_check_code NUMBER(15);
782: l_module_name||'.final_exception',vp_errbuf);
783: RAISE;
784: END load_treasury_symbol_id ;
785: --------------------------------------------------------------------------------------
786: -- Purges all FACTS transactions from the FV_FACTS_TEMP table for
787: -- the passed Treasaury Symbol.
788: --------------------------------------------------------------------------------------
789: PROCEDURE purge_facts_transactions
790: IS
792: BEGIN
793: l_module_name := g_module_name || 'purge_facts_transactions';
794: -- Delete from the temp table based on the treasury_symbol_id
795:
796: DELETE FROM fv_facts_temp
797: WHERE treasury_symbol_id = v_treasury_symbol_id ;
798:
799: DELETE FROM fv_facts_edit_check_status
800: WHERE treasury_symbol_id = v_treasury_symbol_id ;
1155: -- analyzed for reporting in the FACTS output file. After getting the
1156: -- list of transactions that needs to be reported, it applies all the
1157: -- FACTS attributes for the account number and performs further
1158: -- processing for Legislative Indicator and Apportionment Category.
1159: -- It populates the table FV_FACTS_TEMP for edit check process to
1160: -- perform edit checks.
1161: --------------------------------------------------------------------------------
1162: PROCEDURE process_facts_transactions
1163: IS
1234: (p_tsymbol_id fv_treasury_symbols.treasury_symbol_id%TYPE)
1235: IS
1236: SELECT treasury_symbol_id,
1237: sgl_acct_number
1238: FROM fv_facts_temp
1239: WHERE fct_int_record_type = 'BLK_DTL'
1240: AND fct_int_record_category = 'REPORTED_NEW'
1241: AND document_number = 'Y'
1242: AND treasury_symbol_id = p_tsymbol_id ;
3091: p_ledger_id => vp_set_of_books_id) ;
3092:
3093:
3094: -- Deleting zero amount records after edit check process
3095: DELETE FROM FV_FACTS_TEMP
3096: WHERE (fct_int_record_category = 'REPORTED' OR
3097: fct_int_record_category = 'REPORTED_NEW')
3098: AND amount = 0
3099: AND sgl_acct_number like '4%'
3170: END IF;
3171:
3172: -- Create Concatenated FACTS Record in the Temp table Column
3173:
3174: UPDATE fv_facts_temp
3175: SET facts_report_info =
3176: substr(vc_dept_regular,2) || substr(vc_dept_transfer,2) || vc_fiscal_yr ||
3177: vc_main_account|| vc_sub_acct_symbol||lpad(vc_maf_seq_num,3,'0')||
3178: RPAD(NVL(program_rpt_cat_num, ' '), 3, ' ') ||
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,
3211: fct_int_record_category,
3212: fct_int_record_type,
3213: facts_report_info)
3610: l_module_name||'.final_exception', vp_errbuf) ;
3611: RETURN;
3612: END get_ussgl_acct_num ;
3613: --------------------------------------------------------------------------------
3614: -- Inserts a new record into FV_FACTS_TEMP table with the current
3615: -- values from the global variables.
3616: --------------------------------------------------------------------------------
3617: PROCEDURE create_facts_record
3618: IS
3616: --------------------------------------------------------------------------------
3617: PROCEDURE create_facts_record
3618: IS
3619: l_module_name VARCHAR2(200);
3620: vl_parent_sgl_acct_num fv_facts_temp.parent_sgl_acct_number%TYPE;
3621: l_year_budget_auth VARCHAR2(3);
3622: BEGIN
3623: l_module_name := g_module_name || 'create_facts_record';
3624: IF v_year_gtn2001
3643: ELSE
3644: va_pya_ind_val:=' ';
3645: END IF;
3646:
3647: INSERT INTO FV_FACTS_TEMP
3648: (SGL_ACCT_NUMBER ,
3649: COHORT ,
3650: BEGIN_END ,
3651: INDEF_DEF_FLAG ,
4709: CURSOR facts_temp IS
4710: SELECT rowid, sgl_acct_number, tbal_fund_value,
4711: fct_int_record_category, begin_end,
4712: treasury_symbol_id
4713: FROM fv_facts_temp
4714: WHERE (fct_int_record_category = 'REPORTED'
4715: OR fct_int_record_category = 'REPORTED_NEW')
4716: AND AMOUNT = 0
4717: AND NVL(PERIOD_ACTIVITY,0) = 0
4720: l_account_type VARCHAR2(1);
4721:
4722: BEGIN
4723: l_module_name := g_module_name || 'facts_rollup_records';
4724: INSERT INTO FV_FACTS_TEMP
4725: (TREASURY_SYMBOL_ID ,
4726: SGL_ACCT_NUMBER ,
4727: PARENT_SGL_ACCT_NUMBER ,
4728: COHORT ,
4801: PROGRAM_RPT_CAT_TXT,
4802: PYA_FLAG
4803: -- SEGMENT1,
4804: -- SEGMENT2
4805: FROM fv_facts_temp
4806: WHERE fct_int_record_category = 'REPORTED'
4807: AND fct_int_record_type = 'BLK_DTL'
4808: AND treasury_symbol_id = v_treasury_symbol_id
4809: GROUP BY TREASURY_SYMBOL_ID,
4848: THEN
4849: IF (facts_temp_rec.fct_int_record_category = 'REPORTED_NEW'
4850: AND facts_temp_rec.begin_end = 'E') THEN
4851: SELECT count(*) INTO l_count
4852: FROM fv_facts_temp
4853: WHERE begin_end = 'B'
4854: AND sgl_acct_number = facts_temp_rec.sgl_acct_number
4855: AND tbal_fund_value = facts_temp_rec.tbal_fund_value
4856: AND treasury_symbol_id = facts_temp_rec.treasury_symbol_id
4857: AND fct_int_record_category = 'REPORTED_NEW'
4858: AND amount <> 0;
4859:
4860: IF l_count = 0 THEN
4861: DELETE FROM fv_facts_temp
4862: WHERE rowid = facts_temp_rec.rowid;
4863: END IF;
4864: END IF;
4865:
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
4876: SET debit_credit = 'C'
4877: WHERE amount < 0
4878: AND fct_int_record_category = 'REPORTED_NEW'
4879: AND treasury_symbol_id = v_treasury_symbol_id ;
4877: WHERE amount < 0
4878: AND fct_int_record_category = 'REPORTED_NEW'
4879: AND treasury_symbol_id = v_treasury_symbol_id ;
4880:
4881: UPDATE fv_facts_temp
4882: SET debit_credit = 'D'
4883: WHERE amount >= 0
4884: AND fct_int_record_category = 'REPORTED_NEW'
4885: AND treasury_symbol_id = v_treasury_symbol_id ;