[Home] [Help]
103: v_sgl_acct_num fv_facts_ussgl_accounts.ussgl_account%TYPE ;
104: v_amount NUMBER ;
105: v_year_budget_auth VARCHAR2(3);
106: v_tbal_fund_value fv_fund_parameters.fund_value%TYPE ;
107: v_acct_num fv_Facts_attributes.facts_acct_number%TYPE ;
108: v_tbal_indicator fv_facts_temp.tbal_indicator%TYPE ;
109: v_period_activity NUMBER;
110: v_edit_check_code NUMBER ;
111: v_g_edit_check_code NUMBER(15);
3343: BEGIN
3344: l_module_name := g_module_name || 'get_ussgl_acct_num';
3345: -- Validate the Account number and return the corresponding SGL
3346: -- number or parent for getting attributes.
3347: -- Verify whether the account number exists in FV_FACTS_ATTRIBUTES table
3348: -- Validate the USSGL Account Number
3349: -- Reset Account Attributes Flag
3350: v_acct_attr_flag := 'N' ;
3351: get_ussgl_info(acct_num,
3367: sgl_acct_num := acct_num ;
3368: exception_category := 'NON_FACTSII' ;
3369: RETURN ;
3370: END IF ;
3371: BEGIN -- checking Account in fv_facts_attributes table
3372: SELECT 'X'
3373: INTO vl_exists
3374: FROM fv_facts_attributes
3375: WHERE facts_acct_number = acct_num
3370: END IF ;
3371: BEGIN -- checking Account in fv_facts_attributes table
3372: SELECT 'X'
3373: INTO vl_exists
3374: FROM fv_facts_attributes
3375: WHERE facts_acct_number = acct_num
3376: AND set_of_books_id = vp_set_of_books_id ;
3377: -- Account is a valid USSGL account and exists
3378: -- in Attributes table. It is a valid account
3380: -- its account type.
3381: exception_category := NULL ;
3382: sgl_acct_num := acct_num ;
3383: RETURN ;
3384: EXCEPTION -- checking Account in Fv_Facts_attributes table
3385: WHEN NO_DATA_FOUND THEN
3386: -- Account doesn't exist in Attributes table
3387: -- Exceptions will be raised based on the Account
3388: -- type.
3402: sgl_acct_num := acct_num ;
3403: exception_category := 'NON_BUD_ACCT' ;
3404: RETURN ;
3405: END IF ;
3406: END ; -- checking Account in fv_facts_attributes table
3407: ELSE -- Main acct No Validation -- when vl_ussgl_enabled is null
3408: -- Reset the holder variable
3409: vl_exists := NULL ;
3410: BEGIN
3409: vl_exists := NULL ;
3410: BEGIN
3411: SELECT 'X'
3412: INTO vl_exists
3413: FROM FV_FACTS_ATTRIBUTES
3414: WHERE facts_acct_number = acct_num
3415: AND set_of_books_id = vp_set_of_books_id ;
3416: v_acct_attr_flag := 'Y' ;
3417: EXCEPTION
3471: ELSE
3472: BEGIN
3473: SELECT 'X'
3474: INTO vl_exists
3475: FROM fv_facts_attributes
3476: WHERE facts_acct_number = vl_ussgl_acct_num
3477: AND set_of_books_id = vp_set_of_books_id ;
3478: -- Parent is a valid USSGL account and exists
3479: -- in Attributes table. It is a valid account
3669: RETURN;
3670: END create_facts_record ;
3671: --------------------------------------------------------------------------------
3672: -- This procedure selects the attributes for the Account number
3673: -- segment from FV_FACTS_ATTRIBUTES table and load them into global
3674: -- variables for usage in the FACTS Main process. It also calculates
3675: -- one time pull up values for the account number that does not
3676: -- require drill down into GL transactions.
3677: --------------------------------------------------------------------------------
3724: va_deficiency_flag,
3725: va_function_flag,
3726: va_advance_flag,
3727: va_transfer_ind
3728: FROM fv_facts_attributes
3729: WHERE facts_acct_number = acct_num
3730: AND set_of_books_id = vp_set_of_books_id ;
3731: IF NOT v_year_gtn2001 THEN
3732: va_advance_flag := ' ';
4165: (SELECT ussgl_account
4166: FROM fv_facts_ussgl_accounts
4167: WHERE ussgl_account = parent_flex_value) ;
4168: BEGIN
4169: -- Look for parent in FV_FACTS_ATTRIBUTES table
4170: SELECT 'X'
4171: INTO vl_exists
4172: FROM fv_facts_attributes
4173: WHERE facts_acct_number = sgl_acct_num
4168: BEGIN
4169: -- Look for parent in FV_FACTS_ATTRIBUTES table
4170: SELECT 'X'
4171: INTO vl_exists
4172: FROM fv_facts_attributes
4173: WHERE facts_acct_number = sgl_acct_num
4174: AND set_of_books_id = vp_set_of_books_id ;
4175: -- Return the account Number
4176: RETURN ;
4176: RETURN ;
4177: EXCEPTION
4178: WHEN NO_DATA_FOUND THEN
4179: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,
4180: 'Look for parent in FV_FACTS_ATTRIBUTES');
4181: sgl_acct_num := NULL ;
4182: RETURN ;
4183: END ;
4184: EXCEPTION