1 PACKAGE BODY JL_ZZ_FA_LIBRARY_1_PKG AS
2 /* $Header: jlzzfl1b.pls 115.4 1999/11/01 17:06:06 pkm ship $ */
3
4
5 PROCEDURE get_period_name (book_typ_code IN VARCHAR2,
6 prd_name IN OUT VARCHAR2,
7 row_number IN NUMBER,
8 Errcd IN OUT NUMBER) IS
9 BEGIN
10 Errcd := 0;
11
12 BEGIN
13 SELECT period_name
14 INTO prd_name
15 FROM fa_mass_revaluations mr ,
16 fa_book_controls bc,
17 fa_deprn_periods dp
18 WHERE dp.book_type_code = book_typ_code
19 AND dp.period_close_date IS NULL
20 AND bc.book_type_code = dp.book_type_code
21 AND bc.global_attribute2 = dp.period_counter
22 AND bc.global_attribute1 = 'Y'
23 AND bc.global_attribute3 = mr.mass_reval_id
24 -- AND mr.book_type_code = bc.book_type_code -- To fix bug 979165, added above line instead
25 -- AND mr.global_attribute1 = dp.period_counter -- To fix bug 1013530
26 AND mr.status = 'COMPLETED'
27 AND rownum = row_number;
28 EXCEPTION
29 WHEN OTHERS THEN
30 Errcd := SQLCODE;
31 END;
32
33
34 END get_period_name;
35
36
37 PROCEDURE get_check_inflation_adjustment(book_type IN VARCHAR2,
38 book_ctrl IN OUT VARCHAR2,
39 row_number IN NUMBER,
40 Errcd IN OUT NUMBER) IS
41 BEGIN
42 Errcd := 0;
43 SELECT global_attribute1
44 INTO book_ctrl
45 FROM fa_book_controls
46 WHERE book_type_code = book_type
47 AND rownum = row_number;
48 EXCEPTION
49 WHEN OTHERS THEN
50 Errcd := SQLCODE;
51 END get_check_inflation_adjustment;
52
53 PROCEDURE get_fa_books (asset_id IN NUMBER,
54 attr_category IN VARCHAR2,
55 book_type IN VARCHAR2,
56 current_reval IN OUT VARCHAR2,
57 previous_reval IN OUT VARCHAR2,
58 last_appr_no IN OUT VARCHAR2,
59 last_appr_date IN OUT VARCHAR2,
60 last_appr_value IN OUT VARCHAR2,
61 row_number IN NUMBER,
62 Errcd IN OUT NUMBER) IS
63 BEGIN
64 Errcd := 0;
65 SELECT SUBSTR (global_attribute2, 1, 15),
66 SUBSTR (global_attribute3, 1, 15),
67 SUBSTR (global_attribute4, 1, 15),
68 SUBSTR (global_attribute5, 1, 25),
69 SUBSTR (global_attribute6, 1, 15)
70 INTO current_reval,
71 previous_reval,
72 last_appr_no,
73 last_appr_date,
74 last_appr_value
75 FROM fa_books
76 WHERE asset_id = TO_CHAR (asset_id)
77 AND date_ineffective IS NULL
78 AND global_attribute_category = attr_category
79 AND book_type_code = book_type
80 AND rownum = row_number;
81 EXCEPTION
82 WHEN OTHERS THEN
83 Errcd := SQLCODE;
84 END get_fa_books;
85
86
87 END JL_ZZ_FA_LIBRARY_1_PKG;