[Home] [Help]
1: PACKAGE BODY FA_MC_BOOK_CONTROLS_PKG as
2: /* $Header: faxmcbcb.pls 120.10 2011/02/03 06:01:24 skchawla ship $ */
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:
506:
507: BEGIN
508: SELECT 'Y'
509: INTO l_exist_flag
510: FROM FA_MC_BOOK_CONTROLS
511: WHERE set_of_books_id = p_alc_ledger_id
512: AND book_type_code = p_book_type_code;
513: EXCEPTION
514: WHEN NO_DATA_FOUND THEN
527: p_log_level_rec => g_log_level_rec);
528: end if;
529:
530: -- Insert new records
531: INSERT INTO FA_MC_BOOK_CONTROLS
532: (SET_OF_BOOKS_ID ,
533: BOOK_TYPE_CODE ,
534: CURRENCY_CODE ,
535: DEPRN_STATUS ,
651: p_log_level_rec => g_log_level_rec);
652: end if;
653:
654: -- Update existing records for columns which can be changed only
655: UPDATE FA_MC_BOOK_CONTROLS
656: SET CURRENCY_CODE = p_alc_currency,
657: NBV_AMOUNT_THRESHOLD = l_nbv_amount_threshold
658: WHERE set_of_books_id = p_alc_ledger_id
659: AND book_type_code = p_book_type_code;
780: p_log_level_rec => g_log_level_rec);
781: end if;
782:
783:
784: Update fa_mc_book_controls
785: set enabled_flag = 'N',
786: last_update_date = sysdate,
787: last_updated_by = fnd_global.user_id,
788: last_update_login = fnd_global.login_id
823:
824: ----------------------------------------------------------------------------
825:
826:
827: END FA_MC_BOOK_CONTROLS_PKG;