[Home] [Help]
PACKAGE BODY: APPS.IGI_IAC_FA_DEPRN_PKG
Source
1 PACKAGE BODY igi_iac_fa_deprn_pkg AS
2 -- $Header: igiiafdb.pls 120.4.12000000.1 2007/08/01 16:15:29 npandya noship $
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.igiiafdb.igi_iac_fa_deprn_pkg.';
13
14 --===========================FND_LOG.END=======================================
15
16
17 PROCEDURE insert_row (
18 x_rowid IN OUT NOCOPY VARCHAR2,
19 x_book_type_code IN VARCHAR2,
20 x_asset_id IN NUMBER,
21 x_period_counter IN NUMBER,
22 x_adjustment_id IN NUMBER,
23 x_distribution_id IN NUMBER,
24 x_deprn_period IN NUMBER,
25 x_deprn_ytd IN NUMBER,
26 x_deprn_reserve IN NUMBER,
27 x_active_flag IN VARCHAR2,
28 x_mode IN VARCHAR2
29 ) AS
30 /*
31 || Created By :
32 || Created On : 23-SEP-2002
33 || Purpose : Handles the INSERT DML logic for the table.
34 || Known limitations, enhancements or remarks :
35 || Change History :
36 || Who When What
37 || (reverse chronological order - newest change first)
38 */
39
40
41 x_last_update_date DATE;
42 x_last_updated_by NUMBER;
43 x_last_update_login NUMBER;
44 x_creation_date DATE;
45 x_created_by NUMBER;
46
47
48
49 CURSOR c IS
50 SELECT rowid
51 FROM igi_iac_fa_deprn
52 WHERE adjustment_id = x_adjustment_id
53 AND asset_id = x_asset_id
54 AND distribution_id = x_distribution_id
55 AND book_type_code = x_book_type_code
56 AND period_counter = x_period_counter;
57
58 l_path VARCHAR2(150) := g_path||'insert_row';
59
60 BEGIN
61
62 IF (x_mode = 'R') THEN
63 x_last_update_date := SYSDATE;
64 x_creation_date := SYSDATE;
65 x_created_by := fnd_global.user_id;
66 IF (x_created_by IS NULL) THEN
67 x_created_by := -1;
68 END IF;
69 x_last_updated_by := fnd_global.user_id;
70 IF (x_last_updated_by IS NULL) THEN
71
72 x_last_updated_by := -1;
73 END IF;
74 x_last_update_login := fnd_global.login_id;
75 IF (x_last_update_login IS NULL) THEN
76 x_last_update_login := -1;
77 END IF;
78 ELSE
79 fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
80 igi_iac_debug_pkg.debug_other_msg(g_error_level,l_path,FALSE);
81 app_exception.raise_exception;
82 END IF;
83
84
85 INSERT INTO igi_iac_fa_deprn (
86 book_type_code,
87 asset_id,
88 period_counter,
89 adjustment_id,
90 distribution_id,
91 deprn_period,
92 deprn_ytd,
93 deprn_reserve,
94 active_flag,
95 creation_date,
96 created_by,
97 last_update_date,
98 last_updated_by,
99 last_update_login
100 ) VALUES (
101 x_book_type_code,
102 x_asset_id,
103 x_period_counter,
104 x_adjustment_id,
105 x_distribution_id,
106 x_deprn_period,
107 x_deprn_ytd,
108 x_deprn_reserve,
109 x_active_flag,
110 x_creation_date,
111 x_created_by,
112 x_last_update_date,
113 x_last_updated_by,
114 x_last_update_login
115 );
116
117 OPEN c;
118 FETCH c INTO x_rowid;
119 IF (c%NOTFOUND) THEN
120 CLOSE c;
121 RAISE NO_DATA_FOUND;
122 END IF;
123 CLOSE c;
124
125 END insert_row;
126
127
128 PROCEDURE Update_Row (
129 x_book_type_code IN VARCHAR2,
130 x_asset_id IN NUMBER,
131 x_period_counter IN NUMBER,
132 x_adjustment_id IN NUMBER,
133 x_distribution_id IN NUMBER,
134 x_deprn_period IN NUMBER,
135 x_deprn_ytd IN NUMBER,
136 x_deprn_reserve IN NUMBER,
137 x_active_flag IN VARCHAR2,
138 x_mode IN VARCHAR2
139 ) AS
140
141 /*
142 || Created By :
143 || Created On : 23-SEP-2002
144 || Purpose : Handles the UPDATE DML logic for the table.
145 || Known limitations, enhancements or remarks :
146 || Change History :
147 || Who When What
148 || (reverse chronological order - newest change first)
149 */
150 x_last_update_date DATE ;
151 x_last_updated_by NUMBER;
152 x_last_update_login NUMBER;
153
154 l_path VARCHAR2(150) := g_path||'Update_Row';
155
156 BEGIN
157
158 x_last_update_date := SYSDATE;
159 IF (x_mode = 'R') THEN
160 x_last_updated_by := fnd_global.user_id;
161
162 IF x_last_updated_by IS NULL THEN
163
164 x_last_updated_by := -1;
165 END IF;
166 x_last_update_login := fnd_global.login_id;
167 IF (x_last_update_login IS NULL) THEN
168 x_last_update_login := -1;
169 END IF;
170 ELSE
171 fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
172 igi_iac_debug_pkg.debug_other_msg(g_error_level,l_path,FALSE);
173 app_exception.raise_exception;
174 END IF;
175
176 UPDATE igi_iac_fa_deprn SET
177 deprn_period = x_deprn_period,
178 deprn_ytd = x_deprn_ytd,
179 deprn_reserve = x_deprn_reserve,
180 active_flag = x_active_flag,
181 last_update_date = x_last_update_date,
182 last_updated_by = x_last_updated_by,
183 last_update_login = x_last_update_login
184 WHERE adjustment_id = x_adjustment_id
185 AND asset_id = x_asset_id
186 AND distribution_id = x_distribution_id
187 AND book_type_code = x_book_type_code
188 AND period_counter = x_period_counter;
189
190
191 END Update_Row;
192
193
194 PROCEDURE delete_row (
195 x_book_type_code IN VARCHAR2,
196 x_asset_id IN NUMBER,
197 x_period_counter IN NUMBER,
198 x_adjustment_id IN NUMBER,
199 x_distribution_id IN NUMBER
200 ) AS
201 /*
202 || Created By :
203 || Created On : 23-SEP-2002
204 || Purpose : Handles the DELETE DML logic for the table.
205 || Known limitations, enhancements or remarks :
206 || Change History :
207 || Who When What
208 || (reverse chronological order - newest change first)
209 */
210 BEGIN
211
212 DELETE FROM igi_iac_fa_deprn
213 WHERE adjustment_id = x_adjustment_id
214 AND asset_id = x_asset_id
215 AND distribution_id = x_distribution_id
216 AND book_type_code = x_book_type_code
217 AND period_counter = x_period_counter;
218
219
220 /*
221 IF (SQL%NOTFOUND) THEN
222 RAISE NO_DATA_FOUND;
223 END IF;
224 */
225
226 END delete_row;
227
228
229 END igi_iac_fa_deprn_pkg;