[Home] [Help]
61: -- Bug 11811775 added condition to prevent addition of non fully reserved asset as extended
62: if (p_trans_rec.transaction_type_code = 'ADDITION' and
63: p_asset_fin_rec.deprn_method_code = 'JP-STL-EXTND') then
64: IF (l_japan_tax_reform = 'Y' and p_trans_rec.amortization_start_date is not NULL) then
65: fa_srvr_msg.add_message(
66: calling_fn => p_calling_fn,
67: name => 'FA_JP_EXTD_AMORT_NOT_ALLOWED', p_log_level_rec => p_log_level_rec);
68: return FALSE;
69: ELSIF (NVL(p_asset_deprn_rec.deprn_reserve,0) < (p_asset_fin_rec.cost - NVL(p_asset_fin_rec.prior_deprn_limit_amount,0))) THEN
66: calling_fn => p_calling_fn,
67: name => 'FA_JP_EXTD_AMORT_NOT_ALLOWED', p_log_level_rec => p_log_level_rec);
68: return FALSE;
69: ELSIF (NVL(p_asset_deprn_rec.deprn_reserve,0) < (p_asset_fin_rec.cost - NVL(p_asset_fin_rec.prior_deprn_limit_amount,0))) THEN
70: fa_srvr_msg.add_message(
71: calling_fn => p_calling_fn,
72: name => 'FA_JP_EXTD_NOT_FULLY_RESERVED', p_log_level_rec => p_log_level_rec);
73: return FALSE;
74: END IF;
399: if (p_trans_rec.transaction_type_code = 'ADDITION' and
400: nvl(p_asset_fin_rec.group_asset_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM and
401: nvl(p_asset_deprn_rec.deprn_reserve,0) <> 0 and
402: nvl(p_asset_deprn_rec.ytd_deprn,0) <> 0) then
403: fa_srvr_msg.add_message(
404: calling_fn => p_calling_fn,
405: name => 'FA_NO_RESERVE_ALLOWED_MEM_ADD',
406: p_log_level_rec => p_log_level_rec);
407: return FALSE;
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:
453: from fa_additions_b
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;
471: and queue_name = 'POST'; -- fix for bug 3433702
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;
508: exception
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
527: if ((l_asset_number >=
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;
566:
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'),
592: -- Check that the category exists.
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:
599: end if;
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);
617: X_Cat_Id => p_category_id
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(
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',
627: name => 'FA_BOOK_CAT_NOT_SET_UP', p_log_level_rec => p_log_level_rec);
628: end if;
629:
648: if ((p_transaction_type_code = 'ADDITION') OR
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 ;
659: if (trunc(p_current_units) = p_current_units) THEN /* Added for Bug 13644806 End */
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;
714: BEGIN
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:
733:
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);
751: where code_combination_id = p_asset_key_ccid
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);
781: (p_asset_type = 'CIP') or
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;
791: -- Check for invalid asset_type/category combinations.
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;
802: ((p_asset_type = 'CAPITALIZED') or
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;
813: if (p_asset_type = 'CIP') then
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;
823:
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;
844:
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;
900:
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;
919: and asset_id = p_asset_id
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),
946: )
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;
962: and asset_id = p_asset_id
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;
972: if ((p_transaction_type_code = 'TRANSFER' or
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;
1038: BEGIN
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
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
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;
1083: and p.person_id = p_assigned_to;
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;
1106: BEGIN
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;
1120: where location_id = p_location_ccid
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);
1205: p_book_type_code) then
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;
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;
1229: l_earliest_dpis := fa_cache_pkg.fazsys_record.date_placed_in_service;
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;
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
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',
1262: name => 'FA_CURRENT_DATE_ONLY', p_log_level_rec => p_log_level_rec);
1263: return FALSE;
1264: end if;
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
1287: return false;
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;
1309: and p_date_placed_in_service between start_date and end_date;
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;
1327: and l_prorate_date between cp.start_date and cp.end_date;
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;
1347: X_period_num => l_dpis_per_num,
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;
1370: CLOSE c_chk_trx_before_dpis;
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);
1399: if (p_deprn_reserve <> 0 and
1400: (abs(p_recoverable_cost) < abs(p_deprn_reserve) or
1401: (sign(p_recoverable_cost) <> 0 and
1402: sign(p_recoverable_cost) = -sign(p_deprn_reserve)))) then
1403: fa_srvr_msg.add_message(
1404: calling_fn => 'validate_rec_cost_reserve',
1405: name => 'FA_BOOK_INVALID_RESERVE', p_log_level_rec => p_log_level_rec);
1406: return FALSE;
1407: end if;
1426: ) THEN
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;
1476: nvl(p_asset_deprn_rec_new.reval_deprn_reserve, 0) <> 0 or
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;
1494: if (p_asset_fin_rec_new.prorate_date >= p_period_rec.calendar_period_open_date and
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;
1504: if (p_asset_fin_rec_new.prorate_date >= p_period_rec.calendar_period_open_date and
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;
1514: -- in first year of life ytd must equal reserve
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;
1529: if (((sign(p_asset_deprn_rec_new.ytd_deprn) = sign(p_asset_deprn_rec_new.deprn_reserve)) or
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;
1540: return TRUE;
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;
1568:
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);
1579:
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;
1606: if (((p_transaction_type_code <> 'ADDITION') OR
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);
1620: if (((p_transaction_type_code <> 'ADDITION') OR
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);
1633: -- reserve up until conversion must be provided.
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);
1643: end if;
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;
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;
1730: l_period_close_date := p_period_rec.calendar_period_close_date;
1731: l_period_open_date := p_period_rec.calendar_period_open_date;
1732:
1733: if (x_amortization_start_date > l_period_close_date) then
1734: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
1735: name => 'FA_SHARED_CANNOT_FUTURE',
1736: p_log_level_rec => p_log_level_rec);
1737: return FALSE;
1738: end if;
1756: l_amort_jdate,
1757: l_amort_per_num,
1758: l_amort_fy,
1759: l_start_jdate, p_log_level_rec => p_log_level_rec)) then
1760: fa_srvr_msg.add_message(
1761: calling_fn => l_calling_fn,
1762: name => 'FA_PROD_INCORRECT_DATE', p_log_level_rec => p_log_level_rec);
1763: return FALSE;
1764: end if;
1812: if (p_amortization_start_date < p_period_rec.calendar_period_open_date) then
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;
1844: --('PARTIAL RETIREMENT','REINSTATEMENT','REVALUATION');
1845:
1846:
1847: if (x_amortization_start_date < l_prior_transaction_date) then
1848: fa_srvr_msg.add_message(
1849: calling_fn => l_calling_fn,
1850: name => 'FA_SHARED_OTHER_TRX_FOLLOW', p_log_level_rec => p_log_level_rec);
1851: raise error_found;
1852: end if;
1881: return TRUE;
1882:
1883: exception
1884: when error_found then
1885: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
1886: return FALSE;
1887:
1888: when others then
1889: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
1885: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
1886: return FALSE;
1887:
1888: when others then
1889: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
1890: return false;
1891:
1892: end validate_amort_start_date;
1893:
1976:
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;
2009: l_guarantee_rate_method_flag;
2010:
2011: if (METHOD_DEF%NOTFOUND) then
2012: CLOSE METHOD_DEF;
2013: fa_srvr_msg.add_message(
2014: CALLING_FN => l_calling_fn,
2015: NAME => 'FA_SHARED_OBJECT_NOT_DEF',
2016: TOKEN1 => 'OBJECT',
2017: VALUE1 => 'Method', p_log_level_rec => p_log_level_rec);
2073: l_guarantee_rate;
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
2116: return true;
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
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(
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;
2152: and summary_flag = 'N'
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;
2160: end if;
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:
2184: BEGIN
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;
2202: and summary_flag = 'N'
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);
2234: BEGIN
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;
2253: BEGIN
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
2261: else
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;
2281: BEGIN
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;
2300: BEGIN
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;
2328: from po_vendors
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;
2357: where unit_of_measure = p_unit_of_measure
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;
2379:
2380: if (p_salvage_value is null or p_salvage_value = 0) then
2381: return TRUE;
2382: elsif ( p_nbv < 0 and p_salvage_value > 0 ) then
2383: fa_srvr_msg.add_message(calling_fn => l_calling_fn,name=> 'FA_BOOK_INVALID_SALVAGE');
2384: return FALSE;
2385: elsif ( p_nbv > 0 and p_salvage_value < 0) then
2386: fa_srvr_msg.add_message(calling_fn => l_calling_fn,name=> 'FA_BOOK_POS_SALVAGE_VALUE');
2387: return FALSE;
2382: elsif ( p_nbv < 0 and p_salvage_value > 0 ) then
2383: fa_srvr_msg.add_message(calling_fn => l_calling_fn,name=> 'FA_BOOK_INVALID_SALVAGE');
2384: return FALSE;
2385: elsif ( p_nbv > 0 and p_salvage_value < 0) then
2386: fa_srvr_msg.add_message(calling_fn => l_calling_fn,name=> 'FA_BOOK_POS_SALVAGE_VALUE');
2387: return FALSE;
2388: elsif ( (p_nbv < p_salvage_value and p_nbv >=0) OR ( p_nbv > p_salvage_value and p_nbv <=0)) then
2389: fa_srvr_msg.add_message(calling_fn => l_calling_fn,name=> 'FA_BOOK_INVALID_SALVAGE');
2390: return FALSE;
2385: elsif ( p_nbv > 0 and p_salvage_value < 0) then
2386: fa_srvr_msg.add_message(calling_fn => l_calling_fn,name=> 'FA_BOOK_POS_SALVAGE_VALUE');
2387: return FALSE;
2388: elsif ( (p_nbv < p_salvage_value and p_nbv >=0) OR ( p_nbv > p_salvage_value and p_nbv <=0)) then
2389: fa_srvr_msg.add_message(calling_fn => l_calling_fn,name=> 'FA_BOOK_INVALID_SALVAGE');
2390: return FALSE;
2391: end if;
2392:
2393: return TRUE;
2412: from fa_additions_b
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.
2437: BEGIN
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;
2524: and transaction_subtype = 'AMORTIZED' and transaction_key = 'RM');
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;
2569: */
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:
2593: AND asset_id = p_asset_id
2594: AND transaction_key like 'U%';
2595:
2596: if (l_count > 0) then
2597: fa_srvr_msg.add_message(calling_fn => 'FA_CHK_BOOKSTS_PKG.faxcbsx',
2598: name => '***FA_UNP_EXISTS***',
2599: p_log_level_rec => p_log_level_rec);
2600: return TRUE;
2601: else
2643: (p_book => p_book,
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:
2663: px_period_of_addition := 'N';
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;
2673: return true;
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;
2705: end if;
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;
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;
2766: end if;
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;
2797:
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:
2822:
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;
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:
2862: end if;
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;
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:
2972: and asset_id = p_parent_asset_id
2973: and date_ineffective is null;
2974:
2975: if l_count = 0 then
2976: fa_srvr_msg.add_message(
2977: calling_fn => 'validate_parent_asset',
2978: name => 'FA_INCORRECT_PARENT_ASSET', p_log_level_rec => p_log_level_rec);
2979: return FALSE;
2980: end if;
3003: nvl (w.start_date, p_date_placed_in_service) and
3004: nvl (w.end_date, p_date_placed_in_service);
3005:
3006: if l_count = 0 then
3007: fa_srvr_msg.add_message(
3008: calling_fn => 'validate_warranty',
3009: name => 'FA_INVALID_WARRANTY', p_log_level_rec => p_log_level_rec);
3010: return FALSE;
3011: end if;
3021: AND glsob.currency_code =
3022: nvl(w.currency_code, glsob.currency_code);
3023:
3024: if l_count = 0 then
3025: fa_srvr_msg.add_message(
3026: calling_fn => 'validate_warranty',
3027: name => 'FA_SHARED_GET_CURRENCY_CODE', p_log_level_rec => p_log_level_rec);
3028: return FALSE;
3029: end if;
3066: into l_count
3067: from fa_leases
3068: where lease_id = p_lease_id;
3069: if l_count = 0 then
3070: fa_srvr_msg.add_message(
3071: calling_fn => 'validate_lease',
3072: name => 'FA_INVALID_LEASE', p_log_level_rec => p_log_level_rec);
3073: return FALSE;
3074: end if;
3077: OPEN get_cat_type;
3078: FETCH get_cat_type INTO l_cat_type;
3079: CLOSE get_cat_type;
3080: if nvl(l_cat_type,'NON-LEASE') NOT IN ( 'LEASE', 'LEASEHOLD IMPROVEMENT') then
3081: fa_srvr_msg.add_message(
3082: calling_fn => 'validate_lease',
3083: name => 'FA_CANT_ADD_LEASE', p_log_level_rec => p_log_level_rec);
3084: return FALSE;
3085: end if;
3099: return TRUE;
3100:
3101: EXCEPTION
3102: when lease_error then
3103: fa_srvr_msg.add_message(
3104: calling_fn => 'validate_lease',
3105: name => 'FA_CURRENCY_NOT_MATCH', p_log_level_rec => p_log_level_rec);
3106: return FALSE;
3107:
3119: where lookup_type = 'PROPERTY TYPE'
3120: and lookup_code = p_property_type_code;
3121:
3122: if l_count = 0 then
3123: fa_srvr_msg.add_message(
3124: calling_fn => 'validate_property_type',
3125: name => 'FA_PROPERTY_TYPE_NOT_EXIST', p_log_level_rec => p_log_level_rec);
3126: return FALSE;
3127: end if;
3145: where lookup_type = '1245/1250 PROPERTY'
3146: and lookup_code = p_1245_1250_code;
3147:
3148: if l_count = 0 then
3149: fa_srvr_msg.add_message(
3150: calling_fn => 'validate_1245_1250_code',
3151: name => 'FA_1245_1250_NOT_EXIST', p_log_level_rec => p_log_level_rec);
3152: return FALSE;
3153: end if;
3189: where ASSET_ID = p_group_asset_id
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;
3223:
3224: IF ((NVL(p_old_flag,'N') Not IN ('Y','N')) OR
3225: (NVL(p_new_flag,'N') Not IN ('Y','N'))) THEN
3226: -- Garbage value for flag.
3227: fa_srvr_msg.add_message(
3228: calling_fn => l_calling_fn,
3229: name => 'FA_INCORRECT_DISABLED_FLAG', p_log_level_rec => p_log_level_rec);
3230: return FALSE;
3231:
3230: return FALSE;
3231:
3232: ELSIF (nvl(p_old_flag,'N')='Y' AND nvl(p_new_flag,'N')='Y') THEN
3233: --Disabled group.
3234: fa_srvr_msg.add_message(
3235: calling_fn => l_calling_fn,
3236: name => 'FA_DISABLED_GROUP', p_log_level_rec => p_log_level_rec);
3237: return FALSE;
3238: ELSIF (nvl(p_old_flag,'N')='N' AND nvl(p_new_flag,'N')='Y') THEN
3281: AND transaction_header_id_out is null
3282: AND period_counter_fully_retired is null;
3283: end if;
3284: elsif (l_disabled > 0) then
3285: fa_srvr_msg.add_message(
3286: calling_fn => l_calling_fn,
3287: name => 'FA_DISABLED_GROUP', p_log_level_rec => p_log_level_rec);
3288: return false;
3289: end if;
3288: return false;
3289: end if;
3290:
3291: if l_has_members > 0 then
3292: fa_srvr_msg.add_message(
3293: calling_fn => l_calling_fn,
3294: name => 'FA_CANT_DISABLE_GROUP', p_log_level_rec => p_log_level_rec);
3295: return false;
3296: end if;
3350: if (nvl(p_adjusted_recoverable_cost, p_recoverable_cost) > 0 and
3351: nvl(p_adjusted_recoverable_cost, p_recoverable_cost) < p_deprn_reserve_new) or
3352: (nvl(p_adjusted_recoverable_cost, p_recoverable_cost) < 0 and
3353: nvl(p_adjusted_recoverable_cost, p_recoverable_cost) > p_deprn_reserve_new) then
3354: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3355: name => 'FA_TOO_MUCH_RESERVE', p_log_level_rec => p_log_level_rec);
3356: return FALSE;
3357: end if;
3358:
3366: (p_deprn_basis_rule = 'NBV') and
3367: (nvl(p_over_depreciate_option, fa_std_types.FA_OVER_DEPR_NO) =
3368: fa_std_types.FA_OVER_DEPR_DEPRN) then
3369:
3370: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3371: name => 'FA_NO_OVER_DEPRN_ALLOWED', p_log_level_rec => p_log_level_rec);
3372: return false;
3373:
3374: end if;
3383: if (p_deprn_limit_type <> 'NONE') and
3384: (nvl(p_over_depreciate_option, fa_std_types.FA_OVER_DEPR_NO) <>
3385: fa_std_types.FA_OVER_DEPR_NO) then
3386:
3387: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3388: name => 'FA_NO_OVER_DEPRN_ALLOWED', p_log_level_rec => p_log_level_rec);
3389: return false;
3390: end if;
3391:
3396: if (nvl(p_recapture_reserve_flag, 'N') <> 'N') and
3397: (nvl(p_over_depreciate_option, fa_std_types.FA_OVER_DEPR_NO) <>
3398: fa_std_types.FA_OVER_DEPR_NO) then
3399:
3400: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3401: name => 'FA_NO_OVER_DEPRN_ALLOWED', p_log_level_rec => p_log_level_rec);
3402: return false;
3403: end if;
3404: end if; -- (l_member_count > 0)
3726: return true;
3727:
3728: EXCEPTION
3729: WHEN val_err THEN
3730: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3731: name => 'FA_INVALID_AMOUNT_ADJUSTMENT', p_log_level_rec => p_log_level_rec);
3732: return false;
3733:
3734: WHEN OTHERS THEN
3731: name => 'FA_INVALID_AMOUNT_ADJUSTMENT', p_log_level_rec => p_log_level_rec);
3732: return false;
3733:
3734: WHEN OTHERS THEN
3735: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
3736: return false;
3737:
3738: END validate_cost_change;
3739:
3793:
3794: EXCEPTION
3795:
3796: WHEN dup_err THEN
3797: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
3798: name => 'FA_TFR_SAME_LINE', p_log_level_rec => p_log_level_rec);
3799: return false;
3800:
3801: WHEN OTHERS THEN
3799: return false;
3800:
3801: WHEN OTHERS THEN
3802:
3803: fa_srvr_msg.add_sql_error(
3804: calling_fn => l_calling_fn , p_log_level_rec => p_log_level_rec);
3805:
3806: return false;
3807:
3833: if not fa_cache_pkg.fazccmt (
3834: X_method => p_method_code,
3835: X_life => p_life_in_months
3836: , p_log_level_rec => p_log_level_rec) then
3837: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
3838:
3839: return FALSE;
3840: end if;
3841:
3860: /*
3861: -- No adjustments allowed on Polish mechanisms.
3862: if (p_transaction_type_code in ('ADJUSTMENT', 'CIP ADJUSTMENT',
3863: 'GROUP ADJUSTMENT')) then
3864: fa_srvr_msg.add_message(
3865: calling_fn => l_calling_fn,
3866: name => 'FA_POLISH_NO_ADJ', p_log_level_rec => p_log_level_rec);
3867: return FALSE;
3868: end if;
3868: end if;
3869:
3870: -- No partial retirements allowed on Polish mechanisms.
3871: if (p_transaction_type_code = 'PARTIAL RETIREMENT') then
3872: fa_srvr_msg.add_message(
3873: calling_fn => l_calling_fn,
3874: name => 'FA_POLISH_NO_PARTIAL_RET', p_log_level_rec => p_log_level_rec);
3875: return FALSE;
3876: end if;
3876: end if;
3877: */
3878: -- No revaluations allowed on Polish mechanisms.
3879: if (p_transaction_type_code = 'REVALUATION') then
3880: fa_srvr_msg.add_message(
3881: calling_fn => l_calling_fn,
3882: name => 'FA_POLISH_NO_REVAL', p_log_level_rec => p_log_level_rec);
3883: return FALSE;
3884: end if;
3884: end if;
3885:
3886: -- No tax reserve adjustments allowed on Polish mechanisms.
3887: if (p_transaction_type_code = 'TAX RESERVE ADJUSTMENT') then
3888: fa_srvr_msg.add_message(
3889: calling_fn => l_calling_fn,
3890: name => 'FA_POLISH_NO_TAX_RSV_ADJ', p_log_level_rec => p_log_level_rec);
3891: return FALSE;
3892: end if;
3897: 'GROUP ADDITION')) then
3898:
3899: -- No backdated additions for Polish.
3900: if (p_date_placed_in_service < p_calendar_period_open_date) then
3901: fa_srvr_msg.add_message(
3902: calling_fn => l_calling_fn,
3903: name => 'FA_POLISH_NO_PRIOR_ADD', p_log_level_rec => p_log_level_rec);
3904: return FALSE;
3905: end if;
3905: end if;
3906:
3907: -- No adding an Polish asset with reserve.
3908: if ((nvl(p_ytd_deprn,0) <> 0) OR (nvl(p_deprn_reserve,0) <> 0)) then
3909: fa_srvr_msg.add_message(
3910: calling_fn => l_calling_fn,
3911: name => 'FA_POLISH_NO_ADD_RSV', p_log_level_rec => p_log_level_rec);
3912: return FALSE;
3913: end if;
3926: FA_STD_TYPES.FAD_DBR_POLISH_3,
3927: FA_STD_TYPES.FAD_DBR_POLISH_4,
3928: FA_STD_TYPES.FAD_DBR_POLISH_5))) then
3929:
3930: fa_srvr_msg.add_message(
3931: calling_fn => l_calling_fn,
3932: name => 'FA_POLISH_NO_BONUS_RULE', p_log_level_rec => p_log_level_rec);
3933: return FALSE;
3934: end if;
3934: end if;
3935:
3936: -- No ceilings allowed on Polish rules
3937: if (p_ceiling_name is not null) then
3938: fa_srvr_msg.add_message(
3939: calling_fn => l_calling_fn,
3940: name => 'FA_POLISH_NO_CEILING', p_log_level_rec => p_log_level_rec);
3941: return FALSE;
3942: end if;
3942: end if;
3943:
3944: -- No depreciation limits allowed on Polish rules
3945: if (nvl(p_deprn_limit_type, 'NONE') <> 'NONE') then
3946: fa_srvr_msg.add_message(
3947: calling_fn => l_calling_fn,
3948: name => 'FA_POLISH_NO_LIMIT', p_log_level_rec => p_log_level_rec);
3949: return FALSE;
3950: end if;
3950: end if;
3951:
3952: -- No group assets or members of group assets allowed to have Polish
3953: if (p_asset_type = 'GROUP') OR (p_group_asset_id is not null) then
3954: fa_srvr_msg.add_message(
3955: calling_fn => l_calling_fn,
3956: name => 'FA_POLISH_NO_GROUP', p_log_level_rec => p_log_level_rec);
3957: return FALSE;
3958: end if;
3962:
3963: EXCEPTION
3964: WHEN OTHERS THEN
3965:
3966: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn , p_log_level_rec => p_log_level_rec);
3967:
3968: return FALSE;
3969:
3970: END validate_polish;
3993: if not fa_cache_pkg.fazccmt (
3994: X_method => p_method_code,
3995: X_life => p_life_in_months
3996: , p_log_level_rec => p_log_level_rec) then
3997: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
3998:
3999: return FALSE;
4000: end if;
4001:
4005: return TRUE;
4006: end if;
4007:
4008: if (p_transaction_type_code = 'REVALUATION') then
4009: fa_srvr_msg.add_message(
4010: calling_fn => l_calling_fn,
4011: name => 'FA_REVAL_DUAL_RATE', p_log_level_rec => p_log_level_rec);
4012:
4013: return FALSE;
4021:
4022: -- Fix for Bug #6334383. Cannot use this method with MRC books.
4023: if (l_mrc_count > 0) then
4024:
4025: fa_srvr_msg.add_message(
4026: calling_fn => l_calling_fn,
4027: name => 'FA_MRC_DUAL_RATE', p_log_level_rec => p_log_level_rec);
4028:
4029: return FALSE;
4030: end if;
4031:
4032: /* Removed this resctriction for enhancement 6688475
4033: if (p_asset_type = 'CIP') then
4034: fa_srvr_msg.add_message(
4035: calling_fn => l_calling_fn,
4036: name => 'FA_CIP_DUAL_RATE', p_log_level_rec => p_log_level_rec);
4037:
4038: return FALSE;
4041:
4042: /* Japan Tax Phase3 -- Bonus is allowed
4043: Commenting the validation
4044: if (p_bonus_rule is not null) and (p_bonus_rule <> FND_API.G_MISS_CHAR) then
4045: fa_srvr_msg.add_message(
4046: calling_fn => l_calling_fn,
4047: name => 'FA_BONUS_DUAL_RATE', p_log_level_rec => p_log_level_rec);
4048:
4049: return FALSE;
4056:
4057: EXCEPTION
4058: WHEN OTHERS THEN
4059:
4060: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn , p_log_level_rec => p_log_level_rec);
4061:
4062: return FALSE;
4063:
4064: END validate_jp250db;
4099: fa_debug_pkg.add(l_calling_fn, 'p_new_super_group_id', p_new_super_group_id, p_log_level_rec => p_log_level_rec);
4100: fa_debug_pkg.add(l_calling_fn, 'This Super group is used', 'TRUE', p_log_level_rec => p_log_level_rec);
4101: end if;
4102:
4103: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
4104: name => 'FA_SUPER_GROUP_USED', p_log_level_rec => p_log_level_rec);
4105:
4106: return FALSE;
4107: end if; -- (c_check_used%FOUND)
4122: fa_debug_pkg.add(l_calling_fn, 'p_new_super_group_id', p_new_super_group_id, p_log_level_rec => p_log_level_rec);
4123: fa_debug_pkg.add(l_calling_fn, 'EXCEPTION: OTHERS', sqlerrm, p_log_level_rec => p_log_level_rec);
4124: end if;
4125:
4126: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn , p_log_level_rec => p_log_level_rec);
4127:
4128: return FALSE;
4129: END validate_super_group;
4130:
4153: into l_group_dpis;
4154: close c_group_dpis;
4155:
4156: if (p_date_placed_in_service < l_group_dpis) then
4157: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
4158: name => 'FA_INVALID_MEMBER_DPIS',
4159: token1 => 'DATE',
4160: value1 => l_group_dpis, p_log_level_rec => p_log_level_rec);
4161: return false;
4164: end if;
4165:
4166: EXCEPTION
4167: WHEN OTHERS THEN
4168: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4169: return false;
4170:
4171: END validate_member_dpis;
4172:
4191: (p_rate_source_rule = 'PRODUCTION') and
4192: (p_rule_name = 'ENERGY PERIOD END BALANCE') and
4193: (nvl(p_transaction_key, 'NULL') <> 'MS') then
4194:
4195: fa_srvr_msg.add_message(
4196: calling_fn => l_calling_fn,
4197: name => 'FA_CURRENT_DATE_ONLY', p_log_level_rec => p_log_level_rec);
4198: return FALSE;
4199: end if;
4213: fa_debug_pkg.add(l_calling_fn, 'p_rule_name', p_rule_name, p_log_level_rec => p_log_level_rec);
4214: fa_debug_pkg.add(l_calling_fn, 'EXCEPTION: OTHERS', sqlerrm, p_log_level_rec => p_log_level_rec);
4215: end if;
4216:
4217: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn , p_log_level_rec => p_log_level_rec);
4218:
4219: return FALSE;
4220: END validate_egy_prod_date;
4221:
4258: fa_debug_pkg.add(l_calling_fn, 'p_book_type_code', p_book_type_code);
4259: fa_debug_pkg.add(l_calling_fn, 'EXCEPTION: OTHERS', sqlerrm);
4260: end if;
4261:
4262: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn);
4263:
4264: return false;
4265: END validate_reval_exists;
4266:
4288: p_asset_fin_rec_adj.date_placed_in_service, p_log_level_rec => p_log_level_rec);
4289: end if;
4290:
4291: if (nvl(p_asset_fin_rec_adj.cost,0) <> 0) then
4292: fa_srvr_msg.add_message(
4293: calling_fn => l_calling_fn,
4294: name => 'FA_JP_COST_CHG_NOT_ALLOWED', p_log_level_rec => p_log_level_rec);
4295: return FALSE;
4296: end if;
4296: end if;
4297:
4298: if (p_asset_fin_rec_old.deprn_method_code <> nvl(p_asset_fin_rec_adj.deprn_method_code,
4299: p_asset_fin_rec_old.deprn_method_code)) then
4300: fa_srvr_msg.add_message(
4301: calling_fn => l_calling_fn,
4302: name => 'FA_JP_METHOD_CHG_NOT_ALLOWED', p_log_level_rec => p_log_level_rec);
4303: return FALSE;
4304: end if;
4311:
4312: -- Cannot use extended deprn with MRC books.
4313: if (l_mrc_count > 0) then
4314:
4315: fa_srvr_msg.add_message(
4316: calling_fn => l_calling_fn,
4317: name => 'FA_JP_MRC_NOT_ALLOWED', p_log_level_rec => p_log_level_rec);
4318:
4319: return FALSE;
4321:
4322: -- Bug 6625840 prevent salvage value change
4323: if (nvl(p_asset_fin_rec_adj.percent_salvage_value, 0) <> 0 or
4324: nvl(p_asset_fin_rec_adj.salvage_value, 0) <> 0)then
4325: fa_srvr_msg.add_message(
4326: calling_fn => l_calling_fn,
4327: name => 'FA_JP_SALVAGE_CHG_NOT_ALLOWED', p_log_level_rec => p_log_level_rec);
4328: return FALSE;
4329: end if;
4330:
4331: -- Bug 6625840 prevent deprn_limit change
4332: if (nvl(p_asset_fin_rec_adj.allowed_deprn_limit_amount, 0) <> 0 or
4333: nvl(p_asset_fin_rec_adj.allowed_deprn_limit, 0) <> 0) then
4334: fa_srvr_msg.add_message(
4335: calling_fn => l_calling_fn,
4336: name => 'FA_JP_LIMIT_CHG_NOT_ALLOWED', p_log_level_rec => p_log_level_rec);
4337: return FALSE;
4338: end if;
4339:
4340: -- Bug 6669432 prevent DPIS change
4341: if (p_asset_fin_rec_old.date_placed_in_service <> nvl(p_asset_fin_rec_adj.date_placed_in_service,
4342: p_asset_fin_rec_old.date_placed_in_service)) then
4343: fa_srvr_msg.add_message(
4344: calling_fn => l_calling_fn,
4345: name => 'FA_JP_DPIS_CHG_NOT_ALLOWED', p_log_level_rec => p_log_level_rec);
4346: return FALSE;
4347: end if;
4361: p_asset_fin_rec_adj.deprn_method_code, p_log_level_rec => p_log_level_rec);
4362: fa_debug_pkg.add(l_calling_fn, 'EXCEPTION: OTHERS', sqlerrm, p_log_level_rec => p_log_level_rec);
4363: end if;
4364:
4365: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn , p_log_level_rec => p_log_level_rec);
4366:
4367: return FALSE;
4368: END validate_extended_asset;
4369:
4383: if (p_asset_type_rec.asset_type = 'GROUP') OR
4384: (p_asset_fin_rec_old.group_asset_id is not null) OR
4385: (nvl(p_asset_fin_rec_adj.group_asset_id, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM) then
4386:
4387: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
4388: name => 'FA_EXT_DPRN_NOT_ALLOWED_ON_GRP',
4389: p_log_level_rec => p_log_level_rec);
4390: return FALSE;
4391: end if;
4395: -- 11i : Don't extend an asset which is not fully reserved
4396: -- Bug : 10115225 modified the below if condition
4397: if (p_asset_fin_rec_old.period_counter_fully_reserved is null)
4398: AND (NVL(p_asset_fin_rec_adj.period_counter_fully_reserved,p_period_rec.period_counter) = p_period_rec.period_counter )then
4399: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
4400: name => 'FA_CP_EXT_DPRN_NOT_ALLOWED',
4401: p_log_level_rec => p_log_level_rec);
4402: return FALSE;
4403: end if;
4410: fa_debug_pkg.add(l_calling_fn, 'p_asset_hdr_rec.asset_id', p_asset_hdr_rec.asset_id, p_log_level_rec => p_log_level_rec);
4411: fa_debug_pkg.add(l_calling_fn, 'EXCEPTION: OTHERS', sqlerrm, p_log_level_rec => p_log_level_rec);
4412: end if;
4413:
4414: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn , p_log_level_rec => p_log_level_rec);
4415:
4416: return FALSE;
4417:
4418: END validate_extending_asset;
4485: open lcu_deprn_method(p_prior_deprn_method);
4486: fetch lcu_deprn_method into l_dummy_cnt;
4487: close lcu_deprn_method;
4488: if l_dummy_cnt = 0 then
4489: fa_srvr_msg.add_message(
4490: CALLING_FN => l_calling_fn,
4491: NAME => 'FA_SHARED_OBJECT_NOT_DEF',
4492: TOKEN1 => 'OBJECT',
4493: VALUE1 => 'Method', p_log_level_rec => p_log_level_rec);
4494: return FALSE;
4495:
4496: else
4497: if (p_prior_basic_rate is null or p_prior_adjusted_rate is null) and (p_prior_life_in_months is null) then
4498: fa_srvr_msg.add_message(
4499: CALLING_FN => l_calling_fn,
4500: NAME => 'FA_JP_RATES_LIFE_IN_MONTHS_NUL'
4501: , p_log_level_rec => p_log_level_rec);
4502: return FALSE;
4507: );
4508: fetch l_life_in_months into l_dummy_cnt;
4509: close l_life_in_months;
4510: if l_dummy_cnt = 0 then
4511: fa_srvr_msg.add_message(
4512: CALLING_FN => l_calling_fn,
4513: NAME => 'FA_SHARED_INVALID_METHOD_LIFE'
4514: , p_log_level_rec => p_log_level_rec);
4515: return FALSE;
4522: );
4523: fetch lc_depr_rates into l_dummy_cnt;
4524: close lc_depr_rates;
4525: if l_dummy_cnt = 0 then
4526: fa_srvr_msg.add_message(
4527: CALLING_FN => l_calling_fn,
4528: NAME => 'FA_SHARED_INVALID_METHOD_RATE'
4529: , p_log_level_rec => p_log_level_rec);
4530: return FALSE;
4538:
4539: return TRUE;
4540: exception
4541: WHEN OTHERS THEN
4542: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4543: return false;
4544: END validate_JP_STL_EXTND;
4545:
4546:
4576: end if;
4577:
4578: if p_prior_deprn_limit_type in ('AMT','PCT') then
4579: if ( (p_prior_deprn_limit_amount is null) and (p_prior_deprn_limit is null) ) then
4580: fa_srvr_msg.add_message(
4581: CALLING_FN => l_calling_fn,
4582: NAME => 'FA_ADI_INVALID_DEPRNLIMIT_TYPE'
4583: , p_log_level_rec => p_log_level_rec);
4584: return FALSE;
4583: , p_log_level_rec => p_log_level_rec);
4584: return FALSE;
4585: end if;
4586: else
4587: fa_srvr_msg.add_message(
4588: CALLING_FN => l_calling_fn,
4589: NAME => 'FA_ADI_INVALID_DEPRNLIMIT_TYPE'
4590: , p_log_level_rec => p_log_level_rec);
4591: return FALSE;
4593:
4594: return TRUE;
4595: exception
4596: WHEN OTHERS THEN
4597: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4598: return false;
4599:
4600: END validate_earl_deprn_limit;
4601:
4664: 'performing','Period when fully reserved validation', p_log_level_rec => p_log_level_rec);
4665: end if;
4666:
4667: if p_pc_fully_reserved is null then
4668: fa_srvr_msg.add_message(
4669: CALLING_FN => l_calling_fn,
4670: NAME => 'FA_JP_FULLY_RESERVED_PC_NULL'
4671: , p_log_level_rec => p_log_level_rec);
4672: return FALSE;
4678: );
4679: fetch lcu_period_info into l_period_end_dt;
4680: close lcu_period_info;
4681: if (l_period_end_dt is null) then
4682: fa_srvr_msg.add_message(
4683: CALLING_FN => l_calling_fn,
4684: NAME => 'FA_JP_PERIOD_ENDDATE_NULL'
4685: , p_log_level_rec => p_log_level_rec);
4686: return FALSE;
4685: , p_log_level_rec => p_log_level_rec);
4686: return FALSE;
4687:
4688: elsif (trunc(l_period_end_dt) < trunc(p_date_placed_in_service)) then
4689: fa_srvr_msg.add_message(
4690: CALLING_FN => l_calling_fn,
4691: NAME => 'FA_JP_ENDDATE_EARLY_DPIS'
4692: , p_log_level_rec => p_log_level_rec);
4693: return FALSE;
4693: return FALSE;
4694:
4695: elsif (trunc(l_period_end_dt) > trunc(l_current_period_dt) ) then
4696:
4697: fa_srvr_msg.add_message(
4698: CALLING_FN => l_calling_fn,
4699: NAME => 'FA_JP_ENDDATE_GREATER_CUR_DATE'
4700: , p_log_level_rec => p_log_level_rec);
4701: return FALSE;
4704:
4705: return TRUE;
4706: exception
4707: WHEN OTHERS THEN
4708: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4709: return false;
4710:
4711: END validate_period_fully_reserved;
4712:
4765: );
4766: fetch lcu_period_info into l_period_end_dt;
4767: close lcu_period_info;
4768: if l_period_end_dt is null then
4769: fa_srvr_msg.add_message(
4770: CALLING_FN => l_calling_fn,
4771: NAME => 'FA_JP_PERIOD_ENDDATE_NULL'
4772: , p_log_level_rec => p_log_level_rec);
4773: return FALSE;
4771: NAME => 'FA_JP_PERIOD_ENDDATE_NULL'
4772: , p_log_level_rec => p_log_level_rec);
4773: return FALSE;
4774: elsif (trunc(l_period_end_dt) < trunc(l_default_dt)) then
4775: fa_srvr_msg.add_message(
4776: CALLING_FN => l_calling_fn,
4777: NAME => 'FA_JP_PERIOD_ENDDATE_WRONG'
4778: , p_log_level_rec => p_log_level_rec);
4779: return FALSE;
4777: NAME => 'FA_JP_PERIOD_ENDDATE_WRONG'
4778: , p_log_level_rec => p_log_level_rec);
4779: return FALSE;
4780: elsif (trunc(l_period_end_dt) < trunc(p_date_placed_in_service)) then
4781: fa_srvr_msg.add_message(
4782: CALLING_FN => l_calling_fn,
4783: NAME => 'FA_JP_ENDDATE_EARLY_DPIS'
4784: , p_log_level_rec => p_log_level_rec);
4785: return FALSE;
4787:
4788: return TRUE;
4789: exception
4790: WHEN OTHERS THEN
4791: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4792: return false;
4793:
4794:
4795:
4887: );
4888: fetch lcu_period_info into l_period_end_dt;
4889: close lcu_period_info;
4890: if (trunc(l_period_end_dt) < trunc(p_date_placed_in_service)) then
4891: fa_srvr_msg.add_message(
4892: CALLING_FN => l_calling_fn,
4893: NAME => 'FA_JP_ENDDATE_EARLY_DPIS'
4894: , p_log_level_rec => p_log_level_rec);
4895: return FALSE;
4893: NAME => 'FA_JP_ENDDATE_EARLY_DPIS'
4894: , p_log_level_rec => p_log_level_rec);
4895: return FALSE;
4896: elsif (trunc(l_period_end_dt) > trunc(l_current_period_dt) ) then
4897: fa_srvr_msg.add_message(
4898: CALLING_FN => l_calling_fn,
4899: NAME => 'FA_JP_ENDDATE_GREATER_CUR_DATE'
4900: , p_log_level_rec => p_log_level_rec);
4901: return FALSE;
4906:
4907: return TRUE;
4908: exception
4909: WHEN OTHERS THEN
4910: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
4911: return false;
4912:
4913: END validate_NOT_JP_STL_EXTND;
4914:
4968: -- Bug:7668308:Added trunc to calculate correct rate in use.
4969: if (trunc(NVL(p_cost,0) * l_rates_info_rec.guarantee_rate)) > (trunc(l_nbv*l_rates_info_rec.original_rate)) then
4970:
4971: if p_nbv_at_switch is null then
4972: fa_srvr_msg.add_message(
4973: CALLING_FN => l_calling_fn,
4974: NAME => 'FA_JP_NBV_NULL'
4975: , p_log_level_rec => p_log_level_rec);
4976: return FALSE;
4975: , p_log_level_rec => p_log_level_rec);
4976: return FALSE;
4977: end if;
4978: if p_nbv_at_switch < 0 then
4979: fa_srvr_msg.add_message(
4980: CALLING_FN => l_calling_fn,
4981: NAME => 'FA_JP_NBV_NEGATIVE'
4982: , p_log_level_rec => p_log_level_rec);
4983: return FALSE;
4982: , p_log_level_rec => p_log_level_rec);
4983: return FALSE;
4984: end if;
4985: if p_nbv_at_switch > NVL(p_cost,0) then
4986: fa_srvr_msg.add_message(
4987: CALLING_FN => l_calling_fn,
4988: NAME => 'FA_JP_NBV_GREATER_COST'
4989: , p_log_level_rec => p_log_level_rec);
4990: return FALSE;
4996:
4997: return TRUE;
4998: exception
4999: WHEN OTHERS THEN
5000: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
5001: return false;
5002:
5003:
5004: END validate_JP_250_DB;
5029: FETCH c_get_books_info INTO l_over_depreciate_option;
5030: CLOSE c_get_books_info;
5031:
5032: if (p_transfer_amount = 0) then
5033: fa_srvr_msg.add_message(
5034: calling_fn => p_calling_fn,
5035: name => 'FA_ZERO_RESERVE_TRANSFER_AMOUNT', p_log_level_rec => p_log_level_rec);
5036: return FALSE;
5037: elsif ( p_transfer_amount < 0 ) and
5035: name => 'FA_ZERO_RESERVE_TRANSFER_AMOUNT', p_log_level_rec => p_log_level_rec);
5036: return FALSE;
5037: elsif ( p_transfer_amount < 0 ) and
5038: (l_over_depreciate_option = 'NO' or l_over_depreciate_option is NULL ) then
5039: fa_srvr_msg.add_message(
5040: calling_fn => p_calling_fn,
5041: name => 'FA_NEGATIVE_RESERVE_TRANSFER_AMOUNT_NOT_ALLOWED', p_log_level_rec => p_log_level_rec);
5042: return FALSE;
5043: end if;
5053: fa_debug_pkg.add(p_calling_fn, 'p_book_type_code', p_book_type_code, p_log_level_rec => p_log_level_rec);
5054: fa_debug_pkg.add(p_calling_fn, 'EXCEPTION: OTHERS', sqlerrm, p_log_level_rec => p_log_level_rec);
5055: end if;
5056:
5057: fa_srvr_msg.add_sql_error(calling_fn => p_calling_fn, p_log_level_rec => p_log_level_rec);
5058: return FALSE;
5059: END validate_reserve_transfer;
5060:
5061: /* Bug#7693266- To validate change of salvage_type or deprn_limit_type of group asset */
5089: OPEN c_mem_exists;
5090: FETCH c_mem_exists INTO l_dummy;
5091: CLOSE c_mem_exists;
5092: if (l_dummy > 0) then
5093: fa_srvr_msg.add_message(
5094: calling_fn => l_calling_fn,
5095: name =>'FA_MEMBER_EXIST_IN_GROUP');
5096: l_valid_parameter := FALSE;
5097: else
5101: l_valid_parameter := FALSE;
5102: end if;
5103: if (not l_valid_parameter) then
5104: if (p_asset_fin_rec_adj.salvage_type = 'SUM') then
5105: fa_srvr_msg.add_message(
5106: calling_fn => l_calling_fn,
5107: name => 'FA_INVALID_PARAMETER',
5108: token1 => 'VALUE',
5109: value1 => p_asset_fin_rec_adj.salvage_type,
5110: token2 => 'PARAM',
5111: value2 => 'SALVAGE_TYPE',
5112: p_log_level_rec => p_log_level_rec);
5113: else
5114: fa_srvr_msg.add_message(
5115: calling_fn => l_calling_fn,
5116: name => 'FA_INVALID_PARAMETER',
5117: token1 => 'VALUE',
5118: value1 => p_asset_fin_rec_adj.deprn_limit_type,
5138: fa_debug_pkg.add(l_calling_fn, 'p_asset_fin_rec_adj.deprn_limit_type',
5139: p_asset_fin_rec_adj.deprn_limit_type);
5140: fa_debug_pkg.add(l_calling_fn, 'EXCEPTION: OTHERS', sqlerrm);
5141: end if;
5142: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn );
5143: return FALSE;
5144:
5145: END validate_sal_deprn_sum;
5146:
5198: FETCH c_check_imp INTO l_check_imp_flag;
5199: CLOSE c_check_imp;
5200: end if;
5201: if nvl(l_check_imp_flag,'NOTPOSTED') = 'POSTED' then
5202: fa_srvr_msg.add_message(calling_fn => 'FA_CHK_BOOKSTS_PKG.faxcbsx',
5203: name => 'FA_IMPAIR_ROLLBACK_TRX',
5204: token1 => 'FA_ASSET_ID',
5205: value1 => to_char(p_asset_id),
5206: p_log_level_rec => p_log_level_rec);
5430:
5431: open c_get_currency_code;
5432: fetch c_get_currency_code into l_currency_code;
5433: close c_get_currency_code;
5434: fa_srvr_msg.add_message(calling_fn => l_calling_fn
5435: ,name => 'FA_NOT_VALID_MEM_TRANSACTION'
5436: ,token1 => 'ASSET_NUMBER',
5437: value1 => l_asset_hdr_rec_mem.asset_id
5438: ,token2 => 'CURRENCY_CODE',
5471: (l_new_group_cost < l_new_group_reserve and l_new_group_cost > 0 ) then
5472: open c_get_currency_code;
5473: fetch c_get_currency_code into l_currency_code;
5474: close c_get_currency_code;
5475: fa_srvr_msg.add_message(calling_fn => l_calling_fn
5476: ,name => 'FA_NOT_VALID_TRANSACTION'
5477: ,token1 => 'ASSET_NUMBER',
5478: value1 => l_asset_hdr_rec.asset_id
5479: ,token2 => 'CURRENCY_CODE',
5495: WHEN OTHERS THEN
5496: if (p_log_level_rec.statement_level) then
5497: fa_debug_pkg.add(l_calling_fn, 'EXCEPTION: OTHERS', sqlerrm);
5498: end if;
5499: fa_srvr_msg.add_sql_error( calling_fn => l_calling_fn );
5500: return FALSE;
5501: END validate_over_depreciation;
5502:
5503: FUNCTION validate_grp_track_method(
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);
5650: raise val_err;
5651: END IF;
5652:
5653: IF nvl(l_group_asset_fin_rec.tracking_method,'ZZZ') <> 'ALLOCATE' THEN
5654: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
5655: name => 'FA_PROD_MEM_NO_ALLOCATE',
5656: p_log_level_rec => p_log_level_rec);
5657: return FALSE;
5658: END IF;
5668: fetch c_asset_with_reserve into l_dummy_num_rsv;
5669: close c_asset_with_reserve;
5670:
5671: IF l_dummy_num_rsv = 1 THEN
5672: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
5673: name => 'FA_PROD_MEM_NO_CAP_RESV',
5674: p_log_level_rec => p_log_level_rec);
5675: return FALSE;
5676: END IF;
5684: /* IF nvl(l_asset_fin_rec.group_asset_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
5685:
5686: IF (nvl(p_asset_fin_rec_adj.group_asset_id,-99) <> FND_API.G_MISS_NUM AND Commented for ENH 12600386 */
5687: IF ( nvl(p_asset_fin_rec_adj.depreciate_flag,'NO') <> 'YES' ) THEN /* Added for ENH 12600386 */
5688: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
5689: name => 'FA_PROD_MEM_INVALID_TRANS',
5690: p_log_level_rec => p_log_level_rec);
5691: return FALSE;
5692: END IF;
5699: fetch c_asset_with_reserve into l_dummy_num_rsv;
5700: close c_asset_with_reserve;
5701:
5702: IF l_dummy_num_rsv = 1 THEN
5703: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
5704: name => 'FA_PROD_CAP_DEPRN_RESV',
5705: p_log_level_rec => p_log_level_rec);
5706: return FALSE;
5707: END IF;
5725: fetch c_group_mem_no_depreciate into l_dummy_num;
5726: close c_group_mem_no_depreciate;
5727:
5728: IF l_dummy_num = 1 THEN
5729: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
5730: name => 'FA_PROD_GRP_NO_DEPR_FLAG',
5731: p_log_level_rec => p_log_level_rec);
5732: return FALSE;
5733: END IF;
5746: fetch c_group_mem_no_depreciate into l_dummy_num;
5747: close c_group_mem_no_depreciate;
5748:
5749: IF l_dummy_num = 1 THEN
5750: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
5751: name => 'FA_PROD_GRP_NO_DEPR_FLAG',
5752: p_log_level_rec => p_log_level_rec);
5753: return FALSE;
5754: END IF;
5762: return true;
5763:
5764: EXCEPTION
5765: WHEN val_err THEN
5766: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
5767: name => 'ERROR executing : '|| l_calling_fn,
5768: p_log_level_rec => p_log_level_rec);
5769: return FALSE;
5770:
5768: p_log_level_rec => p_log_level_rec);
5769: return FALSE;
5770:
5771: WHEN OTHERS THEN
5772: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn);
5773: return false;
5774:
5775: END validate_energy_transactions;
5776:
5900: p_log_level_rec);
5901: END IF;
5902:
5903: if nvl(l_max_ret_trx_id,-99) <> p_asset_retire_rec.detail_info.transaction_header_id_in then
5904: fa_srvr_msg.add_message(
5905: calling_fn => l_calling_fn,
5906: name => 'FA_EGY_REINS_LAST_RET',
5907: token1 => 'ASSET_NUMBER',
5908: value1 => l_last_asset_num
5938: fa_debug_pkg.add(l_calling_fn, 'l_max_ret_adj_reverse', l_max_ret_adj_reverse,p_log_level_rec);
5939: END IF;
5940:
5941: if l_ret_adj_amount*sign(l_ret_adj_amount) > l_max_ret_adj_reverse*sign(l_max_ret_adj_reverse) then
5942: fa_srvr_msg.add_message(
5943: calling_fn => l_calling_fn,
5944: name => 'FA_EGY_REINS_NOT_POSSIBLE');
5945: raise val_err;
5946: end if;
5948: return TRUE;
5949:
5950: EXCEPTION
5951: WHEN val_err THEN
5952: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
5953: name => 'ERROR executing : '|| l_calling_fn,
5954: p_log_level_rec => p_log_level_rec);
5955: return FALSE;
5956:
5954: p_log_level_rec => p_log_level_rec);
5955: return FALSE;
5956:
5957: WHEN OTHERS THEN
5958: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn);
5959: return false;
5960:
5961: END validate_mbr_reins_possible;
5962:
6075: fetch l_curr_open_period into l_current_period_dt;
6076: close l_curr_open_period;
6077:
6078: if (trunc(l_period_end_dt) < trunc(p_asset_fin_rec.date_placed_in_service)) then
6079: fa_srvr_msg.add_message( CALLING_FN => l_calling_fn,
6080: NAME => 'FA_JP_ENDDATE_EARLY_DPIS'
6081: , p_log_level_rec => p_log_level_rec);
6082: raise val_error;
6083: elsif (trunc(l_period_end_dt) > trunc(l_current_period_dt) ) then
6080: NAME => 'FA_JP_ENDDATE_EARLY_DPIS'
6081: , p_log_level_rec => p_log_level_rec);
6082: raise val_error;
6083: elsif (trunc(l_period_end_dt) > trunc(l_current_period_dt) ) then
6084: fa_srvr_msg.add_message( CALLING_FN => l_calling_fn,
6085: NAME => 'FA_JP_ENDDATE_GREATER_CUR_DATE'
6086: , p_log_level_rec => p_log_level_rec);
6087: raise val_error;
6088: elsif l_period_end_dt is null then
6085: NAME => 'FA_JP_ENDDATE_GREATER_CUR_DATE'
6086: , p_log_level_rec => p_log_level_rec);
6087: raise val_error;
6088: elsif l_period_end_dt is null then
6089: fa_srvr_msg.add_message(CALLING_FN => l_calling_fn,
6090: NAME => 'FA_JP_PERIOD_ENDDATE_NULL'
6091: , p_log_level_rec => p_log_level_rec);
6092: raise val_error;
6093: else
6121: ,l_num_fy_yr;
6122: close l_period_info;
6123:
6124: if l_period_end_dt is null then
6125: fa_srvr_msg.add_message(
6126: CALLING_FN => l_calling_fn,
6127: NAME => 'FA_JP_PERIOD_ENDDATE_NULL'
6128: , p_log_level_rec => p_log_level_rec);
6129: raise val_error;
6127: NAME => 'FA_JP_PERIOD_ENDDATE_NULL'
6128: , p_log_level_rec => p_log_level_rec);
6129: raise val_error;
6130: elsif (trunc(l_period_end_dt) < trunc(l_default_dt)) then
6131: fa_srvr_msg.add_message(
6132: CALLING_FN => l_calling_fn,
6133: NAME => 'FA_JP_PERIOD_ENDDATE_WRONG'
6134: , p_log_level_rec => p_log_level_rec);
6135: raise val_error;
6133: NAME => 'FA_JP_PERIOD_ENDDATE_WRONG'
6134: , p_log_level_rec => p_log_level_rec);
6135: raise val_error;
6136: elsif (trunc(l_period_end_dt) < trunc(p_asset_fin_rec.date_placed_in_service)) then
6137: fa_srvr_msg.add_message(
6138: CALLING_FN => l_calling_fn,
6139: NAME => 'FA_JP_ENDDATE_EARLY_DPIS'
6140: , p_log_level_rec => p_log_level_rec);
6141: raise val_error;
6203: return TRUE;
6204:
6205: EXCEPTION
6206: WHEN val_error THEN
6207: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
6208: name => 'ERROR executing : '|| l_calling_fn);
6209: return FALSE;
6210:
6211: WHEN OTHERS THEN
6208: name => 'ERROR executing : '|| l_calling_fn);
6209: return FALSE;
6210:
6211: WHEN OTHERS THEN
6212: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn);
6213: return false;
6214:
6215: END validate_jp_taxupl;
6216:
6238: l_count := null;
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;
6274: FETCH c_check_dist INTO l_inactive_dist;
6275: CLOSE c_check_dist;
6276:
6277: if (l_inactive_dist > 0) then
6278: fa_srvr_msg.add_message(
6279: calling_fn => p_calling_fn,
6280: name =>'FA_INVALID_RESERVE_CHANGE',
6281: p_log_level_rec => p_log_level_rec);
6282:
6292: fa_debug_pkg.add(p_calling_fn, 'p_book_type_code', p_book_type_code, p_log_level_rec => p_log_level_rec);
6293: fa_debug_pkg.add(p_calling_fn, 'EXCEPTION: OTHERS', sqlerrm, p_log_level_rec => p_log_level_rec);
6294: end if;
6295:
6296: fa_srvr_msg.add_sql_error(calling_fn => p_calling_fn, p_log_level_rec => p_log_level_rec);
6297:
6298: return false;
6299: END validate_ltd_deprn_change;
6300: -- End Bug 8471701
6324: if (NOT fa_cache_pkg.fazcbc (
6325: X_book => p_asset_hdr_rec.BOOK_TYPE_CODE,
6326: p_log_level_rec => p_log_level_rec
6327: )) then
6328: fa_srvr_msg.add_message(
6329: calling_fn => l_calling_fn,
6330: name => 'FA_POST_INVALID_BOOK');
6331: return FALSE;
6332: end if;
6334:
6335: if (NOT fa_cache_pkg.fazcdp (
6336: x_book_type_code => p_asset_hdr_rec.BOOK_TYPE_CODE, p_log_level_rec => p_log_level_rec)
6337: ) then
6338: fa_srvr_msg.add_message(
6339: calling_fn => l_calling_fn,
6340: name => 'FA_POST_INVALID_BOOK');
6341: return FALSE;
6342: end if;
6445:
6446: -- No bonus rule for group asset
6447: if (nvl(p_asset_fin_rec.bonus_rule,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR ) then
6448: if (p_asset_type_rec.asset_type = 'GROUP' ) then
6449: fa_srvr_msg.add_message(
6450: calling_fn => p_calling_fn,
6451: name =>'FA_NO_BONUS_FOR_GROUP',
6452: p_log_level_rec => p_log_level_rec);
6453: return false;
6456: -- No bonus rule for member asset
6457: if ( (nvl(p_asset_fin_rec.group_asset_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM and
6458: nvl(p_asset_fin_rec.member_rollup_flag,'Z') <> 'Y' )
6459: ) then
6460: fa_srvr_msg.add_message(
6461: calling_fn => p_calling_fn,
6462: name =>'FA_NO_BONUS_FOR_MBR',
6463: p_log_level_rec => p_log_level_rec);
6464: return false;
6469: if (p_asset_deprn_rec.bonus_deprn_reserve <> FND_API.G_MISS_NUM AND
6470: nvl(p_asset_deprn_rec.bonus_deprn_reserve,0) <> 0
6471: ) then
6472: if (nvl(p_asset_fin_rec.bonus_rule,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR )then
6473: fa_srvr_msg.add_message(
6474: calling_fn => p_calling_fn,
6475: name =>'FA_BONUS_RULE_NO_RESV',
6476: p_log_level_rec => p_log_level_rec);
6477: return false;
6640: -- Do not allow group or member with UOP method (other than ENERGY)
6641: if (l_rate_source_rule = 'PRODUCTION'
6642: and l_deprn_basis_rule <> 'NBV') then
6643: if (p_asset_type_rec.asset_type = 'GROUP' ) then
6644: fa_srvr_msg.add_message(
6645: calling_fn => l_calling_fn,
6646: name =>'FA_UOP_NO_GROUP',
6647: p_log_level_rec => p_log_level_rec);
6648: return false;
6653: -- No UOP for member asset
6654: if ( (nvl(l_group_asset_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM and
6655: nvl(p_asset_fin_rec.member_rollup_flag,'Z') <> 'Y' )
6656: ) then
6657: fa_srvr_msg.add_message(
6658: calling_fn => l_calling_fn,
6659: name =>'FA_UOP_NO_MBR',
6660: p_log_level_rec => p_log_level_rec);
6661: return false;
6668: then
6669: if ( l_grp_rate_source_rule = 'PRODUCTION' and l_grp_deprn_basis_rule = 'NBV'
6670: and
6671: (l_rate_source_rule <> 'PRODUCTION' OR l_deprn_basis_rule <> 'NBV') )then
6672: fa_srvr_msg.add_message(
6673: calling_fn => l_calling_fn,
6674: name =>'FA_EGY_GRP_MBR',
6675: p_log_level_rec => p_log_level_rec);
6676: return false;
6678:
6679: if ( l_rate_source_rule = 'PRODUCTION' and l_deprn_basis_rule = 'NBV'
6680: and
6681: (l_grp_rate_source_rule <> 'PRODUCTION' OR l_grp_deprn_basis_rule <> 'NBV') )then
6682: fa_srvr_msg.add_message(
6683: calling_fn => l_calling_fn,
6684: name =>'FA_EGY_MBR_GRP',
6685: p_log_level_rec => p_log_level_rec);
6686: return false;
6706: end if;
6707:
6708: if (nvl(l_deprn_reserve,0) <> 0 OR
6709: nvl(l_ytd_deprn,0) <> 0) then
6710: fa_srvr_msg.add_message(
6711: calling_fn => l_calling_fn,
6712: name => 'FA_NO_RESERVE_FOR_PROD', p_log_level_rec => p_log_level_rec);
6713: return false;
6714: end if;
6717:
6718: --No change to UOP method after period of addition
6719: if (l_old_rate_source_rule = 'PRODUCTION' and l_old_deprn_basis_rule <> 'NBV' and
6720: l_rate_source_rule <> 'PRODUCTION' and p_asset_hdr_rec.period_of_addition = 'N' ) then
6721: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
6722: name =>'FA_BOOK_NO_CHANGE_TO_PROD',
6723: p_log_level_rec => p_log_level_rec);
6724: return false;
6725: end if;
6726:
6727: --No change to production based method from non-production for member assets
6728: if (l_old_rate_source_rule <> 'PRODUCTION' and l_rate_source_rule = 'PRODUCTION'
6729: and p_asset_fin_rec_old.group_asset_id is not null ) then
6730: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
6731: name =>'FA_UOP_NO_MBR',
6732: p_log_level_rec => p_log_level_rec);
6733: return false;
6734: end if;
6737: open check_tax_book_method;
6738: fetch check_tax_book_method into check_flag;
6739: if (check_tax_book_method%found) then
6740: close check_tax_book_method;
6741: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
6742: name =>'FA_BOOK_MUST_USE_UOP',
6743: p_log_level_rec => p_log_level_rec);
6744: return false;
6745: end if;
6746: close check_tax_book_method;
6747: else
6748: if (l_rate_source_rule = 'PRODUCTION') and
6749: (l_corp_rate_source_rule <> 'PRODUCTION') then
6750: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
6751: name =>'FA_BOOK_CORP_NOT_UOP',
6752: p_log_level_rec => p_log_level_rec);
6753: return false;
6754: end if;
6767: ( l_rate_source_rule = 'PRODUCTION' and l_deprn_basis_rule = 'NBV'
6768: and (l_old_rate_source_rule <> 'PRODUCTION' or l_old_deprn_basis_rule <> 'NBV'))then
6769: if ((p_asset_type_rec.asset_type = 'GROUP' and l_grp_mem_exists = 'Y')
6770: or p_asset_fin_rec_old.group_asset_id is not null ) then
6771: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
6772: name =>'FA_EGY_NO_METHOD_CHANGE',
6773: p_log_level_rec => p_log_level_rec);
6774: return false;
6775: end if;
6781: (l_rate_source_rule <> 'PRODUCTION' OR l_deprn_basis_rule <> 'NBV' ) then
6782: if (abs(p_asset_fin_rec_old.adjusted_recoverable_cost) < abs(l_deprn_resv) or
6783: (sign(p_asset_fin_rec_old.adjusted_recoverable_cost) <> 0 and
6784: sign(p_asset_fin_rec_old.adjusted_recoverable_cost) = -sign(l_deprn_resv))) then
6785: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
6786: name => 'FA_EGY_INVALID_RESERVE',
6787: p_log_level_rec => p_log_level_rec);
6788: return FALSE;
6789: end if;
6830: end if;
6831:
6832: if (p_trans_rec.amortization_start_date is not null) then
6833: if (p_trans_rec.amortization_start_date < p_period_rec.calendar_period_open_date) then
6834: fa_srvr_msg.add_message(
6835: calling_fn => l_calling_fn,
6836: name => 'FA_PREVENT_PREV_PRD', p_log_level_rec => p_log_level_rec);
6837: return FALSE;
6838: end if;
6841: open c_amort_trx;
6842: fetch c_amort_trx into l_flag;
6843: close c_amort_trx;
6844: if (l_flag = 'Y' and p_asset_retire_rec.date_retired < p_period_rec.calendar_period_open_date) then
6845: fa_srvr_msg.add_message(
6846: calling_fn => l_calling_fn,
6847: name => 'FA_PREVENT_PREV_PRD', p_log_level_rec => p_log_level_rec);
6848: return FALSE;
6849: end if;
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));
6991: INTO l_valid
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;
6999: end if;
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:
7158: nvl(p_asset_hdr_rec.period_of_addition,'N') <> 'Y' or
7159: nvl(l_method_det.rule_name,'ZZ') <> 'YEAR END BALANCE WITH POSITIVE REDUCTION AMOUNT' or
7160: p_asset_fin_rec.date_placed_in_service >= p_period_rec.calendar_period_open_date
7161: ) then
7162: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
7163: name =>'FA_CCA_NO_ADJ_COST',
7164: p_log_level_rec => p_log_level_rec);
7165: return false;
7166: end if;
7164: p_log_level_rec => p_log_level_rec);
7165: return false;
7166: end if;
7167: if (l_cost <> 0 and l_method_det.deprn_basis_rule = 'NBV') then
7168: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
7169: name =>'FA_CCA_NO_ADJ_COST',
7170: p_log_level_rec => p_log_level_rec);
7171: return false;
7172: end if;
7170: p_log_level_rec => p_log_level_rec);
7171: return false;
7172: end if;
7173: if (l_cost <> 0 and sign(l_cost) <> sign(l_adjusted_cost) ) then
7174: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
7175: name =>'FA_CCA_NO_ADJ_COST',
7176: p_log_level_rec => p_log_level_rec);
7177: return false;
7178: end if;
7189: or (p_trans_rec.transaction_type_code like '%ADDITION%' and l_deprn_reserve <> 0 )) then
7190: if (sign(l_deprn_reserve) <> sign(l_cost)) then
7191: if (l_method_det.deprn_basis_rule = 'NBV' and
7192: l_cost <> 0 ) then
7193: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
7194: name =>'FA_CCA_RESV_NOT_ALLOWED',
7195: p_log_level_rec => p_log_level_rec);
7196: return false;
7197: end if;
7203: open c_ret_count;
7204: fetch c_ret_count into l_dummy_num;
7205: close c_ret_count;
7206: if (l_dummy_num > 0) then
7207: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
7208: name =>'FA_CCA_RET_EXISTS',
7209: p_log_level_rec => p_log_level_rec);
7210: return false;
7211: end if;
7227: open c_mem_exists;
7228: fetch c_mem_exists into l_dummy_num;
7229: close c_mem_exists;
7230: if (l_dummy_num > 0) then
7231: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
7232: name =>'FA_CCA_MTD_NOT_ALLOWED',
7233: p_log_level_rec => p_log_level_rec);
7234: return false;
7235: end if;
7242: if( nvl(l_method_det.rule_name,'ZZ') = 'YEAR END BALANCE WITH POSITIVE REDUCTION AMOUNT') then
7243: if (nvl(l_method_det.rule_name,'ZZ') <> nvl(l_grp_method_det.rule_name,'YY') or
7244: l_method_det.deprn_basis_rule <> l_grp_method_det.deprn_basis_rule
7245: ) then
7246: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
7247: name =>'FA_CCA_DIFF_GRP',
7248: p_log_level_rec => p_log_level_rec);
7249: return false;
7250: end if;
7252: if( nvl(l_grp_method_det.rule_name,'ZZ') = 'YEAR END BALANCE WITH POSITIVE REDUCTION AMOUNT') then
7253: if (nvl(l_method_det.rule_name,'ZZ') <> nvl(l_grp_method_det.rule_name,'ZZ') or
7254: l_method_det.deprn_basis_rule <> l_grp_method_det.deprn_basis_rule
7255: ) then
7256: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
7257: name =>'FA_CCA_DIFF_MBR',
7258: p_log_level_rec => p_log_level_rec);
7259: return false;
7260: end if;
7272: open c_other_mem(l_group_asset_id);
7273: fetch c_other_mem into l_dummy_num;
7274: close c_other_mem;
7275: if (l_dummy_num > 0) then
7276: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
7277: name =>'FA_CCA_ONE_MEM',
7278: p_log_level_rec => p_log_level_rec);
7279: return false;
7280: end if;
7287: open c_get_adj_cost;
7288: fetch c_get_adj_cost into l_dummy_num;
7289: close c_get_adj_cost;
7290: if(nvl(l_dummy_num,0) <> 0 ) then
7291: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
7292: name =>'FA_CCA_NO_TRX',
7293: p_log_level_rec => p_log_level_rec);
7294: return false;
7295: end if;