18: ----------------------------------------------------------------------------------
19:
20: PROCEDURE Relocate_Installed_Item
21: ( p_api_version IN NUMBER
22: , p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
23: , x_return_status OUT NOCOPY VARCHAR2
24: , x_msg_count OUT NOCOPY NUMBER
25: , x_msg_data OUT NOCOPY VARCHAR2
26: , p_ialo_tbl IN ialo_tbl_type) IS
24: , x_msg_count OUT NOCOPY NUMBER
25: , x_msg_data OUT NOCOPY VARCHAR2
26: , p_ialo_tbl IN ialo_tbl_type) IS
27:
28: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
29: l_loop_counter NUMBER :=0;
30:
31: BEGIN
32:
29: l_loop_counter NUMBER :=0;
30:
31: BEGIN
32:
33: OKC_API.init_msg_list(p_init_msg_list);
34: IF (p_ialo_tbl.COUNT > 0) THEN
35:
36: l_loop_counter := p_ialo_tbl.FIRST;
37: LOOP
40: p_ialo_tbl(l_loop_counter).p_instance_id = OKL_API.G_MISS_NUM THEN
41:
42: x_return_status := OKL_API.G_RET_STS_ERROR;
43: -- asset_id is required
44: OKC_API.set_message( p_app_name => 'OKC',
45: p_msg_name => G_REQUIRED_VALUE,
46: p_token1 => G_COL_NAME_TOKEN,
47: p_token1_value => 'INSTANCE_ID');
48: RAISE OKC_API.G_EXCEPTION_ERROR;
44: OKC_API.set_message( p_app_name => 'OKC',
45: p_msg_name => G_REQUIRED_VALUE,
46: p_token1 => G_COL_NAME_TOKEN,
47: p_token1_value => 'INSTANCE_ID');
48: RAISE OKC_API.G_EXCEPTION_ERROR;
49: END IF;
50:
51: IF p_ialo_tbl(l_loop_counter).p_location_id IS NULL OR
52: p_ialo_tbl(l_loop_counter).p_location_id = OKL_API.G_MISS_NUM THEN
52: p_ialo_tbl(l_loop_counter).p_location_id = OKL_API.G_MISS_NUM THEN
53:
54: x_return_status := OKL_API.G_RET_STS_ERROR;
55: -- asset_id is required
56: OKC_API.set_message( p_app_name => 'OKC',
57: p_msg_name => G_REQUIRED_VALUE,
58: p_token1 => G_COL_NAME_TOKEN,
59: p_token1_value => 'LOCATION_ID');
60: RAISE OKC_API.G_EXCEPTION_ERROR;
56: OKC_API.set_message( p_app_name => 'OKC',
57: p_msg_name => G_REQUIRED_VALUE,
58: p_token1 => G_COL_NAME_TOKEN,
59: p_token1_value => 'LOCATION_ID');
60: RAISE OKC_API.G_EXCEPTION_ERROR;
61: END IF;
62:
63: change_item_location (p_api_version => p_api_version,
64: p_init_msg_list => p_init_msg_list,
111: ----------------------------------------------------------------------------------
112:
113: PROCEDURE Relocate_Fixed_Asset
114: ( p_api_version IN NUMBER
115: , p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
116: , x_return_status OUT NOCOPY VARCHAR2
117: , x_msg_count OUT NOCOPY NUMBER
118: , x_msg_data OUT NOCOPY VARCHAR2
119: , p_falo_tbl IN falo_tbl_type) IS
117: , x_msg_count OUT NOCOPY NUMBER
118: , x_msg_data OUT NOCOPY VARCHAR2
119: , p_falo_tbl IN falo_tbl_type) IS
120:
121: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
122: l_asset_status VARCHAR2(100);
123:
124: BEGIN
125:
122: l_asset_status VARCHAR2(100);
123:
124: BEGIN
125:
126: OKC_API.init_msg_list(p_init_msg_list);
127:
128: Change_FA_Location ( p_api_version => p_api_version,
129: p_init_msg_list => p_init_msg_list,
130: x_msg_count => x_msg_count,
170: ---------------------------------------------------------------------------
171:
172: PROCEDURE Change_FA_Location(
173: p_api_version IN NUMBER,
174: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
175: x_return_status OUT NOCOPY VARCHAR2,
176: x_msg_count OUT NOCOPY NUMBER,
177: x_msg_data OUT NOCOPY VARCHAR2,
178: p_assets_tbl IN falo_tbl_type ) IS
183: l_trans_rec FA_API_TYPES.trans_rec_type;
184: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
185: l_asset_dist_tbl FA_API_TYPES.asset_dist_tbl_type;
186:
187: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
188: l_api_name CONSTANT VARCHAR2(30) := 'Change_FA_Location';
189:
190: l_original_cost okl_txl_assets_v.original_cost%TYPE;
191:
244: p_api_version,
245: '_PVT',
246: x_return_status);
247:
248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
251: RAISE OKC_API.G_EXCEPTION_ERROR;
252: END IF;
245: '_PVT',
246: x_return_status);
247:
248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
251: RAISE OKC_API.G_EXCEPTION_ERROR;
252: END IF;
253:
246: x_return_status);
247:
248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
251: RAISE OKC_API.G_EXCEPTION_ERROR;
252: END IF;
253:
254: SELECT SYSDATE INTO l_sysdate FROM DUAL;
247:
248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
251: RAISE OKC_API.G_EXCEPTION_ERROR;
252: END IF;
253:
254: SELECT SYSDATE INTO l_sysdate FROM DUAL;
255:
261: OKL_API.set_message(p_app_name => 'OKL',
262: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
263: p_token1 => 'TRY_NAME',
264: p_token1_value => 'Asset Relocation');
265: RAISE OKC_API.G_EXCEPTION_ERROR;
266: END IF;
267:
268:
269:
275: IF p_assets_tbl(i).p_cle_id IS NULL OR p_assets_tbl(i).p_cle_id = okl_api.G_MISS_NUM THEN
276:
277: x_return_status := OKL_API.G_RET_STS_ERROR;
278: -- cle_id is required
279: OKC_API.set_message( p_app_name => 'OKC',
280: p_msg_name => G_REQUIRED_VALUE,
281: p_token1 => G_COL_NAME_TOKEN,
282: p_token1_value => 'CLE_ID');
283: RAISE OKC_API.G_EXCEPTION_ERROR;
279: OKC_API.set_message( p_app_name => 'OKC',
280: p_msg_name => G_REQUIRED_VALUE,
281: p_token1 => G_COL_NAME_TOKEN,
282: p_token1_value => 'CLE_ID');
283: RAISE OKC_API.G_EXCEPTION_ERROR;
284: END IF;
285:
286: IF p_assets_tbl(i).p_asset_id IS NULL OR p_assets_tbl(i).p_asset_id = okl_api.G_MISS_NUM THEN
287:
286: IF p_assets_tbl(i).p_asset_id IS NULL OR p_assets_tbl(i).p_asset_id = okl_api.G_MISS_NUM THEN
287:
288: x_return_status := OKL_API.G_RET_STS_ERROR;
289: -- asset_id is required
290: OKC_API.set_message( p_app_name => 'OKC',
291: p_msg_name => G_REQUIRED_VALUE,
292: p_token1 => G_COL_NAME_TOKEN,
293: p_token1_value => 'ASSET_ID');
294: RAISE OKC_API.G_EXCEPTION_ERROR;
290: OKC_API.set_message( p_app_name => 'OKC',
291: p_msg_name => G_REQUIRED_VALUE,
292: p_token1 => G_COL_NAME_TOKEN,
293: p_token1_value => 'ASSET_ID');
294: RAISE OKC_API.G_EXCEPTION_ERROR;
295: END IF;
296:
297: IF p_assets_tbl(i).p_asset_number IS NULL THEN
298:
297: IF p_assets_tbl(i).p_asset_number IS NULL THEN
298:
299: x_return_status := OKL_API.G_RET_STS_ERROR;
300: -- asset_number is required
301: OKC_API.set_message( p_app_name => 'OKC',
302: p_msg_name => G_REQUIRED_VALUE,
303: p_token1 => G_COL_NAME_TOKEN,
304: p_token1_value => 'ASSET_NUMBER');
305: RAISE OKC_API.G_EXCEPTION_ERROR;
301: OKC_API.set_message( p_app_name => 'OKC',
302: p_msg_name => G_REQUIRED_VALUE,
303: p_token1 => G_COL_NAME_TOKEN,
304: p_token1_value => 'ASSET_NUMBER');
305: RAISE OKC_API.G_EXCEPTION_ERROR;
306: END IF;
307:
308: IF p_assets_tbl(i).p_corporate_book IS NULL THEN
309:
308: IF p_assets_tbl(i).p_corporate_book IS NULL THEN
309:
310: x_return_status := OKL_API.G_RET_STS_ERROR;
311: -- corporate_book is required
312: OKC_API.set_message( p_app_name => 'OKC',
313: p_msg_name => G_REQUIRED_VALUE,
314: p_token1 => G_COL_NAME_TOKEN,
315: p_token1_value => 'CORPORATE_BOOK');
316: RAISE OKC_API.G_EXCEPTION_ERROR;
312: OKC_API.set_message( p_app_name => 'OKC',
313: p_msg_name => G_REQUIRED_VALUE,
314: p_token1 => G_COL_NAME_TOKEN,
315: p_token1_value => 'CORPORATE_BOOK');
316: RAISE OKC_API.G_EXCEPTION_ERROR;
317: END IF;
318:
319: IF p_assets_tbl(i).p_current_units IS NULL OR p_assets_tbl(i).p_current_units = okl_api.G_MISS_NUM THEN
320:
319: IF p_assets_tbl(i).p_current_units IS NULL OR p_assets_tbl(i).p_current_units = okl_api.G_MISS_NUM THEN
320:
321: x_return_status := OKL_API.G_RET_STS_ERROR;
322: -- current_units is required
323: OKC_API.set_message( p_app_name => 'OKC',
324: p_msg_name => G_REQUIRED_VALUE,
325: p_token1 => G_COL_NAME_TOKEN,
326: p_token1_value => 'CURRENT_UNITS');
327: RAISE OKC_API.G_EXCEPTION_ERROR;
323: OKC_API.set_message( p_app_name => 'OKC',
324: p_msg_name => G_REQUIRED_VALUE,
325: p_token1 => G_COL_NAME_TOKEN,
326: p_token1_value => 'CURRENT_UNITS');
327: RAISE OKC_API.G_EXCEPTION_ERROR;
328: END IF;
329:
330: IF p_assets_tbl(i).p_distribution_id IS NULL OR p_assets_tbl(i).p_distribution_id = okl_api.G_MISS_NUM THEN
331:
330: IF p_assets_tbl(i).p_distribution_id IS NULL OR p_assets_tbl(i).p_distribution_id = okl_api.G_MISS_NUM THEN
331:
332: x_return_status := OKL_API.G_RET_STS_ERROR;
333: -- Distribution Id is required
334: OKC_API.set_message( p_app_name => 'OKC',
335: p_msg_name => G_REQUIRED_VALUE,
336: p_token1 => G_COL_NAME_TOKEN,
337: p_token1_value => 'DISTRIBUTION_ID');
338: RAISE OKC_API.G_EXCEPTION_ERROR;
334: OKC_API.set_message( p_app_name => 'OKC',
335: p_msg_name => G_REQUIRED_VALUE,
336: p_token1 => G_COL_NAME_TOKEN,
337: p_token1_value => 'DISTRIBUTION_ID');
338: RAISE OKC_API.G_EXCEPTION_ERROR;
339: END IF;
340:
341: IF p_assets_tbl(i).p_units_assigned IS NULL OR p_assets_tbl(i).p_units_assigned = okl_api.G_MISS_NUM THEN
342:
341: IF p_assets_tbl(i).p_units_assigned IS NULL OR p_assets_tbl(i).p_units_assigned = okl_api.G_MISS_NUM THEN
342:
343: x_return_status := OKL_API.G_RET_STS_ERROR;
344: -- Units Assigned is required
345: OKC_API.set_message( p_app_name => 'OKC',
346: p_msg_name => G_REQUIRED_VALUE,
347: p_token1 => G_COL_NAME_TOKEN,
348: p_token1_value => 'UNITS_ASSIGNED');
349: RAISE OKC_API.G_EXCEPTION_ERROR;
345: OKC_API.set_message( p_app_name => 'OKC',
346: p_msg_name => G_REQUIRED_VALUE,
347: p_token1 => G_COL_NAME_TOKEN,
348: p_token1_value => 'UNITS_ASSIGNED');
349: RAISE OKC_API.G_EXCEPTION_ERROR;
350: END IF;
351:
352: IF p_assets_tbl(i).p_code_combination_id IS NULL OR p_assets_tbl(i).p_code_combination_id = okl_api.G_MISS_NUM THEN
353:
352: IF p_assets_tbl(i).p_code_combination_id IS NULL OR p_assets_tbl(i).p_code_combination_id = okl_api.G_MISS_NUM THEN
353:
354: x_return_status := OKL_API.G_RET_STS_ERROR;
355: -- Code Combination Id is required
356: OKC_API.set_message( p_app_name => 'OKC',
357: p_msg_name => G_REQUIRED_VALUE,
358: p_token1 => G_COL_NAME_TOKEN,
359: p_token1_value => 'CODE_COMBINATION_ID');
360: RAISE OKC_API.G_EXCEPTION_ERROR;
356: OKC_API.set_message( p_app_name => 'OKC',
357: p_msg_name => G_REQUIRED_VALUE,
358: p_token1 => G_COL_NAME_TOKEN,
359: p_token1_value => 'CODE_COMBINATION_ID');
360: RAISE OKC_API.G_EXCEPTION_ERROR;
361: END IF;
362:
363: IF p_assets_tbl(i).p_old_location_id IS NULL OR p_assets_tbl(i).p_old_location_id = okl_api.G_MISS_NUM THEN
364:
363: IF p_assets_tbl(i).p_old_location_id IS NULL OR p_assets_tbl(i).p_old_location_id = okl_api.G_MISS_NUM THEN
364:
365: x_return_status := OKL_API.G_RET_STS_ERROR;
366: -- Old Location Id is required
367: OKC_API.set_message( p_app_name => 'OKC',
368: p_msg_name => G_REQUIRED_VALUE,
369: p_token1 => G_COL_NAME_TOKEN,
370: p_token1_value => 'OLD_LOCATION_ID');
371: RAISE OKC_API.G_EXCEPTION_ERROR;
367: OKC_API.set_message( p_app_name => 'OKC',
368: p_msg_name => G_REQUIRED_VALUE,
369: p_token1 => G_COL_NAME_TOKEN,
370: p_token1_value => 'OLD_LOCATION_ID');
371: RAISE OKC_API.G_EXCEPTION_ERROR;
372: END IF;
373:
374: IF p_assets_tbl(i).p_new_location_id IS NULL OR p_assets_tbl(i).p_new_location_id = okl_api.G_MISS_NUM THEN
375: x_return_status := OKL_API.G_RET_STS_ERROR;
373:
374: IF p_assets_tbl(i).p_new_location_id IS NULL OR p_assets_tbl(i).p_new_location_id = okl_api.G_MISS_NUM THEN
375: x_return_status := OKL_API.G_RET_STS_ERROR;
376: -- New Location Id is required
377: OKC_API.set_message( p_app_name => 'OKC',
378: p_msg_name => G_REQUIRED_VALUE,
379: p_token1 => G_COL_NAME_TOKEN,
380: p_token1_value => 'NEW_LOCATION_ID');
381: RAISE OKC_API.G_EXCEPTION_ERROR;
377: OKC_API.set_message( p_app_name => 'OKC',
378: p_msg_name => G_REQUIRED_VALUE,
379: p_token1 => G_COL_NAME_TOKEN,
380: p_token1_value => 'NEW_LOCATION_ID');
381: RAISE OKC_API.G_EXCEPTION_ERROR;
382: END IF;
383:
384: IF p_assets_tbl(i).p_new_location_id = p_assets_tbl(i).p_old_location_id THEN
385: x_return_status := OKL_API.G_RET_STS_ERROR;
395:
396: IF l_location_csr%NOTFOUND THEN
397: x_return_status := OKL_API.G_RET_STS_ERROR;
398: -- New Location Id is Invalid
399: OKC_API.set_message( p_app_name => 'OKC',
400: p_msg_name => G_INVALID_VALUE,
401: p_token1 => G_COL_NAME_TOKEN,
402: p_token1_value => 'NEW_LOCATION_ID');
403: RAISE OKC_API.G_EXCEPTION_ERROR;
399: OKC_API.set_message( p_app_name => 'OKC',
400: p_msg_name => G_INVALID_VALUE,
401: p_token1 => G_COL_NAME_TOKEN,
402: p_token1_value => 'NEW_LOCATION_ID');
403: RAISE OKC_API.G_EXCEPTION_ERROR;
404: END IF;
405: CLOSE l_location_csr;
406:
407: -- check if depreciation has already been run for this asset in the distribution_source_book
438: p_msg_name => 'OKL_AM_DEPRN_RAN_ALREADY',
439: p_token1 => 'ASSET_NUMBER',
440: p_token1_value => p_assets_tbl(i).p_asset_number);
441:
442: RAISE OKC_API.G_EXCEPTION_ERROR; -- sechawla 19-dec-2005 4895439 : added
443:
444: -- The following code will be commented out till we add an additional column in okl_txl_assets_v
445: -- to hold distribution Id
446: /*
458: x_msg_data => x_msg_data,
459: p_thpv_rec => lp_thpv_rec,
460: x_thpv_rec => lx_thpv_rec);
461:
462: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
463: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
464: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
465: RAISE OKC_API.G_EXCEPTION_ERROR;
466: END IF;
459: p_thpv_rec => lp_thpv_rec,
460: x_thpv_rec => lx_thpv_rec);
461:
462: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
463: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
464: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
465: RAISE OKC_API.G_EXCEPTION_ERROR;
466: END IF;
467:
460: x_thpv_rec => lx_thpv_rec);
461:
462: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
463: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
464: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
465: RAISE OKC_API.G_EXCEPTION_ERROR;
466: END IF;
467:
468: -- Create transaction Line
461:
462: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
463: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
464: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
465: RAISE OKC_API.G_EXCEPTION_ERROR;
466: END IF;
467:
468: -- Create transaction Line
469: lp_tlpv_rec.tas_id := lx_thpv_rec.id; -- FK
487: x_msg_data => x_msg_data,
488: p_tlpv_rec => lp_tlpv_rec,
489: x_tlpv_rec => lx_tlpv_rec);
490:
491: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
493: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
494: RAISE OKC_API.G_EXCEPTION_ERROR;
495: END IF;
488: p_tlpv_rec => lp_tlpv_rec,
489: x_tlpv_rec => lx_tlpv_rec);
490:
491: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
493: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
494: RAISE OKC_API.G_EXCEPTION_ERROR;
495: END IF;
496: */
489: x_tlpv_rec => lx_tlpv_rec);
490:
491: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
493: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
494: RAISE OKC_API.G_EXCEPTION_ERROR;
495: END IF;
496: */
497:
490:
491: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
493: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
494: RAISE OKC_API.G_EXCEPTION_ERROR;
495: END IF;
496: */
497:
498:
538: px_asset_hdr_rec => l_asset_hdr_rec,
539: px_asset_dist_tbl => l_asset_dist_tbl);
540:
541:
542: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
543: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
544: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
545: RAISE OKC_API.G_EXCEPTION_ERROR;
546: END IF;
539: px_asset_dist_tbl => l_asset_dist_tbl);
540:
541:
542: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
543: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
544: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
545: RAISE OKC_API.G_EXCEPTION_ERROR;
546: END IF;
547:
540:
541:
542: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
543: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
544: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
545: RAISE OKC_API.G_EXCEPTION_ERROR;
546: END IF;
547:
548:
541:
542: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
543: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
544: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
545: RAISE OKC_API.G_EXCEPTION_ERROR;
546: END IF;
547:
548:
549:
568: x_msg_data => x_msg_data,
569: p_thpv_rec => lp_thpv_rec,
570: x_thpv_rec => lx_thpv_rec);
571:
572: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
574: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
575: RAISE OKC_API.G_EXCEPTION_ERROR;
576: END IF;
569: p_thpv_rec => lp_thpv_rec,
570: x_thpv_rec => lx_thpv_rec);
571:
572: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
574: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
575: RAISE OKC_API.G_EXCEPTION_ERROR;
576: END IF;
577:
570: x_thpv_rec => lx_thpv_rec);
571:
572: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
574: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
575: RAISE OKC_API.G_EXCEPTION_ERROR;
576: END IF;
577:
578: -- Create transaction Line
571:
572: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
574: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
575: RAISE OKC_API.G_EXCEPTION_ERROR;
576: END IF;
577:
578: -- Create transaction Line
579: lp_tlpv_rec.tas_id := lx_thpv_rec.id; -- FK
597: x_msg_data => x_msg_data,
598: p_tlpv_rec => lp_tlpv_rec,
599: x_tlpv_rec => lx_tlpv_rec);
600:
601: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
603: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
604: RAISE OKC_API.G_EXCEPTION_ERROR;
605: END IF;
598: p_tlpv_rec => lp_tlpv_rec,
599: x_tlpv_rec => lx_tlpv_rec);
600:
601: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
603: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
604: RAISE OKC_API.G_EXCEPTION_ERROR;
605: END IF;
606: */
599: x_tlpv_rec => lx_tlpv_rec);
600:
601: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
603: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
604: RAISE OKC_API.G_EXCEPTION_ERROR;
605: END IF;
606: */
607:
600:
601: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
603: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
604: RAISE OKC_API.G_EXCEPTION_ERROR;
605: END IF;
606: */
607:
608: END IF;
616: OKL_API.set_message(p_app_name => 'OKL',
617: p_msg_name => 'OKL_AM_NO_RELOC_TRX');
618: END IF; -- if assets_tbl.count > 0
619:
620: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
621: EXCEPTION
622: WHEN OKC_API.G_EXCEPTION_ERROR THEN
623:
624:
618: END IF; -- if assets_tbl.count > 0
619:
620: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
621: EXCEPTION
622: WHEN OKC_API.G_EXCEPTION_ERROR THEN
623:
624:
625: IF l_location_csr%ISOPEN THEN
626: CLOSE l_location_csr;
631: IF l_deprnbookcnt_csr%ISOPEN THEN
632: CLOSE l_deprnbookcnt_csr;
633: END IF;
634:
635: x_return_status := OKC_API.HANDLE_EXCEPTIONS
636: (
637: l_api_name,
638: G_PKG_NAME,
639: 'OKC_API.G_RET_STS_ERROR',
635: x_return_status := OKC_API.HANDLE_EXCEPTIONS
636: (
637: l_api_name,
638: G_PKG_NAME,
639: 'OKC_API.G_RET_STS_ERROR',
640: x_msg_count,
641: x_msg_data,
642: '_PVT'
643: );
640: x_msg_count,
641: x_msg_data,
642: '_PVT'
643: );
644: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
645:
646: IF l_location_csr%ISOPEN THEN
647: CLOSE l_location_csr;
648: END IF;
651: END IF;
652: IF l_deprnbookcnt_csr%ISOPEN THEN
653: CLOSE l_deprnbookcnt_csr;
654: END IF;
655: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
656: (
657: l_api_name,
658: G_PKG_NAME,
659: 'OKC_API.G_RET_STS_UNEXP_ERROR',
655: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
656: (
657: l_api_name,
658: G_PKG_NAME,
659: 'OKC_API.G_RET_STS_UNEXP_ERROR',
660: x_msg_count,
661: x_msg_data,
662: '_PVT'
663: );
671: END IF;
672: IF l_deprnbookcnt_csr%ISOPEN THEN
673: CLOSE l_deprnbookcnt_csr;
674: END IF;
675: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
676: (
677: l_api_name,
678: G_PKG_NAME,
679: 'OTHERS',
754:
755:
756: PROCEDURE Change_Item_Location (
757: p_api_version IN NUMBER,
758: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
759: x_msg_count OUT NOCOPY NUMBER,
760: x_msg_data OUT NOCOPY VARCHAR2,
761: x_return_status OUT NOCOPY VARCHAR2,
762: p_instance_id IN NUMBER,