1 package body paap_pwp_pkg_w as
2 /* $Header: parlhldb.pls 120.3 2009/07/21 14:12:39 anuragar noship $ */
3 procedure rosetta_table_copy_in_p0(t out nocopy paap_pwp_pkg.invoiceid, a0 JTF_NUMBER_TABLE) as
4 ddindx binary_integer; indx binary_integer;
5 begin
6 if a0 is not null and a0.count > 0 then
7 if a0.count > 0 then
8 indx := a0.first;
9 ddindx := 1;
10 while true loop
11 t(ddindx) := a0(indx);
12 ddindx := ddindx+1;
13 if a0.last =indx
14 then exit;
15 end if;
16 indx := a0.next(indx);
17 end loop;
18 end if;
19 end if;
20 end rosetta_table_copy_in_p0;
21 procedure rosetta_table_copy_out_p0(t paap_pwp_pkg.invoiceid, a0 out nocopy JTF_NUMBER_TABLE) as
22 ddindx binary_integer; indx binary_integer;
23 begin
24 if t is null or t.count = 0 then
25 a0 := JTF_NUMBER_TABLE();
26 else
27 a0 := JTF_NUMBER_TABLE();
28 if t.count > 0 then
29 a0.extend(t.count);
30 ddindx := t.first;
31 indx := 1;
32 while true loop
33 a0(indx) := t(ddindx);
34 indx := indx+1;
35 if t.last =ddindx
36 then exit;
37 end if;
38 ddindx := t.next(ddindx);
39 end loop;
40 end if;
41 end if;
42 end rosetta_table_copy_out_p0;
43
44 procedure paap_release_hold(p_inv_tbl JTF_NUMBER_TABLE
45 , p_rel_option VARCHAR2
46 , x_return_status out nocopy VARCHAR2
47 , x_msg_count out nocopy NUMBER
48 , x_msg_data out nocopy VARCHAR2
49 )
50
51 as
52 ddp_inv_tbl paap_pwp_pkg.invoiceid;
53 ddindx binary_integer; indx binary_integer;
54 begin
55
56 -- copy data to the local IN or IN-OUT args, if any
57 paap_pwp_pkg_w.rosetta_table_copy_in_p0(ddp_inv_tbl, p_inv_tbl);
58
59
60
61
62 -- here's the delegated call to the old PL/SQL routine
63 paap_pwp_pkg.paap_release_hold(ddp_inv_tbl,
64 p_rel_option,
65 x_return_status,
66 x_msg_count,
67 x_msg_data);
68
69 -- copy data back from the local variables to OUT or IN-OUT args, if any
70
71
72
73 end;
74
75 procedure paap_apply_hold(p_inv_tbl JTF_NUMBER_TABLE
76 , x_return_status out nocopy VARCHAR2
77 , x_msg_count out nocopy NUMBER
78 , x_msg_data out nocopy VARCHAR2
79 )
80
81 as
82 ddp_inv_tbl paap_pwp_pkg.invoiceid;
83 ddindx binary_integer; indx binary_integer;
84 begin
85
86 -- copy data to the local IN or IN-OUT args, if any
87 paap_pwp_pkg_w.rosetta_table_copy_in_p0(ddp_inv_tbl, p_inv_tbl);
88
89
90
91
92 -- here's the delegated call to the old PL/SQL routine
93 paap_pwp_pkg.paap_apply_hold(ddp_inv_tbl,
94 x_return_status,
95 x_msg_count,
96 x_msg_data);
97
98 -- copy data back from the local variables to OUT or IN-OUT args, if any
99
100
101
102 end;
103
104 end paap_pwp_pkg_w;