[Home] [Help]
PACKAGE: APPS.OKL_LIKE_KIND_EXCHANGE_PVT
Source
1 PACKAGE OKL_LIKE_KIND_EXCHANGE_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRLKXS.pls 115.2 2002/07/12 19:29:11 sgiyer noship $ */
3
4 TYPE rep_asset_rec_type IS RECORD (
5 REP_ASSET_ID NUMBER,
6 REP_ASSET_NUMBER VARCHAR2(2000),
7 BOOK_TYPE_CODE VARCHAR2(2000),
8 ASSET_CATEGORY_ID NUMBER,
9 ORIGINAL_COST NUMBER,
10 CURRENT_COST NUMBER,
11 DATE_PLACED_IN_SERVICE DATE,
12 DEPRN_METHOD VARCHAR2(2000),
13 LIFE_IN_MONTHS NUMBER);
14
15 TYPE req_asset_rec_type IS RECORD (
16 REQ_ASSET_ID NUMBER,
17 REQ_ASSET_NUMBER VARCHAR2(2000),
18 BOOK_TYPE_CODE VARCHAR2(2000),
19 ASSET_CATEGORY_ID NUMBER,
20 ORIGINAL_COST NUMBER,
21 DATE_RETIRED DATE,
22 PROCEEDS_OF_SALE NUMBER,
23 GAIN_LOSS_AMOUNT NUMBER,
24 BALANCE_SALE_PROCEEDS NUMBER,
25 BALANCE_GAIN_LOSS NUMBER,
26 MATCH_AMOUNT NUMBER);
27
28 TYPE asset_details_rec_type IS RECORD (
29 ASSET_ID OKL_LIKE_KIND_EXCHANGE_V.ASSET_ID%TYPE,
30 ASSET_NUMBER OKL_LIKE_KIND_EXCHANGE_V.ASSET_NUMBER%TYPE,
31 BOOK_TYPE_CODE OKL_LIKE_KIND_EXCHANGE_V.BOOK_TYPE_CODE%TYPE,
32 BOOK_CLASS OKL_LIKE_KIND_EXCHANGE_V.BOOK_CLASS%TYPE,
33 ORG_ID OKL_LIKE_KIND_EXCHANGE_V.ORG_ID%TYPE,
34 SET_OF_BOOKS_ID OKL_LIKE_KIND_EXCHANGE_V.SET_OF_BOOKS_ID%TYPE,
35 DATE_PLACED_IN_SERVICE OKL_LIKE_KIND_EXCHANGE_V.DATE_PLACED_IN_SERVICE%TYPE,
36 DESCRIPTION OKL_LIKE_KIND_EXCHANGE_V.DESCRIPTION%TYPE,
37 TAG_NUMBER OKL_LIKE_KIND_EXCHANGE_V.TAG_NUMBER%TYPE,
38 SERIAL_NUMBER OKL_LIKE_KIND_EXCHANGE_V.SERIAL_NUMBER%TYPE,
39 ASSET_KEY_CCID OKL_LIKE_KIND_EXCHANGE_V.ASSET_KEY_CCID%TYPE,
40 PARENT_ASSET_ID OKL_LIKE_KIND_EXCHANGE_V.PARENT_ASSET_ID%TYPE,
41 MANUFACTURER_NAME OKL_LIKE_KIND_EXCHANGE_V.MANUFACTURER_NAME%TYPE,
42 MODEL_NUMBER OKL_LIKE_KIND_EXCHANGE_V.MODEL_NUMBER%TYPE,
43 LEASE_ID OKL_LIKE_KIND_EXCHANGE_V.LEASE_ID%TYPE,
44 IN_USE_FLAG OKL_LIKE_KIND_EXCHANGE_V.IN_USE_FLAG%TYPE,
45 INVENTORIAL OKL_LIKE_KIND_EXCHANGE_V.INVENTORIAL%TYPE,
46 PROPERTY_TYPE_CODE OKL_LIKE_KIND_EXCHANGE_V.PROPERTY_TYPE_CODE%TYPE,
47 PROPERTY_1245_1250_CODE OKL_LIKE_KIND_EXCHANGE_V.PROPERTY_1245_1250_CODE%TYPE,
48 OWNED_LEASED OKL_LIKE_KIND_EXCHANGE_V.OWNED_LEASED%TYPE,
49 NEW_USED OKL_LIKE_KIND_EXCHANGE_V.NEW_USED%TYPE,
50 CURRENT_UNITS OKL_LIKE_KIND_EXCHANGE_V.CURRENT_UNITS%TYPE,
51 ASSET_TYPE OKL_LIKE_KIND_EXCHANGE_V.ASSET_TYPE%TYPE,
52 ASSET_CATEGORY_ID OKL_LIKE_KIND_EXCHANGE_V.ASSET_CATEGORY_ID%TYPE,
53 DEPRN_METHOD_CODE OKL_LIKE_KIND_EXCHANGE_V.DEPRN_METHOD_CODE%TYPE,
54 LIFE_IN_MONTHS OKL_LIKE_KIND_EXCHANGE_V.LIFE_IN_MONTHS%TYPE,
55 COST OKL_LIKE_KIND_EXCHANGE_V.COST%TYPE,
56 ADJUSTED_COST OKL_LIKE_KIND_EXCHANGE_V.ADJUSTED_COST%TYPE,
57 ORIGINAL_COST OKL_LIKE_KIND_EXCHANGE_V.ORIGINAL_COST%TYPE,
58 RECOVERABLE_COST OKL_LIKE_KIND_EXCHANGE_V.RECOVERABLE_COST%TYPE,
59 SALVAGE_VALUE OKL_LIKE_KIND_EXCHANGE_V.SALVAGE_VALUE%TYPE,
60 PERCENT_SALVAGE_VALUE OKL_LIKE_KIND_EXCHANGE_V.PERCENT_SALVAGE_VALUE%TYPE,
61 PRORATE_CONVENTION_CODE OKL_LIKE_KIND_EXCHANGE_V.PRORATE_CONVENTION_CODE%TYPE,
62 DEPRECIATE_FLAG OKL_LIKE_KIND_EXCHANGE_V.DEPRECIATE_FLAG%TYPE,
63 ITC_AMOUNT_ID OKL_LIKE_KIND_EXCHANGE_V.ITC_AMOUNT_ID%TYPE,
64 BASIC_RATE OKL_LIKE_KIND_EXCHANGE_V.BASIC_RATE%TYPE,
65 ADJUSTED_RATE OKL_LIKE_KIND_EXCHANGE_V.ADJUSTED_RATE%TYPE,
66 BONUS_RULE OKL_LIKE_KIND_EXCHANGE_V.BONUS_RULE%TYPE,
67 CEILING_NAME OKL_LIKE_KIND_EXCHANGE_V.CEILING_NAME%TYPE,
68 PRODUCTION_CAPACITY OKL_LIKE_KIND_EXCHANGE_V.PRODUCTION_CAPACITY%TYPE,
69 UNIT_OF_MEASURE OKL_LIKE_KIND_EXCHANGE_V.UNIT_OF_MEASURE%TYPE,
70 REVAL_CEILING OKL_LIKE_KIND_EXCHANGE_V.REVAL_CEILING%TYPE,
71 UNREVALUED_COST OKL_LIKE_KIND_EXCHANGE_V.UNREVALUED_COST%TYPE,
72 SHORT_FISCAL_YEAR_FLAG OKL_LIKE_KIND_EXCHANGE_V.SHORT_FISCAL_YEAR_FLAG%TYPE,
73 CONVERSION_DATE OKL_LIKE_KIND_EXCHANGE_V.CONVERSION_DATE%TYPE,
74 ORIGINAL_DEPRN_START_DATE OKL_LIKE_KIND_EXCHANGE_V.ORIGINAL_DEPRN_START_DATE%TYPE,
75 GROUP_ASSET_ID OKL_LIKE_KIND_EXCHANGE_V.GROUP_ASSET_ID%TYPE,
76 COST_RETIRED OKL_LIKE_KIND_EXCHANGE_V.COST_RETIRED%TYPE,
77 UNITS_RETIRED OKL_LIKE_KIND_EXCHANGE_V.UNITS%TYPE,
78 NBV_RETIRED OKL_LIKE_KIND_EXCHANGE_V.NBV_RETIRED%TYPE,
79 GAIN_LOSS_AMOUNT OKL_LIKE_KIND_EXCHANGE_V.GAIN_LOSS_AMOUNT%TYPE,
80 PROCEEDS_OF_SALE OKL_LIKE_KIND_EXCHANGE_V.PROCEEDS_OF_SALE%TYPE,
81 DATE_RETIRED OKL_LIKE_KIND_EXCHANGE_V.DATE_RETIRED%TYPE,
82 KLE_ID OKL_LIKE_KIND_EXCHANGE_V.KLE_ID%TYPE);
83
84 TYPE rep_asset_tbl_type IS TABLE OF rep_asset_rec_type INDEX BY BINARY_INTEGER;
85 TYPE req_asset_tbl_type IS TABLE OF req_asset_rec_type INDEX BY BINARY_INTEGER;
86
87 ------------------------------------------------------------------------------
88 -- Global Variables
89 ------------------------------------------------------------------------------
90 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_LIKE_KIND_EXCHANGE_PVT';
91 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
92 G_NO_DATA_FOUND CONSTANT VARCHAR2(200) := 'OKL_NOT_FOUND';
93 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
94 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
95 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
96 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
97 G_CONTRACT_NUMBER_TOKEN CONSTANT VARCHAR2(200) := 'CONTRACT_NUMBER';
98 G_ADJ_TRX_TYPE_CODE VARCHAR2(100) := 'ADJUSTMENT';
99 -------------------------------------------------------------------------------
100 --Global Messages
101 -------------------------------------------------------------------------------
102 G_FA_INVALID_BK_CAT VARCHAR2(200) := 'OKL_LLA_FA_INVALID_BOOK_CAT';
103 G_FA_BOOK VARCHAR2(200) := 'FA_BOOK';
104 G_ASSET_CATEGORY VARCHAR2(200) := 'FA_CATEGORY';
105 G_FA_TAX_CPY_NOT_ALLOWED VARCHAR2(200) := 'OKL_LLA_FA_TAX_CPY_NOT_ALLOWED';
106 ------------------------------------------------------------------------------
107 -- Global Exception
108 -------------------------------------------------------------------------------
109 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
110 ------------------------------------------------------------------------------
111
112 -- Function to calculate total match amount
113 FUNCTION GET_TOTAL_MATCH_AMT (p_asset_id IN NUMBER,
114 p_tax_book IN VARCHAR2) RETURN NUMBER;
115
116 -- Function to calculate balance sale proceeds
117 FUNCTION GET_BALANCE_SALE_PROCEEDS (p_asset_id IN NUMBER,
118 p_tax_book IN VARCHAR2) RETURN NUMBER;
119
120 -- Function to calculate deferred gain
121 FUNCTION GET_DEFERRED_GAIN (p_asset_id IN VARCHAR2,
122 p_tax_book IN VARCHAR2) RETURN NUMBER;
123
124 -- Procedure to create a like kind exchange transaction
125 PROCEDURE CREATE_LIKE_KIND_EXCHANGE(
126 p_api_version IN NUMBER
127 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
128 ,x_return_status OUT NOCOPY VARCHAR2
129 ,x_msg_count OUT NOCOPY NUMBER
130 ,x_msg_data OUT NOCOPY VARCHAR2
131 ,p_corporate_book IN VARCHAR2
132 ,p_tax_book IN VARCHAR2
133 ,p_comments IN VARCHAR2
134 ,p_rep_asset_rec IN rep_asset_rec_type
135 ,p_req_asset_tbl IN req_asset_tbl_type);
136
137
138 END OKL_LIKE_KIND_EXCHANGE_PVT;