1 PACKAGE OKL_LIKE_KIND_EXCHANGE_PUB AUTHID CURRENT_USER AS
2 /* $Header: OKLPLKXS.pls 115.1 2002/07/12 19:29:16 sgiyer noship $*/
3
4 SUBTYPE rep_asset_rec_type IS OKL_LIKE_KIND_EXCHANGE_PVT.rep_asset_rec_type;
5 SUBTYPE req_asset_rec_type IS OKL_LIKE_KIND_EXCHANGE_PVT.req_asset_rec_type;
6 SUBTYPE req_asset_tbl_type IS OKL_LIKE_KIND_EXCHANGE_PVT.req_asset_tbl_type;
7 SUBTYPE rep_asset_tbl_type IS OKL_LIKE_KIND_EXCHANGE_PVT.rep_asset_tbl_type;
8 ------------------------------------------------------------------------------
9 -- Global Variables
10 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_LIKE_KIND_EXCHANGE_PUB';
11 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
12 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
13 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
14 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
15 ------------------------------------------------------------------------------
16
17 -- Function to retrieve total match amount
18 FUNCTION GET_TOTAL_MATCH_AMT (p_asset_id IN NUMBER,
19 p_tax_book IN VARCHAR2) RETURN NUMBER;
20
21 -- Function to retrieve balance sale proceeds
22 FUNCTION GET_BALANCE_SALE_PROCEEDS (p_asset_id IN NUMBER,
23 p_tax_book IN VARCHAR2) RETURN NUMBER;
24
25 -- Function to retrieve deferred gain
26 FUNCTION GET_DEFERRED_GAIN (p_asset_id IN VARCHAR2,
27 p_tax_book IN VARCHAR2) RETURN NUMBER;
28
29 -- this procedure is used create a like kind exchange transaction
30 PROCEDURE CREATE_LIKE_KIND_EXCHANGE(
31 p_api_version IN NUMBER
32 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
33 ,x_return_status OUT NOCOPY VARCHAR2
34 ,x_msg_count OUT NOCOPY NUMBER
35 ,x_msg_data OUT NOCOPY VARCHAR2
36 ,p_corporate_book IN VARCHAR2
37 ,p_tax_book IN VARCHAR2
38 ,p_comments IN VARCHAR2
39 ,p_rep_asset_rec IN rep_asset_rec_type
40 ,p_req_asset_tbl IN req_asset_tbl_type);
41
42 END OKL_LIKE_KIND_EXCHANGE_PUB;