[Home] [Help]
PACKAGE BODY: APPS.OKL_LIKE_KIND_EXCHANGE_PUB
Source
1 PACKAGE BODY OKL_LIKE_KIND_EXCHANGE_PUB AS
2 /* $Header: OKLPLKXB.pls 115.2 2002/12/18 12:23:51 kjinger noship $ */
3
4 -- Function to retrieve total match amount
5 FUNCTION GET_TOTAL_MATCH_AMT(p_asset_id IN NUMBER,
6 p_tax_book IN VARCHAR2) RETURN NUMBER IS
7 l_total_match_amount NUMBER;
8
9 BEGIN
10
11 l_total_match_amount := OKL_LIKE_KIND_EXCHANGE_PVT.GET_TOTAL_MATCH_AMT (p_asset_id, p_tax_book);
12
13 RETURN(l_total_match_amount);
14
15 EXCEPTION
16 WHEN OTHERS THEN
17 /* return null because of error */
18 RETURN(NULL);
19
20 END GET_TOTAL_MATCH_AMT;
21
22 -- Function to retrieve balance sale proceeds
23 FUNCTION GET_BALANCE_SALE_PROCEEDS (p_asset_id IN NUMBER,
24 p_tax_book IN VARCHAR2) RETURN NUMBER
25 IS
26 l_bal_sale_proceeds NUMBER;
27
28 BEGIN
29
30 l_bal_sale_proceeds := OKL_LIKE_KIND_EXCHANGE_PVT.GET_BALANCE_SALE_PROCEEDS (p_asset_id, p_tax_book);
31
32 RETURN(l_bal_sale_proceeds);
33
34 EXCEPTION
35 WHEN OTHERS THEN
36
37 /* return null because of error */
38 RETURN(NULL);
39
40 END GET_BALANCE_SALE_PROCEEDS;
41
42
43 -- Function to retrieve deferred gain
44 FUNCTION GET_DEFERRED_GAIN (p_asset_id IN VARCHAR2,
45 p_tax_book IN VARCHAR2) RETURN NUMBER
46 IS
47 l_deferred_gain NUMBER;
48
49 BEGIN
50
51 l_deferred_gain := OKL_LIKE_KIND_EXCHANGE_PVT.GET_DEFERRED_GAIN(p_asset_id, p_tax_book);
52
53 RETURN(l_deferred_gain);
54
55 EXCEPTION
56 WHEN OTHERS THEN
57
58 /* return null because of error */
59 RETURN(NULL);
60
61 END GET_DEFERRED_GAIN;
62
63 PROCEDURE CREATE_LIKE_KIND_EXCHANGE(
64 p_api_version IN NUMBER
65 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
66 ,x_return_status OUT NOCOPY VARCHAR2
67 ,x_msg_count OUT NOCOPY NUMBER
68 ,x_msg_data OUT NOCOPY VARCHAR2
69 ,p_corporate_book IN VARCHAR2
70 ,p_tax_book IN VARCHAR2
71 ,p_comments IN VARCHAR2
72 ,p_rep_asset_rec IN rep_asset_rec_type
73 ,p_req_asset_tbl IN req_asset_tbl_type)
74 IS
75
76 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
77 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_LIKE_KIND_EXCHANGE';
78
79 BEGIN
80 l_return_status := FND_API.G_RET_STS_SUCCESS;
81
82 -- customer pre-processing
83
84
85
86 -- CALL THE MAIN PROCEDURE
87 OKL_LIKE_KIND_EXCHANGE_PVT.CREATE_LIKE_KIND_EXCHANGE(
88 p_api_version => p_api_version
89 ,p_init_msg_list => p_init_msg_list
90 ,x_return_status => x_return_status
91 ,x_msg_count => x_msg_count
92 ,x_msg_data => x_msg_data
93 ,p_corporate_book => p_corporate_book
94 ,p_tax_book => p_tax_book
95 ,p_comments => p_comments
96 ,p_rep_asset_rec => p_rep_asset_rec
97 ,p_req_asset_tbl => p_req_asset_tbl);
98
99 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
100 RAISE FND_API.G_EXC_ERROR;
101 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
102 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103 END IF;
104
105 -- customer post-processing
106
107
108 x_return_status := l_return_status;
109
110 EXCEPTION
111 WHEN FND_API.G_EXC_ERROR THEN
112 x_return_status := FND_API.G_RET_STS_ERROR;
113
114 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
115 ,p_count => x_msg_count
116 ,p_data => x_msg_data);
117
118 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
119 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
120 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
121 ,p_count => x_msg_count
122 ,p_data => x_msg_data);
123
124 WHEN OTHERS THEN
125 FND_MSG_PUB.ADD_EXC_MSG('OKL_LIKE_KIND_EXCHANGE_PUB','CREATE_LIKE_KIND_EXCHANGE');
126 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
127 ,p_count => x_msg_count
128 ,p_data => x_msg_data);
129 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130 END CREATE_LIKE_KIND_EXCHANGE;
131
132
133 End OKL_LIKE_KIND_EXCHANGE_PUB;