[Home] [Help]
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 ;
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
3392: BEGIN
3393: l_module_name := g_module_name || 'get_ussgl_acct_num';
3394: -- Validate the Account number and return the corresponding SGL
3395: -- number or parent for getting attributes.
3396: -- Verify whether the account number exists in FV_FACTS_ATTRIBUTES table
3397: -- Validate the USSGL Account Number
3398: -- Reset Account Attributes Flag
3399: v_acct_attr_flag := 'N' ;
3400: get_ussgl_info(acct_num,
3416: sgl_acct_num := acct_num ;
3417: exception_category := 'NON_FACTSII' ;
3418: RETURN ;
3419: END IF ;
3420: BEGIN -- checking Account in fv_facts_attributes table
3421: SELECT 'X'
3422: INTO vl_exists
3423: FROM fv_facts_attributes
3424: WHERE facts_acct_number = acct_num
3419: END IF ;
3420: BEGIN -- checking Account in fv_facts_attributes table
3421: SELECT 'X'
3422: INTO vl_exists
3423: FROM fv_facts_attributes
3424: WHERE facts_acct_number = acct_num
3425: AND set_of_books_id = vp_set_of_books_id ;
3426: -- Account is a valid USSGL account and exists
3427: -- in Attributes table. It is a valid account
3429: -- its account type.
3430: exception_category := NULL ;
3431: sgl_acct_num := acct_num ;
3432: RETURN ;
3433: EXCEPTION -- checking Account in Fv_Facts_attributes table
3434: WHEN NO_DATA_FOUND THEN
3435: -- Account doesn't exist in Attributes table
3436: -- Exceptions will be raised based on the Account
3437: -- type.
3451: sgl_acct_num := acct_num ;
3452: exception_category := 'NON_BUD_ACCT' ;
3453: RETURN ;
3454: END IF ;
3455: END ; -- checking Account in fv_facts_attributes table
3456: ELSE -- Main acct No Validation -- when vl_ussgl_enabled is null
3457: -- Reset the holder variable
3458: vl_exists := NULL ;
3459: BEGIN
3458: vl_exists := NULL ;
3459: BEGIN
3460: SELECT 'X'
3461: INTO vl_exists
3462: FROM FV_FACTS_ATTRIBUTES
3463: WHERE facts_acct_number = acct_num
3464: AND set_of_books_id = vp_set_of_books_id ;
3465: v_acct_attr_flag := 'Y' ;
3466: EXCEPTION
3520: ELSE
3521: BEGIN
3522: SELECT 'X'
3523: INTO vl_exists
3524: FROM fv_facts_attributes
3525: WHERE facts_acct_number = vl_ussgl_acct_num
3526: AND set_of_books_id = vp_set_of_books_id ;
3527: -- Parent is a valid USSGL account and exists
3528: -- in Attributes table. It is a valid account
3728: RETURN;
3729: END create_facts_record ;
3730: --------------------------------------------------------------------------------
3731: -- This procedure selects the attributes for the Account number
3732: -- segment from FV_FACTS_ATTRIBUTES table and load them into global
3733: -- variables for usage in the FACTS Main process. It also calculates
3734: -- one time pull up values for the account number that does not
3735: -- require drill down into GL transactions.
3736: --------------------------------------------------------------------------------
3785: va_function_flag,
3786: va_advance_flag,
3787: va_transfer_ind,
3788: va_pya_ind_flag
3789: FROM fv_facts_attributes
3790: WHERE facts_acct_number = acct_num
3791: AND set_of_books_id = vp_set_of_books_id ;
3792: IF NOT v_year_gtn2001 THEN
3793: va_advance_flag := ' ';
4237: (SELECT ussgl_account
4238: FROM fv_facts_ussgl_accounts
4239: WHERE ussgl_account = parent_flex_value) ;
4240: BEGIN
4241: -- Look for parent in FV_FACTS_ATTRIBUTES table
4242: SELECT 'X'
4243: INTO vl_exists
4244: FROM fv_facts_attributes
4245: WHERE facts_acct_number = sgl_acct_num
4240: BEGIN
4241: -- Look for parent in FV_FACTS_ATTRIBUTES table
4242: SELECT 'X'
4243: INTO vl_exists
4244: FROM fv_facts_attributes
4245: WHERE facts_acct_number = sgl_acct_num
4246: AND set_of_books_id = vp_set_of_books_id ;
4247: -- Return the account Number
4248: RETURN ;
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 ;
4256: EXCEPTION