PACKAGE BODY: APPS.FA_CUSTOM_GEN_CCID_PKG

Source

1 PACKAGE BODY FA_CUSTOM_GEN_CCID_PKG as
2 /* $Header: FACSTGCB.pls 120.4 2005/07/25 10:03:50 yyoon noship $ */
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'
29                   ,p_log_level_rec => p_log_level_rec);
30          return FALSE;
31 END;
32 
33 END FA_CUSTOM_GEN_CCID_PKG;