[Home] [Help]
PACKAGE BODY: APPS.IGI_IAC_TRANS_HEADERS_PKG
Source
1 PACKAGE BODY igi_iac_trans_headers_pkg AS
2 -- $Header: igiiathb.pls 120.4.12000000.2 2007/10/31 16:12:48 npandya ship $
3
4
5 --===========================FND_LOG.START=====================================
6
7 g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
8 g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
9 g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
10 g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
11 g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
12 g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
13 g_path VARCHAR2(100):= 'IGI.PLSQL.igiiathb.igi_iac_trans_headers_pkg.';
14
15 --===========================FND_LOG.END=====================================
16
17 PROCEDURE insert_row (
18 x_rowid IN OUT NOCOPY VARCHAR2,
19 x_adjustment_id IN OUT NOCOPY NUMBER,
20 x_transaction_header_id IN NUMBER,
21 x_adjustment_id_out IN NUMBER,
22 x_transaction_type_code IN VARCHAR2,
23 x_transaction_date_entered IN DATE,
24 x_mass_refrence_id IN NUMBER,
25 x_transaction_sub_type IN VARCHAR2,
26 x_book_type_code IN VARCHAR2,
27 x_asset_id IN NUMBER,
28 x_category_id IN NUMBER,
29 x_adj_deprn_start_date IN DATE,
30 x_revaluation_type_flag IN VARCHAR2,
31 x_adjustment_status IN VARCHAR2,
32 x_period_counter IN NUMBER,
33 x_mode IN VARCHAR2,
34 x_event_id in number
35 ) AS
36 /*
37 || Created By : Narayanan Iyer
38 || Created On : 14-APR-2002
39 || Purpose : Handles the INSERT DML logic for the table.
40 || Known limitations, enhancements or remarks :
41
42 || Change History :
43 || Who When What
44 || (reverse chronological order - newest change first)
45 */
46 CURSOR c IS
47 SELECT rowid
48 FROM igi_iac_transaction_headers
49 WHERE adjustment_id = x_adjustment_id;
50
51 CURSOR c1 IS
52 SELECT igi_iac_transaction_headers_s.NEXTVAL
53 FROM sys.dual;
54
55 x_last_update_date DATE;
56 x_last_updated_by NUMBER;
57 x_last_update_login NUMBER;
58 x_creation_date DATE;
59 x_created_by NUMBER;
60 l_path_name VARCHAR2(150) := g_path||'insert_row';
61
62 BEGIN
63
64 IF (x_mode = 'R') THEN
65 x_last_update_date := SYSDATE;
66
67 x_creation_date := SYSDATE;
68 x_created_by := fnd_global.user_id;
69 IF (x_created_by IS NULL) THEN
70 x_created_by := -1;
71 END IF;
72 x_last_updated_by := fnd_global.user_id;
73 IF (x_last_updated_by IS NULL) THEN
74 x_last_updated_by := -1;
75 END IF;
76 x_last_update_login := fnd_global.login_id;
77 IF (x_last_update_login IS NULL) THEN
78 x_last_update_login := -1;
79 END IF;
80 ELSE
81 fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
82 igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
83 p_full_path => l_path_name,
84 p_remove_from_stack => FALSE);
85 app_exception.raise_exception;
86 END IF;
87
88 IF x_adjustment_id is null THEN
89 OPEN c1;
90 FETCH c1 INTO x_adjustment_id;
91 CLOSE c1;
92 END IF;
93
94
95
96
97 INSERT INTO igi_iac_transaction_headers (
98 adjustment_id,
99 transaction_header_id,
100 adjustment_id_out,
101 transaction_type_code,
102 transaction_date_entered,
103 mass_reference_id,
104 transaction_sub_type,
105 book_type_code,
106 asset_id,
107 category_id,
108 adj_deprn_start_date,
109 revaluation_type_flag,
110 adjustment_status,
111 period_counter,
112 creation_date,
113 created_by,
114 last_update_date,
115 last_updated_by,
116 last_update_login,
117 event_id
118
119 ) VALUES (
120 x_adjustment_id,
121 x_transaction_header_id,
122 x_adjustment_id_out,
123 x_transaction_type_code,
124 x_transaction_date_entered,
125 x_mass_refrence_id,
126 x_transaction_sub_type,
127 x_book_type_code,
128 x_asset_id,
129 x_category_id,
130 x_adj_deprn_start_date,
131 x_revaluation_type_flag,
132 x_adjustment_status,
133 x_period_counter,
134 x_creation_date,
135 x_created_by,
136 x_last_update_date,
137 x_last_updated_by,
138 x_last_update_login,
139 x_event_id
140 );
141
142 OPEN c;
143
144 FETCH c INTO x_rowid;
145 IF (c%NOTFOUND) THEN
146 CLOSE c;
147 RAISE NO_DATA_FOUND;
148 END IF;
149 CLOSE c;
150
151 END insert_row;
152
153
154 -- For FND logging purpose this procedure has been aliased as update_row1
155 PROCEDURE update_row (
156 -- x_rowid IN VARCHAR2,
157 x_prev_adjustment_id IN NUMBER,
158 x_adjustment_id IN NUMBER,
159 x_mode IN VARCHAR2
160 ) AS
161 /*
162 || Created By : Narayanan Iyer
163 || Created On : 14-APR-2002
164 || Purpose : Handles the UPDATE DML logic for the table.
165 || Known limitations, enhancements or remarks :
166 || Change History :
167
168 || Who When What
169 || (reverse chronological order - newest change first)
170 */
171 x_last_update_date DATE ;
172 x_last_updated_by NUMBER;
173 x_last_update_login NUMBER;
174 l_path_name VARCHAR2(150) := g_path||'update_row1';
175
176 /*
177 CURSOR c IS
178 SELECT rowid
179 FROM igi_iac_transaction_headers
180 WHERE adjustment_id = x_prev_adjustment_id;
181 */
182
183
184 BEGIN
185
186
187 x_last_update_date := SYSDATE;
188 IF (X_MODE = 'I') THEN
189 x_last_updated_by := 1;
190 x_last_update_login := 0;
191 ELSIF (x_mode = 'R') THEN
192
193 x_last_updated_by := fnd_global.user_id;
194 IF x_last_updated_by IS NULL THEN
195 x_last_updated_by := -1;
196 END IF;
197 x_last_update_login := fnd_global.login_id;
198 IF (x_last_update_login IS NULL) THEN
199 x_last_update_login := -1;
200 END IF;
201 ELSE
202 fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
203 igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
204 p_full_path => l_path_name,
205 p_remove_from_stack => FALSE);
206 app_exception.raise_exception;
207 END IF;
208
209 /*
210 OPEN c;
211 FETCH c INTO x_rowid;
212 IF (c%NOTFOUND) THEN
213 CLOSE c;
214 RAISE NO_DATA_FOUND;
215 END IF;
216 CLOSE c;
217 */
218
219
220 UPDATE igi_iac_transaction_headers
221 SET
222 adjustment_id_out = x_adjustment_id,
223 last_update_date = x_last_update_date,
224 last_updated_by = x_last_updated_by,
225 last_update_login = x_last_update_login
226 -- WHERE rowid = x_rowid
227 WHERE adjustment_id = x_prev_adjustment_id;
228
229 /*
230 IF (SQL%NOTFOUND) THEN
231 RAISE NO_DATA_FOUND;
232 END IF;
233 */
234
235 END update_row;
236
237
238 -- For FND logging purpose this procedure has been aliased as update_row2
239 PROCEDURE update_row (
240 -- x_rowid IN VARCHAR2,
241 x_adjustment_id IN NUMBER,
242 x_adjustment_status IN VARCHAR2,
243 x_mode IN VARCHAR2
244
245 ) AS
246 /*
247 || Created By : Narayanan Iyer
248 || Created On : 14-APR-2002
249 || Purpose : Handles the UPDATE DML logic for the table.
250 || Known limitations, enhancements or remarks :
251 || Change History :
252 || Who When What
253 || (reverse chronological order - newest change first)
254 */
255 x_last_update_date DATE ;
256 x_last_updated_by NUMBER;
257 x_last_update_login NUMBER;
258 l_path_name VARCHAR2(150) := g_path||'update_row2';
259
260 CURSOR c IS
261 SELECT rowid
262 FROM igi_iac_transaction_headers
263 WHERE adjustment_id = x_adjustment_id;
264
265 BEGIN
266
267
268 x_last_update_date := SYSDATE;
269
270 IF (X_MODE = 'I') THEN
271 x_last_updated_by := 1;
272 x_last_update_login := 0;
273 ELSIF (x_mode = 'R') THEN
274 x_last_updated_by := fnd_global.user_id;
275 IF x_last_updated_by IS NULL THEN
276 x_last_updated_by := -1;
277 END IF;
278 x_last_update_login := fnd_global.login_id;
279 IF (x_last_update_login IS NULL) THEN
280 x_last_update_login := -1;
281 END IF;
282 ELSE
283 fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
284 igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
285 p_full_path => l_path_name,
286 p_remove_from_stack => FALSE);
287 app_exception.raise_exception;
288 END IF;
289
290 /*
291 OPEN c;
292 FETCH c INTO x_rowid;
293 IF (c%NOTFOUND) THEN
294 CLOSE c;
295 RAISE NO_DATA_FOUND;
296
297 END IF;
298 CLOSE c;
299 */
300
301 UPDATE igi_iac_transaction_headers
302 SET
303 adjustment_status = x_adjustment_status,
304 last_update_date = x_last_update_date,
305 last_updated_by = x_last_updated_by,
306 last_update_login = x_last_update_login
307 -- WHERE rowid = x_rowid
308 WHERE adjustment_id = x_adjustment_id;
309
310 /*
311 IF (SQL%NOTFOUND) THEN
312 RAISE NO_DATA_FOUND;
313 END IF;
314 */
315
316 END update_row;
317
318
319 PROCEDURE delete_row (
320
321 x_adjustment_id IN NUMBER
322 ) AS
323 /*
324 || Created By : Narayanan Iyer
325 || Created On : 14-APR-2002
326 || Purpose : Handles the DELETE DML logic for the table.
327 || Known limitations, enhancements or remarks :
328 || Change History :
329 || Who When What
330 || (reverse chronological order - newest change first)
331 */
332 BEGIN
333
334
335 DELETE FROM igi_iac_transaction_headers
336 WHERE adjustment_id = x_adjustment_id;
337
338 IF (SQL%NOTFOUND) THEN
339 RAISE NO_DATA_FOUND;
340 END IF;
341
342 END delete_row;
343
344
345
346 END igi_iac_trans_headers_pkg;