1: package body cac_view_pvt_w as
2: /* $Header: cacvpwb.pls 120.3 2006/02/22 07:23:26 sankgupt noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy cac_view_pvt.callsttbltype, a0 JTF_NUMBER_TABLE
4: , a1 JTF_VARCHAR2_TABLE_100
5: , a2 JTF_VARCHAR2_TABLE_400
1: package body cac_view_pvt_w as
2: /* $Header: cacvpwb.pls 120.3 2006/02/22 07:23:26 sankgupt noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy cac_view_pvt.callsttbltype, a0 JTF_NUMBER_TABLE
4: , a1 JTF_VARCHAR2_TABLE_100
5: , a2 JTF_VARCHAR2_TABLE_400
6: , a3 JTF_VARCHAR2_TABLE_100
7: ) as
24: end loop;
25: end if;
26: end if;
27: end rosetta_table_copy_in_p1;
28: procedure rosetta_table_copy_out_p1(t cac_view_pvt.callsttbltype, a0 out nocopy JTF_NUMBER_TABLE
29: , a1 out nocopy JTF_VARCHAR2_TABLE_100
30: , a2 out nocopy JTF_VARCHAR2_TABLE_400
31: , a3 out nocopy JTF_VARCHAR2_TABLE_100
32: ) as
63: end if;
64: end if;
65: end rosetta_table_copy_out_p1;
66:
67: procedure rosetta_table_copy_in_p4(t out nocopy cac_view_pvt.queryouttab, a0 JTF_NUMBER_TABLE
68: , a1 JTF_NUMBER_TABLE
69: , a2 JTF_VARCHAR2_TABLE_100
70: , a3 JTF_VARCHAR2_TABLE_2000
71: , a4 JTF_VARCHAR2_TABLE_2000
136: end loop;
137: end if;
138: end if;
139: end rosetta_table_copy_in_p4;
140: procedure rosetta_table_copy_out_p4(t cac_view_pvt.queryouttab, a0 out nocopy JTF_NUMBER_TABLE
141: , a1 out nocopy JTF_NUMBER_TABLE
142: , a2 out nocopy JTF_VARCHAR2_TABLE_100
143: , a3 out nocopy JTF_VARCHAR2_TABLE_2000
144: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
311: , p9_a3 out nocopy JTF_VARCHAR2_TABLE_100
312: )
313:
314: as
315: ddx_calendarlist cac_view_pvt.callsttbltype;
316: ddindx binary_integer; indx binary_integer;
317: begin
318:
319: -- 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: cac_view_pvt.getcalendarlist(p_api_version,
332: p_init_msg_list,
333: p_validation_level,
334: x_return_status,
335: x_msg_count,
348:
349:
350:
351:
352: cac_view_pvt_w.rosetta_table_copy_out_p1(ddx_calendarlist, p9_a0
353: , p9_a1
354: , p9_a2
355: , p9_a3
356: );
426: , p7_a27 out nocopy JTF_VARCHAR2_TABLE_100
427: )
428:
429: as
430: ddp_input cac_view_pvt.queryin;
431: ddx_displayitems cac_view_pvt.queryouttab;
432: ddindx binary_integer; indx binary_integer;
433: begin
434:
427: )
428:
429: as
430: ddp_input cac_view_pvt.queryin;
431: ddx_displayitems cac_view_pvt.queryouttab;
432: ddindx binary_integer; indx binary_integer;
433: begin
434:
435: -- copy data to the local IN or IN-OUT args, if any
475: ddp_input.viewtimezoneid := p6_a33;
476:
477:
478: -- here's the delegated call to the old PL/SQL routine
479: cac_view_pvt.getview(p_api_version,
480: p_init_msg_list,
481: p_validation_level,
482: x_return_status,
483: x_msg_count,
492:
493:
494:
495:
496: cac_view_pvt_w.rosetta_table_copy_out_p4(ddx_displayitems, p7_a0
497: , p7_a1
498: , p7_a2
499: , p7_a3
500: , p7_a4
523: , p7_a27
524: );
525: end;
526:
527: end cac_view_pvt_w;