1 package body ari_process_validate_w as
2 /* $Header: ARI_PROCESS_VALIDATE_PUBJ_B.pls 120.0 2011/07/29 06:51:50 mbolli noship $ */
3 procedure rosetta_table_copy_in_p0(t out nocopy ari_process_validate.payment_schedule_tbl, 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 ari_process_validate.payment_schedule_tbl, 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 rosetta_table_copy_in_p1(t out nocopy ari_process_validate.trx_number_tbl, a0 JTF_VARCHAR2_TABLE_200) as
45 ddindx binary_integer; indx binary_integer;
46 begin
47 if a0 is not null and a0.count > 0 then
48 if a0.count > 0 then
49 indx := a0.first;
50 ddindx := 1;
51 while true loop
52 t(ddindx) := a0(indx);
53 ddindx := ddindx+1;
54 if a0.last =indx
55 then exit;
56 end if;
57 indx := a0.next(indx);
58 end loop;
59 end if;
60 end if;
61 end rosetta_table_copy_in_p1;
62 procedure rosetta_table_copy_out_p1(t ari_process_validate.trx_number_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_200) as
63 ddindx binary_integer; indx binary_integer;
64 begin
65 if t is null or t.count = 0 then
66 a0 := JTF_VARCHAR2_TABLE_200();
67 else
68 a0 := JTF_VARCHAR2_TABLE_200();
69 if t.count > 0 then
70 a0.extend(t.count);
71 ddindx := t.first;
72 indx := 1;
73 while true loop
74 a0(indx) := t(ddindx);
75 indx := indx+1;
76 if t.last =ddindx
77 then exit;
78 end if;
79 ddindx := t.next(ddindx);
80 end loop;
81 end if;
82 end if;
83 end rosetta_table_copy_out_p1;
84
85 procedure validate_dispute(p_cust_account_id NUMBER
86 , p_cust_site_use_id NUMBER
87 , p_session_id NUMBER
88 , p_payment_schedule_tbl JTF_NUMBER_TABLE
89 , p_trx_number_tbl JTF_VARCHAR2_TABLE_200
90 , x_fail_payment_schedule_tbl out nocopy JTF_NUMBER_TABLE
91 , x_return_status out nocopy VARCHAR2
92 , x_msg_count out nocopy NUMBER
93 , x_msg_data out nocopy VARCHAR2
94 )
95
96 as
97 ddp_payment_schedule_tbl ari_process_validate.payment_schedule_tbl;
98 ddp_trx_number_tbl ari_process_validate.trx_number_tbl;
99 ddx_fail_payment_schedule_tbl ari_process_validate.payment_schedule_tbl;
100 ddindx binary_integer; indx binary_integer;
101 begin
102
103 -- copy data to the local IN or IN-OUT args, if any
104
105
106
107 ari_process_validate_w.rosetta_table_copy_in_p0(ddp_payment_schedule_tbl, p_payment_schedule_tbl);
108
109 ari_process_validate_w.rosetta_table_copy_in_p1(ddp_trx_number_tbl, p_trx_number_tbl);
110
111
112
113
114
115 -- here's the delegated call to the old PL/SQL routine
116 ari_process_validate.validate_dispute(p_cust_account_id,
117 p_cust_site_use_id,
118 p_session_id,
119 ddp_payment_schedule_tbl,
120 ddp_trx_number_tbl,
121 ddx_fail_payment_schedule_tbl,
122 x_return_status,
123 x_msg_count,
124 x_msg_data);
125
126 -- copy data back from the local variables to OUT or IN-OUT args, if any
127
128
129
130
131
132 ari_process_validate_w.rosetta_table_copy_out_p0(ddx_fail_payment_schedule_tbl, x_fail_payment_schedule_tbl);
133
134
135
136 end;
137
138 procedure validate_payment(p_cust_account_id NUMBER
139 , p_cust_site_use_id NUMBER
140 , p_session_id NUMBER
141 , p_payment_schedule_tbl JTF_NUMBER_TABLE
142 , p_trx_number_tbl JTF_VARCHAR2_TABLE_200
143 , x_fail_payment_schedule_tbl out nocopy JTF_NUMBER_TABLE
144 , x_return_status out nocopy VARCHAR2
145 , x_msg_count out nocopy NUMBER
146 , x_msg_data out nocopy VARCHAR2
147 )
148
149 as
150 ddp_payment_schedule_tbl ari_process_validate.payment_schedule_tbl;
151 ddp_trx_number_tbl ari_process_validate.trx_number_tbl;
152 ddx_fail_payment_schedule_tbl ari_process_validate.payment_schedule_tbl;
153 ddindx binary_integer; indx binary_integer;
154 begin
155
156 -- copy data to the local IN or IN-OUT args, if any
157
158
159
160 ari_process_validate_w.rosetta_table_copy_in_p0(ddp_payment_schedule_tbl, p_payment_schedule_tbl);
161
162 ari_process_validate_w.rosetta_table_copy_in_p1(ddp_trx_number_tbl, p_trx_number_tbl);
163
164
165
166
167
168 -- here's the delegated call to the old PL/SQL routine
169 ari_process_validate.validate_payment(p_cust_account_id,
170 p_cust_site_use_id,
171 p_session_id,
172 ddp_payment_schedule_tbl,
173 ddp_trx_number_tbl,
174 ddx_fail_payment_schedule_tbl,
175 x_return_status,
176 x_msg_count,
177 x_msg_data);
178
179 -- copy data back from the local variables to OUT or IN-OUT args, if any
180
181
182
183
184
185 ari_process_validate_w.rosetta_table_copy_out_p0(ddx_fail_payment_schedule_tbl, x_fail_payment_schedule_tbl);
186
187
188
189 end;
190
191 procedure validate_print(p_cust_account_id NUMBER
192 , p_cust_site_use_id NUMBER
193 , p_session_id NUMBER
194 , p_payment_schedule_tbl JTF_NUMBER_TABLE
195 , p_trx_number_tbl JTF_VARCHAR2_TABLE_200
196 , x_fail_payment_schedule_tbl out nocopy JTF_NUMBER_TABLE
197 , x_return_status out nocopy VARCHAR2
198 , x_msg_count out nocopy NUMBER
199 , x_msg_data out nocopy VARCHAR2
200 )
201
202 as
203 ddp_payment_schedule_tbl ari_process_validate.payment_schedule_tbl;
204 ddp_trx_number_tbl ari_process_validate.trx_number_tbl;
205 ddx_fail_payment_schedule_tbl ari_process_validate.payment_schedule_tbl;
206 ddindx binary_integer; indx binary_integer;
207 begin
208
209 -- copy data to the local IN or IN-OUT args, if any
210
211
212
213 ari_process_validate_w.rosetta_table_copy_in_p0(ddp_payment_schedule_tbl, p_payment_schedule_tbl);
214
215 ari_process_validate_w.rosetta_table_copy_in_p1(ddp_trx_number_tbl, p_trx_number_tbl);
216
217
218
219
220
221 -- here's the delegated call to the old PL/SQL routine
222 ari_process_validate.validate_print(p_cust_account_id,
223 p_cust_site_use_id,
224 p_session_id,
225 ddp_payment_schedule_tbl,
226 ddp_trx_number_tbl,
227 ddx_fail_payment_schedule_tbl,
228 x_return_status,
229 x_msg_count,
230 x_msg_data);
231
232 -- copy data back from the local variables to OUT or IN-OUT args, if any
233
234
235
236
237
238 ari_process_validate_w.rosetta_table_copy_out_p0(ddx_fail_payment_schedule_tbl, x_fail_payment_schedule_tbl);
239
240
241
242 end;
243
244 end ari_process_validate_w;