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
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
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
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();
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
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();
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
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:
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
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:
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:
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,
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;
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
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:
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
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:
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:
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,
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;
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
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:
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
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:
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:
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,
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;
240:
241:
242: end;
243:
244: end ari_process_validate_w;