[Home] [Help]
PACKAGE BODY: APPS.IGI_IAC_DET_BALANCES_PKG
Source
1 PACKAGE BODY igi_iac_det_balances_pkg AS
2 -- $Header: igiiadbb.pls 120.4.12000000.1 2007/08/01 16:14:19 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.igiiadbb.igi_iac_det_balances_pkg.';
13
14 --===========================FND_LOG.END=====================================
15
16 PROCEDURE insert_row (
17 x_rowid IN OUT NOCOPY VARCHAR2,
18 x_adjustment_id IN NUMBER,
19 x_asset_id IN NUMBER,
20 x_distribution_id IN NUMBER,
21 x_book_type_code IN VARCHAR2,
22 x_period_counter IN NUMBER,
23 x_adjustment_cost IN NUMBER,
24 x_net_book_value IN NUMBER,
25 x_reval_reserve_cost IN NUMBER,
26 x_reval_reserve_backlog IN NUMBER,
27 x_reval_reserve_gen_fund IN NUMBER,
28 x_reval_reserve_net IN NUMBER,
29 x_operating_acct_cost IN NUMBER,
30 x_operating_acct_backlog IN NUMBER,
31 x_operating_acct_net IN NUMBER,
32 x_operating_acct_ytd IN NUMBER,
33 x_deprn_period IN NUMBER,
34 x_deprn_ytd IN NUMBER,
35 x_deprn_reserve IN NUMBER,
36 x_deprn_reserve_backlog IN NUMBER,
37 x_general_fund_per IN NUMBER,
38
39 x_general_fund_acc IN NUMBER,
40 x_last_reval_date IN DATE,
41 x_current_reval_factor IN NUMBER,
42 x_cumulative_reval_factor IN NUMBER,
43 x_active_flag IN VARCHAR2,
44 x_mode IN VARCHAR2
45 ) AS
46 /*
47 || Created By :
48 || Created On : 14-APR-2002
49 || Purpose : Handles the INSERT DML logic for the table.
50 || Known limitations, enhancements or remarks :
51 || Change History :
52 || Who When What
53 || (reverse chronological order - newest change first)
54 */
55
56
57 x_last_update_date DATE;
58 x_last_updated_by NUMBER;
59 x_last_update_login NUMBER;
60 x_creation_date DATE;
61 x_created_by NUMBER;
62
63 l_path VARCHAR2(100) := g_path||'insert_row';
64
65
66 CURSOR c IS
67 SELECT rowid
68 FROM igi_iac_det_balances
69 WHERE adjustment_id = x_adjustment_id
70 AND asset_id = x_asset_id
71 AND distribution_id = x_distribution_id
72 AND book_type_code = x_book_type_code
73 AND period_counter = x_period_counter;
74
75
76 BEGIN
77
78 IF (x_mode = 'R') THEN
79 x_last_update_date := SYSDATE;
80 x_creation_date := SYSDATE;
81 x_created_by := fnd_global.user_id;
82 IF (x_created_by IS NULL) THEN
83 x_created_by := -1;
84 END IF;
85 x_last_updated_by := fnd_global.user_id;
86 IF (x_last_updated_by IS NULL) THEN
87
88 x_last_updated_by := -1;
89 END IF;
90 x_last_update_login := fnd_global.login_id;
91 IF (x_last_update_login IS NULL) THEN
92 x_last_update_login := -1;
93 END IF;
94 ELSE
95 fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
96 igi_iac_debug_pkg.debug_other_msg(g_error_level,l_path,FALSE);
97 app_exception.raise_exception;
98 END IF;
99
100
101 INSERT INTO igi_iac_det_balances (
102 adjustment_id,
103 asset_id,
104 distribution_id,
105 book_type_code,
106 period_counter,
107 adjustment_cost,
108 net_book_value,
109 reval_reserve_cost,
110 reval_reserve_backlog,
111 reval_reserve_gen_fund,
112
113 reval_reserve_net,
114 operating_acct_cost,
115 operating_acct_backlog,
116 operating_acct_net,
117 operating_acct_ytd,
118 deprn_period,
119 deprn_ytd,
120 deprn_reserve,
121 deprn_reserve_backlog,
122 general_fund_per,
123 general_fund_acc,
124 last_reval_date,
125 current_reval_factor,
126 cumulative_reval_factor,
127 active_flag,
128 creation_date,
129 created_by,
130 last_update_date,
131 last_updated_by,
132 last_update_login
133 ) VALUES (
134 x_adjustment_id,
135 x_asset_id,
136
137 x_distribution_id,
138 x_book_type_code,
139 x_period_counter,
140 x_adjustment_cost,
141 x_net_book_value,
142 x_reval_reserve_cost,
143 x_reval_reserve_backlog,
144 x_reval_reserve_gen_fund,
145 x_reval_reserve_net,
146 x_operating_acct_cost,
147 x_operating_acct_backlog,
148 x_operating_acct_net,
149 x_operating_acct_ytd,
150 x_deprn_period,
151 x_deprn_ytd,
152 x_deprn_reserve,
153 x_deprn_reserve_backlog,
154 x_general_fund_per,
155 x_general_fund_acc,
156 x_last_reval_date,
157 x_current_reval_factor,
158 x_cumulative_reval_factor,
159 x_active_flag,
160
161 x_creation_date,
162 x_created_by,
163 x_last_update_date,
164 x_last_updated_by,
165 x_last_update_login
166 );
167
168 OPEN c;
169 FETCH c INTO x_rowid;
170 IF (c%NOTFOUND) THEN
171 CLOSE c;
172 RAISE NO_DATA_FOUND;
173 END IF;
174 CLOSE c;
175
176 END insert_row;
177
178
179 PROCEDURE Update_Row (
180 x_adjustment_id IN NUMBER,
181 x_asset_id IN NUMBER,
182 x_distribution_id IN NUMBER,
183 x_book_type_code IN VARCHAR2,
184 x_period_counter IN NUMBER,
185 x_adjustment_cost IN NUMBER,
186 x_net_book_value IN NUMBER,
187 x_reval_reserve_cost IN NUMBER,
188 x_reval_reserve_backlog IN NUMBER,
189 x_reval_reserve_gen_fund IN NUMBER,
190 x_reval_reserve_net IN NUMBER,
191 x_operating_acct_cost IN NUMBER,
192 x_operating_acct_backlog IN NUMBER,
193 x_operating_acct_net IN NUMBER,
194 x_operating_acct_ytd IN NUMBER,
195 x_deprn_period IN NUMBER,
196 x_deprn_ytd IN NUMBER,
197 x_deprn_reserve IN NUMBER,
198 x_deprn_reserve_backlog IN NUMBER,
199 x_general_fund_per IN NUMBER,
200 x_general_fund_acc IN NUMBER,
201 x_last_reval_date IN DATE,
202 x_current_reval_factor IN NUMBER,
203 x_cumulative_reval_factor IN NUMBER,
204 x_active_flag IN VARCHAR2,
205 x_mode IN VARCHAR2
206 ) AS
207
208 /*
209 || Created By :
210 || Created On : 14-APR-2002
211 || Purpose : Handles the UPDATE DML logic for the table.
212 || Known limitations, enhancements or remarks :
213 || Change History :
214 || Who When What
215 || (reverse chronological order - newest change first)
216 */
217 x_last_update_date DATE ;
218 x_last_updated_by NUMBER;
219 x_last_update_login NUMBER;
220
221 l_path VARCHAR2(100) := g_path||'Update_Row';
222 BEGIN
223
224 x_last_update_date := SYSDATE;
225 IF (x_mode = 'R') THEN
226 x_last_updated_by := fnd_global.user_id;
227
228 IF x_last_updated_by IS NULL THEN
229
230 x_last_updated_by := -1;
231 END IF;
232 x_last_update_login := fnd_global.login_id;
233 IF (x_last_update_login IS NULL) THEN
234 x_last_update_login := -1;
235 END IF;
236 ELSE
237 fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
238 igi_iac_debug_pkg.debug_other_msg(g_error_level,l_path,FALSE);
239 app_exception.raise_exception;
240 END IF;
241
242 UPDATE igi_iac_det_balances SET
243 adjustment_cost = x_adjustment_cost,
244 net_book_value = x_net_book_value,
245 reval_reserve_cost = x_reval_reserve_cost,
246 reval_reserve_backlog = x_reval_reserve_backlog,
247 reval_reserve_gen_fund = x_reval_reserve_gen_fund,
248 reval_reserve_net = x_reval_reserve_net,
249 operating_acct_cost = x_operating_acct_cost,
250 operating_acct_backlog = x_operating_acct_backlog,
251 operating_acct_net = x_operating_acct_net,
252 operating_acct_ytd = x_operating_acct_ytd,
253 deprn_period = x_deprn_period,
254 deprn_ytd = x_deprn_ytd,
255 deprn_reserve = x_deprn_reserve,
256 deprn_reserve_backlog = x_deprn_reserve_backlog,
257 general_fund_per = x_general_fund_per,
258 general_fund_acc = x_general_fund_acc,
259 last_reval_date = x_last_reval_date,
260 current_reval_factor = x_current_reval_factor,
261 cumulative_reval_factor = x_cumulative_reval_factor,
262 active_flag = x_active_flag,
263 last_update_date = x_last_update_date,
264 last_updated_by = x_last_updated_by,
265 last_update_login = x_last_update_login
266 WHERE adjustment_id = x_adjustment_id
267 AND asset_id = x_asset_id
268 AND distribution_id = x_distribution_id
269 AND book_type_code = x_book_type_code
270 AND period_counter = x_period_counter;
271
272
273 END Update_Row;
274
275
276 PROCEDURE delete_row (
277 x_adjustment_id IN NUMBER,
278
279 x_asset_id IN NUMBER,
280 x_distribution_id IN NUMBER,
281 x_book_type_code IN VARCHAR2,
282 x_period_counter IN NUMBER
283 ) AS
284 /*
285 || Created By :
286 || Created On : 14-APR-2002
287 || Purpose : Handles the DELETE DML logic for the table.
288 || Known limitations, enhancements or remarks :
289 || Change History :
290 || Who When What
291 || (reverse chronological order - newest change first)
292 */
293 BEGIN
294
295 DELETE FROM igi_iac_det_balances
296 WHERE adjustment_id = x_adjustment_id
297 AND asset_id = x_asset_id
298 AND distribution_id = x_distribution_id
299 AND book_type_code = x_book_type_code
300 AND period_counter = x_period_counter;
301
302
303 /*
304 IF (SQL%NOTFOUND) THEN
305 RAISE NO_DATA_FOUND;
306 END IF;
307 */
308
309 END delete_row;
310
311
312 END igi_iac_det_balances_pkg;