239: FETCH C INTO Recinfo;
240: if (C%NOTFOUND) then
241: CLOSE C;
242: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
243: APP_EXCEPTION.Raise_Exception;
244: end if;
245: CLOSE C;
246: if (
247:
286: ) then
287: return;
288: else
289: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
290: APP_EXCEPTION.Raise_Exception;
291: end if;
292: END Lock_Row;
293:
294:
981: FETCH C_Books INTO Recinfo_Books;
982: if (C_Books%NOTFOUND) then
983: CLOSE C_Books;
984: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
985: APP_EXCEPTION.Raise_Exception;
986: end if;
987: CLOSE C_Books;
988:
989: OPEN C_AssetHistory;
990: FETCH C_AssetHistory INTO Recinfo_AssetHistory;
991: if (C_AssetHistory%NOTFOUND) then
992: CLOSE C_AssetHistory;
993: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
994: APP_EXCEPTION.Raise_Exception;
995: end if;
996: CLOSE C_AssetHistory;
997:
998: OPEN C_DistHistory;
999: FETCH C_DistHistory INTO Recinfo_DistHistory;
1000: if (C_DistHistory%NOTFOUND) then
1001: CLOSE C_DistHistory;
1002: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
1003: APP_EXCEPTION.Raise_Exception;
1004: end if;
1005: CLOSE C_DistHistory;
1006:
1007: OPEN C_DeprnSummary;
1008: FETCH C_DeprnSummary INTO Recinfo_DeprnSummary;
1009: if (C_DeprnSummary%NOTFOUND) then
1010: CLOSE C_DeprnSummary;
1011: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
1012: APP_EXCEPTION.Raise_Exception;
1013: end if;
1014: CLOSE C_DeprnSummary;
1015: EXCEPTION
1016: when app_exception.record_lock_exception then
1012: APP_EXCEPTION.Raise_Exception;
1013: end if;
1014: CLOSE C_DeprnSummary;
1015: EXCEPTION
1016: when app_exception.record_lock_exception then
1017: FA_STANDARD_PKG.RAISE_ERROR(
1018: CALLED_FN => 'fa_deprn_summary_pkg.lock_b_row',
1019: CALLING_FN => X_Calling_Fn,
1020: NAME => 'FA_SHARED_ASSETS_LOCKED', p_log_level_rec => p_log_level_rec);