[Home] [Help]
PACKAGE BODY: APPS.FUN_NET_BATCHES_PKG
Source
1 PACKAGE BODY FUN_NET_BATCHES_PKG AS
2 /* $Header: funntbab.pls 120.1 2006/08/04 10:52:42 akonatha noship $ */
3
4 --===========================FND_LOG.START=====================================
5
6 g_state_level NUMBER;
7 g_proc_level NUMBER;
8 g_event_level NUMBER;
9 g_excep_level NUMBER;
10 g_error_level NUMBER;
11 g_unexp_level NUMBER;
12 g_path VARCHAR2(100);
13
14 --===========================FND_LOG.END=======================================
15
16 PROCEDURE Insert_Row (
17 x_batch_id IN OUT NOCOPY NUMBER,
18 x_object_version_number IN NUMBER,
19 x_agreement_id IN NUMBER,
20 x_batch_name IN VARCHAR2,
21 x_batch_number IN NUMBER,
22 x_review_netting_batch_flag IN VARCHAR2,
23 x_batch_currency IN VARCHAR2,
24 x_batch_status_code IN VARCHAR2,
25 x_total_netted_amt IN NUMBER,
26 x_transaction_due_date IN DATE,
27 x_settlement_date IN DATE,
28 x_response_date IN DATE,
29 x_exchange_rate_type IN VARCHAR2,
30 x_exchange_rate IN NUMBER,
31 x_gl_date IN DATE,
32 x_org_id IN NUMBER,
33 x_attribute_category IN VARCHAR2,
34 x_attribute1 IN VARCHAR2,
35 x_attribute2 IN VARCHAR2,
36 x_attribute3 IN VARCHAR2,
37 x_attribute4 IN VARCHAR2,
38 x_attribute5 IN VARCHAR2,
39 x_attribute6 IN VARCHAR2,
40 x_attribute7 IN VARCHAR2,
41 x_attribute8 IN VARCHAR2,
42 x_attribute9 IN VARCHAR2,
43 x_attribute10 IN VARCHAR2,
44 x_attribute11 IN VARCHAR2,
45 x_attribute12 IN VARCHAR2,
46 x_attribute13 IN VARCHAR2,
47 x_attribute14 IN VARCHAR2,
48 x_attribute15 IN VARCHAR2,
49 x_attribute16 IN VARCHAR2,
50 x_attribute17 IN VARCHAR2,
51 x_attribute18 IN VARCHAR2,
52 x_attribute19 IN VARCHAR2,
53 x_attribute20 IN VARCHAR2
54 ) IS
55
56 l_batch_id fun_net_batches_all.batch_id%TYPE;
57 l_batch_number fun_net_batches_all.batch_number%TYPE;
58 l_path VARCHAR2(100);
59 BEGIN
60
61 l_path := g_path||'Insert_Row';
62 fun_net_util.Log_String(g_proc_level,l_path,'Before inserting into fun_net_batches_all');
63
64 IF x_batch_id IS NULL THEN
65 SELECT fun_net_batches_s.NEXTVAL INTO l_batch_id FROM DUAL;
66 x_batch_id := l_batch_id;
67 ELSE
68 l_batch_id := x_batch_id;
69 END IF;
70 fun_net_util.Log_String(g_state_level,l_path,'batch_id:'||l_batch_id);
71
72 IF x_batch_number IS NULL THEN
73 l_batch_number := l_batch_id;
74 ELSE
75 l_batch_number := x_batch_number;
76 END IF;
77
78 INSERT INTO fun_net_batches (
79 batch_id,
80 object_version_number,
81 agreement_id,
82 batch_name,
83 batch_number,
84 review_netting_batch_flag,
85 batch_currency,
86 batch_status_code,
87 total_netted_amt,
88 transaction_due_date,
89 settlement_date,
90 response_date,
91 exchange_rate_type,
92 exchange_rate,
93 gl_date,
94 org_id,
95 attribute_category,
96 attribute1,
97 attribute2,
98 attribute3,
99 attribute4,
100 attribute5,
101 attribute6,
102 attribute7,
103 attribute8,
104 attribute9,
105 attribute10,
106 attribute11,
107 attribute12,
108 attribute13,
109 attribute14,
110 attribute15,
111 attribute16,
112 attribute17,
113 attribute18,
114 attribute19,
115 attribute20,
116 created_by,
117 creation_date,
118 last_update_login,
119 last_update_date,
120 last_updated_by
121 )
122 VALUES (
123 l_batch_id,
124 x_object_version_number,
125 x_agreement_id,
126 x_batch_name,
127 l_batch_number,
128 x_review_netting_batch_flag,
129 x_batch_currency,
130 x_batch_status_code,
131 x_total_netted_amt,
132 x_transaction_due_date,
133 x_settlement_date,
134 x_response_date,
135 x_exchange_rate_type,
136 x_exchange_rate,
137 x_gl_date,
138 x_org_id,
139 x_attribute_category,
140 x_attribute1,
141 x_attribute2,
142 x_attribute3,
143 x_attribute4,
144 x_attribute5,
145 x_attribute6,
146 x_attribute7,
147 x_attribute8,
148 x_attribute9,
149 x_attribute10,
150 x_attribute11,
151 x_attribute12,
152 x_attribute13,
153 x_attribute14,
154 x_attribute15,
155 x_attribute16,
156 x_attribute17,
157 x_attribute18,
158 x_attribute19,
159 x_attribute20,
160 NVL(FND_GLOBAL.user_id,-1),
161 SYSDATE,
162 DECODE(FND_GLOBAL.conc_login_id,null,FND_GLOBAL.login_id,-1,FND_GLOBAL.login_id,FND_GLOBAL.conc_login_id),
163 SYSDATE,
164 NVL(FND_GLOBAL.user_id,-1)
165 );
166
167 IF SQL%NOTFOUND THEN
168 fun_net_util.Log_String(g_excep_level,l_path,'Could not insert batch record');
169 RAISE NO_DATA_FOUND;
170 END IF;
171 fun_net_util.Log_String(g_proc_level,l_path,'Successfully inserted batch record');
172 END Insert_Row;
173
174
175 PROCEDURE Update_Row (
176 x_batch_id IN NUMBER,
177 x_object_version_number IN NUMBER,
178 x_agreement_id IN NUMBER,
179 x_batch_name IN VARCHAR2,
180 x_batch_number IN NUMBER,
181 x_review_netting_batch_flag IN VARCHAR2,
182 x_batch_currency IN VARCHAR2,
183 x_batch_status_code IN VARCHAR2,
184 x_total_netted_amt IN NUMBER,
185 x_transaction_due_date IN DATE,
186 x_settlement_date IN DATE,
187 x_response_date IN DATE,
188 x_exchange_rate_type IN VARCHAR2,
189 x_exchange_rate IN NUMBER,
190 x_gl_date IN DATE,
191 x_org_id IN NUMBER,
192 x_attribute_category IN VARCHAR2,
193 x_attribute1 IN VARCHAR2,
194 x_attribute2 IN VARCHAR2,
195 x_attribute3 IN VARCHAR2,
196 x_attribute4 IN VARCHAR2,
197 x_attribute5 IN VARCHAR2,
198 x_attribute6 IN VARCHAR2,
199 x_attribute7 IN VARCHAR2,
200 x_attribute8 IN VARCHAR2,
201 x_attribute9 IN VARCHAR2,
202 x_attribute10 IN VARCHAR2,
203 x_attribute11 IN VARCHAR2,
204 x_attribute12 IN VARCHAR2,
205 x_attribute13 IN VARCHAR2,
206 x_attribute14 IN VARCHAR2,
207 x_attribute15 IN VARCHAR2,
208 x_attribute16 IN VARCHAR2,
209 x_attribute17 IN VARCHAR2,
210 x_attribute18 IN VARCHAR2,
211 x_attribute19 IN VARCHAR2,
212 x_attribute20 IN VARCHAR2
213 ) IS
214
215 l_path VARCHAR2(100);
216 BEGIN
217 l_path := g_path||'Update_Row';
218 fun_net_util.Log_String(g_proc_level,l_path,'Before updating fun_net_batches_all');
219
220 UPDATE FUN_NET_BATCHES_ALL SET
221 batch_id = x_batch_id,
222 object_version_number = x_object_version_number,
223 agreement_id = x_agreement_id,
224 batch_name = x_batch_name,
225 batch_number = x_batch_number,
226 review_netting_batch_flag = x_review_netting_batch_flag,
227 batch_currency = x_batch_currency,
228 batch_status_code = x_batch_status_code,
229 total_netted_amt = x_total_netted_amt,
230 transaction_due_date = x_transaction_due_date,
231 settlement_date = x_settlement_date,
232 response_date = x_response_date,
233 exchange_rate_type = x_exchange_rate_type,
234 exchange_rate = x_exchange_rate,
235 gl_date = x_gl_date,
236 org_id = x_org_id,
237 attribute_category = x_attribute_category,
238 attribute1 = x_attribute1,
239 attribute2 = x_attribute2,
240 attribute3 = x_attribute3,
241 attribute4 = x_attribute4,
242 attribute5 = x_attribute5,
243 attribute6 = x_attribute6,
244 attribute7 = x_attribute7,
245 attribute8 = x_attribute8,
246 attribute9 = x_attribute9,
247 attribute10 = x_attribute10,
248 attribute11 = x_attribute11,
249 attribute12 = x_attribute12,
250 attribute13 = x_attribute13,
251 attribute14 = x_attribute14,
252 attribute15 = x_attribute15,
253 attribute16 = x_attribute16,
254 attribute17 = x_attribute17,
255 attribute18 = x_attribute18,
256 attribute19 = x_attribute19,
257 attribute20 = x_attribute20,
258 last_update_login = DECODE(FND_GLOBAL.conc_login_id,null,FND_GLOBAL.login_id,-1,FND_GLOBAL.login_id,FND_GLOBAL.conc_login_id),
259 last_update_date = SYSDATE,
260 last_updated_by = NVL(FND_GLOBAL.user_id,-1)
261 WHERE batch_id = x_batch_id;
262
263 IF ( SQL%NOTFOUND ) THEN
264 fun_net_util.Log_String(g_excep_level,l_path,'Could not update record for batch_id:'||x_batch_id);
265 RAISE NO_DATA_FOUND;
266 END IF;
267 fun_net_util.Log_String(g_proc_level,l_path,'Successfully updated batch record');
268 END Update_Row;
269
270
271 PROCEDURE Update_Row (
272 x_batch_id IN NUMBER,
273 x_batch_status_code IN VARCHAR2
274 ) IS
275 PRAGMA AUTONOMOUS_TRANSACTION;
276 BEGIN
277 UPDATE fun_net_batches_all
278 SET batch_status_code = x_batch_status_code
279 WHERE batch_id = x_batch_id;
280
281 IF SQL%FOUND THEN
282 COMMIT;
283 ELSE
284 ROLLBACK;
285 END IF;
286 END Update_Row;
287
288 PROCEDURE Select_Row (
289 x_batch_id IN OUT NOCOPY NUMBER,
290 x_object_version_number IN OUT NOCOPY NUMBER,
291 x_agreement_id IN OUT NOCOPY NUMBER,
292 x_batch_name IN OUT NOCOPY VARCHAR2,
293 x_batch_number IN OUT NOCOPY NUMBER,
294 x_review_netting_batch_flag IN OUT NOCOPY VARCHAR2,
295 x_batch_currency IN OUT NOCOPY VARCHAR2,
296 x_batch_status_code IN OUT NOCOPY VARCHAR2,
297 x_total_netted_amt IN OUT NOCOPY NUMBER,
298 x_transaction_due_date IN OUT NOCOPY DATE,
299 x_settlement_date IN OUT NOCOPY DATE,
300 x_response_date IN OUT NOCOPY DATE,
301 x_exchange_rate_type IN OUT NOCOPY VARCHAR2,
302 x_exchange_rate IN OUT NOCOPY NUMBER,
303 x_gl_date IN OUT NOCOPY DATE,
304 x_org_id IN OUT NOCOPY NUMBER,
305 x_attribute_category IN OUT NOCOPY VARCHAR2,
306 x_attribute1 IN OUT NOCOPY VARCHAR2,
307 x_attribute2 IN OUT NOCOPY VARCHAR2,
308 x_attribute3 IN OUT NOCOPY VARCHAR2,
309 x_attribute4 IN OUT NOCOPY VARCHAR2,
310 x_attribute5 IN OUT NOCOPY VARCHAR2,
311 x_attribute6 IN OUT NOCOPY VARCHAR2,
312 x_attribute7 IN OUT NOCOPY VARCHAR2,
313 x_attribute8 IN OUT NOCOPY VARCHAR2,
314 x_attribute9 IN OUT NOCOPY VARCHAR2,
315 x_attribute10 IN OUT NOCOPY VARCHAR2,
316 x_attribute11 IN OUT NOCOPY VARCHAR2,
317 x_attribute12 IN OUT NOCOPY VARCHAR2,
318 x_attribute13 IN OUT NOCOPY VARCHAR2,
319 x_attribute14 IN OUT NOCOPY VARCHAR2,
320 x_attribute15 IN OUT NOCOPY VARCHAR2,
321 x_attribute16 IN OUT NOCOPY VARCHAR2,
322 x_attribute17 IN OUT NOCOPY VARCHAR2,
323 x_attribute18 IN OUT NOCOPY VARCHAR2,
324 x_attribute19 IN OUT NOCOPY VARCHAR2,
325 x_attribute20 IN OUT NOCOPY VARCHAR2
326 ) IS
327
328 BEGIN
329
330 SELECT
331 batch_id,
332 object_version_number,
333 agreement_id,
334 batch_name,
335 batch_number,
336 review_netting_batch_flag,
337 batch_currency,
338 batch_status_code,
339 total_netted_amt,
340 transaction_due_date,
341 settlement_date,
342 response_date,
343 exchange_rate_type,
344 exchange_rate,
345 gl_date,
346 org_id,
347 attribute_category,
348 attribute1,
349 attribute2,
350 attribute3,
351 attribute4,
352 attribute5,
353 attribute6,
354 attribute7,
355 attribute8,
356 attribute9,
357 attribute10,
358 attribute11,
359 attribute12,
360 attribute13,
361 attribute14,
362 attribute15,
363 attribute16,
364 attribute17,
365 attribute18,
366 attribute19,
367 attribute20
368 INTO
369 x_batch_id,
370 x_object_version_number,
371 x_agreement_id,
372 x_batch_name,
373 x_batch_number,
374 x_review_netting_batch_flag,
375 x_batch_currency,
376 x_batch_status_code,
377 x_total_netted_amt,
378 x_transaction_due_date,
379 x_settlement_date,
380 x_response_date,
381 x_exchange_rate_type,
382 x_exchange_rate,
383 x_gl_date,
384 x_org_id,
385 x_attribute_category,
386 x_attribute1,
387 x_attribute2,
388 x_attribute3,
389 x_attribute4,
390 x_attribute5,
391 x_attribute6,
392 x_attribute7,
393 x_attribute8,
394 x_attribute9,
395 x_attribute10,
396 x_attribute11,
397 x_attribute12,
398 x_attribute13,
399 x_attribute14,
400 x_attribute15,
401 x_attribute16,
402 x_attribute17,
403 x_attribute18,
404 x_attribute19,
405 x_attribute20
406 FROM FUN_NET_BATCHES_ALL
407 WHERE batch_id = x_batch_id;
408
409 IF SQL%NOTFOUND THEN
410 RAISE NO_DATA_FOUND;
411 END IF;
412
413 END Select_Row;
414
415
416 PROCEDURE Delete_Row (
417 x_batch_id IN NUMBER
418 ) IS
419
420 BEGIN
421
422 DELETE fun_net_batches_all
423 WHERE batch_id = x_batch_id;
424
425 IF ( SQL%NOTFOUND ) THEN
426 RAISE NO_DATA_FOUND;
427 END IF;
428
429 END Delete_Row;
430
431 BEGIN
432 --===========================FND_LOG.START=====================================
433
434 g_state_level := FND_LOG.LEVEL_STATEMENT;
435 g_proc_level := FND_LOG.LEVEL_PROCEDURE;
436 g_event_level := FND_LOG.LEVEL_EVENT;
437 g_excep_level := FND_LOG.LEVEL_EXCEPTION;
438 g_error_level := FND_LOG.LEVEL_ERROR;
439 g_unexp_level := FND_LOG.LEVEL_UNEXPECTED;
440 g_path := 'FUN.PLSQL.funntbab.FUN_NET_BATCHES_PKG.';
441
442 --===========================FND_LOG.END=======================================
443
444
445 END FUN_NET_BATCHES_PKG;