[Home] [Help]
1: package body iby_dbccard_pvt_w as
2: /* $Header: ibyrdmnb.pls 115.1 2002/11/20 01:21:04 jleybovi noship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5:
18: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19: return d;
20: end;
21:
22: procedure rosetta_table_copy_in_p13(t out nocopy iby_dbccard_pvt.summary_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: ) as
26: ddindx binary_integer; indx binary_integer;
41: end loop;
42: end if;
43: end if;
44: end rosetta_table_copy_in_p13;
45: procedure rosetta_table_copy_out_p13(t iby_dbccard_pvt.summary_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
46: , a1 out nocopy JTF_NUMBER_TABLE
47: , a2 out nocopy JTF_NUMBER_TABLE
48: ) as
49: ddindx binary_integer; indx binary_integer;
75: end if;
76: end if;
77: end rosetta_table_copy_out_p13;
78:
79: procedure rosetta_table_copy_in_p14(t out nocopy iby_dbccard_pvt.trxnsum_tbl_type, a0 JTF_NUMBER_TABLE
80: , a1 JTF_NUMBER_TABLE
81: , a2 JTF_NUMBER_TABLE
82: , a3 JTF_NUMBER_TABLE
83: , a4 JTF_NUMBER_TABLE
102: end loop;
103: end if;
104: end if;
105: end rosetta_table_copy_in_p14;
106: procedure rosetta_table_copy_out_p14(t iby_dbccard_pvt.trxnsum_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
107: , a1 out nocopy JTF_NUMBER_TABLE
108: , a2 out nocopy JTF_NUMBER_TABLE
109: , a3 out nocopy JTF_NUMBER_TABLE
110: , a4 out nocopy JTF_NUMBER_TABLE
146: end if;
147: end if;
148: end rosetta_table_copy_out_p14;
149:
150: procedure rosetta_table_copy_in_p15(t out nocopy iby_dbccard_pvt.trxnfail_tbl_type, a0 JTF_NUMBER_TABLE
151: , a1 JTF_NUMBER_TABLE
152: , a2 JTF_VARCHAR2_TABLE_100
153: , a3 JTF_NUMBER_TABLE
154: , a4 JTF_NUMBER_TABLE
173: end loop;
174: end if;
175: end if;
176: end rosetta_table_copy_in_p15;
177: procedure rosetta_table_copy_out_p15(t iby_dbccard_pvt.trxnfail_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
178: , a1 out nocopy JTF_NUMBER_TABLE
179: , a2 out nocopy JTF_VARCHAR2_TABLE_100
180: , a3 out nocopy JTF_NUMBER_TABLE
181: , a4 out nocopy JTF_NUMBER_TABLE
229: , p3_a3 out nocopy JTF_NUMBER_TABLE
230: , p3_a4 out nocopy JTF_NUMBER_TABLE
231: )
232: as
233: ddsummary_tbl iby_dbccard_pvt.summary_tbl_type;
234: ddtrxnsum_tbl iby_dbccard_pvt.trxnsum_tbl_type;
235: ddindx binary_integer; indx binary_integer;
236: begin
237:
230: , p3_a4 out nocopy JTF_NUMBER_TABLE
231: )
232: as
233: ddsummary_tbl iby_dbccard_pvt.summary_tbl_type;
234: ddtrxnsum_tbl iby_dbccard_pvt.trxnsum_tbl_type;
235: ddindx binary_integer; indx binary_integer;
236: begin
237:
238: -- copy data to the local IN or IN-OUT args, if any
240:
241:
242:
243: -- here's the delegated call to the old PL/SQL routine
244: iby_dbccard_pvt.get_trxn_summary(payee_id,
245: period,
246: ddsummary_tbl,
247: ddtrxnsum_tbl);
248:
248:
249: -- copy data back from the local OUT or IN-OUT args, if any
250:
251:
252: iby_dbccard_pvt_w.rosetta_table_copy_out_p13(ddsummary_tbl, p2_a0
253: , p2_a1
254: , p2_a2
255: );
256:
253: , p2_a1
254: , p2_a2
255: );
256:
257: iby_dbccard_pvt_w.rosetta_table_copy_out_p14(ddtrxnsum_tbl, p3_a0
258: , p3_a1
259: , p3_a2
260: , p3_a3
261: , p3_a4
275: , p3_a3 out nocopy JTF_NUMBER_TABLE
276: , p3_a4 out nocopy JTF_NUMBER_TABLE
277: )
278: as
279: ddauthfail_tbl iby_dbccard_pvt.trxnfail_tbl_type;
280: ddsettfail_tbl iby_dbccard_pvt.trxnfail_tbl_type;
281: ddindx binary_integer; indx binary_integer;
282: begin
283:
276: , p3_a4 out nocopy JTF_NUMBER_TABLE
277: )
278: as
279: ddauthfail_tbl iby_dbccard_pvt.trxnfail_tbl_type;
280: ddsettfail_tbl iby_dbccard_pvt.trxnfail_tbl_type;
281: ddindx binary_integer; indx binary_integer;
282: begin
283:
284: -- copy data to the local IN or IN-OUT args, if any
286:
287:
288:
289: -- here's the delegated call to the old PL/SQL routine
290: iby_dbccard_pvt.get_failure_summary(payee_id,
291: period,
292: ddauthfail_tbl,
293: ddsettfail_tbl);
294:
294:
295: -- copy data back from the local OUT or IN-OUT args, if any
296:
297:
298: iby_dbccard_pvt_w.rosetta_table_copy_out_p15(ddauthfail_tbl, p2_a0
299: , p2_a1
300: , p2_a2
301: , p2_a3
302: , p2_a4
301: , p2_a3
302: , p2_a4
303: );
304:
305: iby_dbccard_pvt_w.rosetta_table_copy_out_p15(ddsettfail_tbl, p3_a0
306: , p3_a1
307: , p3_a2
308: , p3_a3
309: , p3_a4
318: , p2_a3 out nocopy JTF_NUMBER_TABLE
319: , p2_a4 out nocopy JTF_NUMBER_TABLE
320: )
321: as
322: ddcardtype_tbl iby_dbccard_pvt.trxnfail_tbl_type;
323: ddindx binary_integer; indx binary_integer;
324: begin
325:
326: -- copy data to the local IN or IN-OUT args, if any
327:
328:
329:
330: -- here's the delegated call to the old PL/SQL routine
331: iby_dbccard_pvt.get_cardtype_summary(payee_id,
332: period,
333: ddcardtype_tbl);
334:
335: -- copy data back from the local OUT or IN-OUT args, if any
334:
335: -- copy data back from the local OUT or IN-OUT args, if any
336:
337:
338: iby_dbccard_pvt_w.rosetta_table_copy_out_p15(ddcardtype_tbl, p2_a0
339: , p2_a1
340: , p2_a2
341: , p2_a3
342: , p2_a4
351: , p2_a3 out nocopy JTF_NUMBER_TABLE
352: , p2_a4 out nocopy JTF_NUMBER_TABLE
353: )
354: as
355: ddprocessor_tbl iby_dbccard_pvt.trxnfail_tbl_type;
356: ddindx binary_integer; indx binary_integer;
357: begin
358:
359: -- copy data to the local IN or IN-OUT args, if any
360:
361:
362:
363: -- here's the delegated call to the old PL/SQL routine
364: iby_dbccard_pvt.get_processor_summary(payee_id,
365: period,
366: ddprocessor_tbl);
367:
368: -- copy data back from the local OUT or IN-OUT args, if any
367:
368: -- copy data back from the local OUT or IN-OUT args, if any
369:
370:
371: iby_dbccard_pvt_w.rosetta_table_copy_out_p15(ddprocessor_tbl, p2_a0
372: , p2_a1
373: , p2_a2
374: , p2_a3
375: , p2_a4
375: , p2_a4
376: );
377: end;
378:
379: end iby_dbccard_pvt_w;