PACKAGE BODY: APPS.FA_CUSTOM_TRX_PKG

Source

1 PACKAGE BODY fa_custom_trx_pkg as
2 /* $Header: factrxb.pls 120.1 2009/03/27 20:03:48 bridgway noship $   */
3 
4 g_print_debug boolean := fa_cache_pkg.fa_print_debug;
5 
6 function override_values
7             (p_asset_hdr_rec              IN            fa_api_types.asset_hdr_rec_type,
8              px_trans_rec                 IN OUT NOCOPY fa_api_types.trans_rec_type,
9              p_asset_desc_rec             IN            fa_api_types.asset_desc_rec_type,
10              p_asset_type_rec             IN            fa_api_types.asset_type_rec_type,
11              p_asset_cat_rec              IN            fa_api_types.asset_cat_rec_type,
12              p_asset_fin_rec_old          IN            fa_api_types.asset_fin_rec_type,
13              px_asset_fin_rec_adj         IN OUT NOCOPY fa_api_types.asset_fin_rec_type,
14              px_asset_deprn_rec_adj       IN OUT NOCOPY fa_api_types.asset_deprn_rec_type,
15              p_inv_trans_rec              IN            fa_api_types.inv_trans_rec_type,
16              px_inv_tbl                   IN OUT NOCOPY fa_api_types.inv_tbl_type,
17              px_group_reclass_options_rec IN OUT NOCOPY fa_api_types.group_reclass_options_rec_type,
18              p_calling_fn                 IN            varchar2) return boolean is
19 
20    l_calling_fn  varchar2(60) :=  'fa_custom_trx_pkg.override_values';
21    error_found   exception;
22 
23 begin
24 
25    if (g_print_debug) then
26       fa_debug_pkg.add(l_calling_fn, 'entering custom derivation logic', '');
27    end if;
28 
29    -- place extensions here...
30 
31 
32    -- end extensions
33 
34    if (g_print_debug) then
35       fa_debug_pkg.add(l_calling_fn, 'px_trans_rec.amortization_start_date',  px_trans_rec.amortization_start_date);
36       fa_debug_pkg.add(l_calling_fn, 'px_trans_rec.transaction_date_entered', px_trans_rec.transaction_date_entered);
37 
38       fa_debug_pkg.add(l_calling_fn, 'exiting custom derivation logic', '');
39    end if;
40 
41    return true;
42 
43 EXCEPTION
44 
45    WHEN error_found THEN
46       fa_srvr_msg.add_message(calling_fn => l_calling_fn);
47       return false;
48 
49    WHEN OTHERS THEN
50       fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn);
51       return false;
52 
53 
54 end override_values;
55 
56 end fa_custom_trx_pkg;