[Home] [Help]
1: PACKAGE BODY FA_ASSET_VAL_PVT as
2: /* $Header: FAVVALB.pls 120.136.12020000.7 2013/03/19 18:11:01 dvjoshi ship $ */
3:
4: FUNCTION validate
5: (p_trans_rec IN FA_API_TYPES.trans_rec_type,
424: return TRUE;
425:
426: EXCEPTION
427: when val_err then
428: fa_srvr_msg.add_message(calling_fn => 'fa_asset_val_pvt.validate', p_log_level_rec => p_log_level_rec);
429: return FALSE;
430:
431: END;
432:
454: where asset_number = upper(p_asset_number);
455:
456: if (l_count > 0) then
457: fa_srvr_msg.add_message(
458: calling_fn => 'fa_asset_val_pvt.validate_asset_number',
459: name => 'FA_ADD_ASSET_NUMBER_USED', p_log_level_rec => p_log_level_rec);
460: return FALSE;
461: end if;
462:
472:
473: --if (l_count > 1) then
474: if (l_count > 0) then -- fix for bug 3433702
475: fa_srvr_msg.add_message(
476: calling_fn => 'fa_asset_val_pvt.validate_asset_number',
477: name => 'FA_ADD_ASSET_NUMBER_USED', p_log_level_rec => p_log_level_rec);
478: return FALSE;
479: end if;
480: end if;
509: when value_error then
510: null;
511: when others then
512: fa_srvr_msg.add_message(
513: calling_fn => 'fa_asset_val_pvt.validate_asset_number',
514: name => 'FA_ASSET_NUMBER',
515: token1 => 'ASSET_NUMBER',
516: value1 => p_asset_number, p_log_level_rec => p_log_level_rec);
517: return FALSE;
518: end;
519:
520: if not fa_cache_pkg.fazsys(p_log_level_rec => p_log_level_rec) then
521: fa_srvr_msg.add_message (
522: calling_fn => 'fa_asset_val_pvt.validate_asset_number', p_log_level_rec => p_log_level_rec);
523: end if;
524:
525: -- Fix for Bug #2585811. You don't need to validate if they
526: -- are using custom asset numbering.
528: fa_cache_pkg.fazsys_record.initial_asset_id) and
529: (nvl(fa_cache_pkg.fazsys_record.use_custom_asset_numbers_flag, 'N') <> 'Y')
530: ) then
531: fa_srvr_msg.add_message(
532: calling_fn => 'fa_asset_val_pvt.validate_asset_number',
533: name => 'FA_ADD_AUTOMATIC_NUMBER', p_log_level_rec => p_log_level_rec);
534: return FALSE;
535: end if;
536: end if;
537: end if;
538: else -- Asset Number is NULL
539: if not fa_cache_pkg.fazsys(p_log_level_rec => p_log_level_rec) then
540: fa_srvr_msg.add_message (
541: calling_fn => 'fa_asset_val_pvt.validate_asset_number', p_log_level_rec => p_log_level_rec);
542: end if;
543:
544: -- Fix for Bug #2585811. If they are using custom asset numbering,
545: -- they must populate asset number.
546: if (nvl(fa_cache_pkg.fazsys_record.use_custom_asset_numbers_flag, 'N')
547: = 'Y')
548: then
549: fa_srvr_msg.add_message(
550: calling_fn => 'fa_asset_val_pvt.validate_asset_number',
551: name => 'FA_NULL_CUSTOM_ASSET_NUMBER', p_log_level_rec => p_log_level_rec);
552: return FALSE;
553: end if;
554: end if;
567: BEGIN
568:
569: if (p_owned_leased not in ('OWNED', 'LEASED')) then
570: fa_srvr_msg.add_message(
571: calling_fn => 'fa_asset_val_pvt.validate_owned_leased',
572: name => 'FA_INVALID_PARAMETER',
573: token1 => 'OWNED_LEASED',
574: value1 => nvl(p_owned_leased, '-999'),
575: p_log_level_rec => p_log_level_rec);
593: if not fa_cache_pkg.fazcat (
594: X_cat_id => p_category_id
595: , p_log_level_rec => p_log_level_rec) then
596: fa_srvr_msg.add_message(
597: calling_fn => 'fa_asset_val_pvt.validate_asset_category', p_log_level_rec => p_log_level_rec);
598: return FALSE;
599: end if;
600:
601: -- Check that the category is enabled.
600:
601: -- Check that the category is enabled.
602: if (fa_cache_pkg.fazcat_record.enabled_flag <> 'Y') then
603: fa_srvr_msg.add_message(
604: calling_fn => 'fa_asset_val_pvt.validate_asset_category',
605: name => 'FA_INCORRECT_CATEGORY_ID',
606: token1 => 'CATEGORY_ID',
607: value1 => p_category_id, p_log_level_rec => p_log_level_rec);
608: return FALSE;
618: , p_log_level_rec => p_log_level_rec)) then
619:
620: if (fa_cache_pkg.fazcbc_record.book_class = 'TAX') then
621: fa_srvr_msg.add_message(
622: calling_fn => 'fa_asset_val_pvt.validate_asset_category',
623: name => 'FA_MCP_CAT_NOT_IN_TAX', p_log_level_rec => p_log_level_rec);
624: else
625: fa_srvr_msg.add_message(
626: calling_fn => 'fa_asset_val_pvt.validate_asset_category',
622: calling_fn => 'fa_asset_val_pvt.validate_asset_category',
623: name => 'FA_MCP_CAT_NOT_IN_TAX', p_log_level_rec => p_log_level_rec);
624: else
625: fa_srvr_msg.add_message(
626: calling_fn => 'fa_asset_val_pvt.validate_asset_category',
627: name => 'FA_BOOK_CAT_NOT_SET_UP', p_log_level_rec => p_log_level_rec);
628: end if;
629:
630: return FALSE;
649: (p_transaction_type_code = 'CIP ADDITION')) then
650:
651: IF (Nvl(p_current_units,0) < 0) THEN /* Added for Bug 13644806 Start */
652: fa_srvr_msg.add_message(
653: calling_fn => 'fa_asset_val_pvt.validate_current_units',
654: name => 'FA_TFR_NONZERO', p_log_level_rec => p_log_level_rec);
655: return FALSE;
656: END IF ;
657: --Checking if the current units contain fractional value
660: return TRUE;
661: else
662:
663: fa_srvr_msg.add_message(
664: calling_fn => 'fa_asset_val_pvt.validate_current_units',
665: name => 'FA_NO_FRAC_UNITS', p_log_level_rec => p_log_level_rec);
666: return FALSE;
667: end if;
668: end if;
715: -- check if the flexfield has any required segments
716: if G_asset_key_required is null then
717: if not fa_cache_pkg.fazsys(p_log_level_rec) then
718: fa_srvr_msg.add_message(
719: calling_fn => 'fa_asset_val_pvt.validate_asset_key', p_log_level_rec => p_log_level_rec);
720: return false;
721: end if;
722:
723: open c_asset_key_req;
734:
735: -- check if the combination is null and required
736: if G_asset_key_required and p_asset_key_ccid is null then
737: fa_srvr_msg.add_message(
738: calling_fn => 'fa_asset_val_pvt.validate_asset_key',
739: name => 'FA_NULL_ASSET_KEY',
740: token1 => 'ASSET_KEY',
741: value1 => NULL, p_log_level_rec => p_log_level_rec);
742: return false;
752: and enabled_flag = 'Y';
753:
754: if (l_is_asset_key_valid = 0) then
755: fa_srvr_msg.add_message(
756: calling_fn => 'fa_asset_val_pvt.validate_asset_key',
757: name => 'FA_INCORRECT_ASSET_KEY',
758: token1 => 'ASSET_KEY_CCID',
759: value1 => p_asset_key_ccid, p_log_level_rec => p_log_level_rec);
760: return false;
782: (p_asset_type = 'EXPENSED') or
783: (p_asset_type = 'GROUP')) then
784:
785: fa_srvr_msg.add_message(
786: calling_fn => 'fa_asset_val_pvt.validate_asset_type',
787: name => 'FA_DPR_BAD_ASSET_TYPE', p_log_level_rec => p_log_level_rec);
788: return FALSE;
789: end if;
790:
792: if ((fa_cache_pkg.fazcat_record.capitalize_flag = 'YES') and
793: (p_asset_type = 'EXPENSED')) then
794:
795: fa_srvr_msg.add_message(
796: calling_fn => 'fa_asset_val_pvt.validate_asset_type',
797: name => 'FA_INCORRECT_ASSET_TYPE', p_log_level_rec => p_log_level_rec);
798: return FALSE;
799: end if;
800:
803: (p_asset_type = 'CIP') or
804: (p_asset_type = 'GROUP'))) then
805:
806: fa_srvr_msg.add_message(
807: calling_fn => 'fa_asset_val_pvt.validate_asset_type',
808: name => 'FA_INCORRECT_ASSET_TYPE', p_log_level_rec => p_log_level_rec);
809: return FALSE;
810: end if;
811:
814: if ((fa_cache_pkg.fazccb_record.cip_clearing_acct is null) OR
815: (fa_cache_pkg.fazccb_record.cip_cost_acct is null)) then
816:
817: fa_srvr_msg.add_message(
818: calling_fn => 'fa_asset_val_pvt.validate_asset_type',
819: name => 'FA_SHARED_NO_CIP_ACCOUNTS', p_log_level_rec => p_log_level_rec);
820: return FALSE;
821: end if;
822: end if;
824: -- do not allow group if not enabled
825: if (p_asset_type = 'GROUP' and
826: nvl(fa_cache_pkg.fazcbc_record.allow_group_deprn_flag, 'N') <> 'Y') then
827: fa_srvr_msg.add_message(
828: calling_fn => 'fa_asset_val_pvt.validate_asset_type',
829: name => '***FA_GROUP_NOT_ALLOWED***',
830: p_log_level_rec => p_log_level_rec);
831: return FALSE;
832: end if;
845: if ((p_depreciate_flag <> 'YES' and
846: p_depreciate_flag <> 'NO') or
847: p_depreciate_flag IS NULL) then
848: fa_srvr_msg.add_message(
849: calling_fn => 'fa_asset_val_pvt.val_depreciate_flag',
850: name => 'FA_INCORRECT_DEPRECIATE_FLAG', p_log_level_rec => p_log_level_rec);
851: return FALSE;
852: end if;
853:
901: -- Validate that book is active.
902: if (fa_cache_pkg.fazcbc_record.date_ineffective is not null) then
903:
904: fa_srvr_msg.add_message(
905: calling_fn => 'fa_asset_val_pvt.validate_asset_book',
906: name => 'FA_BOOK_INEFFECTIVE_BOOK', p_log_level_rec => p_log_level_rec);
907: return FALSE;
908: end if;
909:
920: and rownum <= 1;
921:
922: if (l_exists > 0) then
923: fa_srvr_msg.add_message(
924: calling_fn => 'fa_asset_val_pvt.validate_asset_book',
925: name => 'FA_MCP_IN_TAX_BOOK',
926: token1 => 'ASSET',
927: value1 => to_char (p_asset_id),
928: token2 => 'BOOK',
947: and bks.asset_id = p_asset_id;
948:
949: if (l_exists = 0) then
950: fa_srvr_msg.add_message(
951: calling_fn => 'fa_asset_val_pvt.validate_asset_book',
952: name => 'FA_MASSCHG_NOT_IN_CORP', p_log_level_rec => p_log_level_rec);
953: return FALSE;
954: end if;
955: end if;
963: and rownum <= 1;
964:
965: if (l_exists = 0) then
966: fa_srvr_msg.add_message(
967: calling_fn => 'fa_asset_val_pvt.validate_asset_book',
968: name => 'FA_EXP_GET_ASSET_INFO', p_log_level_rec => p_log_level_rec);
969: return false;
970: end if;
971:
973: p_transaction_type_code = 'RECLASS' or
974: p_transaction_type_code = 'UNIT ADJUSTMENT') and
975: fa_cache_pkg.fazcbc_record.book_class <> 'CORPORATE') then
976: fa_srvr_msg.add_message(
977: calling_fn => 'fa_asset_val_pvt.validate_asset_book',
978: name => '***FA_BOOK_NOT_CORP***',
979: p_log_level_rec => p_log_level_rec);
980: return false;
981: end if;
1039: -- If asset type is CIP, cost should be zero.
1040: if ((fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE') AND
1041: (p_asset_type = 'CIP') AND (p_cost <> 0) AND (p_num_invoices = 0)) then
1042: fa_srvr_msg.add_message(
1043: calling_fn => 'fa_asset_val_pvt.validate_cost',
1044: name => 'FA_BOOK_CIP_COST', p_log_level_rec => p_log_level_rec);
1045: return FALSE;
1046: elsif (p_asset_type = 'GROUP' and
1047: p_cost <> 0) then
1045: return FALSE;
1046: elsif (p_asset_type = 'GROUP' and
1047: p_cost <> 0) then
1048: fa_srvr_msg.add_message(
1049: calling_fn => 'fa_asset_val_pvt.validate_cost',
1050: name => '***FA_BOOK_GROUP_COST***',
1051: p_log_level_rec => p_log_level_rec);
1052: return FALSE;
1053: end if;
1084:
1085: if (l_rowcount = 0) then
1086: -- bugfix 3854700
1087: fa_srvr_msg.add_message(
1088: calling_fn => 'fa_asset_val_pvt.validate_assigned_to',
1089: name => 'FA_EMP_NOT_VALID' , p_log_level_rec => p_log_level_rec);
1090: return FALSE;
1091: end if;
1092: end if;
1107:
1108: -- The location ccid cannot be null.
1109: if (p_location_ccid is null) then
1110: fa_srvr_msg.add_message(
1111: calling_fn => 'fa_asset_val_pvt.validate_location_ccid',
1112: name => 'FA_NULL_LOCATION', p_log_level_rec => p_log_level_rec);
1113: return FALSE;
1114: end if;
1115:
1121: and enabled_flag = 'Y';
1122:
1123: if (l_is_location_valid = 0) then
1124: fa_srvr_msg.add_message(
1125: calling_fn => 'fa_asset_val_pvt.validate_location_ccid',
1126: name => 'FA_INCORRECT_LOCATION',
1127: token1 => 'LOCATION_ID',
1128: value1 => p_location_ccid, p_log_level_rec => p_log_level_rec);
1129: return FALSE;
1206: if (NOT fa_cache_pkg.fazcbc (
1207: X_book => p_book_type_code
1208: )) then
1209: fa_srvr_msg.add_message(
1210: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1211: name => 'FA_POST_INVALID_BOOK');
1212: return FALSE;
1213: end if;
1214: end if;
1215:
1216: -- Validate that dpis passes the LOW_RANGE criteria (fa_date.validate)
1217: if (p_date_placed_in_service < to_date('1000/01/01', 'YYYY/MM/DD')) then
1218: fa_srvr_msg.add_message(
1219: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1220: name => 'FA_YEAR_GREATER_THAN', p_log_level_rec => p_log_level_rec);
1221: return FALSE;
1222: end if;
1223:
1222: end if;
1223:
1224: -- Check that dpis is not too old.
1225: if not fa_cache_pkg.fazsys(p_log_level_rec => p_log_level_rec) then
1226: fa_srvr_msg.add_message(calling_fn => 'fa_asset_val_pvt.validate_dpis', p_log_level_rec => p_log_level_rec);
1227: return false;
1228: else
1229: l_earliest_dpis := fa_cache_pkg.fazsys_record.date_placed_in_service;
1230: end if;
1230: end if;
1231:
1232: if (p_date_placed_in_service < l_earliest_dpis) then
1233: fa_srvr_msg.add_message(
1234: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1235: name => 'FA_BOOK_DPIS_TOO_OLD', p_log_level_rec => p_log_level_rec);
1236: return FALSE;
1237: end if;
1238:
1245: (p_book => p_book_type_code,
1246: p_effective_date => NULL,
1247: x_period_rec => l_period_rec, p_log_level_rec => p_log_level_rec) then
1248:
1249: fa_srvr_msg.add_message(calling_fn => 'fa_asset_val_pvt.validate_dpis', p_log_level_rec => p_log_level_rec);
1250: return false;
1251: end if;
1252:
1253: if (p_date_placed_in_service <> nvl(p_old_date_placed_in_service, p_date_placed_in_service) ) and
1253: if (p_date_placed_in_service <> nvl(p_old_date_placed_in_service, p_date_placed_in_service) ) and
1254: (p_date_placed_in_service < l_period_rec.calendar_period_open_date) then
1255:
1256: if (p_log_level_rec.statement_level) then
1257: fa_debug_pkg.add('fa_asset_val_pvt.validate_dpis', 'Error', p_date_placed_in_service, p_log_level_rec => p_log_level_rec);
1258: end if;
1259:
1260: fa_srvr_msg.add_message(
1261: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1257: fa_debug_pkg.add('fa_asset_val_pvt.validate_dpis', 'Error', p_date_placed_in_service, p_log_level_rec => p_log_level_rec);
1258: end if;
1259:
1260: fa_srvr_msg.add_message(
1261: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1262: name => 'FA_CURRENT_DATE_ONLY', p_log_level_rec => p_log_level_rec);
1263: return FALSE;
1264: end if;
1265:
1282: (p_book => p_book_type_code,
1283: p_effective_date => NULL,
1284: x_period_rec => l_period_rec
1285: , p_log_level_rec => p_log_level_rec) then
1286: fa_srvr_msg.add_message(calling_fn => 'fa_asset_val_pvt.validate_dpis', p_log_level_rec => p_log_level_rec);
1287: return false;
1288: end if;
1289:
1290: if (p_date_placed_in_service > l_period_rec.calendar_period_close_date) then
1288: end if;
1289:
1290: if (p_date_placed_in_service > l_period_rec.calendar_period_close_date) then
1291: fa_srvr_msg.add_message(
1292: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1293: name => 'FA_BOOK_FUTURE_PERIOD_DPIS', p_log_level_rec => p_log_level_rec);
1294: return FALSE;
1295: end if;
1296:
1310:
1311: exception
1312: when others then
1313: fa_srvr_msg.add_message(
1314: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1315: name => 'FA_BOOK_CANT_GEN_PRORATE_DATE', p_log_level_rec => p_log_level_rec);
1316: return FALSE;
1317: end;
1318:
1328:
1329: exception
1330: when others then
1331: fa_srvr_msg.add_message(
1332: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1333: name => 'FA_BKS_INVALID_PRORATE_DATE', p_log_level_rec => p_log_level_rec);
1334: return FALSE;
1335: end;
1336:
1348: X_fiscal_year => l_dpis_fy,
1349: X_start_jdate => l_start_jdate
1350: , p_log_level_rec => p_log_level_rec)) then
1351: fa_srvr_msg.add_message(
1352: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1353: name => 'FA_PROD_INCORRECT_DATE', p_log_level_rec => p_log_level_rec);
1354: return FALSE;
1355: end if;
1356:
1371:
1372: -- Use message FA_AMORT_DATE_INVALID until new message
1373: -- FA_INVALID_DPIS is available
1374: fa_srvr_msg.add_message(
1375: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1376: -- name => 'FA_INVALID_DPIS', p_log_level_rec => p_log_level_rec);
1377: name => 'FA_AMORT_DATE_INVALID',
1378: p_log_level_rec => p_log_level_rec);
1379: return FALSE;
1427: if (abs(p_adjusted_recoverable_cost) < abs(p_deprn_reserve) or
1428: (sign(p_adjusted_recoverable_cost) <> 0 and
1429: sign(p_adjusted_recoverable_cost) = -sign(p_deprn_reserve))) then
1430: fa_srvr_msg.add_message(
1431: calling_fn => 'fa_asset_val_pvt.val_adj_rec_cost',
1432: name => 'FA_BOOK_INVALID_RESERVE', p_log_level_rec => p_log_level_rec);
1433: return FALSE;
1434: end if;
1435:
1477: nvl(p_asset_deprn_rec_new.reval_ytd_deprn, 0) <> 0 or
1478: nvl(p_asset_fin_rec_new.reval_amortization_basis, 0) <> 0 or
1479: nvl(p_asset_fin_rec_new.fully_rsvd_revals_counter, 0) <> 0)) then
1480: fa_srvr_msg.add_message(
1481: calling_fn => 'fa_asset_val_pvt.validate_ytd_reserve',
1482: name => 'FA_BOOK_INVALID_RESERVE', p_log_level_rec => p_log_level_rec);
1483: return FALSE;
1484: end if;
1485:
1495: p_asset_fin_rec_new.date_placed_in_service >= p_period_rec.calendar_period_open_date and
1496: (p_asset_deprn_rec_new.deprn_reserve <> 0 or
1497: p_asset_deprn_rec_new.ytd_deprn <> 0)) then
1498: fa_srvr_msg.add_message(
1499: calling_fn => 'fa_asset_val_pvt.validate_ytd_reserve',
1500: name => 'FA_NO_RSV_IN_FIRST_PERIOD', p_log_level_rec => p_log_level_rec);
1501: return false;
1502: end if;
1503: /*Fix for bug 8790562 - Not allowing reserve to be Zero*/
1505: p_asset_fin_rec_new.date_placed_in_service >= p_period_rec.calendar_period_open_date and
1506: (p_asset_deprn_rec_old.ytd_deprn <> 0 and p_asset_deprn_rec_old.deprn_reserve <> 0) and
1507: (p_asset_deprn_rec_new.deprn_reserve = 0 or p_asset_deprn_rec_new.ytd_deprn = 0)) then
1508: fa_srvr_msg.add_message(
1509: calling_fn => 'fa_asset_val_pvt.validate_ytd_reserve',
1510: name => 'FA_NO_RSV_IN_FIRST_PERIOD', p_log_level_rec => p_log_level_rec);
1511: return false;
1512: end if;
1513:
1515: if (p_asset_fin_rec_new.prorate_date >= p_period_rec.fy_start_date and
1516: p_asset_fin_rec_new.prorate_date <= p_period_rec.fy_end_date) then
1517: if (p_asset_deprn_rec_new.ytd_deprn <> p_asset_deprn_rec_new.deprn_reserve) then
1518: fa_srvr_msg.add_message(
1519: calling_fn => 'fa_asset_val_pvt.validate_ytd_reserve',
1520: name => 'FA_BOOK_RSV_EQL_YTD', p_log_level_rec => p_log_level_rec);
1521: return FALSE;
1522: end if;
1523: else
1530: (sign(p_asset_deprn_rec_new.ytd_deprn) = 0) or
1531: (sign(p_asset_deprn_rec_new.deprn_reserve) = 0)) and
1532: (l_abs_ytd_deprn > l_abs_deprn_reserve)) then
1533: fa_srvr_msg.add_message(
1534: calling_fn => 'fa_asset_val_pvt.validate_ytd_reserve',
1535: name => 'FA_BOOK_YTD_EXCEED_RSV', p_log_level_rec => p_log_level_rec);
1536: return FALSE;
1537: end if;
1538: end if;
1541:
1542: EXCEPTION
1543: when others then
1544: fa_srvr_msg.add_sql_error(
1545: calling_fn => 'fa_asset_val_pvt.validate_ytd_reserve', p_log_level_rec => p_log_level_rec);
1546: return false;
1547:
1548: END validate_ytd_reserve;
1549:
1569: -- The short_fiscal_year_flag should be YES or NO.
1570: if not ((p_short_fiscal_year_flag = 'YES') OR
1571: (p_short_fiscal_year_flag = 'NO')) then
1572: fa_srvr_msg.add_message(
1573: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1574: name => 'FA_INCORRECT_SHORT_FY_FLAG',
1575: token1 => 'SHORT_FY_FLAG',
1576: value1 => p_short_fiscal_year_flag, p_log_level_rec => p_log_level_rec);
1577: return FALSE;
1580: -- The short_fiscal_year_flag cannot be YES is the asset is not CAPITALIZED.
1581: if ((p_asset_type <> 'CAPITALIZED') AND
1582: (p_short_fiscal_year_flag = 'YES')) then
1583: fa_srvr_msg.add_message(
1584: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1585: name => 'FA_CANT_SET_SHORT_FY_FLAG', p_log_level_rec => p_log_level_rec);
1586: return FALSE;
1587: end if;
1588:
1589: -- The conversion date cannot be null if the short_fiscal_year_flag is YES.
1590: if ((p_short_fiscal_year_flag = 'YES') AND
1591: (p_conversion_date is NULL)) then
1592: fa_srvr_msg.add_message(
1593: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1594: name => 'FA_MUST_SET_CONV_DATE', p_log_level_rec => p_log_level_rec);
1595: return FALSE;
1596: end if;
1597:
1607: (p_transaction_type_code <> 'CIP ADDITION')) AND
1608: (p_short_fiscal_year_flag <> 'YES') AND
1609: (p_conversion_date is not NULL)) then
1610: fa_srvr_msg.add_message(
1611: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1612: name => 'FA_CONV_DATE_NO_VAL',
1613: token1 => 'CONV_DATE',
1614: value1 => p_conversion_date, p_log_level_rec => p_log_level_rec);
1615: return FALSE;
1621: (p_transaction_type_code <> 'CIP ADDITION')) AND
1622: (p_short_fiscal_year_flag <> 'YES') AND
1623: (px_orig_deprn_start_date is not NULL)) then
1624: fa_srvr_msg.add_message(
1625: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1626: name => 'FA_CONV_DATE_NO_VAL',
1627: token1 => 'CONV_DATE',
1628: value1 => px_orig_deprn_start_date, p_log_level_rec => p_log_level_rec);
1629: return FALSE;
1634: if (p_conversion_date is not null) then
1635: if (p_conversion_date < p_period_rec.calendar_period_open_date or
1636: p_conversion_date > p_period_rec.calendar_period_close_date) then
1637: fa_srvr_msg.add_message(
1638: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1639: name => 'FA_INCORRECT_CONV_DATE',
1640: token1 => 'CONV_DATE',
1641: value1 => p_conversion_date, p_log_level_rec => p_log_level_rec);
1642: return FALSE;
1644:
1645: -- Validate conversion_date <> current fiscal year end date.
1646: if (p_conversion_date = p_period_rec.fy_end_date) then
1647: fa_srvr_msg.add_message(
1648: calling_fn => 'fa_asset_val_pvt.validate_short_tax_year',
1649: name => 'FA_CONV_DATE_EQU_CURR_FYEND', p_log_level_rec => p_log_level_rec);
1650: return FALSE;
1651: end if;
1652: end if;
1665:
1666: begin
1667:
1668: if (p_transaction_date_entered > p_period_rec.calendar_period_close_date) then
1669: fa_srvr_msg.add_message(calling_fn => 'fa_asset_val_pvt.validate_trx_date_entered',
1670: name => 'FA_SHARED_CANNOT_FUTURE',
1671: p_log_level_rec => p_log_level_rec);
1672: return FALSE;
1673: end if;
1709: l_fy_name varchar2(45);
1710: l_cal_type varchar2(15);
1711: l_start_jdate number;
1712: l_period_rec FA_API_TYPES.period_rec_type;
1713: l_calling_fn varchar2(40) := 'fa_asset_val_pvt.val_amort_date';
1714: error_found exception;
1715:
1716: begin
1717:
1813: if (p_log_level_rec.statement_level) then
1814: fa_debug_pkg.add(l_calling_fn, 'Error', p_date_placed_in_service, p_log_level_rec => p_log_level_rec);
1815: end if;
1816: fa_srvr_msg.add_message(
1817: calling_fn => 'fa_asset_val_pvt.validate_dpis',
1818: name => 'FA_CURRENT_DATE_ONLY', p_log_level_rec => p_log_level_rec);
1819: return FALSE;
1820: end if;
1821:
1954: guarantee_rate
1955: FROM FA_FORMULAS
1956: WHERE method_id = p_method_id;
1957:
1958: l_calling_fn varchar2(35) := 'fa_asset_val_pvt.validate_life';
1959: error_found exception;
1960:
1961: BEGIN
1962:
1977: if (p_life_in_months <> 0) then
1978: px_new_life := p_life_in_months;
1979: else
1980: fa_srvr_msg.add_message(
1981: CALLING_FN => 'fa_asset_val_pvt.validate_life',
1982: NAME => 'FA_LIM_TDM_NOTDEF', p_log_level_rec => p_log_level_rec);
1983: raise error_found;
1984: end if;
1985:
2058: X_Attribute_Category_Code => null,
2059: X_Exclude_Salvage_Value_Flag => l_exclude_sal_flag,
2060: X_Polish_Adj_Calc_Basis_Flag => l_polish_adj_calc_basis_flag,
2061: X_Guarantee_Rate_Method_Flag => l_guarantee_rate_method_flag,
2062: X_Calling_Fn => 'fa_asset_val_pvt.validate_life', p_log_level_rec => p_log_level_rec);
2063:
2064: -- if formula based, we need to copy the formula too
2065: if (p_rate_source_rule = 'FORMULA') then
2066: OPEN C_FORMULA (p_method_id => l_method_id_old);
2074:
2075: IF C_FORMULA%NOTFOUND then
2076: CLOSE C_FORMULA;
2077: fa_srvr_msg.add_message(
2078: CALLING_FN => 'fa_asset_val_pvt.validate_life',
2079: NAME => 'FA_FORMULA_RATE_NO_DATA_FOUND', p_log_level_rec => p_log_level_rec);
2080: raise error_found;
2081: else
2082: CLOSE C_FORMULA;
2117:
2118: EXCEPTION
2119: when error_found then
2120: FA_SRVR_MSG.Add_Message(
2121: CALLING_FN => 'fa_asset_val_pvt.validate_life', p_log_level_rec => p_log_level_rec);
2122: return false;
2123:
2124: when others then
2125: FA_SRVR_MSG.Add_SQL_Error(
2122: return false;
2123:
2124: when others then
2125: FA_SRVR_MSG.Add_SQL_Error(
2126: CALLING_FN => 'fa_asset_val_pvt.validate_life', p_log_level_rec => p_log_level_rec);
2127: return false;
2128:
2129: END validate_life;
2130:
2153: and detail_posting_allowed_flag = 'Y';
2154:
2155: if (l_is_valid_payables_ccid = 0) then
2156: fa_srvr_msg.add_message(
2157: calling_fn => 'fa_asset_val_pvt.validate_payables_ccid',
2158: name => 'FA_INCORRECT_PAYABLES_ID', p_log_level_rec => p_log_level_rec);
2159: return FALSE;
2160: end if;
2161: else
2161: else
2162: -- Bug 885429 Payables CCID cannot be NULL, so set it to ZERO.
2163: -- Will generate the ccid based on default category if ccid is ZERO.
2164: fa_srvr_msg.add_message(
2165: calling_fn => 'fa_asset_val_pvt.validate_payables_ccid',
2166: name => 'FA_NULL_PAYABLES_CCID', p_log_level_rec => p_log_level_rec);
2167: px_payables_ccid := 0;
2168:
2169: return FALSE;
2185:
2186: -- Expense ccid cannot be null.
2187: if (p_expense_ccid is null) then
2188: fa_srvr_msg.add_message(
2189: calling_fn => 'fa_asset_val_pvt.validate_expense_ccid',
2190: name => 'FA_NULL_EXPENSE_CCID', p_log_level_rec => p_log_level_rec);
2191: return FALSE;
2192: end if;
2193:
2203: and detail_posting_allowed_flag = 'Y';
2204:
2205: if (l_is_valid_expense_ccid = 0) then
2206: fa_srvr_msg.add_message(
2207: calling_fn => 'fa_asset_val_pvt.validate_expense_ccid',
2208: name => 'FA_INCORRECT_EXPENSE_ID',
2209: token1 => 'EXPENSE_ID',
2210: value1 => p_expense_ccid, p_log_level_rec => p_log_level_rec);
2211: return FALSE;
2235:
2236: -- Fixed assets cost cannot be null.
2237: if (p_fixed_assets_cost is null) then
2238: fa_srvr_msg.add_message(
2239: calling_fn => 'fa_asset_val_pvt.validate_fixed_assets_cost',
2240: name => 'FA_NULL_FA_COST', p_log_level_rec => p_log_level_rec);
2241: return FALSE;
2242: end if;
2243:
2254:
2255: -- Fixed assets units cannot be null.
2256: if (p_fixed_assets_units is null) then
2257: fa_srvr_msg.add_message(
2258: calling_fn => 'fa_asset_val_pvt.validate_fixed_assets_units',
2259: name => 'FA_NULL_FA_UNITS', p_log_level_rec => p_log_level_rec);
2260: return FALSE;
2261: else
2262:
2262:
2263: -- Fixed assets units cannot be zero.
2264: if (p_fixed_assets_units = 0) then
2265: fa_srvr_msg.add_message(
2266: calling_fn => 'fa_asset_val_pvt.validate_fixed_assets_units',
2267: name => 'FA_ZERO_FA_UNITS', p_log_level_rec => p_log_level_rec);
2268: return FALSE;
2269: end if;
2270: end if;
2282:
2283: -- Payables cost cannot be null.
2284: if (p_payables_cost is null) then
2285: fa_srvr_msg.add_message(
2286: calling_fn => 'fa_asset_val_pvt.validate_payables_cost',
2287: name => 'FA_NULL_PA_COST', p_log_level_rec => p_log_level_rec);
2288: return FALSE;
2289: end if;
2290:
2301:
2302: -- Payables units cannot be null.
2303: if (p_payables_units is null) then
2304: fa_srvr_msg.add_message(
2305: calling_fn => 'fa_asset_val_pvt.validate_payables_units',
2306: name => 'FA_NULL_PA_UNITS', p_log_level_rec => p_log_level_rec);
2307: return FALSE;
2308: end if;
2309:
2329: where vendor_id = p_po_vendor_id;
2330:
2331: if (l_is_valid_vendor_id = 0) then
2332: fa_srvr_msg.add_message(
2333: calling_fn => 'fa_asset_val_pvt.validate_po_vendor_id',
2334: name => 'FA_INCORRECT_PO_VENDOR_ID', p_log_level_rec => p_log_level_rec);
2335: return FALSE;
2336: end if;
2337: end if;
2358: and nvl(disable_date, sysdate+1) > sysdate;
2359:
2360: if (l_is_valid_uom = 0) then
2361: fa_srvr_msg.add_message(
2362: calling_fn => 'fa_asset_val_pvt.validate_unit_of_measure',
2363: name => 'FA_INCORRECT_UOM', p_log_level_rec => p_log_level_rec);
2364: return FALSE;
2365: end if;
2366: return TRUE;
2372: p_nbv IN NUMBER,
2373: p_calling_fn IN VARCHAR2,
2374: p_log_level_rec IN FA_API_TYPES.log_level_rec_type) RETURN BOOLEAN IS
2375:
2376: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_salvage_value';
2377:
2378: BEGIN
2379:
2380: if (p_salvage_value is null or p_salvage_value = 0) then
2413: where tag_number = p_tag_number;
2414:
2415: if (l_tag_number_count > 0) then
2416: fa_srvr_msg.add_message(
2417: calling_fn => 'fa_asset_val_pvt.validate_tag_number',
2418: name => 'FA_ADD_TAG_NUMBER_EXISTS',
2419: token1 => 'TAG_NUMBER', -- Fix for Bug#5015917. Passed tag number token to
2420: -- display actual tag number in the log.
2421: value1 => p_tag_number,
2438:
2439: -- Split merged code cannot be zero.
2440: if (p_split_merged_code = 0) then
2441: fa_srvr_msg.add_message(
2442: calling_fn => 'fa_asset_val_pvt.validate_split_merged_code',
2443: name => 'FA_INCORRECT_SPLIT_MERGED_CODE', p_log_level_rec => p_log_level_rec);
2444: return FALSE;
2445: end if;
2446:
2525: l_rolled_back_imp := l_rolled_back_imp * 2;
2526:
2527: if ((l_count - l_rolled_back_imp) > 0) then
2528: fa_srvr_msg.add_message(
2529: calling_fn => 'fa_asset_val_pvt.validate_exp_after_amort',
2530: name => 'FA_BOOK_CANT_EXP_AFTER_AMORT', p_log_level_rec => p_log_level_rec);
2531: return FALSE;
2532: end if;
2533:
2570:
2571: EXCEPTION
2572: when others then
2573: fa_srvr_msg.add_sql_error(
2574: calling_fn => 'fa_asset_val_pvt.validate_exp_after_amort', p_log_level_rec => p_log_level_rec);
2575:
2576: return false;
2577:
2578: END validate_exp_after_amort;
2644: p_effective_date => NULL,
2645: x_period_rec => l_period_rec
2646: , p_log_level_rec => p_log_level_rec) then
2647: fa_srvr_msg.add_message (
2648: calling_fn => 'fa_asset_val_pvt.validate_period_of_addition', p_log_level_rec => p_log_level_rec);
2649: return false;
2650: end if;
2651:
2652: SELECT count(*)
2664: end if;
2665:
2666: else
2667: fa_srvr_msg.add_message (
2668: calling_fn => 'fa_asset_val_pvt.validate_period_of_addition',
2669: name => 'FA_CACHE_UNSUPPORTED_MODE', p_log_level_rec => p_log_level_rec);
2670: return false;
2671: end if;
2672:
2674:
2675: EXCEPTION
2676: when others then
2677: fa_srvr_msg.add_sql_error(
2678: calling_fn => 'fa_asset_val_pvt.validate_period_of_addition', p_log_level_rec => p_log_level_rec);
2679: return false;
2680:
2681: END validate_period_of_addition;
2682:
2706:
2707: EXCEPTION
2708: when others then
2709: fa_srvr_msg.add_sql_error(
2710: calling_fn => 'fa_asset_val_pvt.validate_period_of_addition', p_log_level_rec => p_log_level_rec);
2711: return false;
2712:
2713: END validate_fully_retired;
2714:
2737: end if;
2738:
2739: EXCEPTION
2740: when others then
2741: fa_srvr_msg.add_sql_error(calling_fn => 'fa_asset_val_pvt.validate_add_to_asset_pending',
2742: p_log_level_rec => p_log_level_rec);
2743: return false;
2744:
2745: END validate_add_to_asset_pending;
2767:
2768: EXCEPTION
2769: when others then
2770: fa_srvr_msg.add_sql_error(
2771: calling_fn => 'fa_asset_val_pvt.validate_asset_id_exist', p_log_level_rec => p_log_level_rec);
2772: return FALSE;
2773:
2774: END validate_asset_id_exist;
2775:
2798: EXCEPTION
2799:
2800: when others then
2801: fa_srvr_msg.add_sql_error(
2802: calling_fn => 'fa_asset_val_pvt.validate_ret_rst_pending', p_log_level_rec => p_log_level_rec);
2803:
2804: return FALSE;
2805:
2806: END validate_ret_rst_pending;
2823: if (l_count <> 0) then
2824: return TRUE;
2825: else
2826: fa_srvr_msg.add_message
2827: (calling_fn => 'fa_asset_val_pvt.validate_fa_lookup_code',
2828: name => '***FA_BAD_LOOKUP_CODE***',
2829: p_log_level_rec => p_log_level_rec);
2830: return FALSE;
2831: end if;
2831: end if;
2832:
2833: EXCEPTION
2834: when others then
2835: fa_srvr_msg.add_sql_error(calling_fn => 'fa_asset_val_pvt.validate_fa_lookup_code',
2836: p_log_level_rec => p_log_level_rec);
2837: return false;
2838:
2839: END validate_fa_lookup_code;
2855:
2856: if (l_count <> 0) then
2857: return TRUE;
2858: else
2859: fa_srvr_msg.add_message(calling_fn => 'fa_asset_val_pvt.validate_dist_id',
2860: p_log_level_rec => p_log_level_rec);
2861: return FALSE;
2862: end if;
2863:
2863:
2864: EXCEPTION
2865: when others then
2866: fa_srvr_msg.add_sql_error(
2867: calling_fn => 'fa_asset_val_pvt.validate_dist_id', p_log_level_rec => p_log_level_rec);
2868: return FALSE;
2869:
2870: END validate_dist_id;
2871:
2942: end if;
2943:
2944: EXCEPTION
2945: when others then
2946: fa_srvr_msg.add_sql_error(calling_fn => 'fa_asset_val_pvt.validate_corp_pending_ret',
2947: p_log_level_rec => p_log_level_rec);
2948:
2949: return false;
2950:
3190: and BOOK_TYPE_CODE = p_book_type_code);
3191:
3192: if l_count is null then
3193: fa_srvr_msg.add_message(
3194: calling_fn => 'fa_asset_val_pvt.validate_group_asset',
3195: name => 'FA_GROUP_NOT_IN_BOOK', p_log_level_rec => p_log_level_rec);
3196: return false;
3197: end if;
3198:
3199:
3200: if (p_asset_type <> 'CAPITALIZED' and
3201: p_asset_type <> 'CIP') then
3202: fa_srvr_msg.add_message(
3203: calling_fn => 'fa_asset_val_pvt.validate_group_asset',
3204: name => 'FA_INV_ASSET_TYPE', p_log_level_rec => p_log_level_rec);
3205: return false;
3206: end if;
3207:
3216: p_old_flag IN VARCHAR2,
3217: p_new_flag IN VARCHAR2,
3218: p_log_level_rec IN FA_API_TYPES.log_level_rec_type) return boolean is
3219:
3220: l_calling_fn varchar2(40) :='fa_asset_val_pvt.validate_disabled_flag';
3221:
3222: BEGIN
3223:
3224: IF ((NVL(p_old_flag,'N') Not IN ('Y','N')) OR
3256: p_log_level_rec IN FA_API_TYPES.log_level_rec_type) return boolean is
3257:
3258: l_has_members number;
3259: l_disabled number;
3260: l_calling_fn varchar2(40) :='fa_asset_val_pvt.validate_group_info';
3261:
3262: BEGIN
3263:
3264: SELECT count(1)
3269: AND disabled_flag = 'Y'
3270: AND transaction_header_id_out is null;
3271:
3272: if (l_disabled = 0) then
3273: if p_calling_fn <> 'fa_asset_val_pvt.validate_disabled_flag' then
3274: return true;
3275: else
3276: SELECT count(1)
3277: INTO l_has_members
3311: p_recapture_reserve_flag VARCHAR2 default null,
3312: p_deprn_limit_type VARCHAR2 default null,
3313: p_log_level_rec FA_API_TYPES.log_level_rec_type) return boolean is
3314:
3315: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_over_depreciate';
3316:
3317: l_member_count binary_integer := 0;
3318:
3319: BEGIN
3427: p_set_of_books_id number,
3428: p_over_depreciate_option varchar2,
3429: p_log_level_rec FA_API_TYPES.log_level_rec_type) return boolean is
3430:
3431: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_cost_change';
3432:
3433: CURSOR c_get_current_amts IS
3434: SELECT SUM(inbk_cost - NVL(outbk_cost, 0)) ,
3435: SUM(inbk_salvage_value - NVL(outbk_salvage_value, 0)) ,
3753: p_log_level_rec IN FA_API_TYPES.log_level_rec_type) return boolean IS
3754:
3755: l_high_bound number;
3756: dup_err exception;
3757: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_duplicate_dist';
3758:
3759: BEGIN
3760:
3761: l_high_bound := p_curr_index - 1;
3824: p_log_level_rec IN FA_API_TYPES.log_level_rec_type) RETURN BOOLEAN AS
3825:
3826: l_deprn_basis_rule varchar2(80);
3827: l_polish_rule number;
3828: l_calling_fn varchar2(35) := 'fa_asset_val_pvt.validate_polish';
3829:
3830: BEGIN
3831:
3832: -- First find out if we have a polish mechanism here
3984: p_log_level_rec IN FA_API_TYPES.log_level_rec_type) RETURN BOOLEAN AS
3985:
3986: l_mrc_count number := 0;
3987: l_override_count number := 0;
3988: l_calling_fn varchar2(35) := 'fa_asset_val_pvt.validate_jp250db';
3989:
3990: BEGIN
3991:
3992: -- First find out if we have a jp 250db mechanism here
4069: p_new_super_group_id IN NUMBER,
4070: p_calling_fn IN VARCHAR2,
4071: p_log_level_rec IN FA_API_TYPES.log_level_rec_type) RETURN BOOLEAN IS
4072:
4073: l_calling_fn varchar2(40) := 'fa_asset_val_pvt.validate_super_group';
4074:
4075: CURSOR c_check_used is
4076: select 'Y'
4077: from fa_super_group_rules
4143: and book_type_code = p_book_type_code
4144: and transaction_header_id_out is null;
4145:
4146: l_group_dpis date;
4147: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_member_dpis';
4148:
4149: BEGIN
4150:
4151: open c_group_dpis(p_group_asset_Id, p_book_type_code);
4178: p_rule_name IN VARCHAR2,
4179: p_calling_fn IN VARCHAR2,
4180: p_log_level_rec IN FA_API_TYPES.log_level_rec_type) RETURN BOOLEAN IS
4181:
4182: l_calling_fn varchar2(50) := 'FA_ASSET_VAL_PVT.validate_egy_prod_date';
4183:
4184: BEGIN
4185:
4186: if (p_log_level_rec.statement_level) then
4233: where Asset_ID = l_asset_id
4234: and Book_type_Code = l_book_type_code
4235: and Transaction_Type_Code = 'REVALUATION';
4236:
4237: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_reval_exists';
4238: l_reval_exists varchar2(1);
4239:
4240: BEGIN
4241:
4272: p_asset_fin_rec_old IN FA_API_TYPES.asset_fin_rec_type,
4273: p_asset_fin_rec_adj IN FA_API_TYPES.asset_fin_rec_type,
4274: p_log_level_rec IN FA_API_TYPES.log_level_rec_type) RETURN BOOLEAN IS
4275:
4276: l_calling_fn varchar2(50) := 'FA_ASSET_VAL_PVT.validate_extended_asset';
4277: l_mrc_count number := 0;
4278:
4279: BEGIN
4280:
4374: p_asset_type_rec IN FA_API_TYPES.asset_type_rec_type,
4375: p_period_rec IN FA_API_TYPES.period_rec_type,
4376: p_log_level_rec IN FA_API_TYPES.log_level_rec_type) RETURN BOOLEAN is
4377:
4378: l_calling_fn varchar2(50) := 'FA_ASSET_VAL_PVT.validate_extending_asset';
4379: l_count number :=0 ;
4380: BEGIN
4381:
4382: -- Bug 7491880 Validation for extended deprn on group/member
4466: l_error_msg l_msg_error_tbl;
4467: l_dummy_cnt number := 0;
4468: l_count number := 1;
4469: l_exception_code varchar2(100);
4470: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_JP_STL_EXTND';
4471: validate_ex exception;
4472:
4473: BEGIN
4474:
4561:
4562:
4563: l_count number := 1;
4564: l_exception_code varchar2(100);
4565: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_earl_deprn_limit';
4566: validate_ex exception;
4567:
4568:
4569: BEGIN
4642: l_error_msg l_msg_error_tbl;
4643:
4644: l_period_end_dt date;
4645: l_current_period_dt date;
4646: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_period_fully_reserved';
4647: l_count number := 1;
4648: l_exception_code varchar2(100);
4649: validate_ex exception;
4650:
4738: );
4739: TYPE l_msg_error_tbl IS TABLE OF l_msg_error_rec INDEX BY BINARY_INTEGER;
4740:
4741: l_error_msg l_msg_error_tbl;
4742: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_fst_prd_extd_deprn';
4743: l_period_end_dt date;
4744: l_default_dt date := to_date('01-04-2007','DD-MM-RRRR');
4745:
4746:
4818: l_period_end_dt date;
4819: l_current_period_dt date;
4820: l_amt number;
4821: l_exception_code varchar2(100);
4822: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_NOT_JP_STL_EXTND';
4823: validate_ex exception;
4824:
4825: cursor lcu_period_info(p_book_type_code in varchar2
4826: ,p_period_ctr in number
4940:
4941: l_count number := 1;
4942: l_nbv number := 0;
4943: l_exception_code varchar2(100);
4944: l_calling_fn varchar2(50) := 'fa_asset_val_pvt.validate_JP_250_DB';
4945: validate_ex exception;
4946:
4947: l_rates_info_rec lcu_rates_info%rowtype;
4948:
5071: where group_asset_id = p_asset_hdr_rec.asset_id
5072: and book_type_code = p_asset_hdr_rec.book_type_code
5073: and transaction_header_id_out is null;
5074:
5075: l_calling_fn varchar2(50) := 'FA_ASSET_VAL_PVT.validate_sal_deprn_sum';
5076: l_dummy NUMBER;
5077: l_valid_parameter BOOLEAN := TRUE;
5078:
5079: BEGIN
5245: p_asset_retire_rec IN FA_API_TYPES.asset_retire_rec_type default null,
5246: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null
5247: ) RETURN BOOLEAN IS
5248:
5249: l_calling_fn varchar2(50) := 'FA_ASSET_VAL_PVT.validate_over_depreciation';
5250: l_deprn_reserve number :=0;
5251: l_deprn_reserve_mem number := 0;
5252: l_ytd_deprn number;
5253: dummy_num number;
5512: (NVL(p_asset_fin_rec_new.group_asset_id, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM) THEN
5513: IF NVL(p_asset_fin_rec_old.tracking_method, FND_API.G_MISS_CHAR) <>
5514: NVL(p_asset_fin_rec_new.tracking_method, FND_API.G_MISS_CHAR) AND
5515: (p_group_reclass_options_rec.group_reclass_type = 'CALC') THEN
5516: FA_SRVR_MSG.ADD_MESSAGE(CALLING_FN => 'FA_ASSET_VAL_PVT.validate_grp_track_method',
5517: NAME => 'FA_GRP_RCL_TRACK_MISMATCH',
5518: TOKEN1 => 'EXISTING_TRACK_METHOD',
5519: VALUE1 => p_asset_fin_rec_old.tracking_method,
5520: p_log_level_rec => p_log_level_rec);
5562: and deprn_source_code = 'BOOKS'
5563: and deprn_reserve > 0);
5564: l_dummy_num_rsv number;
5565:
5566: l_calling_fn varchar2(100) := 'FA_ASSET_VAL_PVT.validate_egy_trans';
5567: val_err exception;
5568:
5569: BEGIN
5570: if (p_log_level_rec.statement_level) then
5779: p_asset_retire_rec IN FA_API_TYPES.asset_retire_rec_type,
5780: p_asset_fin_rec IN FA_API_TYPES.asset_fin_rec_type,
5781: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) RETURN BOOLEAN IS
5782:
5783: l_calling_fn varchar2(100) := 'FA_ASSET_VAL_PVT.validate_mbr_reins_possible';
5784:
5785:
5786: /* Cursor to get retirement adjustment happened during retirement */
5787: cursor c_ret_adj_amount is
6018:
6019: -- Exceptions
6020:
6021: val_error EXCEPTION;
6022: l_calling_fn varchar2(100) := 'FA_ASSET_VAL_PVT.validate_jp_taxupl';
6023:
6024: Begin
6025:
6026: if p_asset_fin_rec.deprn_method_code='JP-STL-EXTND' then
6023:
6024: Begin
6025:
6026: if p_asset_fin_rec.deprn_method_code='JP-STL-EXTND' then
6027: if not fa_asset_val_pvt.validate_JP_STL_EXTND(
6028: p_prior_deprn_method => p_asset_fin_rec.prior_deprn_method,
6029: p_prior_basic_rate => p_asset_fin_rec.prior_basic_rate,
6030: p_prior_adjusted_rate => p_asset_fin_rec.prior_adjusted_rate,
6031: p_prior_life_in_months => p_asset_fin_rec.prior_life_in_months,
6042: * Early first period extended depreciation
6043: */
6044:
6045: -- start validate_earl_deprn_limit
6046: if not fa_asset_val_pvt.validate_earl_deprn_limit(
6047: p_prior_deprn_limit_amount => p_asset_fin_rec.prior_deprn_limit_amount,
6048: p_prior_deprn_limit => p_asset_fin_rec.prior_deprn_limit,
6049: p_prior_deprn_limit_type => p_asset_fin_rec.prior_deprn_limit_type,
6050: p_calling_fn => l_calling_fn,
6094: l_p_rsv_counter := (l_fiscal_yr * l_num_fy_yr) + l_period_num; -- end
6095: end if;
6096:
6097: -- start validate_period_fully_reserved
6098: if not fa_asset_val_pvt.validate_period_fully_reserved(
6099: p_book_type_code => p_asset_hdr_rec.book_type_code,
6100: p_pc_fully_reserved => l_p_rsv_counter,
6101: p_date_placed_in_service => p_asset_fin_rec.date_placed_in_service,
6102: p_calling_fn => l_calling_fn,
6143: l_ext_period_counter := (l_fiscal_yr * l_num_fy_yr) + l_period_num; -- end
6144: end if;
6145:
6146: -- Start validate_fst_prd_extd_deprn
6147: if not fa_asset_val_pvt.validate_fst_prd_extd_deprn(
6148: p_book_type_code => p_asset_hdr_rec.book_type_code,
6149: p_extended_deprn_period => l_ext_period_counter,
6150: p_date_placed_in_service => p_asset_fin_rec.date_placed_in_service,
6151: p_calling_fn => l_calling_fn,
6161: -- Start of Not JP STL EXTD validation
6162: /*if p_asset_fin_rec.deprn_method_code <> 'JP-STL-EXTND' then
6163:
6164: -- start validate_NOT_JP_STL_EXTND
6165: if not fa_asset_val_pvt.validate_NOT_JP_STL_EXTND(
6166: p_book_type_code => p_asset_hdr_rec.book_type_code,
6167: p_deprn_limit => l_asset_fin_rec_adj.allowed_deprn_limit,
6168: p_sp_deprn_limit => l_asset_fin_rec_adj.allowed_deprn_limit_amount,
6169: p_deprn_reserve => p_asset_deprn_rec.deprn_reserve,
6185: -- if p_asset_fin_rec.deprn_method_code like 'JP%250DB%' then
6186: -- JP_TAX_2012
6187: if nvl(fa_cache_pkg.fazccmt_record.guarantee_rate_method_flag,'NO') = 'YES' then
6188:
6189: if not fa_asset_val_pvt.validate_JP_250_DB(
6190: p_deprn_method_code => p_asset_fin_rec.deprn_method_code,
6191: p_cost => p_asset_fin_rec.cost,
6192: p_nbv_at_switch => p_asset_fin_rec.nbv_at_switch,
6193: p_deprn_reserve => p_asset_deprn_rec.deprn_reserve,
6239: end;
6240:
6241: if l_count is null then
6242: fa_srvr_msg.add_message(
6243: calling_fn => 'fa_asset_val_pvt.validate_group_asset_id',
6244: name => 'FA_INV_GROUP_ASSET_ID');
6245: return false;
6246: end if;
6247:
6308: p_asset_hdr_rec IN FA_API_TYPES.asset_hdr_rec_type,
6309: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) RETURN BOOLEAN IS
6310:
6311: l_imp_exists number := 0;
6312: l_calling_fn varchar2(100) := 'FA_ASSET_VAL_PVT.check_overlapping_impairment';
6313: l_fiscal_year varchar2 (30);
6314: l_cal_period_open_date date;
6315: BEGIN
6316: if (p_log_level_rec.statement_level) then
6385: p_book_type_code IN VARCHAR2,
6386: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) RETURN BOOLEAN IS
6387:
6388: l_restrict_trx VARCHAR2(1) := 'N';
6389: l_calling_fn varchar2(100) := 'FA_ASSET_VAL_PVT.check_non_depreciating_asset';
6390:
6391: BEGIN
6392: if (p_log_level_rec.statement_level) then
6393: fa_debug_pkg.add(l_calling_fn, 'begin', 'l_calling_fn', p_log_level_rec);
6432: p_asset_fin_rec IN FA_API_TYPES.asset_fin_rec_type,
6433: p_asset_deprn_rec IN FA_API_TYPES.asset_deprn_rec_type,
6434: p_calling_fn IN VARCHAR2,
6435: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) RETURN BOOLEAN IS
6436: l_calling_fn varchar2(100) := 'FA_ASSET_VAL_PVT.validate_bonus_rule_resv';
6437: Begin
6438: IF (p_log_level_rec.statement_level) then
6439: fa_debug_pkg.add(l_calling_fn, 'p_asset_type_rec.asset_type', p_asset_type_rec.asset_type, p_log_level_rec);
6440: fa_debug_pkg.add(l_calling_fn, 'p_asset_fin_rec.bonus_rule', p_asset_fin_rec.bonus_rule, p_log_level_rec);
6563: and mth.rate_source_rule = 'PRODUCTION'
6564: and l_rate_source_rule <> 'PRODUCTION';
6565:
6566:
6567: l_calling_fn varchar2(100) := 'FA_ASSET_VAL_PVT.validate_uop_method_change';
6568:
6569: check_flag varchar2(3) := 'N';
6570:
6571: l_trx_date date;
6800: p_period_rec IN FA_API_TYPES.period_rec_type,
6801: p_asset_retire_rec IN FA_API_TYPES.asset_retire_rec_type default null,
6802: p_log_level_rec IN FA_API_TYPES.log_level_rec_type) RETURN BOOLEAN is
6803:
6804: l_calling_fn varchar2(100) := 'FA_ASSET_VAL_PVT.validate_prev_period_amort';
6805:
6806: cursor c_amort_trx is
6807: select 'Y'
6808: from fa_books bk
6968: if not fa_cache_pkg.fazcdp
6969: (x_book_type_code => p_book_type_code,
6970: x_period_counter => null,
6971: x_effective_date => null, p_log_level_rec => p_log_level_rec) then
6972: fa_srvr_msg.add_message(calling_fn => 'fa_asset_val_pvt.validate_ccid', p_log_level_rec => p_log_level_rec);
6973: return false;
6974: end if;
6975: l_validation_date := greatest(fa_cache_pkg.fazcdp_record.calendar_period_open_date,
6976: least(sysdate,fa_cache_pkg.fazcdp_record.calendar_period_close_date));
6992: USING p_gl_chart_id,p_ccid,l_validation_date,l_validation_date,p_ledger_id ;
6993: EXCEPTION
6994: when NO_DATA_FOUND then
6995: fa_srvr_msg.add_message(
6996: calling_fn => 'fa_asset_val_pvt.validate_ccid',name => 'FA_INVALID_BALANCING_SEGMENT',p_log_level_rec => p_log_level_rec);
6997: return false;
6998: END;
6999: end if;
7000: return true;
7000: return true;
7001: EXCEPTION
7002: WHEN OTHERS THEN
7003: fa_srvr_msg.add_sql_error(
7004: calling_fn => 'fa_asset_val_pvt.validate_ccid', p_log_level_rec => p_log_level_rec);
7005: return false;
7006: END validate_ccid;
7007:
7008: /*bug#16426081 */
7300: return TRUE;
7301:
7302: end validate_cca_rules;
7303:
7304: END FA_ASSET_VAL_PVT;