[Home] [Help]
PACKAGE BODY: APPS.OKL_SPLIT_ASSET_COMP_PUB
Source
1 package body OKL_SPLIT_ASSET_COMP_PUB as
2 /* $Header: OKLPSACB.pls 115.1 2002/07/29 18:37:20 cklee noship $ */
3
4 ------------------------------------------------------------------------------
5 PROCEDURE create_split_asset_comp(
6 p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_count OUT NOCOPY NUMBER,
10 x_msg_data OUT NOCOPY VARCHAR2,
11 p_asdv_tbl IN advv_tbl_type,
12 x_asdv_tbl OUT NOCOPY advv_tbl_type)
13 IS
14
15 l_api_version CONSTANT NUMBER := 1.0;
16 l_api_name CONSTANT VARCHAR2(30) := 'create_split_asset_comp';
17 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
18
19 BEGIN
20 -- Set API savepoint
21 SAVEPOINT create_split_asset_comp_pub;
22
23 -- Check for call compatibility
24 IF (NOT FND_API.Compatible_API_Call (l_api_version,
25 p_api_version,
26 l_api_name,
27 G_PKG_NAME ))
28 THEN
29 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
30 END IF;
31
32 -- Initialize message list if requested
33 IF (FND_API.to_Boolean(p_init_msg_list)) THEN
34 FND_MSG_PUB.initialize;
35 END IF;
36
37 -- Initialize API status to success
38 x_return_status := OKL_API.G_RET_STS_SUCCESS;
39
40
41 /*** Begin API body ****************************************************/
42
43 -- OKL_ASD_PVT.insert_row(p_api_version,
44 OKL_SPLIT_ASSET_COMP_PVT.create_split_asset_comp(p_api_version,
45 p_init_msg_list,
46 x_return_status,
47 x_msg_count,
48 x_msg_data,
49 p_asdv_tbl,
50 x_asdv_tbl);
51
52 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
53 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
54 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
55 RAISE OKL_API.G_EXCEPTION_ERROR;
56 END IF;
57
58
59 /*** End API body ******************************************************/
60
61 -- Get message count and if count is 1, get message info
62 FND_MSG_PUB.Count_And_Get
63 (p_count => x_msg_count,
64 p_data => x_msg_data);
65
66 EXCEPTION
67 WHEN OKL_API.G_EXCEPTION_ERROR THEN
68 ROLLBACK TO create_split_asset_comp_pub;
69 x_return_status := OKL_API.G_RET_STS_ERROR;
70 FND_MSG_PUB.Count_And_Get
71 (p_count => x_msg_count,
72 p_data => x_msg_data);
73
74 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
75 ROLLBACK TO create_split_asset_comp_pub;
76 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
77 FND_MSG_PUB.Count_And_Get
78 (p_count => x_msg_count,
79 p_data => x_msg_data);
80
81 WHEN OTHERS THEN
82 ROLLBACK TO create_split_asset_comp_pub;
83 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
84 OKL_API.Set_Message(p_app_name => G_APP_NAME,
85 p_msg_name => G_UNEXPECTED_ERROR,
86 p_token1 => G_SQLCODE_TOKEN,
87 p_token1_value => SQLCODE,
88 p_token2 => G_SQLERRM_TOKEN,
89 p_token2_value => SQLERRM);
90 FND_MSG_PUB.Count_And_Get
91 (p_count => x_msg_count,
92 p_data => x_msg_data);
93
94 END create_split_asset_comp;
95
96 ------------------------------------------------------------------------------
97
98 PROCEDURE update_split_asset_comp(
99 p_api_version IN NUMBER,
100 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
101 x_return_status OUT NOCOPY VARCHAR2,
102 x_msg_count OUT NOCOPY NUMBER,
103 x_msg_data OUT NOCOPY VARCHAR2,
104 p_asdv_tbl IN advv_tbl_type,
105 x_asdv_tbl OUT NOCOPY advv_tbl_type)
106 IS
107
108 l_api_version CONSTANT NUMBER := 1.0;
109 l_api_name CONSTANT VARCHAR2(30) := 'update_split_asset_comp';
110 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
111 BEGIN
112 -- Set API savepoint
113 SAVEPOINT update_split_asset_comp_pub;
114
115 -- Check for call compatibility
116 IF (NOT FND_API.Compatible_API_Call (l_api_version,
117 p_api_version,
118 l_api_name,
119 G_PKG_NAME ))
120 THEN
121 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
122 END IF;
123
124 -- Initialize message list if requested
125 IF (FND_API.to_Boolean(p_init_msg_list)) THEN
126 FND_MSG_PUB.initialize;
127 END IF;
128
129 -- Initialize API status to success
130 x_return_status := OKL_API.G_RET_STS_SUCCESS;
131
132
133 /*** Begin API body ****************************************************/
134 -- OKL_ASD_PVT.update_row(p_api_version,
135 OKL_SPLIT_ASSET_COMP_PVT.update_split_asset_comp(p_api_version,
136 p_init_msg_list,
137 x_return_status,
138 x_msg_count,
139 x_msg_data,
140 p_asdv_tbl,
141 x_asdv_tbl);
142
143 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
144 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
145 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
146 RAISE OKL_API.G_EXCEPTION_ERROR;
147 END IF;
148
149 /*** End API body ******************************************************/
150
151 -- Get message count and if count is 1, get message info
152 FND_MSG_PUB.Count_And_Get
153 (p_count => x_msg_count,
154 p_data => x_msg_data);
155
156 EXCEPTION
157 WHEN OKL_API.G_EXCEPTION_ERROR THEN
158 ROLLBACK TO update_split_asset_comp_pub;
159 x_return_status := OKL_API.G_RET_STS_ERROR;
160 FND_MSG_PUB.Count_And_Get
161 (p_count => x_msg_count,
162 p_data => x_msg_data);
163
164 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
165 ROLLBACK TO update_split_asset_comp_pub;
166 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
167 FND_MSG_PUB.Count_And_Get
168 (p_count => x_msg_count,
169 p_data => x_msg_data);
170
171 WHEN OTHERS THEN
172 ROLLBACK TO update_split_asset_comp_pub;
173 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
174 OKL_API.Set_Message(p_app_name => G_APP_NAME,
175 p_msg_name => G_UNEXPECTED_ERROR,
176 p_token1 => G_SQLCODE_TOKEN,
177 p_token1_value => SQLCODE,
178 p_token2 => G_SQLERRM_TOKEN,
179 p_token2_value => SQLERRM);
180 FND_MSG_PUB.Count_And_Get
181 (p_count => x_msg_count,
182 p_data => x_msg_data);
183
184 END update_split_asset_comp;
185 ------------------------------------------------------------------------------
186
187 PROCEDURE delete_split_asset_comp(
188 p_api_version IN NUMBER,
189 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
190 x_return_status OUT NOCOPY VARCHAR2,
191 x_msg_count OUT NOCOPY NUMBER,
192 x_msg_data OUT NOCOPY VARCHAR2,
193 p_asdv_tbl IN advv_tbl_type)
194 IS
195
196 l_api_version CONSTANT NUMBER := 1.0;
197 l_api_name CONSTANT VARCHAR2(30) := 'delete_split_asset_comp';
198 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
199 BEGIN
200 -- Set API savepoint
201 SAVEPOINT delete_split_asset_comp_pub;
202
203 -- Check for call compatibility
204 IF (NOT FND_API.Compatible_API_Call (l_api_version,
205 p_api_version,
206 l_api_name,
207 G_PKG_NAME ))
208 THEN
209 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
210 END IF;
211
212 -- Initialize message list if requested
213 IF (FND_API.to_Boolean(p_init_msg_list)) THEN
214 FND_MSG_PUB.initialize;
215 END IF;
216
217 -- Initialize API status to success
218 x_return_status := OKL_API.G_RET_STS_SUCCESS;
219
220
221 /*** Begin API body ****************************************************/
222 -- OKL_ASD_PVT.delete_row(p_api_version,
223 OKL_SPLIT_ASSET_COMP_PVT.delete_split_asset_comp(p_api_version,
224 p_init_msg_list,
225 x_return_status,
226 x_msg_count,
227 x_msg_data,
228 p_asdv_tbl);
229
230 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
231 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
232 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
233 RAISE OKL_API.G_EXCEPTION_ERROR;
234 END IF;
235
236 /*** End API body ******************************************************/
237
238 -- Get message count and if count is 1, get message info
239 FND_MSG_PUB.Count_And_Get
240 (p_count => x_msg_count,
241 p_data => x_msg_data);
242
243 EXCEPTION
244 WHEN OKL_API.G_EXCEPTION_ERROR THEN
245 ROLLBACK TO delete_split_asset_comp_pub;
246 x_return_status := OKL_API.G_RET_STS_ERROR;
247 FND_MSG_PUB.Count_And_Get
248 (p_count => x_msg_count,
249 p_data => x_msg_data);
250
251 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
252 ROLLBACK TO delete_split_asset_comp_pub;
253 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
254 FND_MSG_PUB.Count_And_Get
255 (p_count => x_msg_count,
256 p_data => x_msg_data);
257
258 WHEN OTHERS THEN
259 ROLLBACK TO delete_split_asset_comp_pub;
260 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
261 OKL_API.Set_Message(p_app_name => G_APP_NAME,
262 p_msg_name => G_UNEXPECTED_ERROR,
263 p_token1 => G_SQLCODE_TOKEN,
264 p_token1_value => SQLCODE,
265 p_token2 => G_SQLERRM_TOKEN,
266 p_token2_value => SQLERRM);
267 FND_MSG_PUB.Count_And_Get
268 (p_count => x_msg_count,
269 p_data => x_msg_data);
270
271 END delete_split_asset_comp;
272 ------------------------------------------------------------------------------
273
274 PROCEDURE process_split_asset_comp(
275 p_api_version IN NUMBER,
276 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
277 x_return_status OUT NOCOPY VARCHAR2,
278 x_msg_count OUT NOCOPY NUMBER,
279 x_msg_data OUT NOCOPY VARCHAR2,
280 p_tal_id IN NUMBER)
281 IS
282
283 l_api_version CONSTANT NUMBER := 1.0;
284 l_api_name CONSTANT VARCHAR2(30) := 'process_split_asset_comp';
285 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
286 BEGIN
287 -- Set API savepoint
288 SAVEPOINT process_split_asset_comp_pub;
289
290 -- Check for call compatibility
291 IF (NOT FND_API.Compatible_API_Call (l_api_version,
292 p_api_version,
293 l_api_name,
294 G_PKG_NAME ))
295 THEN
296 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
297 END IF;
298
299 -- Initialize message list if requested
300 IF (FND_API.to_Boolean(p_init_msg_list)) THEN
301 FND_MSG_PUB.initialize;
302 END IF;
303
304 -- Initialize API status to success
305 x_return_status := OKL_API.G_RET_STS_SUCCESS;
306
307
308 /*** Begin API body ****************************************************/
309 --
310 -- process code here
311 --
312 OKL_SPLIT_ASSET_COMP_PVT.process_split_asset_comp(p_api_version,
313 p_init_msg_list,
314 x_return_status,
315 x_msg_count,
316 x_msg_data,
317 p_tal_id);
318 --
319 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
320 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
321 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
322 RAISE OKL_API.G_EXCEPTION_ERROR;
323 END IF;
324
325 /*** End API body ******************************************************/
326
327 -- Get message count and if count is 1, get message info
328 FND_MSG_PUB.Count_And_Get
329 (p_count => x_msg_count,
330 p_data => x_msg_data);
331
332 EXCEPTION
333 WHEN OKL_API.G_EXCEPTION_ERROR THEN
334 ROLLBACK TO process_split_asset_comp_pub;
335 x_return_status := OKL_API.G_RET_STS_ERROR;
336 FND_MSG_PUB.Count_And_Get
337 (p_count => x_msg_count,
338 p_data => x_msg_data);
339
340 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
341 ROLLBACK TO process_split_asset_comp_pub;
342 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
343 FND_MSG_PUB.Count_And_Get
344 (p_count => x_msg_count,
345 p_data => x_msg_data);
346
347 WHEN OTHERS THEN
348 ROLLBACK TO process_split_asset_comp_pub;
349 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
350 OKL_API.Set_Message(p_app_name => G_APP_NAME,
351 p_msg_name => G_UNEXPECTED_ERROR,
352 p_token1 => G_SQLCODE_TOKEN,
353 p_token1_value => SQLCODE,
354 p_token2 => G_SQLERRM_TOKEN,
355 p_token2_value => SQLERRM);
356 FND_MSG_PUB.Count_And_Get
357 (p_count => x_msg_count,
358 p_data => x_msg_data);
359
360 END process_split_asset_comp;
361
362
363 END OKL_SPLIT_ASSET_COMP_PUB;