[Home] [Help]
1: PACKAGE BODY CSE_ASSET_UTIL_PKG AS
2: /* $Header: CSEFAUTB.pls 120.35.12020000.7 2013/02/22 07:16:53 mvaradam ship $ */
3:
4: l_debug varchar2(1) := NVL(fnd_profile.value('cse_debug_option'),'N');
5:
114: l_description VARCHAR2(80);
115: x_hook_used PLS_INTEGER;
116: i NUMBER := 0;
117: e_error EXCEPTION ;
118: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.asset_description';
119:
120: -- For Non Serialized items, Asset description is not based on item as we may
121: -- have asset for multiple items
122:
180: l_api_name VARCHAR2(100) ;
181:
182: BEGIN
183: x_return_status := fnd_api.G_RET_STS_SUCCESS ;
184: l_api_name := 'CSE_ASSET_UTIL_PKG.asset_category';
185: cse_asset_client_ext_stub.get_asset_category
186: (p_asset_attrib_rec, --modified the signature for R12
187: x_hook_used,
188: x_error_msg);
257: x_hook_used PLS_INTEGER;
258: l_txn_process_flag VARCHAR2(1);
259: l_asset_creation_code VARCHAR2(1);
260: e_error EXCEPTION;
261: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.Book_Type';
262: l_txn_ou_context NUMBER; -- Bug 6492235, added to support multiple FA book
263: BEGIN
264: x_return_status := fnd_api.G_RET_STS_SUCCESS ;
265: cse_asset_client_ext_stub.get_book_type(p_asset_attrib_rec, --modified the signature for R12
405: BEGIN
406:
407: x_return_status := fnd_api.g_ret_sts_success ;
408:
409: debug('inside cse_asset_util_pkg.date_place_in_service');
410:
411: cse_asset_client_ext_stub.get_date_place_in_service(
412: p_asset_attrib_rec,
413: x_date_place_in_service,
441: l_date_place_in_service := l_transaction_date;
442: ELSE
443:
444: IF nvl(p_asset_attrib_rec.book_type_code, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
445: l_book_type_code := cse_asset_util_pkg.book_type(p_asset_attrib_rec,
446: x_error_msg,
447: x_return_status);
448: IF x_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
449: RAISE fnd_api.g_exc_error ;
485: x_return_status OUT NOCOPY VARCHAR2) RETURN NUMBER
486: IS
487: l_asset_key_ccid NUMBER;
488: l_hook_used PLS_INTEGER;
489: l_api_name VARCHAR2(100) := 'cse_asset_util_pkg.asset_key';
490: BEGIN
491: x_return_status := fnd_api.g_ret_sts_success;
492: cse_asset_client_ext_stub.get_asset_key(p_asset_attrib_rec,
493: l_asset_key_ccid,
550:
551: BEGIN
552:
553: x_return_status := fnd_api.G_RET_STS_SUCCESS ;
554: l_api_name := 'CSE_ASSET_UTIL_PKG.get_wip_assembly_cost';
555:
556: debug('Begining of Calculation of Wip cost ');
557:
558: OPEN wip_cost_cur(p_asset_attrib_rec.source_header_ref_id);
600: l_flex_code varchar2(4) := 'GL#' ;
601: l_hook_used pls_integer;
602: l_category_conc_seg varchar2(80);
603:
604: l_api_name varchar2(100) := 'cse_asset_util_pkg.deprn_expense_ccod';
605: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
606: l_error_message varchar2(2000);
607:
608: CURSOR fab_control_cur (c_book_type_code IN VARCHAR2) IS
648: IF nvl(p_asset_attrib_rec.book_type_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
649: l_book_type_code := p_asset_attrib_rec.book_type_code;
650: ELSE
651:
652: l_book_type_code := cse_asset_util_pkg.book_type(
653: p_asset_attrib_rec => p_asset_attrib_rec,
654: x_error_msg => l_error_message,
655: x_return_status => l_return_status);
656:
672: IF nvl(p_asset_attrib_rec.asset_category_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
673: l_category_id := p_asset_attrib_rec.asset_category_id;
674: ELSE
675:
676: l_category_id := cse_asset_util_pkg.asset_category(
677: p_asset_attrib_rec => p_asset_attrib_rec,
678: x_error_msg => l_error_message,
679: x_return_status => l_return_status);
680:
771: l_search_method VARCHAR2(4);
772: x_search_method VARCHAR2(4);
773: x_hook_used PLS_INTEGER;
774: e_error EXCEPTION;
775: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.search_method';
776:
777:
778: BEGIN
779: x_return_status := fnd_api.G_RET_STS_SUCCESS ;
964: BEGIN
965:
966: x_return_status := fnd_api.g_ret_sts_success;
967:
968: debug('inside cse_asset_util_pkg.payables_ccid');
969:
970: l_asset_creation_txn_subtype :=nvl(FND_PROFILE.VALUE('CSE_TXN_SUBTYPE_ASSET_CREATION'), 0); --Added for ER#16265912
971:
972: debug('l_asset_creation_txn_subtype : '||l_asset_creation_txn_subtype);
1008: OPEN src_mv_txn_cur(p_asset_attrib_rec.transaction_id);
1009: FETCH src_mv_txn_cur INTO l_src_txn_id ;
1010: CLOSE src_mv_txn_cur;
1011:
1012: l_book_type_code := cse_asset_util_pkg.book_type(p_asset_attrib_rec,
1013: l_error_message,
1014: l_return_status);
1015: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1016: RAISE fnd_api.g_exc_error;
1014: l_return_status);
1015: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1016: RAISE fnd_api.g_exc_error;
1017: END IF ;
1018: l_category_id := cse_asset_util_pkg.asset_category(p_asset_attrib_rec,
1019: l_error_message,
1020: l_return_status);
1021: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1022: RAISE fnd_api.g_exc_error;
1201: IS
1202: x_tag_number VARCHAR2(15);
1203: l_tag_number VARCHAR2(15);
1204: x_hook_used PLS_INTEGER;
1205: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.tag_number';
1206: BEGIN
1207: x_return_status := fnd_api.G_RET_STS_SUCCESS ;
1208: cse_asset_client_ext_stub.get_tag_number(p_asset_attrib_rec,
1209: x_tag_number,
1241: IS
1242: x_model_number VARCHAR2(40);
1243: l_model_number VARCHAR2(40);
1244: x_hook_used PLS_INTEGER;
1245: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.model_number';
1246: BEGIN
1247: x_return_status := fnd_api.G_RET_STS_SUCCESS ;
1248: cse_asset_client_ext_stub.get_model_number(p_asset_attrib_rec,
1249: x_model_number,
1280: IS
1281: x_manufacturer_name VARCHAR2(30);
1282: l_manufacturer_name VARCHAR2(30);
1283: x_hook_used PLS_INTEGER;
1284: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.manufacturer';
1285: BEGIN
1286: x_return_status := fnd_api.G_RET_STS_SUCCESS ;
1287: cse_asset_client_ext_stub.get_manufacturer(p_asset_attrib_rec,
1288: x_manufacturer_name,
1315: p_asset_attrib_rec IN OUT NOCOPY CSE_DATASTRUCTURES_PUB.asset_attrib_rec,
1316: x_error_msg OUT NOCOPY VARCHAR2,
1317: x_return_status OUT NOCOPY VARCHAR2) RETURN NUMBER
1318: IS
1319: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.employee';
1320: x_employee_id NUMBER;
1321: l_employee_id NUMBER;
1322: x_hook_used PLS_INTEGER;
1323: BEGIN
1345:
1346: FUNCTION inventory_item(
1347: p_asset_attrib_rec IN OUT NOCOPY CSE_DATASTRUCTURES_PUB.asset_attrib_rec)
1348: RETURN NUMBER IS
1349: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.inventory_item';
1350: l_inventory_item_id NUMBER;
1351: x_hook_used PLS_INTEGER;
1352: x_error_msg VARCHAR2(2000);
1353: BEGIN
1371: x_error_msg OUT NOCOPY VARCHAR2)
1372: IS
1373: l_cost NUMBER;
1374: l_units NUMBER;
1375: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.get_pending_retirements';
1376:
1377: CURSOR pending_rets_cur (c_distribution_id IN NUMBER)
1378: IS
1379: SELECT SUM(DECODE(fr.status,'PENDING', NVL(fr.cost_retired,0)*(-1),
1453: l_units NUMBER := 0;
1454: l_total_units NUMBER := 0;
1455: l_location_units NUMBER := 0;
1456: l_unit_ratio NUMBER := 1;
1457: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.get_pending_adjustments';
1458: l_mass_addition_id NUMBER;
1459: CURSOR pending_adj_cur
1460: IS
1461: SELECT SUM(NVL(fma.fixed_assets_cost,0)) cost ,
1535: x_error_msg OUT NOCOPY VARCHAR2)
1536: IS
1537: x_hook_used NUMBER := 0;
1538: l_catchup_flag VARCHAR2(1);
1539: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.get_catchup_dep_flag';
1540:
1541:
1542:
1543:
1636: l_sub_type_id NUMBER;
1637: l_ship_create VARCHAR2(1);
1638:
1639: BEGIN
1640: l_api_name := 'CSE_ASSET_UTIL_PKG.check_txn_class';
1641:
1642: x_return_status := fnd_api.G_RET_STS_SUCCESS ;
1643:
1644: l_txn_type := p_asset_attrib_rec.source_transaction_type ;
1860: IS
1861: l_inv_subinventory_name VARCHAR2(10);
1862: l_inv_organization_id NUMBER ;
1863: l_instance_id NUMBER;
1864: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.validate_inst_asset' ;
1865: l_valid varchar(1);
1866:
1867:
1868:
1936: x_msg_count OUT NOCOPY NUMBER,
1937: x_msg_data OUT NOCOPY VARCHAR2 )
1938: IS
1939: x_error_msg VARCHAR2(2000);
1940: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.insert_mass_add' ;
1941:
1942: l_fixed_assets_cost NUMBER ;
1943: l_payables_cost NUMBER ;
1944: l_unrevalued_cost NUMBER ;
2377: -- 2. Location ID and Location Type
2378: -------------------------------------------------------------------------------
2379:
2380: PROCEDURE get_fa_location(
2381: p_inst_loc_rec IN cse_asset_util_pkg.inst_loc_rec,
2382: x_asset_location_id OUT NOCOPY NUMBER,
2383: x_return_status OUT NOCOPY VARCHAR2,
2384: x_error_msg OUT NOCOPY VARCHAR2 )
2385: IS
2441:
2442: BEGIN
2443:
2444: x_return_status := fnd_api.g_ret_sts_success ;
2445: debug('Inside cse_asset_util_pkg.get_fa_location');
2446:
2447: x_asset_location_id := NULL ;
2448:
2449: debug(' p_rec.transaction_id : '||p_inst_loc_rec.transaction_id);
2650: ,x_valid_to_retire_flag OUT NOCOPY VARCHAR2
2651: ,x_error_msg OUT NOCOPY VARCHAR2
2652: ,x_return_status OUT NOCOPY VARCHAR2)
2653: IS
2654: l_api_name VARCHAR2(100) := 'CSE_ASSET_UTIL_PKG.is_valid_to_retire';
2655:
2656: CURSOR check_current_period_add
2657: IS
2658: SELECT 'N'
2692: -------------------------------------------------------------------------------
2693: ---- Following process will identify the transaction action as
2694: ---- "Sale" or "Move" or "Rect" for Sales Order Transactions/RMA .
2695: -------------------------------------------------------------------------------
2696: PROCEDURE get_so_txn_action ( p_inst_txn_rec IN cse_asset_util_pkg.inst_txn_rec
2697: ,x_fa_action OUT NOCOPY VARCHAR2
2698: ,x_error_msg OUT NOCOPY VARCHAR2
2699: ,x_return_status OUT NOCOPY VARCHAR2
2700: )
3014:
3015: END validate_ccid_required;
3016:
3017:
3018: END cse_asset_util_pkg;