[Home] [Help]
PACKAGE BODY: APPS.OKL_ASSET_DETAILS_PVT
Source
1 PACKAGE BODY okl_asset_details_pvt AS
2 /* $Header: OKLRADSB.pls 115.5 2002/12/18 14:43:01 spillaip noship $ */
3 -------------------------------------------------------------------------------------------------
4 -- GLOBAL MESSAGE CONSTANTS
5 -------------------------------------------------------------------------------------------------
6 G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
11 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
13
14 ------------------------------------------------------------------------------------
15 -- GLOBAL EXCEPTION
16 ------------------------------------------------------------------------------------
17 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
18 G_EXCEPTION_STOP_VALIDATION EXCEPTION;
19 G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
20 G_API_VERSION CONSTANT NUMBER := 1.0;
21 G_SCOPE CONSTANT VARCHAR2(4) := '_PVT';
22
23 -- GLOBAL VARIABLES
24 -----------------------------------------------------------------------------------
25 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_ASSET_DETAILS_PUB';
26 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
27
28 subtype klev_rec_type is OKL_CREATE_KLE_PVT.klev_rec_type;
29 subtype klev_tbl_type is OKL_CREATE_KLE_PVT.klev_tbl_type;
30 subtype clev_rec_type is OKL_CREATE_KLE_PVT.clev_rec_type;
31 subtype clev_tbl_type is OKL_CREATE_KLE_PVT.clev_tbl_type;
32 subtype cimv_rec_type is OKL_CREATE_KLE_PVT.cimv_rec_type;
33 subtype cimv_tbl_type is OKL_CREATE_KLE_PVT.cimv_tbl_type;
34 subtype cplv_rec_type is OKL_CREATE_KLE_PVT.cplv_rec_type;
35 subtype trxv_rec_type is OKL_CREATE_KLE_PVT.trxv_rec_type;
36 subtype talv_rec_type is OKL_CREATE_KLE_PVT.talv_rec_type;
37 subtype itiv_rec_type is OKL_CREATE_KLE_PVT.itiv_rec_type;
38 subtype itiv_tbl_type is OKL_CREATE_KLE_PVT.itiv_tbl_type;
39
40
41 PROCEDURE Update_year(
42 p_api_version IN NUMBER,
43 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
44 x_return_status OUT NOCOPY VARCHAR2,
45 x_msg_count OUT NOCOPY NUMBER,
46 x_msg_data OUT NOCOPY VARCHAR2,
47 p_dnz_chr_id IN NUMBER,
48 p_parent_line_id IN NUMBER,
49 p_year IN VARCHAR2,
50 x_year OUT NOCOPY VARCHAR2) IS
51
52 subtype klev_rec_type is okl_CONTRACT_PVT.klev_rec_type;
53
54 l_klev_rec klev_rec_type;
55 l_clev_rec okl_okc_migration_pvt.clev_rec_type;
56 lx_klev_rec klev_rec_type;
57 lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
58
59 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_YEAR';
60
61
62 BEGIN
63 x_return_status := OKL_API.G_RET_STS_SUCCESS;
64
65 --Call start_activity to create savepoint, check compatibility and initialize message list
66
67 x_return_status := OKL_API.START_ACTIVITY(
68 l_api_name
69 ,p_init_msg_list
70 ,'_PUB'
71 ,x_return_status);
72
73 --Check if activity started successfully
74
75 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
76 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
77 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
78 RAISE OKL_API.G_EXCEPTION_ERROR;
79 END IF;
80
81 l_klev_rec.id := p_parent_line_id;
82 l_klev_rec.year_built := p_year;
83
84 l_clev_rec.id := p_parent_line_id;
85
86 OKL_CONTRACT_PUB.update_contract_line(
87 p_api_version => p_api_version,
88 p_init_msg_list => p_init_msg_list,
89 x_return_status => x_return_status,
90 x_msg_count => x_msg_count,
91 x_msg_data => x_msg_data,
92 p_clev_rec => l_clev_rec,
93 p_klev_rec => l_klev_rec,
94 x_clev_rec => lx_clev_rec,
95 x_klev_rec => lx_klev_rec);
96
97 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
98 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
99 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
100 RAISE OKC_API.G_EXCEPTION_ERROR;
101 END IF;
102 x_year := lx_klev_rec.year_built;
103
104 OKL_API.END_ACTIVITY (x_msg_count,
105 x_msg_data );
106
107
108 EXCEPTION
109 WHEN OKL_API.G_EXCEPTION_ERROR THEN
110 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
111 l_api_name,
112 G_PKG_NAME,
113 'OKL_API.G_RET_STS_ERROR',
114 x_msg_count,
115 x_msg_data,
116 '_PUB');
117 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
118 x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
119 l_api_name,
120 G_PKG_NAME,
121 'OKL_API.G_RET_STS_UNEXP_ERROR',
122 x_msg_count,
123 x_msg_data,
124 '_PUB');
125 WHEN OTHERS THEN
126 x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
127 l_api_name,
128 G_PKG_NAME,
129 'OTHERS',
130 x_msg_count,
131 x_msg_data,
132 '_PUB');
133
134 END Update_year;
135
136 PROCEDURE update_tax(p_api_version IN NUMBER,
137 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
138 x_return_status OUT NOCOPY VARCHAR2,
139 x_msg_count OUT NOCOPY NUMBER,
140 x_msg_data OUT NOCOPY VARCHAR2,
141 p_rule_id IN NUMBER,
142 p_rule_grp_id IN NUMBER,
143 p_dnz_chr_id IN NUMBER,
144 p_rule_information1 IN VARCHAR2,
145 p_rule_information2 IN VARCHAR2,
146 p_rule_information3 IN VARCHAR2,
147 p_rule_information4 IN VARCHAR2,
148 x_rule_information1 OUT NOCOPY VARCHAR2,
149 x_rule_information2 OUT NOCOPY VARCHAR2,
150 x_rule_information3 OUT NOCOPY VARCHAR2,
151 x_rule_information4 OUT NOCOPY VARCHAR2) IS
152
153 SUBTYPE rule_rec_type IS OKL_RULE_PUB.rulv_rec_type;
154
155 l_rule_rec rule_rec_type;
156 lx_rule_rec rule_rec_type;
157 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TAX';
158
159 BEGIN
160 x_return_status := OKL_API.G_RET_STS_SUCCESS;
161
162 --Call start_activity to create savepoint, check compatibility and initialize message list
163
164 x_return_status := OKL_API.START_ACTIVITY(
165 l_api_name
166 ,p_init_msg_list
167 ,'_PUB'
168 ,x_return_status);
169
170 --Check if activity started successfully
171
172 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
173 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
174 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
175 RAISE OKL_API.G_EXCEPTION_ERROR;
176 END IF;
177
178
179 l_rule_rec.id := p_rule_id;
180 l_rule_rec.rgp_id := p_rule_grp_id;
181 l_rule_rec.rule_information1 := p_rule_information1;
182 l_rule_rec.rule_information2 := p_rule_information2;
183 l_rule_rec.rule_information3 := p_rule_information3;
184 l_rule_rec.rule_information4 := p_rule_information4;
185
186
187
188 OKL_RULE_PUB.update_rule(
189 p_api_version => p_api_version,
190 p_init_msg_list => p_init_msg_list,
191 x_return_status => x_return_status,
192 x_msg_count => x_msg_count,
193 x_msg_data => x_msg_data,
194 p_rulv_rec => l_rule_rec,
195 x_rulv_rec => lx_rule_rec);
196
197
198
199 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
200 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
201 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
202 RAISE OKC_API.G_EXCEPTION_ERROR;
203 END IF;
204
205 x_rule_information1 := lx_rule_rec.rule_information1;
206 x_rule_information2 := lx_rule_rec.rule_information2;
207 x_rule_information3 := lx_rule_rec.rule_information3;
208 x_rule_information4 := lx_rule_rec.rule_information4;
209
210 OKL_API.END_ACTIVITY (x_msg_count,
211 x_msg_data );
212
213
214 EXCEPTION
215 WHEN OKL_API.G_EXCEPTION_ERROR THEN
216 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
217 l_api_name,
218 G_PKG_NAME,
219 'OKL_API.G_RET_STS_ERROR',
220 x_msg_count,
221 x_msg_data,
222 '_PUB');
223 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
224 x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
225 l_api_name,
226 G_PKG_NAME,
227 'OKL_API.G_RET_STS_UNEXP_ERROR',
228 x_msg_count,
229 x_msg_data,
230 '_PUB');
231 WHEN OTHERS THEN
232 x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
233 l_api_name,
234 G_PKG_NAME,
235 'OTHERS',
236 x_msg_count,
237 x_msg_data,
238 '_PUB');
239
240
241 END update_tax;
242
243 PROCEDURE update_asset(p_api_version IN NUMBER,
244 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
245 x_return_status OUT NOCOPY VARCHAR2,
246 x_msg_count OUT NOCOPY NUMBER,
247 x_msg_data OUT NOCOPY VARCHAR2,
248 p_asset_id IN NUMBER,
249 p_asset_number IN VARCHAR2,
250 -- SPILLAIP - 2689257 - Start
251 px_asset_desc IN OUT NOCOPY VARCHAR2,
252 px_model_no IN OUT NOCOPY VARCHAR2,
253 px_manufacturer IN OUT NOCOPY VARCHAR2) IS
254 -- SPILLAIP - 2689257 - End
255
256 l_trans_rec FA_API_TYPES.trans_rec_type;
257 l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
258 l_asset_desc_rec FA_API_TYPES.asset_desc_rec_type;
259 l_asset_type_rec FA_API_TYPES.asset_type_rec_type;
260 l_asset_cat_rec FA_API_TYPES.asset_cat_rec_type;
261
262 l_commit_flag VARCHAR2(5) := FND_API.G_FALSE;
263 l_validation_level VARCHAR2(5) := FND_API.G_VALID_LEVEL_FULL;
264 l_calling_fn VARCHAR2(50) := 'Update Asset Desc Wrapper';
265
266 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ASSET';
267
268 BEGIN
269 x_return_status := OKL_API.G_RET_STS_SUCCESS;
270
271 --Call start_activity to create savepoint, check compatibility and initialize message list
272
273 x_return_status := OKL_API.START_ACTIVITY(
274 l_api_name
275 ,p_init_msg_list
276 ,'_PUB'
277 ,x_return_status);
278
279 --Check if activity started successfully
280
281 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
282 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
283 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
284 RAISE OKL_API.G_EXCEPTION_ERROR;
285 END IF;
286
287 l_asset_hdr_rec.asset_id := p_asset_id;
288
289 l_asset_desc_rec.model_number := px_model_no;
290 l_asset_desc_rec.manufacturer_name := px_manufacturer;
291
292 If px_asset_desc is not null AND px_asset_desc <> OKL_API.G_MISS_CHAR THEN
293 l_asset_desc_rec.description := px_asset_desc;
294 end if;
295
296 --One parameter has been commented becasue the FA APi has been changed.
297 --change done by rvaduri
298
299 fa_asset_desc_pub.update_desc(
300 p_api_version => p_api_version,
301 p_commit => l_commit_flag,
302 p_validation_level => l_validation_level,
303 x_return_status => x_return_status,
304 x_msg_count => x_msg_count,
305 x_msg_data => x_msg_data,
306 p_calling_fn => l_calling_fn,
307 px_trans_rec => l_trans_rec,
308 px_asset_hdr_rec => l_asset_hdr_rec,
309 px_asset_desc_rec_new => l_asset_desc_rec,
310 -- px_asset_type_rec_new => l_asset_type_rec,
311 px_asset_cat_rec_new => l_asset_cat_rec);
312
313 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
314 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
315 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
316 RAISE OKC_API.G_EXCEPTION_ERROR;
317 END IF;
318
319 px_model_no := l_asset_desc_rec.model_number;
320 px_manufacturer := l_asset_desc_rec.manufacturer_name;
321
322 OKL_API.END_ACTIVITY (x_msg_count,
323 x_msg_data );
324
325
326 EXCEPTION
327 WHEN OKL_API.G_EXCEPTION_ERROR THEN
328 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
329 l_api_name,
330 G_PKG_NAME,
331 'OKL_API.G_RET_STS_ERROR',
332 x_msg_count,
333 x_msg_data,
334 '_PUB');
335 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
336 x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
337 l_api_name,
338 G_PKG_NAME,
339 'OKL_API.G_RET_STS_UNEXP_ERROR',
340 x_msg_count,
341 x_msg_data,
342 '_PUB');
343 WHEN OTHERS THEN
344 x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
345 l_api_name,
346 G_PKG_NAME,
347 'OTHERS',
348 x_msg_count,
349 x_msg_data,
350 '_PUB');
351
352
353 END update_asset;
354
355 END okl_asset_details_pvt;