[Home] [Help]
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:
280: from fa_additions_b
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;
298: and queue_name = 'POST'; -- fix for bug 3433702
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;
335: exception
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
354: if ((l_asset_number >=
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;
394:
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'));
421: if not fa_cache_pkg.fazcat (
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:
428: end if;
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);
447: p_log_level_rec => p_log_level_rec
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(
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',
457: name => 'FA_BOOK_CAT_NOT_SET_UP');
458: end if;
459:
481: --Checking if the current units contain fractional value
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;
539: BEGIN
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:
558:
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);
576: where code_combination_id = p_asset_key_ccid
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);
607: (p_asset_type = 'CIP') or
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;
617: -- Check for invalid asset_type/category combinations.
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;
628: ((p_asset_type = 'CAPITALIZED') or
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;
639: if (p_asset_type = 'CIP') then
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;
649:
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;
670:
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;
730:
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;
749: and asset_id = p_asset_id
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),
775: )
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;
791: and asset_id = p_asset_id
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;
801: if ((p_transaction_type_code = 'TRANSFER' or
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;
824: BEGIN
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
830: name => 'FA_BOOK_CIP_COST');
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;
869: and p.person_id = p_assigned_to;
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;
893: BEGIN
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;
907: where location_id = p_location_ccid
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);
1001: -- Need to call the cache for book
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;
1023:
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');
1035: --end bug# 5501090
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;
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;
1050: l_earliest_dpis := fa_cache_pkg.fazsys_record.date_placed_in_service;
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;
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
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',
1084: name => 'FA_CURRENT_DATE_ONLY');
1085: return FALSE;
1086: end if;
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
1110: return false;
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;
1132: and p_date_placed_in_service between start_date and end_date;
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;
1150: and l_prorate_date between cp.start_date and cp.end_date;
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;
1171: X_fiscal_year => l_dpis_fy,
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;
1194: CLOSE c_chk_trx_before_dpis;
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;
1223: if (p_deprn_reserve <> 0 and
1224: (abs(p_recoverable_cost) < abs(p_deprn_reserve) or
1225: (sign(p_recoverable_cost) <> 0 and
1226: sign(p_recoverable_cost) = -sign(p_deprn_reserve)))) then
1227: fa_srvr_msg.add_message(
1228: calling_fn => 'validate_rec_cost_reserve',
1229: name => 'FA_BOOK_INVALID_RESERVE');
1230: return FALSE;
1231: end if;
1245:
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;
1299: nvl(p_reval_reserve, 0) <> 0 or
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;
1314: -- verify no reserve for asset in first period of life
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;
1325: -- in first year of life ytd must equal reserve
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;
1340: if (((sign(p_ytd_deprn) = sign(p_deprn_reserve)) or
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;
1351: return TRUE;
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;
1380:
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);
1391:
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;
1418: if (((p_transaction_type_code <> 'ADDITION') OR
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);
1432: if (((p_transaction_type_code <> 'ADDITION') OR
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);
1445: -- reserve up until conversion must be provided.
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);
1455: end if;
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;
1479: begin
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;
1545: l_period_close_date := p_period_rec.calendar_period_close_date;
1546: l_period_open_date := p_period_rec.calendar_period_open_date;
1547:
1548: if (x_amortization_start_date > l_period_close_date) then
1549: fa_srvr_msg.add_message(
1550: calling_fn => l_calling_fn,
1551: name => 'FA_SHARED_CANNOT_FUTURE');
1552: return FALSE;
1553: end if;
1571: l_amort_jdate,
1572: l_amort_per_num,
1573: l_amort_fy,
1574: l_start_jdate)) then
1575: fa_srvr_msg.add_message(
1576: calling_fn => l_calling_fn,
1577: name => 'FA_PROD_INCORRECT_DATE');
1578: return FALSE;
1579: end if;
1627: if (p_amortization_start_date < p_period_rec.calendar_period_open_date) then
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;
1659: --('PARTIAL RETIREMENT','REINSTATEMENT','REVALUATION');
1660:
1661:
1662: if (x_amortization_start_date < l_prior_transaction_date) then
1663: fa_srvr_msg.add_message(
1664: calling_fn => l_calling_fn,
1665: name => 'FA_SHARED_OTHER_TRX_FOLLOW');
1666: raise error_found;
1667: end if;
1697: return TRUE;
1698:
1699: exception
1700: when error_found then
1701: fa_srvr_msg.add_message(calling_fn => l_calling_fn);
1702: return FALSE;
1703:
1704: when others then
1705: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn);
1701: fa_srvr_msg.add_message(calling_fn => l_calling_fn);
1702: return FALSE;
1703:
1704: when others then
1705: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn);
1706: return false;
1707:
1708: end validate_amort_start_date;
1709:
1784:
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;
1815: l_exclude_sal_flag;
1816:
1817: if (METHOD_DEF%NOTFOUND) then
1818: CLOSE METHOD_DEF;
1819: fa_srvr_msg.add_message(
1820: CALLING_FN => l_calling_fn,
1821: NAME => 'FA_SHARED_OBJECT_NOT_DEF',
1822: TOKEN1 => 'OBJECT',
1823: VALUE1 => 'Method');
1874: l_formula_parsed;
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
1914: return true;
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
1919: CALLING_FN => 'fa_asset_val_pvt.validate_life');
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;
1951: and summary_flag = 'N'
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;
1959: end if;
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:
1984: BEGIN
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;
2002: and summary_flag = 'N'
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);
2024: BEGIN
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;
2044: BEGIN
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
2052: else
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;
2073: BEGIN
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;
2093: BEGIN
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;
2122: from po_vendors
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;
2153: where unit_of_measure = p_unit_of_measure
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;
2184: l_abs_cost := abs (p_cost);
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;
2215: from fa_additions_b
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);
2240: where tag_number = p_tag_number
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;
2264: BEGIN
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;
2341:
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;
2351: return true;
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:
2376: AND asset_id = p_asset_id
2377: AND transaction_key like 'U%';
2378:
2379: if (l_count > 0) then
2380: fa_srvr_msg.add_message(calling_fn => 'FA_CHK_BOOKSTS_PKG.faxcbsx',
2381: name => '***FA_UNP_EXISTS***');
2382: return TRUE;
2383: else
2384: return FALSE;
2427: p_effective_date => NULL,
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:
2447: px_period_of_addition := 'N';
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;
2457: return true;
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;
2490: end if;
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;
2523: end if;
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;
2553: end if;
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;
2585:
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:
2611:
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;
2647:
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:
2655:
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;
2737:
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:
2767: and asset_id = p_parent_asset_id
2768: and date_ineffective is null;
2769:
2770: if l_count = 0 then
2771: fa_srvr_msg.add_message(
2772: calling_fn => 'validate_parent_asset',
2773: name => 'FA_INCORRECT_PARENT_ASSET');
2774: return FALSE;
2775: end if;
2799: nvl (w.start_date, p_date_placed_in_service) and
2800: nvl (w.end_date, p_date_placed_in_service);
2801:
2802: if l_count = 0 then
2803: fa_srvr_msg.add_message(
2804: calling_fn => 'validate_warranty',
2805: name => 'FA_INVALID_WARRANTY');
2806: return FALSE;
2807: end if;
2817: AND glsob.currency_code =
2818: nvl(w.currency_code, glsob.currency_code);
2819:
2820: if l_count = 0 then
2821: fa_srvr_msg.add_message(
2822: calling_fn => 'validate_warranty',
2823: name => 'FA_SHARED_GET_CURRENCY_CODE');
2824: return FALSE;
2825: end if;
2862: into l_count
2863: from fa_leases
2864: where lease_id = p_lease_id;
2865: if l_count = 0 then
2866: fa_srvr_msg.add_message(
2867: calling_fn => 'validate_lease',
2868: name => 'FA_INVALID_LEASE');
2869: return FALSE;
2870: end if;
2873: OPEN get_cat_type;
2874: FETCH get_cat_type INTO l_cat_type;
2875: CLOSE get_cat_type;
2876: if l_cat_type NOT IN ( 'LEASE', 'LEASEHOLD IMPROVEMENT') then
2877: fa_srvr_msg.add_message(
2878: calling_fn => 'validate_lease',
2879: name => 'FA_CANT_ADD_LEASE');
2880: return FALSE;
2881: end if;
2895: return TRUE;
2896:
2897: EXCEPTION
2898: when lease_error then
2899: fa_srvr_msg.add_message(
2900: calling_fn => 'validate_lease',
2901: name => 'FA_CURRENCY_NOT_MATCH');
2902: return FALSE;
2903:
2914: where lookup_type = 'PROPERTY TYPE'
2915: and lookup_code = p_property_type_code;
2916:
2917: if l_count = 0 then
2918: fa_srvr_msg.add_message(
2919: calling_fn => 'validate_property_type',
2920: name => 'FA_PROPERTY_TYPE_NOT_EXIST');
2921: return FALSE;
2922: end if;
2938: where lookup_type = '1245/1250 PROPERTY'
2939: and lookup_code = p_1245_1250_code;
2940:
2941: if l_count = 0 then
2942: fa_srvr_msg.add_message(
2943: calling_fn => 'validate_1245_1250_code',
2944: name => 'FA_1245_1250_NOT_EXIST');
2945: return FALSE;
2946: end if;
2983: where ASSET_ID = p_group_asset_id
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;
3018:
3019: IF ((NVL(p_old_flag,'N') Not IN ('Y','N')) OR
3020: (NVL(p_new_flag,'N') Not IN ('Y','N'))) THEN
3021: -- Garbage value for flag.
3022: fa_srvr_msg.add_message(
3023: calling_fn => l_calling_fn,
3024: name => 'FA_INCORRECT_DISABLED_FLAG');
3025: return FALSE;
3026:
3025: return FALSE;
3026:
3027: ELSIF (nvl(p_old_flag,'N')='Y' AND nvl(p_new_flag,'N')='Y') THEN
3028: --Disabled group.
3029: fa_srvr_msg.add_message(
3030: calling_fn => l_calling_fn,
3031: name => 'FA_DISABLED_GROUP');
3032: return FALSE;
3033: ELSIF (nvl(p_old_flag,'N')='N' AND nvl(p_new_flag,'N')='Y') THEN
3076: AND transaction_header_id_out is null
3077: AND period_counter_fully_retired is null;
3078: end if;
3079: elsif (l_disabled > 0) then
3080: fa_srvr_msg.add_message(
3081: calling_fn => l_calling_fn,
3082: name => 'FA_DISABLED_GROUP');
3083: return false;
3084: end if;
3083: return false;
3084: end if;
3085:
3086: if l_has_members > 0 then
3087: fa_srvr_msg.add_message(
3088: calling_fn => l_calling_fn,
3089: name => 'FA_CANT_DISABLE_GROUP');
3090: return false;
3091: end if;
3146: if (nvl(p_adjusted_recoverable_cost, p_recoverable_cost) > 0 and
3147: nvl(p_adjusted_recoverable_cost, p_recoverable_cost) < p_deprn_reserve_new) or
3148: (nvl(p_adjusted_recoverable_cost, p_recoverable_cost) < 0 and
3149: nvl(p_adjusted_recoverable_cost, p_recoverable_cost) > p_deprn_reserve_new) then
3150: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3151: name => 'FA_TOO_MUCH_RESERVE');
3152: return FALSE;
3153: end if;
3154:
3162: (p_deprn_basis_rule = 'NBV') and
3163: (nvl(p_over_depreciate_option, fa_std_types.FA_OVER_DEPR_NO) =
3164: fa_std_types.FA_OVER_DEPR_DEPRN) then
3165:
3166: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3167: name => 'FA_NO_OVER_DEPRN_ALLOWED');
3168: return false;
3169:
3170: end if;
3179: if (p_deprn_limit_type <> 'NONE') and
3180: (nvl(p_over_depreciate_option, fa_std_types.FA_OVER_DEPR_NO) <>
3181: fa_std_types.FA_OVER_DEPR_NO) then
3182:
3183: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3184: name => 'FA_NO_OVER_DEPRN_ALLOWED');
3185: return false;
3186: end if;
3187:
3192: if (nvl(p_recapture_reserve_flag, 'N') <> 'N') and
3193: (nvl(p_over_depreciate_option, fa_std_types.FA_OVER_DEPR_NO) <>
3194: fa_std_types.FA_OVER_DEPR_NO) then
3195:
3196: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3197: name => 'FA_NO_OVER_DEPRN_ALLOWED');
3198: return false;
3199: end if;
3200: end if; -- (l_member_count > 0)
3421: return true;
3422:
3423: EXCEPTION
3424: WHEN val_err THEN
3425: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3426: name => 'FA_INVALID_AMOUNT_ADJUSTMENT');
3427: return false;
3428:
3429: WHEN OTHERS THEN
3426: name => 'FA_INVALID_AMOUNT_ADJUSTMENT');
3427: return false;
3428:
3429: WHEN OTHERS THEN
3430: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn);
3431: return false;
3432:
3433: END validate_cost_change;
3434:
3480:
3481: EXCEPTION
3482:
3483: WHEN dup_err THEN
3484: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3485: name => 'FA_TFR_SAME_LINE');
3486: return false;
3487:
3488: WHEN OTHERS THEN
3486: return false;
3487:
3488: WHEN OTHERS THEN
3489:
3490: fa_srvr_msg.add_sql_error(
3491: calling_fn => l_calling_fn );
3492:
3493: return false;
3494:
3523: X_method => p_method_code,
3524: X_life => p_life_in_months,
3525: p_log_level_rec => p_log_level_rec
3526: ) then
3527: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn);
3528:
3529: return FALSE;
3530: end if;
3531:
3550: /*
3551: -- No adjustments allowed on Polish mechanisms.
3552: if (p_transaction_type_code in ('ADJUSTMENT', 'CIP ADJUSTMENT',
3553: 'GROUP ADJUSTMENT')) then
3554: fa_srvr_msg.add_message(
3555: calling_fn => l_calling_fn,
3556: name => 'FA_POLISH_NO_ADJ');
3557: return FALSE;
3558: end if;
3558: end if;
3559:
3560: -- No partial retirements allowed on Polish mechanisms.
3561: if (p_transaction_type_code = 'PARTIAL RETIREMENT') then
3562: fa_srvr_msg.add_message(
3563: calling_fn => l_calling_fn,
3564: name => 'FA_POLISH_NO_PARTIAL_RET');
3565: return FALSE;
3566: end if;
3566: end if;
3567: */
3568: -- No revaluations allowed on Polish mechanisms.
3569: if (p_transaction_type_code = 'REVALUATION') then
3570: fa_srvr_msg.add_message(
3571: calling_fn => l_calling_fn,
3572: name => 'FA_POLISH_NO_REVAL');
3573: return FALSE;
3574: end if;
3574: end if;
3575:
3576: -- No tax reserve adjustments allowed on Polish mechanisms.
3577: if (p_transaction_type_code = 'TAX RESERVE ADJUSTMENT') then
3578: fa_srvr_msg.add_message(
3579: calling_fn => l_calling_fn,
3580: name => 'FA_POLISH_NO_TAX_RSV_ADJ');
3581: return FALSE;
3582: end if;
3587: 'GROUP ADDITION')) then
3588:
3589: -- No backdated additions for Polish.
3590: if (p_date_placed_in_service < p_calendar_period_open_date) then
3591: fa_srvr_msg.add_message(
3592: calling_fn => l_calling_fn,
3593: name => 'FA_POLISH_NO_PRIOR_ADD');
3594: return FALSE;
3595: end if;
3595: end if;
3596:
3597: -- No adding an Polish asset with reserve.
3598: if ((nvl(p_ytd_deprn,0) <> 0) OR (nvl(p_deprn_reserve,0) <> 0)) then
3599: fa_srvr_msg.add_message(
3600: calling_fn => l_calling_fn,
3601: name => 'FA_POLISH_NO_ADD_RSV');
3602: return FALSE;
3603: end if;
3616: FA_STD_TYPES.FAD_DBR_POLISH_3,
3617: FA_STD_TYPES.FAD_DBR_POLISH_4,
3618: FA_STD_TYPES.FAD_DBR_POLISH_5))) then
3619:
3620: fa_srvr_msg.add_message(
3621: calling_fn => l_calling_fn,
3622: name => 'FA_POLISH_NO_BONUS_RULE');
3623: return FALSE;
3624: end if;
3624: end if;
3625:
3626: -- No ceilings allowed on Polish rules
3627: if (p_ceiling_name is not null) then
3628: fa_srvr_msg.add_message(
3629: calling_fn => l_calling_fn,
3630: name => 'FA_POLISH_NO_CEILING');
3631: return FALSE;
3632: end if;
3632: end if;
3633:
3634: -- No depreciation limits allowed on Polish rules
3635: if (nvl(p_deprn_limit_type, 'NONE') <> 'NONE') then
3636: fa_srvr_msg.add_message(
3637: calling_fn => l_calling_fn,
3638: name => 'FA_POLISH_NO_LIMIT');
3639: return FALSE;
3640: end if;
3640: end if;
3641:
3642: -- No group assets or members of group assets allowed to have Polish
3643: if (p_asset_type = 'GROUP') OR (p_group_asset_id is not null) then
3644: fa_srvr_msg.add_message(
3645: calling_fn => l_calling_fn,
3646: name => 'FA_POLISH_NO_GROUP');
3647: return FALSE;
3648: end if;
3652:
3653: EXCEPTION
3654: WHEN OTHERS THEN
3655:
3656: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn );
3657:
3658: return FALSE;
3659:
3660: END validate_polish;
3695: fa_debug_pkg.add(l_calling_fn, 'p_new_super_group_id', p_new_super_group_id);
3696: fa_debug_pkg.add(l_calling_fn, 'This Super group is used', 'TRUE');
3697: end if;
3698:
3699: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3700: name => 'FA_SUPER_GROUP_USED');
3701:
3702: return FALSE;
3703: end if; -- (c_check_used%FOUND)
3718: fa_debug_pkg.add(l_calling_fn, 'p_new_super_group_id', p_new_super_group_id);
3719: fa_debug_pkg.add(l_calling_fn, 'EXCEPTION: OTHERS', sqlerrm);
3720: end if;
3721:
3722: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn );
3723:
3724: return FALSE;
3725: END validate_super_group;
3726:
3750: into l_group_dpis;
3751: close c_group_dpis;
3752:
3753: if (p_date_placed_in_service < l_group_dpis) then
3754: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3755: name => 'FA_INVALID_MEMBER_DPIS',
3756: token1 => 'DATE',
3757: value1 => l_group_dpis);
3758: return false;
3761: end if;
3762:
3763: EXCEPTION
3764: WHEN OTHERS THEN
3765: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn);
3766: return false;
3767:
3768: END validate_member_dpis;
3769:
3801: fa_debug_pkg.add(l_calling_fn, 'p_rule_name', p_rule_name);
3802: fa_debug_pkg.add(l_calling_fn, 'EXCEPTION: OTHERS', sqlerrm);
3803: end if;
3804:
3805: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn );
3806:
3807: return FALSE;
3808: END validate_egy_prod_date;
3809:
3847: fa_debug_pkg.add(l_calling_fn, 'p_book_type_code', p_book_type_code);
3848: fa_debug_pkg.add(l_calling_fn, 'EXCEPTION: OTHERS', sqlerrm);
3849: end if;
3850:
3851: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn);
3852:
3853: return false;
3854: END validate_reval_exists;
3855:
3876: p_asset_fin_rec_adj.date_placed_in_service);
3877: end if;
3878:
3879: if (nvl(p_asset_fin_rec_adj.cost,0) <> 0) then
3880: fa_srvr_msg.add_message(
3881: calling_fn => l_calling_fn,
3882: name => 'FA_JP_COST_CHG_NOT_ALLOWED');
3883: return FALSE;
3884: end if;
3884: end if;
3885:
3886: if (p_asset_fin_rec_old.deprn_method_code <> nvl(p_asset_fin_rec_adj.deprn_method_code,
3887: p_asset_fin_rec_old.deprn_method_code)) then
3888: fa_srvr_msg.add_message(
3889: calling_fn => l_calling_fn,
3890: name => 'FA_JP_METHOD_CHG_NOT_ALLOWED');
3891: return FALSE;
3892: end if;
3899:
3900: -- Cannot use extended deprn with MRC books.
3901: if (l_mrc_count > 0) then
3902:
3903: fa_srvr_msg.add_message(
3904: calling_fn => l_calling_fn,
3905: name => 'FA_JP_MRC_NOT_ALLOWED');
3906:
3907: return FALSE;
3909:
3910: -- prevent salvage value change
3911: if (nvl(p_asset_fin_rec_adj.percent_salvage_value, 0) <> 0 or
3912: nvl(p_asset_fin_rec_adj.salvage_value, 0) <> 0)then
3913: fa_srvr_msg.add_message(
3914: calling_fn => l_calling_fn,
3915: name => 'FA_JP_SALVAGE_CHG_NOT_ALLOWED');
3916: return FALSE;
3917: end if;
3918:
3919: -- prevent deprn_limit change
3920: if (nvl(p_asset_fin_rec_adj.allowed_deprn_limit_amount, 0) <> 0 or
3921: nvl(p_asset_fin_rec_adj.allowed_deprn_limit, 0) <> 0) then
3922: fa_srvr_msg.add_message(
3923: calling_fn => l_calling_fn,
3924: name => 'FA_JP_LIMIT_CHG_NOT_ALLOWED');
3925: return FALSE;
3926: end if;
3927:
3928: -- prevent dpis change
3929: if (p_asset_fin_rec_old.date_placed_in_service <> nvl(p_asset_fin_rec_adj.date_placed_in_service,
3930: p_asset_fin_rec_old.date_placed_in_service)) then
3931: fa_srvr_msg.add_message(
3932: calling_fn => l_calling_fn,
3933: name => 'FA_JP_DPIS_CHG_NOT_ALLOWED');
3934: return FALSE;
3935: end if;
3949: p_asset_fin_rec_adj.deprn_method_code);
3950: fa_debug_pkg.add(l_calling_fn, 'EXCEPTION: OTHERS', sqlerrm);
3951: end if;
3952:
3953: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn );
3954:
3955: return FALSE;
3956: END validate_extended_asset;
3957:
3990: FETCH c_mem_exists INTO l_dummy;
3991: CLOSE c_mem_exists;
3992:
3993: if (l_dummy > 0) then
3994: fa_srvr_msg.add_message(
3995: calling_fn => l_calling_fn,
3996: name =>'FA_MEMBER_EXIST_IN_GROUP');
3997: l_valid_parameter := FALSE;
3998: else
4004: end if;
4005:
4006: if (not l_valid_parameter) then
4007: if (p_asset_fin_rec_adj.salvage_type = 'SUM') then
4008: fa_srvr_msg.add_message(
4009: calling_fn => l_calling_fn,
4010: name => 'FA_INVALID_PARAMETER',
4011: token1 => 'VALUE',
4012: value1 => p_asset_fin_rec_adj.salvage_type,
4013: token2 => 'PARAM',
4014: value2 => 'SALVAGE_TYPE',
4015: p_log_level_rec => p_log_level_rec);
4016: else
4017: fa_srvr_msg.add_message(
4018: calling_fn => l_calling_fn,
4019: name => 'FA_INVALID_PARAMETER',
4020: token1 => 'VALUE',
4021: value1 => p_asset_fin_rec_adj.deprn_limit_type,
4043: p_asset_fin_rec_adj.deprn_limit_type);
4044: fa_debug_pkg.add(l_calling_fn, 'EXCEPTION: OTHERS', sqlerrm);
4045: end if;
4046:
4047: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn );
4048:
4049: return FALSE;
4050: END validate_sal_deprn_sum;
4051: