1 PACKAGE BODY FA_CUSTOM_GEN_CCID_PKG as
2 /* $Header: FACSTGCB.pls 120.5 2009/03/27 08:57:24 bridgway ship $ */
3
4 FUNCTION gen_ccid (X_fn_trx_code in varchar2,
5 X_book_type_code in fa_book_controls.book_type_code%type,
6 X_flex_num in number,
7 X_dist_ccid in number,
8 X_acct_segval in varchar2,
9 X_default_ccid in number,
10 X_account_ccid in number,
11 X_distribution_id in number,
12 X_rtn_ccid out NOCOPY number
13 ,p_log_level_rec IN fa_api_types.log_level_rec_type default null)
14 return BOOLEAN is
15 BEGIN
16
17 -- THIS IS THE STUB WHICH USERS CAN MODIFY
18 -- RETURN TRUE AND A VALID CCID in X_rtn_ccid
19 -- RETURN FALSE IF UNABLE TO GENERATE A VALID CCID
20 -- DEFAULT IS TO RETURN FALSE AND X_rtn_ccid := -1
21
22 X_rtn_ccid := -1;
23
24 return FALSE;
25
26 EXCEPTION
27 WHEN OTHERS THEN
28 FA_SRVR_MSG.ADD_SQL_ERROR(CALLING_FN=>'FA_CUSTOM_GEN_CCID_PKG.gen_ccid', p_log_level_rec => p_log_level_rec);
29 return FALSE;
30 END;
31
32 END FA_CUSTOM_GEN_CCID_PKG;