[Home] [Help]
123: v_cohort_select Varchar2(20) ;
124: v_cohort_where Varchar2(120) ;
125: v_chart_of_accounts_id gl_code_combinations.chart_of_accounts_id%TYPE ;
126: v_acct_num fv_Facts_attributes.facts_acct_number%TYPE ;
127: v_sgl_acct_num fv_facts_ussgl_accounts.ussgl_account%TYPE ;
128: v_ccid number;
129: vl_ccid number;
130: v_g_edit_check_code number(15);
131: v_acct_attr_flag Varchar2(1) ;
2360: l_module_name VARCHAR2(200) := g_module_name || 'CREATE_FACTS_RECORD';
2361: vl_disbursements_flag VARCHAR2(1);
2362: vl_exists Varchar2(1) ;
2363: vl_fyr_segment_value fv_pya_fiscalyear_map.fyr_segment_value%type;
2364: v_ussgl_acct fv_facts_ussgl_accounts.ussgl_account%TYPE;
2365: v_excptn_cat fv_facts_temp.fct_int_record_category%TYPE;
2366: vl_parent_sgl_acct_num fv_facts_temp.parent_sgl_acct_number%TYPE;
2367: vl_enabled_flag fv_facts_ussgl_accounts.ussgl_enabled_flag%TYPE;
2368: vl_reporting_type fv_facts_ussgl_accounts.reporting_type%TYPE;
2363: vl_fyr_segment_value fv_pya_fiscalyear_map.fyr_segment_value%type;
2364: v_ussgl_acct fv_facts_ussgl_accounts.ussgl_account%TYPE;
2365: v_excptn_cat fv_facts_temp.fct_int_record_category%TYPE;
2366: vl_parent_sgl_acct_num fv_facts_temp.parent_sgl_acct_number%TYPE;
2367: vl_enabled_flag fv_facts_ussgl_accounts.ussgl_enabled_flag%TYPE;
2368: vl_reporting_type fv_facts_ussgl_accounts.reporting_type%TYPE;
2369:
2370: BEGIN
2371: va_legis_ind_val := ' ';
2364: v_ussgl_acct fv_facts_ussgl_accounts.ussgl_account%TYPE;
2365: v_excptn_cat fv_facts_temp.fct_int_record_category%TYPE;
2366: vl_parent_sgl_acct_num fv_facts_temp.parent_sgl_acct_number%TYPE;
2367: vl_enabled_flag fv_facts_ussgl_accounts.ussgl_enabled_flag%TYPE;
2368: vl_reporting_type fv_facts_ussgl_accounts.reporting_type%TYPE;
2369:
2370: BEGIN
2371: va_legis_ind_val := ' ';
2372: v_year_budget_auth := ' ';
2372: v_year_budget_auth := ' ';
2373:
2374: Begin
2375: SELECT disbursements_flag INTO vl_disbursements_flag
2376: FROM fv_facts_ussgl_accounts
2377: WHERE ussgl_account = v_sgl_acct_num;
2378: exception
2379: when no_data_found then
2380: null;
2821: AND flex_value_set_id = v_acc_val_set_id
2822: AND parent_flex_value <> 'T'
2823: AND parent_flex_value IN
2824: (SELECT ussgl_account
2825: FROM fv_facts_ussgl_accounts
2826: WHERE ussgl_account = parent_flex_value);
2827:
2828: EXCEPTION
2829: WHEN NO_DATA_FOUND THEN
2838: END;
2839:
2840: SELECT ussgl_account
2841: INTO sgl_acct_num
2842: FROM fv_facts_ussgl_accounts
2843: WHERE ussgl_account = acct_num ;
2844:
2845: EXCEPTION
2846: WHEN NO_DATA_FOUND THEN
2846: WHEN NO_DATA_FOUND THEN
2847: BEGIN
2848: SELECT ussgl_account
2849: INTO sgl_acct_num
2850: FROM fv_facts_ussgl_accounts
2851: WHERE ussgl_account = parent_ac ;
2852: EXCEPTION
2853: WHEN NO_DATA_FOUND THEN
2854: sgl_acct_num := NULL ;