[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_REMARKET_ASSET_PUB
Source
1 PACKAGE BODY OKL_AM_REMARKET_ASSET_PUB AS
2 /* $Header: OKLPRMKB.pls 120.3 2005/10/30 03:34:17 appldev noship $ */
3
4 -- create item for remarketing
5 PROCEDURE create_rmk_item
6 ( p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8 p_item_number IN VARCHAR2, -- 04-OCT-04 SECHAWLA 3924244 : added new parameter
9 p_Item_Description IN VARCHAR2,
10 p_Item_Price IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
11 p_quantity IN NUMBER DEFAULT 1,
12 x_return_status OUT NOCOPY VARCHAR2,
13 x_msg_count OUT NOCOPY NUMBER,
14 x_msg_data OUT NOCOPY VARCHAR2,
15 x_new_item_number OUT NOCOPY VARCHAR2,
16 x_new_item_id OUT NOCOPY NUMBER
17 ) IS
18
19
20
21 l_api_version NUMBER ;
22 l_init_msg_list VARCHAR2(1) ;
23 l_return_status VARCHAR2(1);
24 l_msg_count NUMBER ;
25 l_msg_data VARCHAR2(2000);
26
27 lp_item_description VARCHAR2(240);
28 lp_item_price NUMBER;
29 lp_quantity NUMBER;
30 lx_new_item_number VARCHAR2(2000);
31 lx_new_item_id NUMBER;
32
33 -- 04-OCT-04 SECHAWLA 3924244 :
34 lp_item_number VARCHAR2(40);
35
36 BEGIN
37 SAVEPOINT trx_create_rmk_item;
38
39 l_api_version := p_api_version ;
40 l_init_msg_list := p_init_msg_list ;
41 l_return_status := x_return_status ;
42
43 lp_item_number := p_item_number; -- 04-OCT-04 SECHAWLA 3924244 : added new parameter
44
45 lp_item_description := p_item_description;
46 lp_item_price := p_item_price;
47 lp_quantity := p_quantity;
48
49 lx_new_item_number := x_new_item_number;
50 lx_new_item_id := x_new_item_id;
51
52 l_msg_count := x_msg_count ;
53 l_msg_data := x_msg_data ;
54
55
56
57
58
59 -- call the insert of pvt
60
61 OKL_AM_REMARKET_ASSET_PVT.create_rmk_item( p_api_version => l_api_version,
62 p_init_msg_list => l_init_msg_list ,
63 p_item_number => lp_item_number,
64 p_Item_Description => lp_item_description,
65 p_Item_Price => lp_item_price,
66 p_quantity => lp_quantity,
67 x_return_status => l_return_status,
68 x_msg_count => l_msg_count,
69 x_msg_data => l_msg_data,
70 x_new_item_number => lx_new_item_number,
71 x_new_item_id => lx_new_item_id
72 ) ;
73
74
75
76 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
77 RAISE FND_API.G_EXC_ERROR;
78 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
79 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
80 END IF;
81
82
83
84
85
86 --Assign value to OUT variables
87
88 x_return_status := l_return_status ;
89 x_msg_count := l_msg_count ;
90 x_msg_data := l_msg_data ;
91 x_new_item_number := lx_new_item_number;
92 x_new_item_id := lx_new_item_id;
93
94 EXCEPTION
95
96 WHEN FND_API.G_EXC_ERROR THEN
97 ROLLBACK TO trx_create_rmk_item;
98 x_return_status := FND_API.G_RET_STS_ERROR;
99 x_msg_count := l_msg_count ;
100 x_msg_data := l_msg_data ;
101 FND_MSG_PUB.count_and_get(
102 p_count => x_msg_count
103 ,p_data => x_msg_data);
104 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
105 ROLLBACK TO trx_create_rmk_item;
106 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
107 x_msg_count := l_msg_count ;
108 x_msg_data := l_msg_data ;
109 FND_MSG_PUB.count_and_get(
110 p_count => x_msg_count
111 ,p_data => x_msg_data);
112 WHEN OTHERS THEN
113 ROLLBACK TO trx_create_rmk_item;
114 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
115 x_msg_count := l_msg_count ;
116 x_msg_data := l_msg_data ;
117 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_REMARKET_ASSET_PUB','create_rmk_item');
118 FND_MSG_PUB.count_and_get(
119 p_count => x_msg_count
120 ,p_data => x_msg_data);
121 END create_rmk_item;
122
123
124 -- Remove item for remarketing
125 PROCEDURE remove_rmk_item
126 ( p_api_version IN NUMBER,
127 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
128 -- SECHAWLA 21-OCT-04 3924244 : changed p_order_header_id to p_order_line_id
129 p_order_line_Id IN NUMBER ,
130 x_return_status OUT NOCOPY VARCHAR2,
131 x_msg_count OUT NOCOPY NUMBER,
132 x_msg_data OUT NOCOPY VARCHAR2
133
134 ) IS
135
136
137
138 lp_order_line_id NUMBER; -- SECHAWLA 21-OCT-04 3924244 : changed p_order_header_id to p_order_line_id
139
140 l_api_version NUMBER ;
141 l_init_msg_list VARCHAR2(1) ;
142 l_return_status VARCHAR2(1);
143 l_msg_count NUMBER ;
144 l_msg_data VARCHAR2(2000);
145
146
147 BEGIN
148 SAVEPOINT trx_remove_rmk_item;
149
150 l_api_version := p_api_version ;
151 l_init_msg_list := p_init_msg_list ;
152 l_return_status := x_return_status ;
153
154
155 l_msg_count := x_msg_count ;
156 l_msg_data := x_msg_data ;
157
158 lp_order_line_id := p_order_line_id; -- SECHAWLA 21-OCT-04 3924244 : changed p_order_header_id to p_order_line_id
159
160
161
162 -- call the insert of pvt
163
164 OKL_AM_REMARKET_ASSET_PVT.remove_rmk_item( p_api_version => l_api_version,
165 p_init_msg_list => l_init_msg_list ,
166 -- SECHAWLA 21-OCT-04 3924244 : changed p_order_header_id to p_order_line_id
167 p_order_line_Id => lp_order_line_id,
168 x_return_status => l_return_status,
169 x_msg_count => l_msg_count,
170 x_msg_data => l_msg_data
171 ) ;
172
173
174
175 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
176 RAISE FND_API.G_EXC_ERROR;
177 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
178 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
179 END IF;
180
181
182
183
184
185 --Assign value to OUT variables
186
187 x_return_status := l_return_status ;
188 x_msg_count := l_msg_count ;
189 x_msg_data := l_msg_data ;
190
191
192 EXCEPTION
193
194 WHEN FND_API.G_EXC_ERROR THEN
195 ROLLBACK TO trx_remove_rmk_item;
196 x_return_status := FND_API.G_RET_STS_ERROR;
197 x_msg_count := l_msg_count ;
198 x_msg_data := l_msg_data ;
199 FND_MSG_PUB.count_and_get(
200 p_count => x_msg_count
201 ,p_data => x_msg_data);
202 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
203 ROLLBACK TO trx_remove_rmk_item;
204 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205 x_msg_count := l_msg_count ;
206 x_msg_data := l_msg_data ;
207 FND_MSG_PUB.count_and_get(
208 p_count => x_msg_count
209 ,p_data => x_msg_data);
210 WHEN OTHERS THEN
211 ROLLBACK TO trx_remove_rmk_item;
212 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213 x_msg_count := l_msg_count ;
214 x_msg_data := l_msg_data ;
215 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_REMARKET_ASSET_PUB','remove_rmk_item');
216 FND_MSG_PUB.count_and_get(
217 p_count => x_msg_count
218 ,p_data => x_msg_data);
219 END remove_rmk_item;
220
221
222 END OKL_AM_REMARKET_ASSET_PUB;