2807: end if;
2808:
2809: -- Validate warranty currency is correct
2810: SELECT count(w.warranty_id) INTO l_count
2811: FROM gl_sets_of_books glsob,
2812: fa_book_controls bc,
2813: fa_warranties w
2814: WHERE w.warranty_id = p_warranty_id
2815: AND bc.book_type_code = p_book_type_code
2840: from fa_additions_b
2841: where asset_id = p_asset_id );
2842: CURSOR C1 IS
2843: select currency_code
2844: from gl_sets_of_books sob,
2845: fa_book_controls bc,
2846: fa_books bk
2847: where bk.asset_id = p_asset_id
2848: and bk.date_ineffective is null