1 PACKAGE BODY FA_CUA_TRX_HEADERS_EXT_PKG AS
2 /* $Header: FACPX14MB.pls 120.0 2002/08/24 07:13:43 appldev noship $ */
3
4 -- created: msiddiqu 02-NOV-99
5 /* msiddiqu : to be called after inserting into
6 fa_transaction_headers for any txn_type
7 Storing Life Derivation Information in a Parallel table
8 FA_LIFE_DERIVATION_INFO. The Life Derivation info is
9 stored in 2 package variables initialized in
10 the package body of FA_CUA_ASSET_APIS which has the logic
11 for deriving life based on the Inheritance Rules */
12
13 -- replaces fa_transaction_headers_hr_ari
14 -- also replaces part of logic from fa_transaction_headers_hr_bri
15 PROCEDURE facuas1 ( x_transaction_header_id in number
16 , x_asset_id in number
17 , x_book_type_code in varchar2 ) IS
18 BEGIN
19
20 if fa_cua_asset_apis.g_derive_from_entity is not null then
21 insert into
22 fa_life_derivation_info ( TRANSACTION_HEADER_ID,
23 ASSET_ID ,
24 BOOK_TYPE_CODE ,
25 DERIVED_FROM_ENTITY_ID ,
26 DERIVED_FROM_ENTITY )
27 values (x_transaction_header_id,
28 x_asset_id,
29 x_book_type_code,
30 fa_cua_asset_apis.g_derive_from_entity_value,
31 rtrim(fa_cua_asset_apis.g_derive_from_entity,' '));
32 end if;
33
34 END facuas1;
35
36 END FA_CUA_TRX_HEADERS_EXT_PKG;