[Home] [Help]
1: PACKAGE BODY FA_MC_BOOK_CONTROLS_PKG as
2: /* $Header: faxmcbcb.pls 120.5 2005/10/24 23:11:31 bridgway noship $ */
3:
4: --*********************** Global constants ******************************--
5:
4: --*********************** Global constants ******************************--
5:
6: g_log_level_rec fa_api_types.log_level_rec_type;
7:
8: G_PKG_NAME CONSTANT varchar2(30) := 'FA_MC_BOOK_CONTROLS_PUB';
9: G_API_NAME CONSTANT varchar2(30) := 'MC Book Controls API';
10: G_API_VERSION CONSTANT number := 1.0;
11:
12:
465:
466: BEGIN
467: SELECT 'Y'
468: INTO l_exist_flag
469: FROM FA_MC_BOOK_CONTROLS
470: WHERE set_of_books_id = p_alc_ledger_id
471: AND book_type_code = p_book_type_code;
472: EXCEPTION
473: WHEN NO_DATA_FOUND THEN
486: p_log_level_rec => g_log_level_rec);
487: end if;
488:
489: -- Insert new records
490: INSERT INTO FA_MC_BOOK_CONTROLS
491: (SET_OF_BOOKS_ID ,
492: BOOK_TYPE_CODE ,
493: CURRENCY_CODE ,
494: DEPRN_STATUS ,
608: p_log_level_rec => g_log_level_rec);
609: end if;
610:
611: -- Update existing records for columns which can be changed only
612: UPDATE FA_MC_BOOK_CONTROLS
613: SET CURRENCY_CODE = p_alc_currency,
614: NBV_AMOUNT_THRESHOLD = l_nbv_amount_threshold
615: WHERE set_of_books_id = p_alc_ledger_id
616: AND book_type_code = p_book_type_code;
737: p_log_level_rec => g_log_level_rec);
738: end if;
739:
740:
741: Update fa_mc_book_controls
742: set enabled_flag = 'N',
743: last_update_date = sysdate,
744: last_updated_by = fnd_global.user_id,
745: last_update_login = fnd_global.login_id
780:
781: ----------------------------------------------------------------------------
782:
783:
784: END FA_MC_BOOK_CONTROLS_PKG;