[Home] [Help]
1: PACKAGE BODY FA_ASSET_VAL_PVT as
2: /* $Header: FAVVALB.pls 120.69.12010000.6 2009/02/05 09:20:04 mswetha ship $ */
3:
4:
5: FUNCTION validate
250: return TRUE;
251:
252: EXCEPTION
253: when val_err then
254: fa_srvr_msg.add_message(calling_fn => 'fa_asset_val_pvt.validate');
255: return FALSE;
256:
257: END;
258:
281: where asset_number = upper(p_asset_number);
282:
283: if (l_count > 0) then
284: fa_srvr_msg.add_message(
285: calling_fn => 'fa_asset_val_pvt.validate_asset_number',
286: name => 'FA_ADD_ASSET_NUMBER_USED');
287: return FALSE;
288: end if;
289:
299:
300: --if (l_count > 1) then
301: if (l_count > 0) then -- fix for bug 3433702
302: fa_srvr_msg.add_message(
303: calling_fn => 'fa_asset_val_pvt.validate_asset_number',
304: name => 'FA_ADD_ASSET_NUMBER_USED');
305: return FALSE;
306: end if;
307: end if;
336: when value_error then
337: null;
338: when others then
339: fa_srvr_msg.add_message(
340: calling_fn => 'fa_asset_val_pvt.validate_asset_number',
341: name => 'FA_ASSET_NUMBER',
342: token1 => 'ASSET_NUMBER',
343: value1 => p_asset_number);
344: return FALSE;
345: end;
346:
347: if not fa_cache_pkg.fazsys() then
348: fa_srvr_msg.add_message (
349: calling_fn => 'fa_asset_val_pvt.validate_asset_number');
350: end if;
351:
352: -- Fix for Bug #2585811. You don't need to validate if they
353: -- are using custom asset numbering.
355: fa_cache_pkg.fazsys_record.initial_asset_id) and
356: (nvl(fa_cache_pkg.fazsys_record.use_custom_asset_numbers_flag, 'N') <> 'Y')
357: ) then
358: fa_srvr_msg.add_message(
359: calling_fn => 'fa_asset_val_pvt.validate_asset_number',
360: name => 'FA_ADD_AUTOMATIC_NUMBER');
361: return FALSE;
362: end if;
363: end if;
364: end if;
365: else -- Asset Number is NULL
366: if not fa_cache_pkg.fazsys() then
367: fa_srvr_msg.add_message (
368: calling_fn => 'fa_asset_val_pvt.validate_asset_number');
369: end if;
370:
371: -- Fix for Bug #2585811. If they are using custom asset numbering,
372: -- they must populate asset number.
373: if (nvl(fa_cache_pkg.fazsys_record.use_custom_asset_numbers_flag, 'N')
374: = 'Y')
375: then
376: fa_srvr_msg.add_message(
377: calling_fn => 'fa_asset_val_pvt.validate_asset_number',
378: name => 'FA_NULL_CUSTOM_ASSET_NUMBER');
379: return FALSE;
380: end if;
381: end if;
395: BEGIN
396:
397: if (p_owned_leased not in ('OWNED', 'LEASED')) then
398: fa_srvr_msg.add_message(
399: calling_fn => 'fa_asset_val_pvt.validate_owned_leased',
400: name => 'FA_INVALID_PARAMETER',
401: token1 => 'OWNED_LEASED',
402: value1 => nvl(p_owned_leased, '-999'));
403:
422: X_cat_id => p_category_id,
423: p_log_level_rec => p_log_level_rec
424: ) then
425: fa_srvr_msg.add_message(
426: calling_fn => 'fa_asset_val_pvt.validate_asset_category');
427: return FALSE;
428: end if;
429:
430: -- Check that the category is enabled.
429:
430: -- Check that the category is enabled.
431: if (fa_cache_pkg.fazcat_record.enabled_flag <> 'Y') then
432: fa_srvr_msg.add_message(
433: calling_fn => 'fa_asset_val_pvt.validate_asset_category',
434: name => 'FA_INCORRECT_CATEGORY_ID',
435: token1 => 'CATEGORY_ID',
436: value1 => p_category_id);
437: return FALSE;
448: )) then
449:
450: if (fa_cache_pkg.fazcbc_record.book_class = 'TAX') then
451: fa_srvr_msg.add_message(
452: calling_fn => 'fa_asset_val_pvt.validate_asset_category',
453: name => 'FA_MCP_CAT_NOT_IN_TAX');
454: else
455: fa_srvr_msg.add_message(
456: calling_fn => 'fa_asset_val_pvt.validate_asset_category',
452: calling_fn => 'fa_asset_val_pvt.validate_asset_category',
453: name => 'FA_MCP_CAT_NOT_IN_TAX');
454: else
455: fa_srvr_msg.add_message(
456: calling_fn => 'fa_asset_val_pvt.validate_asset_category',
457: name => 'FA_BOOK_CAT_NOT_SET_UP');
458: end if;
459:
460: return FALSE;
482: if instr(nvl(p_current_units,0),'.')=0 then
483: return TRUE;
484: else
485: fa_srvr_msg.add_message(
486: calling_fn => 'fa_asset_val_pvt.validate_current_units',
487: name => 'FA_NO_FRAC_UNITS');
488: return FALSE;
489: end if;
490: end if;
540: -- check if the flexfield has any required segments
541: if G_asset_key_required is null then
542: if not fa_cache_pkg.fazsys then
543: fa_srvr_msg.add_message(
544: calling_fn => 'fa_asset_val_pvt.validate_asset_key');
545: return false;
546: end if;
547:
548: open c_asset_key_req;
559:
560: -- check if the combination is null and required
561: if G_asset_key_required and p_asset_key_ccid is null then
562: fa_srvr_msg.add_message(
563: calling_fn => 'fa_asset_val_pvt.validate_asset_key',
564: name => 'FA_NULL_ASSET_KEY',
565: token1 => 'ASSET_KEY',
566: value1 => NULL);
567: return false;
577: and enabled_flag = 'Y';
578:
579: if (l_is_asset_key_valid = 0) then
580: fa_srvr_msg.add_message(
581: calling_fn => 'fa_asset_val_pvt.validate_asset_key',
582: name => 'FA_INCORRECT_ASSET_KEY',
583: token1 => 'ASSET_KEY_CCID',
584: value1 => p_asset_key_ccid);
585: return false;
608: (p_asset_type = 'EXPENSED') or
609: (p_asset_type = 'GROUP')) then
610:
611: fa_srvr_msg.add_message(
612: calling_fn => 'fa_asset_val_pvt.validate_asset_type',
613: name => 'FA_DPR_BAD_ASSET_TYPE');
614: return FALSE;
615: end if;
616:
618: if ((fa_cache_pkg.fazcat_record.capitalize_flag = 'YES') and
619: (p_asset_type = 'EXPENSED')) then
620:
621: fa_srvr_msg.add_message(
622: calling_fn => 'fa_asset_val_pvt.validate_asset_type',
623: name => 'FA_INCORRECT_ASSET_TYPE');
624: return FALSE;
625: end if;
626:
629: (p_asset_type = 'CIP') or
630: (p_asset_type = 'GROUP'))) then
631:
632: fa_srvr_msg.add_message(
633: calling_fn => 'fa_asset_val_pvt.validate_asset_type',
634: name => 'FA_INCORRECT_ASSET_TYPE');
635: return FALSE;
636: end if;
637:
640: if ((fa_cache_pkg.fazccb_record.cip_clearing_acct is null) OR
641: (fa_cache_pkg.fazccb_record.cip_cost_acct is null)) then
642:
643: fa_srvr_msg.add_message(
644: calling_fn => 'fa_asset_val_pvt.validate_asset_type',
645: name => 'FA_SHARED_NO_CIP_ACCOUNTS');
646: return FALSE;
647: end if;
648: end if;
650: -- do not allow group if not enabled
651: if (p_asset_type = 'GROUP' and
652: nvl(fa_cache_pkg.fazcbc_record.allow_group_deprn_flag, 'N') <> 'Y') then
653: fa_srvr_msg.add_message(
654: calling_fn => 'fa_asset_val_pvt.validate_asset_type',
655: name => '***FA_GROUP_NOT_ALLOWED***');
656: return FALSE;
657: end if;
658:
671: if ((p_depreciate_flag <> 'YES' and
672: p_depreciate_flag <> 'NO') or
673: p_depreciate_flag IS NULL) then
674: fa_srvr_msg.add_message(
675: calling_fn => 'fa_asset_val_pvt.val_depreciate_flag',
676: name => 'FA_INCORRECT_DEPRECIATE_FLAG');
677: return FALSE;
678: end if;
679:
731: -- Validate that book is active.
732: if (fa_cache_pkg.fazcbc_record.date_ineffective is not null) then
733:
734: fa_srvr_msg.add_message(
735: calling_fn => 'fa_asset_val_pvt.validate_asset_book',
736: name => 'FA_BOOK_INEFFECTIVE_BOOK');
737: return FALSE;
738: end if;
739:
750: and rownum <= 1;
751:
752: if (l_exists > 0) then
753: fa_srvr_msg.add_message(
754: calling_fn => 'fa_asset_val_pvt.validate_asset_book',
755: name => 'FA_MCP_IN_TAX_BOOK',
756: token1 => 'ASSET',
757: value1 => to_char (p_asset_id),
758: token2 => 'BOOK',
776: and bks.asset_id = p_asset_id;
777:
778: if (l_exists = 0) then
779: fa_srvr_msg.add_message(
780: calling_fn => 'fa_asset_val_pvt.validate_asset_book',
781: name => 'FA_MASSCHG_NOT_IN_CORP');
782: return FALSE;
783: end if;
784: end if;
792: and rownum <= 1;
793:
794: if (l_exists = 0) then
795: fa_srvr_msg.add_message(
796: calling_fn => 'fa_asset_val_pvt.validate_asset_book',
797: name => 'FA_EXP_GET_ASSET_INFO');
798: return false;
799: end if;
800:
802: p_transaction_type_code = 'RECLASS' or
803: p_transaction_type_code = 'UNIT ADJUSTMENT') and
804: fa_cache_pkg.fazcbc_record.book_class <> 'CORPORATE') then
805: fa_srvr_msg.add_message(
806: calling_fn => 'fa_asset_val_pvt.validate_asset_book',
807: name => '***FA_BOOK_NOT_CORP***');
808: return false;
809: end if;
810: end if;
825: -- If asset type is CIP, cost should be zero.
826: if ((fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE') AND
827: (p_asset_type = 'CIP') AND (p_cost <> 0) AND (p_num_invoices = 0)) then
828: fa_srvr_msg.add_message(
829: calling_fn => 'fa_asset_val_pvt.validate_cost',
830: name => 'FA_BOOK_CIP_COST');
831: return FALSE;
832: elsif (p_asset_type = 'GROUP' and
833: p_cost <> 0) then
831: return FALSE;
832: elsif (p_asset_type = 'GROUP' and
833: p_cost <> 0) then
834: fa_srvr_msg.add_message(
835: calling_fn => 'fa_asset_val_pvt.validate_cost',
836: name => '***FA_BOOK_GROUP_COST***');
837: return FALSE;
838: end if;
839:
870:
871: if (l_rowcount = 0) then
872: -- bugfix 3854700
873: fa_srvr_msg.add_message(
874: calling_fn => 'fa_asset_val_pvt.validate_assigned_to',
875: name => 'FA_EMP_NOT_VALID' );
876: return FALSE;
877: end if;
878: end if;
894:
895: -- The location ccid cannot be null.
896: if (p_location_ccid is null) then
897: fa_srvr_msg.add_message(
898: calling_fn => 'fa_asset_val_pvt.validate_location_ccid',
899: name => 'FA_NULL_LOCATION');
900: return FALSE;
901: end if;
902:
908: and enabled_flag = 'Y';
909:
910: if (l_is_location_valid = 0) then
911: fa_srvr_msg.add_message(
912: calling_fn => 'fa_asset_val_pvt.validate_location_ccid',
913: name => 'FA_INCORRECT_LOCATION',
914: token1 => 'LOCATION_ID',
915: value1 => p_location_ccid);
916: return FALSE;
1002: if (NOT fa_cache_pkg.fazcbc (
1003: X_book => p_book_type_code
1004: )) then
1005: fa_srvr_msg.add_message(
1006: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1007: name => 'FA_POST_INVALID_BOOK');
1008: return FALSE;
1009: end if;
1010:
1024: close c_check_member_exists;
1025:
1026: if (l_member_exists = 'Y') then
1027: fa_srvr_msg.add_message(
1028: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1029: name => 'FA_GROUP_ADJ_NOT_ALLOWED',
1030: token1 => 'ADJUSTMENT_TYPE',
1031: value1 => 'Date Placed In Service');
1032: return FALSE;
1036: */
1037: -- Validate that dpis passes the LOW_RANGE criteria (fa_date.validate)
1038: if (p_date_placed_in_service < to_date('1000/01/01', 'YYYY/MM/DD')) then
1039: fa_srvr_msg.add_message(
1040: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1041: name => 'FA_YEAR_GREATER_THAN');
1042: return FALSE;
1043: end if;
1044:
1043: end if;
1044:
1045: -- Check that dpis is not too old.
1046: if not fa_cache_pkg.fazsys() then
1047: fa_srvr_msg.add_message(calling_fn => 'fa_asset_val_pvt.validate_dpis');
1048: return false;
1049: else
1050: l_earliest_dpis := fa_cache_pkg.fazsys_record.date_placed_in_service;
1051: end if;
1051: end if;
1052:
1053: if (p_date_placed_in_service < l_earliest_dpis) then
1054: fa_srvr_msg.add_message(
1055: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1056: name => 'FA_BOOK_DPIS_TOO_OLD');
1057: return FALSE;
1058: end if;
1059:
1067: p_effective_date => NULL,
1068: x_period_rec => l_period_rec,
1069: p_log_level_rec => p_log_level_rec) then
1070:
1071: fa_srvr_msg.add_message(calling_fn => 'fa_asset_val_pvt.validate_dpis');
1072: return false;
1073: end if;
1074:
1075: --Bug# 7198185 - Removed modified condition to allow backdated addition for energy
1075: --Bug# 7198185 - Removed modified condition to allow backdated addition for energy
1076: if (p_date_placed_in_service <> nvl(p_old_date_placed_in_service, p_date_placed_in_service) ) then
1077:
1078: if (p_log_level_rec.statement_level) then
1079: fa_debug_pkg.add('fa_asset_val_pvt.validate_dpis', 'Error', p_date_placed_in_service, p_log_level_rec);
1080: end if;
1081:
1082: fa_srvr_msg.add_message(
1083: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1079: fa_debug_pkg.add('fa_asset_val_pvt.validate_dpis', 'Error', p_date_placed_in_service, p_log_level_rec);
1080: end if;
1081:
1082: fa_srvr_msg.add_message(
1083: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1084: name => 'FA_CURRENT_DATE_ONLY');
1085: return FALSE;
1086: end if;
1087:
1105: p_effective_date => NULL,
1106: x_period_rec => l_period_rec,
1107: p_log_level_rec => p_log_level_rec
1108: ) then
1109: fa_srvr_msg.add_message(calling_fn => 'fa_asset_val_pvt.validate_dpis');
1110: return false;
1111: end if;
1112:
1113: if (p_date_placed_in_service > l_period_rec.calendar_period_close_date) then
1111: end if;
1112:
1113: if (p_date_placed_in_service > l_period_rec.calendar_period_close_date) then
1114: fa_srvr_msg.add_message(
1115: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1116: name => 'FA_BOOK_FUTURE_PERIOD_DPIS');
1117: return FALSE;
1118: end if;
1119:
1133:
1134: exception
1135: when others then
1136: fa_srvr_msg.add_message(
1137: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1138: name => 'FA_BOOK_CANT_GEN_PRORATE_DATE');
1139: return FALSE;
1140: end;
1141:
1151:
1152: exception
1153: when others then
1154: fa_srvr_msg.add_message(
1155: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1156: name => 'FA_BKS_INVALID_PRORATE_DATE');
1157: return FALSE;
1158: end;
1159:
1172: X_start_jdate => l_start_jdate,
1173: p_log_level_rec => p_log_level_rec
1174: )) then
1175: fa_srvr_msg.add_message(
1176: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1177: name => 'FA_PROD_INCORRECT_DATE');
1178: return FALSE;
1179: end if;
1180:
1195:
1196: -- Use message FA_AMORT_DATE_INVALID until new message
1197: -- FA_INVALID_DPIS is available
1198: fa_srvr_msg.add_message(
1199: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1200: -- name => 'FA_INVALID_DPIS');
1201: name => 'FA_AMORT_DATE_INVALID');
1202: return FALSE;
1203: end if;
1246: if (abs(p_adjusted_recoverable_cost) < abs(p_deprn_reserve) or
1247: (sign(p_adjusted_recoverable_cost) <> 0 and
1248: sign(p_adjusted_recoverable_cost) = -sign(p_deprn_reserve))) then
1249: fa_srvr_msg.add_message(
1250: calling_fn => 'fa_asset_val_pvt.val_adj_rec_cost',
1251: name => 'FA_BOOK_INVALID_RESERVE');
1252: return FALSE;
1253: end if;
1254:
1300: nvl(p_ytd_reval_deprn_expense, 0) <> 0 or
1301: nvl(p_reval_amortization_basis, 0) <> 0 or
1302: nvl(p_fully_rsvd_revals_counter, 0) <> 0)) then
1303: fa_srvr_msg.add_message(
1304: calling_fn => 'fa_asset_val_pvt.validate_ytd_reserve',
1305: name => 'FA_BOOK_INVALID_RESERVE');
1306: return FALSE;
1307: end if;
1308:
1315: if (p_date_placed_in_service >= p_period_rec.calendar_period_open_date and
1316: (p_deprn_reserve <> 0 or
1317: p_ytd_deprn <> 0)) then
1318: fa_srvr_msg.add_message(
1319: calling_fn => 'fa_asset_val_pvt.validate_ytd_reserve',
1320: name => 'FA_NO_RSV_IN_FIRST_PERIOD');
1321: return false;
1322: end if;
1323: */
1326: if (p_date_placed_in_service >= p_period_rec.fy_start_date and
1327: p_date_placed_in_service <= p_period_rec.fy_end_date) then
1328: if (p_ytd_deprn <> p_deprn_reserve) then
1329: fa_srvr_msg.add_message(
1330: calling_fn => 'fa_asset_val_pvt.validate_ytd_reserve',
1331: name => 'FA_BOOK_RSV_EQL_YTD');
1332: return FALSE;
1333: end if;
1334: else
1341: (sign(p_ytd_deprn) = 0) or
1342: (sign(p_deprn_reserve) = 0)) and
1343: (l_abs_ytd_deprn > l_abs_deprn_reserve)) then
1344: fa_srvr_msg.add_message(
1345: calling_fn => 'fa_asset_val_pvt.validate_ytd_reserve',
1346: name => 'FA_BOOK_YTD_EXCEED_RSV');
1347: return FALSE;
1348: end if;
1349: end if;
1352:
1353: EXCEPTION
1354: when others then
1355: fa_srvr_msg.add_sql_error(
1356: calling_fn => 'fa_asset_val_pvt.validate_ytd_reserve');
1357: return false;
1358:
1359: END validate_ytd_reserve;
1360:
1381: -- The short_fiscal_year_flag should be YES or NO.
1382: if not ((p_short_fiscal_year_flag = 'YES') OR
1383: (p_short_fiscal_year_flag = 'NO')) then
1384: fa_srvr_msg.add_message(
1385: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1386: name => 'FA_INCORRECT_SHORT_FY_FLAG',
1387: token1 => 'SHORT_FY_FLAG',
1388: value1 => p_short_fiscal_year_flag);
1389: return FALSE;
1392: -- The short_fiscal_year_flag cannot be YES is the asset is not CAPITALIZED.
1393: if ((p_asset_type <> 'CAPITALIZED') AND
1394: (p_short_fiscal_year_flag = 'YES')) then
1395: fa_srvr_msg.add_message(
1396: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1397: name => 'FA_CANT_SET_SHORT_FY_FLAG');
1398: return FALSE;
1399: end if;
1400:
1401: -- The conversion date cannot be null if the short_fiscal_year_flag is YES.
1402: if ((p_short_fiscal_year_flag = 'YES') AND
1403: (p_conversion_date is NULL)) then
1404: fa_srvr_msg.add_message(
1405: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1406: name => 'FA_MUST_SET_CONV_DATE');
1407: return FALSE;
1408: end if;
1409:
1419: (p_transaction_type_code <> 'CIP ADDITION')) AND
1420: (p_short_fiscal_year_flag <> 'YES') AND
1421: (p_conversion_date is not NULL)) then
1422: fa_srvr_msg.add_message(
1423: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1424: name => 'FA_CONV_DATE_NO_VAL',
1425: token1 => 'CONV_DATE',
1426: value1 => p_conversion_date);
1427: return FALSE;
1433: (p_transaction_type_code <> 'CIP ADDITION')) AND
1434: (p_short_fiscal_year_flag <> 'YES') AND
1435: (px_orig_deprn_start_date is not NULL)) then
1436: fa_srvr_msg.add_message(
1437: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1438: name => 'FA_CONV_DATE_NO_VAL',
1439: token1 => 'CONV_DATE',
1440: value1 => px_orig_deprn_start_date);
1441: return FALSE;
1446: if (p_conversion_date is not null) then
1447: if (p_conversion_date < p_period_rec.calendar_period_open_date or
1448: p_conversion_date > p_period_rec.calendar_period_close_date) then
1449: fa_srvr_msg.add_message(
1450: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1451: name => 'FA_INCORRECT_CONV_DATE',
1452: token1 => 'CONV_DATE',
1453: value1 => p_conversion_date);
1454: return FALSE;
1456:
1457: -- Validate conversion_date <> current fiscal year end date.
1458: if (p_conversion_date = p_period_rec.fy_end_date) then
1459: fa_srvr_msg.add_message(
1460: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1461: name => 'FA_CONV_DATE_EQU_CURR_FYEND');
1462: return FALSE;
1463: end if;
1464: end if;
1480:
1481: if (p_transaction_date_entered > p_period_rec.calendar_period_close_date
1482: ) then
1483: fa_srvr_msg.add_message(
1484: calling_fn => 'fa_asset_val_pvt.validate_trx_date_entered',
1485: name => 'FA_SHARED_CANNOT_FUTURE');
1486: return FALSE;
1487: end if;
1488:
1524: l_fy_name varchar2(45);
1525: l_cal_type varchar2(15);
1526: l_start_jdate number;
1527: l_period_rec FA_API_TYPES.period_rec_type;
1528: l_calling_fn varchar2(40) := 'fa_asset_val_pvt.val_amort_date';
1529: error_found exception;
1530:
1531: begin
1532:
1628: if (p_log_level_rec.statement_level) then
1629: fa_debug_pkg.add(l_calling_fn, 'Error', p_date_placed_in_service);
1630: end if;
1631: fa_srvr_msg.add_message(
1632: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1633: name => 'FA_CURRENT_DATE_ONLY');
1634: return FALSE;
1635: end if;
1636:
1761: formula_parsed
1762: FROM FA_FORMULAS
1763: WHERE method_id = p_method_id;
1764:
1765: l_calling_fn varchar2(35) := 'fa_asset_val_pvt.validate_life';
1766: error_found exception;
1767:
1768: BEGIN
1769:
1785: if (p_life_in_months <> 0) then
1786: px_new_life := p_life_in_months;
1787: else
1788: fa_srvr_msg.add_message(
1789: CALLING_FN => 'fa_asset_val_pvt.validate_life',
1790: NAME => 'FA_LIM_TDM_NOTDEF');
1791: raise error_found;
1792: end if;
1793:
1862: X_Attribute14 => null,
1863: X_Attribute15 => null,
1864: X_Attribute_Category_Code => null,
1865: X_Exclude_Salvage_Value_Flag => l_exclude_sal_flag,
1866: X_Calling_Fn => 'fa_asset_val_pvt.validate_life');
1867:
1868: -- if formula based, we need to copy the formula too
1869: if (p_rate_source_rule = 'FORMULA') then
1870: OPEN C_FORMULA (p_method_id => l_method_id_old);
1875:
1876: IF C_FORMULA%NOTFOUND then
1877: CLOSE C_FORMULA;
1878: fa_srvr_msg.add_message(
1879: CALLING_FN => 'fa_asset_val_pvt.validate_life',
1880: NAME => 'FA_FORMULA_RATE_NO_DATA_FOUND');
1881: raise error_found;
1882: else
1883: CLOSE C_FORMULA;
1915:
1916: EXCEPTION
1917: when error_found then
1918: FA_SRVR_MSG.Add_Message(
1919: CALLING_FN => 'fa_asset_val_pvt.validate_life');
1920: return false;
1921:
1922: when others then
1923: FA_SRVR_MSG.Add_SQL_Error(
1920: return false;
1921:
1922: when others then
1923: FA_SRVR_MSG.Add_SQL_Error(
1924: CALLING_FN => 'fa_asset_val_pvt.validate_life');
1925: return false;
1926:
1927: END validate_life;
1928:
1952: and detail_posting_allowed_flag = 'Y';
1953:
1954: if (l_is_valid_payables_ccid = 0) then
1955: fa_srvr_msg.add_message(
1956: calling_fn => 'fa_asset_val_pvt.validate_payables_ccid',
1957: name => 'FA_INCORRECT_PAYABLES_ID');
1958: return FALSE;
1959: end if;
1960: else
1960: else
1961: -- Bug 885429 Payables CCID cannot be NULL, so set it to ZERO.
1962: -- Will generate the ccid based on default category if ccid is ZERO.
1963: fa_srvr_msg.add_message(
1964: calling_fn => 'fa_asset_val_pvt.validate_payables_ccid',
1965: name => 'FA_NULL_PAYABLES_CCID');
1966: px_payables_ccid := 0;
1967:
1968: return FALSE;
1985:
1986: -- Expense ccid cannot be null.
1987: if (p_expense_ccid is null) then
1988: fa_srvr_msg.add_message(
1989: calling_fn => 'fa_asset_val_pvt.validate_expense_ccid',
1990: name => 'FA_NULL_EXPENSE_CCID');
1991: return FALSE;
1992: end if;
1993:
2003: and detail_posting_allowed_flag = 'Y';
2004:
2005: if (l_is_valid_expense_ccid = 0) then
2006: fa_srvr_msg.add_message(
2007: calling_fn => 'fa_asset_val_pvt.validate_expense_ccid',
2008: name => 'FA_INCORRECT_EXPENSE_ID',
2009: token1 => 'EXPENSE_ID',
2010: value1 => p_expense_ccid);
2011: return FALSE;
2025:
2026: -- Fixed assets cost cannot be null.
2027: if (p_fixed_assets_cost is null) then
2028: fa_srvr_msg.add_message(
2029: calling_fn => 'fa_asset_val_pvt.validate_fixed_assets_cost',
2030: name => 'FA_NULL_FA_COST');
2031: return FALSE;
2032: end if;
2033:
2045:
2046: -- Fixed assets units cannot be null.
2047: if (p_fixed_assets_units is null) then
2048: fa_srvr_msg.add_message(
2049: calling_fn => 'fa_asset_val_pvt.validate_fixed_assets_units',
2050: name => 'FA_NULL_FA_UNITS');
2051: return FALSE;
2052: else
2053:
2053:
2054: -- Fixed assets units cannot be zero.
2055: if (p_fixed_assets_units = 0) then
2056: fa_srvr_msg.add_message(
2057: calling_fn => 'fa_asset_val_pvt.validate_fixed_assets_units',
2058: name => 'FA_ZERO_FA_UNITS');
2059: return FALSE;
2060: end if;
2061: end if;
2074:
2075: -- Payables cost cannot be null.
2076: if (p_payables_cost is null) then
2077: fa_srvr_msg.add_message(
2078: calling_fn => 'fa_asset_val_pvt.validate_payables_cost',
2079: name => 'FA_NULL_PA_COST');
2080: return FALSE;
2081: end if;
2082:
2094:
2095: -- Payables units cannot be null.
2096: if (p_payables_units is null) then
2097: fa_srvr_msg.add_message(
2098: calling_fn => 'fa_asset_val_pvt.validate_payables_units',
2099: name => 'FA_NULL_PA_UNITS');
2100: return FALSE;
2101: end if;
2102:
2123: where vendor_id = p_po_vendor_id;
2124:
2125: if (l_is_valid_vendor_id = 0) then
2126: fa_srvr_msg.add_message(
2127: calling_fn => 'fa_asset_val_pvt.validate_po_vendor_id',
2128: name => 'FA_INCORRECT_PO_VENDOR_ID');
2129: return FALSE;
2130: end if;
2131: end if;
2154: and nvl(disable_date, sysdate+1) > sysdate;
2155:
2156: if (l_is_valid_uom = 0) then
2157: fa_srvr_msg.add_message(
2158: calling_fn => 'fa_asset_val_pvt.validate_unit_of_measure',
2159: name => 'FA_INCORRECT_UOM');
2160: return FALSE;
2161: end if;
2162: end if;
2185:
2186: -- Salvage value cannot exceed cost (fixed assets cost).
2187: if (l_abs_salvage_value > l_abs_cost) then
2188: fa_srvr_msg.add_message(
2189: calling_fn => 'fa_asset_val_pvt.validate_salvage_value',
2190: name => 'FA_INCORRECT_SALVAGE_VALUE');
2191: return FALSE;
2192: end if;
2193: end if;
2216: where tag_number = p_tag_number;
2217:
2218: if (l_tag_number_count > 0) then
2219: fa_srvr_msg.add_message(
2220: calling_fn => 'fa_asset_val_pvt.validate_tag_number',
2221: name => 'FA_ADD_TAG_NUMBER_EXISTS',
2222: token1 => 'TAG_NUMBER', -- Fix for Bug#5015917. Passed tag number token to display actual tag number in the log.
2223: value1 => p_tag_number);
2224: return FALSE;
2241: and mass_addition_id <> nvl (p_mass_addition_id, -999);
2242:
2243: if (l_tag_number_count > 0) then
2244: fa_srvr_msg.add_message(
2245: calling_fn => 'fa_asset_val_pvt.validate_tag_number',
2246: name => 'FA_ADD_TAG_NUMBER_EXISTS');
2247: return FALSE;
2248: end if;
2249:
2265:
2266: -- Split merged code cannot be zero.
2267: if (p_split_merged_code = 0) then
2268: fa_srvr_msg.add_message(
2269: calling_fn => 'fa_asset_val_pvt.validate_split_merged_code',
2270: name => 'FA_INCORRECT_SPLIT_MERGED_CODE');
2271: return FALSE;
2272: end if;
2273:
2342: end if;
2343:
2344: if (l_count > 0) then
2345: fa_srvr_msg.add_message(
2346: calling_fn => 'fa_asset_val_pvt.validate_exp_after_amort',
2347: name => 'FA_BOOK_CANT_EXP_AFTER_AMORT');
2348: return FALSE;
2349: end if;
2350:
2352:
2353: EXCEPTION
2354: when others then
2355: fa_srvr_msg.add_sql_error(
2356: calling_fn => 'fa_asset_val_pvt.validate_exp_after_amort');
2357:
2358: return false;
2359:
2360: END validate_exp_after_amort;
2428: x_period_rec => l_period_rec,
2429: p_log_level_rec => p_log_level_rec
2430: ) then
2431: fa_srvr_msg.add_message (
2432: calling_fn => 'fa_asset_val_pvt.validate_period_of_addition');
2433: return false;
2434: end if;
2435:
2436: SELECT count(*)
2448: end if;
2449:
2450: else
2451: fa_srvr_msg.add_message (
2452: calling_fn => 'fa_asset_val_pvt.validate_period_of_addition',
2453: name => 'FA_CACHE_UNSUPPORTED_MODE');
2454: return false;
2455: end if;
2456:
2458:
2459: EXCEPTION
2460: when others then
2461: fa_srvr_msg.add_sql_error(
2462: calling_fn => 'fa_asset_val_pvt.validate_period_of_addition');
2463: return false;
2464:
2465: END validate_period_of_addition;
2466:
2491:
2492: EXCEPTION
2493: when others then
2494: fa_srvr_msg.add_sql_error(
2495: calling_fn => 'fa_asset_val_pvt.validate_period_of_addition');
2496: return false;
2497:
2498: END validate_fully_retired;
2499:
2524:
2525: EXCEPTION
2526: when others then
2527: fa_srvr_msg.add_sql_error(
2528: calling_fn => 'fa_asset_val_pvt.validate_add_to_asset_pending');
2529: return false;
2530:
2531: END validate_add_to_asset_pending;
2532:
2554:
2555: EXCEPTION
2556: when others then
2557: fa_srvr_msg.add_sql_error(
2558: calling_fn => 'fa_asset_val_pvt.validate_asset_id_exist');
2559: return FALSE;
2560:
2561: END validate_asset_id_exist;
2562:
2586: EXCEPTION
2587:
2588: when others then
2589: fa_srvr_msg.add_sql_error(
2590: calling_fn => 'fa_asset_val_pvt.validate_ret_rst_pending');
2591:
2592: return FALSE;
2593:
2594: END validate_ret_rst_pending;
2612: if (l_count <> 0) then
2613: return TRUE;
2614: else
2615: fa_srvr_msg.add_message
2616: (calling_fn => 'fa_asset_val_pvt.validate_fa_lookup_code',
2617: name => '***FA_BAD_LOOKUP_CODE***');
2618: return FALSE;
2619: end if;
2620:
2621: EXCEPTION
2622:
2623: when others then
2624: fa_srvr_msg.add_sql_error(
2625: calling_fn => 'fa_asset_val_pvt.validate_fa_lookup_code');
2626: return false;
2627:
2628: END validate_fa_lookup_code;
2629:
2648: if (l_count <> 0) then
2649: return TRUE;
2650: else
2651: fa_srvr_msg.add_message (
2652: calling_fn => 'fa_asset_val_pvt.validate_dist_id');
2653: return FALSE;
2654: end if;
2655:
2656: EXCEPTION
2656: EXCEPTION
2657:
2658: when others then
2659: fa_srvr_msg.add_sql_error(
2660: calling_fn => 'fa_asset_val_pvt.validate_dist_id');
2661: return FALSE;
2662:
2663: END validate_dist_id;
2664:
2738: EXCEPTION
2739:
2740: when others then
2741: fa_srvr_msg.add_sql_error(
2742: calling_fn => 'fa_asset_val_pvt.validate_corp_pending_ret');
2743:
2744: return false;
2745:
2746: END validate_corp_pending_ret;
2984: and BOOK_TYPE_CODE = p_book_type_code);
2985:
2986: if l_count is null then
2987: fa_srvr_msg.add_message(
2988: calling_fn => 'fa_asset_val_pvt.validate_group_asset',
2989: name => 'FA_GROUP_NOT_IN_BOOK');
2990: return false;
2991: end if;
2992:
2993:
2994: if (p_asset_type <> 'CAPITALIZED' and
2995: p_asset_type <> 'CIP') then
2996: fa_srvr_msg.add_message(
2997: calling_fn => 'fa_asset_val_pvt.validate_group_asset',
2998: name => 'FA_INV_ASSET_TYPE');
2999: return false;
3000: end if;
3001:
3011: p_new_flag IN VARCHAR2,
3012: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null
3013: ) return boolean is
3014:
3015: l_calling_fn varchar2(40) :='fa_asset_val_pvt.validate_disabled_flag';
3016:
3017: BEGIN
3018:
3019: IF ((NVL(p_old_flag,'N') Not IN ('Y','N')) OR
3051: ) return boolean is
3052:
3053: l_has_members number;
3054: l_disabled number;
3055: l_calling_fn varchar2(40) :='fa_asset_val_pvt.validate_group_info';
3056:
3057: BEGIN
3058:
3059: SELECT count(1)
3064: AND disabled_flag = 'Y'
3065: AND transaction_header_id_out is null;
3066:
3067: if (l_disabled = 0) then
3068: if p_calling_fn <> 'fa_asset_val_pvt.validate_disabled_flag' then
3069: return true;
3070: else
3071: SELECT count(1)
3072: INTO l_has_members
3107: p_deprn_limit_type VARCHAR2 default null,
3108: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null
3109: ) return boolean is
3110:
3111: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_over_depreciate';
3112:
3113: l_member_count binary_integer := 0;
3114:
3115: BEGIN
3223: p_over_depreciate_option varchar2,
3224: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null
3225: ) return boolean is
3226:
3227: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_cost_change';
3228:
3229: CURSOR c_get_current_amts IS
3230: select sum(inbk.cost - nvl(outbk.cost, 0))
3231: , sum(inbk.salvage_value - nvl(outbk.salvage_value, 0))
3447: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null ) return boolean IS
3448:
3449: l_high_bound number;
3450: dup_err exception;
3451: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_duplicate_dist';
3452:
3453: BEGIN
3454:
3455: l_high_bound := p_curr_index - 1;
3513: ) RETURN BOOLEAN AS
3514:
3515: l_deprn_basis_rule varchar2(80);
3516: l_polish_rule number;
3517: l_calling_fn varchar2(35) := 'fa_asset_val_pvt.validate_polish';
3518:
3519: BEGIN
3520:
3521: -- First find out if we have a polish mechanism here
3665: p_new_super_group_id IN NUMBER,
3666: p_calling_fn IN VARCHAR2,
3667: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) RETURN BOOLEAN IS
3668:
3669: l_calling_fn varchar2(40) := 'fa_asset_val_pvt.validate_super_group';
3670:
3671: CURSOR c_check_used is
3672: select 'Y'
3673: from fa_super_group_rules
3740: and book_type_code = p_book_type_code
3741: and transaction_header_id_out is null;
3742:
3743: l_group_dpis date;
3744: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_member_dpis';
3745:
3746: BEGIN
3747:
3748: open c_group_dpis(p_group_asset_Id, p_book_type_code);
3775: p_rule_name IN VARCHAR2,
3776: p_calling_fn IN VARCHAR2,
3777: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) RETURN BOOLEAN IS
3778:
3779: l_calling_fn varchar2(50) := 'FA_ASSET_VAL_PVT.validate_egy_prod_date';
3780:
3781: BEGIN
3782:
3783: if (p_log_level_rec.statement_level) then
3822: where Asset_ID = l_asset_id
3823: and Book_type_Code = l_book_type_code
3824: and Transaction_Type_Code = 'REVALUATION';
3825:
3826: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_reval_exists';
3827: l_reval_exists varchar2(1);
3828:
3829: BEGIN
3830:
3860: p_asset_fin_rec_adj IN FA_API_TYPES.asset_fin_rec_type,
3861: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null
3862: ) RETURN BOOLEAN IS
3863:
3864: l_calling_fn varchar2(50) := 'FA_ASSET_VAL_PVT.validate_extended_asset';
3865: l_mrc_count number := 0;
3866:
3867: BEGIN
3868:
3969: where group_asset_id = p_asset_hdr_rec.asset_id
3970: and book_type_code = p_asset_hdr_rec.book_type_code
3971: and transaction_header_id_out is null;
3972:
3973: l_calling_fn varchar2(50) := 'FA_ASSET_VAL_PVT.validate_sal_deprn_sum';
3974:
3975: l_dummy NUMBER;
3976: l_valid_parameter BOOLEAN := TRUE;
3977:
4048:
4049: return FALSE;
4050: END validate_sal_deprn_sum;
4051:
4052: END FA_ASSET_VAL_PVT;