1 PACKAGE BODY PA_CLIENT_EXTN_DEPRN_EXP_OVR AS
2 -- $Header: PACCXDEB.pls 115.2 2003/08/18 14:31:08 ajdas noship $
3
4 FUNCTION DEPRN_EXPENSE_ACCT_OVERRIDE
5 (p_project_asset_id IN NUMBER DEFAULT NULL,
6 p_book_type_code IN VARCHAR2,
7 p_asset_category_id IN NUMBER,
8 p_date_placed_in_service IN DATE,
9 p_deprn_expense_acct_ccid IN NUMBER DEFAULT NULL) RETURN NUMBER IS
10
11 BEGIN
12 /* This is a client extension function called by the INTERFACE_ASSET_LINES procedure,
13 prior to the validation of complete asset information, including the Depreciation
14 Expense Account. The extension is called once for every Project Asset processed.
15
16 The intended use of this extension is to provide clients with the ability to either
17 override the existing Depreciation Expense account value on the Project Asset, or to
18 derive a default account value if no account is currently specified. One approach to
19 deriving this account would be to select the segments for the Asset Cost Account for
20 the Asset Category and Book Type Code specified, determine the Depreciation Expense
21 Account segment value for the Asset Category and Book specified, and create a new
22 code combination by replacing the natural account segment in the Asset Cost CCID with
23 the Depreciation Expense Account. If this CCID is valid for the current Set of Books,
24 then it can be returned as the override Deprn Expense Account CCID.
25
26 Note that the Project Asset ID parameter may be NULL if the client extension is being
27 called prior to the initial insert of the project asset.
28 */
29
30
31 RETURN(p_deprn_expense_acct_ccid);
32
33 EXCEPTION
34 WHEN OTHERS THEN
35 RAISE;
36 END;
37
38 END;