[Home] [Help]
PACKAGE BODY: APPS.IGI_IAC_REVAL_ASSET_RULES_PKG
Source
1 PACKAGE BODY igi_iac_reval_asset_rules_pkg AS
2 -- $Header: igiiarrb.pls 120.5.12000000.1 2007/08/01 16:17:51 npandya ship $
3
4 --===========================FND_LOG.START=====================================
5
6 g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
7 g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
8 g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
9 g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
10 g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
11 g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12 g_path VARCHAR2(100) := 'IGI.PLSQL.igiiarrb.igi_iac_reval_asset_rules_pkg.';
13
14 --===========================FND_LOG.END=======================================
15
16 PROCEDURE insert_row (
17 X_rowid IN OUT NOCOPY VARCHAR2,
18 X_revaluation_id IN NUMBER,
19 X_book_type_code IN VARCHAR2,
20 X_category_id IN NUMBER,
21 X_asset_id IN NUMBER,
22 X_revaluation_factor IN NUMBER,
23 X_revaluation_type IN VARCHAR2,
24 X_new_cost IN NUMBER,
25 X_current_cost IN NUMBER,
26 X_selected_for_reval_flag IN VARCHAR2,
27 X_selected_for_calc_flag IN VARCHAR2,
28 X_allow_prof_update IN VARCHAR2,
29 X_mode IN VARCHAR2
30 ) AS
31
32 CURSOR c IS
33 SELECT rowid
34 FROM igi_iac_reval_asset_rules
35 WHERE revaluation_id = X_revaluation_id
36 AND asset_id = X_asset_id
37 AND book_type_code = X_book_type_code
38 AND category_id = X_category_id;
39
40 X_last_update_date DATE;
41 X_last_updated_by NUMBER;
42 X_last_update_login NUMBER;
43 X_creation_date DATE;
44 X_created_by NUMBER;
45 l_path VARCHAR2(150) := g_path||'insert_row';
46 BEGIN
47
48 IF (x_mode = 'R') THEN
49 x_last_update_date := SYSDATE;
50 x_creation_date := SYSDATE;
51 x_created_by := fnd_global.user_id;
52
53 IF (x_created_by IS NULL) THEN
54 x_created_by := -1;
55 END IF;
56
57 x_last_updated_by := fnd_global.user_id;
58 IF (x_last_updated_by IS NULL) THEN
59 x_last_updated_by := -1;
60 END IF;
61
62 x_last_update_login := fnd_global.login_id;
63 IF (x_last_update_login IS NULL) THEN
64 x_last_update_login := -1;
65 END IF;
66 ELSE
67 fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
68 igi_iac_debug_pkg.debug_other_msg(g_error_level,l_path,FALSE);
69 app_exception.raise_exception;
70 END IF;
71
72 INSERT INTO igi_iac_reval_asset_rules
73 (revaluation_id,
74 book_type_code,
75 category_id,
76 asset_id,
77 revaluation_factor,
78 revaluation_type,
79 new_cost,
80 current_cost,
81 selected_for_reval_flag,
82 selected_for_calc_flag,
83 created_by,
84 creation_date,
85 last_update_login,
86 last_update_date,
87 last_updated_by,
88 allow_prof_update)
89 VALUES
90 (X_revaluation_id,
91 X_book_type_code,
92 X_category_id,
93 X_asset_id,
94 X_revaluation_factor,
95 X_revaluation_type,
96 X_new_cost,
97 X_current_cost,
98 X_selected_for_reval_flag,
99 X_selected_for_calc_flag,
100 X_created_by,
101 X_creation_date,
102 X_last_update_login,
103 X_last_update_date,
104 X_last_updated_by,
105 X_allow_prof_update);
106
107 OPEN c;
108 FETCH c INTO X_rowid;
109 IF (c%NOTFOUND) THEN
110 CLOSE c;
111 RAISE NO_DATA_FOUND;
112 END IF;
113 CLOSE c;
114
115 END insert_row;
116
117 PROCEDURE delete_row (
118 x_asset_id IN NUMBER,
119 x_book_type_code IN VARCHAR2,
120 x_revaluation_id IN NUMBER
121 ) AS
122 BEGIN
123
124 DELETE FROM igi_iac_reval_asset_rules
125 WHERE asset_id = x_asset_id
126 AND book_type_code = x_book_type_code
127 AND revaluation_id = x_revaluation_id;
128
129 IF (SQL%NOTFOUND) THEN
130 RAISE NO_DATA_FOUND;
131 END IF;
132
133 END delete_row;
134
135 END igi_iac_reval_asset_rules_pkg;