[Home] [Help]
PACKAGE BODY: APPS.OKL_VP_PARTY_PAYMENT_PVT_W
Source
1 package body okl_vp_party_payment_pvt_w as
2 /* $Header: OKLEVPDB.pls 120.0 2005/10/21 01:06:56 manumanu noship $ */
3 procedure create_party_pymnt_dtls(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , x_return_status out nocopy VARCHAR2
6 , x_msg_count out nocopy NUMBER
7 , x_msg_data out nocopy VARCHAR2
8 , p5_a0 NUMBER
9 , p5_a1 NUMBER
10 , p5_a2 NUMBER
11 , p5_a3 NUMBER
12 , p5_a4 NUMBER
13 , p5_a5 NUMBER
14 , p5_a6 VARCHAR2
15 , p5_a7 VARCHAR2
16 , p5_a8 NUMBER
17 , p5_a9 DATE
18 , p5_a10 VARCHAR2
19 , p5_a11 NUMBER
20 , p5_a12 VARCHAR2
21 , p5_a13 NUMBER
22 , p5_a14 NUMBER
23 , p5_a15 VARCHAR2
24 , p5_a16 NUMBER
25 , p5_a17 NUMBER
26 , p5_a18 VARCHAR2
27 , p5_a19 VARCHAR2
28 , p5_a20 VARCHAR2
29 , p5_a21 VARCHAR2
30 , p5_a22 VARCHAR2
31 , p5_a23 VARCHAR2
32 , p5_a24 VARCHAR2
33 , p5_a25 VARCHAR2
34 , p5_a26 VARCHAR2
35 , p5_a27 VARCHAR2
36 , p5_a28 VARCHAR2
37 , p5_a29 VARCHAR2
38 , p5_a30 VARCHAR2
39 , p5_a31 VARCHAR2
40 , p5_a32 VARCHAR2
41 , p5_a33 VARCHAR2
42 , p5_a34 VARCHAR2
43 , p5_a35 NUMBER
44 , p5_a36 DATE
45 , p5_a37 NUMBER
46 , p5_a38 DATE
47 , p5_a39 NUMBER
48 , p6_a0 out nocopy NUMBER
49 , p6_a1 out nocopy NUMBER
50 , p6_a2 out nocopy NUMBER
51 , p6_a3 out nocopy NUMBER
52 , p6_a4 out nocopy NUMBER
53 , p6_a5 out nocopy NUMBER
54 , p6_a6 out nocopy VARCHAR2
55 , p6_a7 out nocopy VARCHAR2
56 , p6_a8 out nocopy NUMBER
57 , p6_a9 out nocopy DATE
58 , p6_a10 out nocopy VARCHAR2
59 , p6_a11 out nocopy NUMBER
60 , p6_a12 out nocopy VARCHAR2
61 , p6_a13 out nocopy NUMBER
62 , p6_a14 out nocopy NUMBER
63 , p6_a15 out nocopy VARCHAR2
64 , p6_a16 out nocopy NUMBER
65 , p6_a17 out nocopy NUMBER
66 , p6_a18 out nocopy VARCHAR2
67 , p6_a19 out nocopy VARCHAR2
68 , p6_a20 out nocopy VARCHAR2
69 , p6_a21 out nocopy VARCHAR2
70 , p6_a22 out nocopy VARCHAR2
71 , p6_a23 out nocopy VARCHAR2
72 , p6_a24 out nocopy VARCHAR2
73 , p6_a25 out nocopy VARCHAR2
74 , p6_a26 out nocopy VARCHAR2
75 , p6_a27 out nocopy VARCHAR2
76 , p6_a28 out nocopy VARCHAR2
77 , p6_a29 out nocopy VARCHAR2
78 , p6_a30 out nocopy VARCHAR2
79 , p6_a31 out nocopy VARCHAR2
80 , p6_a32 out nocopy VARCHAR2
81 , p6_a33 out nocopy VARCHAR2
82 , p6_a34 out nocopy VARCHAR2
83 , p6_a35 out nocopy NUMBER
84 , p6_a36 out nocopy DATE
85 , p6_a37 out nocopy NUMBER
86 , p6_a38 out nocopy DATE
87 , p6_a39 out nocopy NUMBER
88 )
89
90 as
91 ddp_srfvv_rec okl_vp_party_payment_pvt.srfvv_rec_type;
92 ddx_srfvv_rec okl_vp_party_payment_pvt.srfvv_rec_type;
93 ddindx binary_integer; indx binary_integer;
94 begin
95
96 -- copy data to the local IN or IN-OUT args, if any
97
98
99
100
101
102 ddp_srfvv_rec.id := p5_a0;
103 ddp_srfvv_rec.object_version_number := p5_a1;
104 ddp_srfvv_rec.cpl_id := p5_a2;
105 ddp_srfvv_rec.vendor_id := p5_a3;
106 ddp_srfvv_rec.pay_site_id := p5_a4;
107 ddp_srfvv_rec.payment_term_id := p5_a5;
108 ddp_srfvv_rec.payment_method_code := p5_a6;
109 ddp_srfvv_rec.pay_group_code := p5_a7;
110 ddp_srfvv_rec.payment_hdr_id := p5_a8;
111 ddp_srfvv_rec.payment_start_date := p5_a9;
112 ddp_srfvv_rec.payment_frequency := p5_a10;
113 ddp_srfvv_rec.remit_days := p5_a11;
114 ddp_srfvv_rec.disbursement_basis := p5_a12;
115 ddp_srfvv_rec.disbursement_fixed_amount := p5_a13;
116 ddp_srfvv_rec.disbursement_percent := p5_a14;
117 ddp_srfvv_rec.processing_fee_basis := p5_a15;
118 ddp_srfvv_rec.processing_fee_fixed_amount := p5_a16;
119 ddp_srfvv_rec.processing_fee_percent := p5_a17;
120 ddp_srfvv_rec.payment_basis := p5_a18;
121 ddp_srfvv_rec.attribute_category := p5_a19;
122 ddp_srfvv_rec.attribute1 := p5_a20;
123 ddp_srfvv_rec.attribute2 := p5_a21;
124 ddp_srfvv_rec.attribute3 := p5_a22;
125 ddp_srfvv_rec.attribute4 := p5_a23;
126 ddp_srfvv_rec.attribute5 := p5_a24;
127 ddp_srfvv_rec.attribute6 := p5_a25;
128 ddp_srfvv_rec.attribute7 := p5_a26;
129 ddp_srfvv_rec.attribute8 := p5_a27;
130 ddp_srfvv_rec.attribute9 := p5_a28;
131 ddp_srfvv_rec.attribute10 := p5_a29;
132 ddp_srfvv_rec.attribute11 := p5_a30;
133 ddp_srfvv_rec.attribute12 := p5_a31;
134 ddp_srfvv_rec.attribute13 := p5_a32;
135 ddp_srfvv_rec.attribute14 := p5_a33;
136 ddp_srfvv_rec.attribute15 := p5_a34;
137 ddp_srfvv_rec.created_by := p5_a35;
138 ddp_srfvv_rec.creation_date := p5_a36;
139 ddp_srfvv_rec.last_updated_by := p5_a37;
140 ddp_srfvv_rec.last_update_date := p5_a38;
141 ddp_srfvv_rec.last_update_login := p5_a39;
142
143
144 -- here's the delegated call to the old PL/SQL routine
145 okl_vp_party_payment_pvt.create_party_pymnt_dtls(p_api_version,
146 p_init_msg_list,
147 x_return_status,
148 x_msg_count,
149 x_msg_data,
150 ddp_srfvv_rec,
151 ddx_srfvv_rec);
152
153 -- copy data back from the local variables to OUT or IN-OUT args, if any
154
155
156
157
158
159
160 p6_a0 := ddx_srfvv_rec.id;
161 p6_a1 := ddx_srfvv_rec.object_version_number;
162 p6_a2 := ddx_srfvv_rec.cpl_id;
163 p6_a3 := ddx_srfvv_rec.vendor_id;
164 p6_a4 := ddx_srfvv_rec.pay_site_id;
165 p6_a5 := ddx_srfvv_rec.payment_term_id;
166 p6_a6 := ddx_srfvv_rec.payment_method_code;
167 p6_a7 := ddx_srfvv_rec.pay_group_code;
168 p6_a8 := ddx_srfvv_rec.payment_hdr_id;
169 p6_a9 := ddx_srfvv_rec.payment_start_date;
170 p6_a10 := ddx_srfvv_rec.payment_frequency;
171 p6_a11 := ddx_srfvv_rec.remit_days;
172 p6_a12 := ddx_srfvv_rec.disbursement_basis;
173 p6_a13 := ddx_srfvv_rec.disbursement_fixed_amount;
174 p6_a14 := ddx_srfvv_rec.disbursement_percent;
175 p6_a15 := ddx_srfvv_rec.processing_fee_basis;
176 p6_a16 := ddx_srfvv_rec.processing_fee_fixed_amount;
177 p6_a17 := ddx_srfvv_rec.processing_fee_percent;
178 p6_a18 := ddx_srfvv_rec.payment_basis;
179 p6_a19 := ddx_srfvv_rec.attribute_category;
180 p6_a20 := ddx_srfvv_rec.attribute1;
181 p6_a21 := ddx_srfvv_rec.attribute2;
182 p6_a22 := ddx_srfvv_rec.attribute3;
183 p6_a23 := ddx_srfvv_rec.attribute4;
184 p6_a24 := ddx_srfvv_rec.attribute5;
185 p6_a25 := ddx_srfvv_rec.attribute6;
186 p6_a26 := ddx_srfvv_rec.attribute7;
187 p6_a27 := ddx_srfvv_rec.attribute8;
188 p6_a28 := ddx_srfvv_rec.attribute9;
189 p6_a29 := ddx_srfvv_rec.attribute10;
190 p6_a30 := ddx_srfvv_rec.attribute11;
191 p6_a31 := ddx_srfvv_rec.attribute12;
192 p6_a32 := ddx_srfvv_rec.attribute13;
193 p6_a33 := ddx_srfvv_rec.attribute14;
194 p6_a34 := ddx_srfvv_rec.attribute15;
195 p6_a35 := ddx_srfvv_rec.created_by;
196 p6_a36 := ddx_srfvv_rec.creation_date;
197 p6_a37 := ddx_srfvv_rec.last_updated_by;
198 p6_a38 := ddx_srfvv_rec.last_update_date;
199 p6_a39 := ddx_srfvv_rec.last_update_login;
200 end;
201
202 procedure create_party_pymnt_dtls(p_api_version NUMBER
203 , p_init_msg_list VARCHAR2
204 , x_return_status out nocopy VARCHAR2
205 , x_msg_count out nocopy NUMBER
206 , x_msg_data out nocopy VARCHAR2
207 , p5_a0 JTF_NUMBER_TABLE
208 , p5_a1 JTF_NUMBER_TABLE
209 , p5_a2 JTF_NUMBER_TABLE
210 , p5_a3 JTF_NUMBER_TABLE
211 , p5_a4 JTF_NUMBER_TABLE
212 , p5_a5 JTF_NUMBER_TABLE
213 , p5_a6 JTF_VARCHAR2_TABLE_100
214 , p5_a7 JTF_VARCHAR2_TABLE_100
215 , p5_a8 JTF_NUMBER_TABLE
216 , p5_a9 JTF_DATE_TABLE
217 , p5_a10 JTF_VARCHAR2_TABLE_100
218 , p5_a11 JTF_NUMBER_TABLE
219 , p5_a12 JTF_VARCHAR2_TABLE_100
220 , p5_a13 JTF_NUMBER_TABLE
221 , p5_a14 JTF_NUMBER_TABLE
222 , p5_a15 JTF_VARCHAR2_TABLE_100
223 , p5_a16 JTF_NUMBER_TABLE
224 , p5_a17 JTF_NUMBER_TABLE
225 , p5_a18 JTF_VARCHAR2_TABLE_100
226 , p5_a19 JTF_VARCHAR2_TABLE_100
227 , p5_a20 JTF_VARCHAR2_TABLE_500
228 , p5_a21 JTF_VARCHAR2_TABLE_500
229 , p5_a22 JTF_VARCHAR2_TABLE_500
230 , p5_a23 JTF_VARCHAR2_TABLE_500
231 , p5_a24 JTF_VARCHAR2_TABLE_500
232 , p5_a25 JTF_VARCHAR2_TABLE_500
233 , p5_a26 JTF_VARCHAR2_TABLE_500
234 , p5_a27 JTF_VARCHAR2_TABLE_500
235 , p5_a28 JTF_VARCHAR2_TABLE_500
236 , p5_a29 JTF_VARCHAR2_TABLE_500
237 , p5_a30 JTF_VARCHAR2_TABLE_500
238 , p5_a31 JTF_VARCHAR2_TABLE_500
239 , p5_a32 JTF_VARCHAR2_TABLE_500
240 , p5_a33 JTF_VARCHAR2_TABLE_500
241 , p5_a34 JTF_VARCHAR2_TABLE_500
242 , p5_a35 JTF_NUMBER_TABLE
243 , p5_a36 JTF_DATE_TABLE
244 , p5_a37 JTF_NUMBER_TABLE
245 , p5_a38 JTF_DATE_TABLE
246 , p5_a39 JTF_NUMBER_TABLE
247 , p6_a0 out nocopy JTF_NUMBER_TABLE
248 , p6_a1 out nocopy JTF_NUMBER_TABLE
249 , p6_a2 out nocopy JTF_NUMBER_TABLE
250 , p6_a3 out nocopy JTF_NUMBER_TABLE
251 , p6_a4 out nocopy JTF_NUMBER_TABLE
252 , p6_a5 out nocopy JTF_NUMBER_TABLE
253 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
254 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
255 , p6_a8 out nocopy JTF_NUMBER_TABLE
256 , p6_a9 out nocopy JTF_DATE_TABLE
257 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
258 , p6_a11 out nocopy JTF_NUMBER_TABLE
259 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
260 , p6_a13 out nocopy JTF_NUMBER_TABLE
261 , p6_a14 out nocopy JTF_NUMBER_TABLE
262 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
263 , p6_a16 out nocopy JTF_NUMBER_TABLE
264 , p6_a17 out nocopy JTF_NUMBER_TABLE
265 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
266 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
267 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
268 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
269 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
270 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
271 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
272 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
273 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
274 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
275 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
276 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
277 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
278 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
279 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
280 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
281 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
282 , p6_a35 out nocopy JTF_NUMBER_TABLE
283 , p6_a36 out nocopy JTF_DATE_TABLE
284 , p6_a37 out nocopy JTF_NUMBER_TABLE
285 , p6_a38 out nocopy JTF_DATE_TABLE
286 , p6_a39 out nocopy JTF_NUMBER_TABLE
287 )
288
289 as
290 ddp_srfvv_tbl okl_vp_party_payment_pvt.srfvv_tbl_type;
291 ddx_srfvv_tbl okl_vp_party_payment_pvt.srfvv_tbl_type;
292 ddindx binary_integer; indx binary_integer;
293 begin
294
295 -- copy data to the local IN or IN-OUT args, if any
296
297
298
299
300
301 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_srfvv_tbl, p5_a0
302 , p5_a1
303 , p5_a2
304 , p5_a3
305 , p5_a4
306 , p5_a5
307 , p5_a6
308 , p5_a7
309 , p5_a8
310 , p5_a9
311 , p5_a10
312 , p5_a11
313 , p5_a12
314 , p5_a13
315 , p5_a14
316 , p5_a15
317 , p5_a16
318 , p5_a17
319 , p5_a18
320 , p5_a19
321 , p5_a20
322 , p5_a21
323 , p5_a22
324 , p5_a23
325 , p5_a24
326 , p5_a25
327 , p5_a26
328 , p5_a27
329 , p5_a28
330 , p5_a29
331 , p5_a30
332 , p5_a31
333 , p5_a32
334 , p5_a33
335 , p5_a34
336 , p5_a35
337 , p5_a36
338 , p5_a37
339 , p5_a38
340 , p5_a39
341 );
342
343
344 -- here's the delegated call to the old PL/SQL routine
345 okl_vp_party_payment_pvt.create_party_pymnt_dtls(p_api_version,
346 p_init_msg_list,
347 x_return_status,
348 x_msg_count,
349 x_msg_data,
350 ddp_srfvv_tbl,
351 ddx_srfvv_tbl);
352
353 -- copy data back from the local variables to OUT or IN-OUT args, if any
354
355
356
357
358
359
360 okl_pyd_pvt_w.rosetta_table_copy_out_p2(ddx_srfvv_tbl, p6_a0
361 , p6_a1
362 , p6_a2
363 , p6_a3
364 , p6_a4
365 , p6_a5
366 , p6_a6
367 , p6_a7
368 , p6_a8
369 , p6_a9
370 , p6_a10
371 , p6_a11
372 , p6_a12
373 , p6_a13
374 , p6_a14
375 , p6_a15
376 , p6_a16
377 , p6_a17
378 , p6_a18
379 , p6_a19
380 , p6_a20
381 , p6_a21
382 , p6_a22
383 , p6_a23
384 , p6_a24
385 , p6_a25
386 , p6_a26
387 , p6_a27
388 , p6_a28
389 , p6_a29
390 , p6_a30
391 , p6_a31
392 , p6_a32
393 , p6_a33
394 , p6_a34
395 , p6_a35
396 , p6_a36
397 , p6_a37
398 , p6_a38
399 , p6_a39
400 );
401 end;
402
403 procedure lock_party_pymnt_dtls(p_api_version NUMBER
404 , p_init_msg_list VARCHAR2
405 , x_return_status out nocopy VARCHAR2
406 , x_msg_count out nocopy NUMBER
407 , x_msg_data out nocopy VARCHAR2
408 , p5_a0 NUMBER
409 , p5_a1 NUMBER
410 , p5_a2 NUMBER
411 , p5_a3 NUMBER
412 , p5_a4 NUMBER
413 , p5_a5 NUMBER
414 , p5_a6 VARCHAR2
415 , p5_a7 VARCHAR2
416 , p5_a8 NUMBER
417 , p5_a9 DATE
418 , p5_a10 VARCHAR2
419 , p5_a11 NUMBER
420 , p5_a12 VARCHAR2
421 , p5_a13 NUMBER
422 , p5_a14 NUMBER
423 , p5_a15 VARCHAR2
424 , p5_a16 NUMBER
425 , p5_a17 NUMBER
426 , p5_a18 VARCHAR2
427 , p5_a19 VARCHAR2
428 , p5_a20 VARCHAR2
429 , p5_a21 VARCHAR2
430 , p5_a22 VARCHAR2
431 , p5_a23 VARCHAR2
432 , p5_a24 VARCHAR2
433 , p5_a25 VARCHAR2
434 , p5_a26 VARCHAR2
435 , p5_a27 VARCHAR2
436 , p5_a28 VARCHAR2
437 , p5_a29 VARCHAR2
438 , p5_a30 VARCHAR2
439 , p5_a31 VARCHAR2
440 , p5_a32 VARCHAR2
441 , p5_a33 VARCHAR2
442 , p5_a34 VARCHAR2
443 , p5_a35 NUMBER
444 , p5_a36 DATE
445 , p5_a37 NUMBER
446 , p5_a38 DATE
447 , p5_a39 NUMBER
448 )
449
450 as
451 ddp_srfvv_rec okl_vp_party_payment_pvt.srfvv_rec_type;
452 ddindx binary_integer; indx binary_integer;
453 begin
454
455 -- copy data to the local IN or IN-OUT args, if any
456
457
458
459
460
461 ddp_srfvv_rec.id := p5_a0;
462 ddp_srfvv_rec.object_version_number := p5_a1;
463 ddp_srfvv_rec.cpl_id := p5_a2;
464 ddp_srfvv_rec.vendor_id := p5_a3;
465 ddp_srfvv_rec.pay_site_id := p5_a4;
466 ddp_srfvv_rec.payment_term_id := p5_a5;
467 ddp_srfvv_rec.payment_method_code := p5_a6;
468 ddp_srfvv_rec.pay_group_code := p5_a7;
469 ddp_srfvv_rec.payment_hdr_id := p5_a8;
470 ddp_srfvv_rec.payment_start_date := p5_a9;
471 ddp_srfvv_rec.payment_frequency := p5_a10;
472 ddp_srfvv_rec.remit_days := p5_a11;
473 ddp_srfvv_rec.disbursement_basis := p5_a12;
474 ddp_srfvv_rec.disbursement_fixed_amount := p5_a13;
475 ddp_srfvv_rec.disbursement_percent := p5_a14;
476 ddp_srfvv_rec.processing_fee_basis := p5_a15;
477 ddp_srfvv_rec.processing_fee_fixed_amount := p5_a16;
478 ddp_srfvv_rec.processing_fee_percent := p5_a17;
479 ddp_srfvv_rec.payment_basis := p5_a18;
480 ddp_srfvv_rec.attribute_category := p5_a19;
481 ddp_srfvv_rec.attribute1 := p5_a20;
482 ddp_srfvv_rec.attribute2 := p5_a21;
483 ddp_srfvv_rec.attribute3 := p5_a22;
484 ddp_srfvv_rec.attribute4 := p5_a23;
485 ddp_srfvv_rec.attribute5 := p5_a24;
486 ddp_srfvv_rec.attribute6 := p5_a25;
487 ddp_srfvv_rec.attribute7 := p5_a26;
488 ddp_srfvv_rec.attribute8 := p5_a27;
489 ddp_srfvv_rec.attribute9 := p5_a28;
490 ddp_srfvv_rec.attribute10 := p5_a29;
491 ddp_srfvv_rec.attribute11 := p5_a30;
492 ddp_srfvv_rec.attribute12 := p5_a31;
493 ddp_srfvv_rec.attribute13 := p5_a32;
494 ddp_srfvv_rec.attribute14 := p5_a33;
495 ddp_srfvv_rec.attribute15 := p5_a34;
496 ddp_srfvv_rec.created_by := p5_a35;
497 ddp_srfvv_rec.creation_date := p5_a36;
498 ddp_srfvv_rec.last_updated_by := p5_a37;
499 ddp_srfvv_rec.last_update_date := p5_a38;
500 ddp_srfvv_rec.last_update_login := p5_a39;
501
502 -- here's the delegated call to the old PL/SQL routine
503 okl_vp_party_payment_pvt.lock_party_pymnt_dtls(p_api_version,
504 p_init_msg_list,
505 x_return_status,
506 x_msg_count,
507 x_msg_data,
508 ddp_srfvv_rec);
509
510 -- copy data back from the local variables to OUT or IN-OUT args, if any
511
512
513
514
515
516 end;
517
518 procedure lock_party_pymnt_dtls(p_api_version NUMBER
519 , p_init_msg_list VARCHAR2
520 , x_return_status out nocopy VARCHAR2
521 , x_msg_count out nocopy NUMBER
522 , x_msg_data out nocopy VARCHAR2
523 , p5_a0 JTF_NUMBER_TABLE
524 , p5_a1 JTF_NUMBER_TABLE
525 , p5_a2 JTF_NUMBER_TABLE
526 , p5_a3 JTF_NUMBER_TABLE
527 , p5_a4 JTF_NUMBER_TABLE
528 , p5_a5 JTF_NUMBER_TABLE
529 , p5_a6 JTF_VARCHAR2_TABLE_100
530 , p5_a7 JTF_VARCHAR2_TABLE_100
531 , p5_a8 JTF_NUMBER_TABLE
532 , p5_a9 JTF_DATE_TABLE
533 , p5_a10 JTF_VARCHAR2_TABLE_100
534 , p5_a11 JTF_NUMBER_TABLE
535 , p5_a12 JTF_VARCHAR2_TABLE_100
536 , p5_a13 JTF_NUMBER_TABLE
537 , p5_a14 JTF_NUMBER_TABLE
538 , p5_a15 JTF_VARCHAR2_TABLE_100
539 , p5_a16 JTF_NUMBER_TABLE
540 , p5_a17 JTF_NUMBER_TABLE
541 , p5_a18 JTF_VARCHAR2_TABLE_100
542 , p5_a19 JTF_VARCHAR2_TABLE_100
543 , p5_a20 JTF_VARCHAR2_TABLE_500
544 , p5_a21 JTF_VARCHAR2_TABLE_500
545 , p5_a22 JTF_VARCHAR2_TABLE_500
546 , p5_a23 JTF_VARCHAR2_TABLE_500
547 , p5_a24 JTF_VARCHAR2_TABLE_500
548 , p5_a25 JTF_VARCHAR2_TABLE_500
549 , p5_a26 JTF_VARCHAR2_TABLE_500
550 , p5_a27 JTF_VARCHAR2_TABLE_500
551 , p5_a28 JTF_VARCHAR2_TABLE_500
552 , p5_a29 JTF_VARCHAR2_TABLE_500
553 , p5_a30 JTF_VARCHAR2_TABLE_500
554 , p5_a31 JTF_VARCHAR2_TABLE_500
555 , p5_a32 JTF_VARCHAR2_TABLE_500
556 , p5_a33 JTF_VARCHAR2_TABLE_500
557 , p5_a34 JTF_VARCHAR2_TABLE_500
558 , p5_a35 JTF_NUMBER_TABLE
559 , p5_a36 JTF_DATE_TABLE
560 , p5_a37 JTF_NUMBER_TABLE
561 , p5_a38 JTF_DATE_TABLE
562 , p5_a39 JTF_NUMBER_TABLE
563 )
564
565 as
566 ddp_srfvv_tbl okl_vp_party_payment_pvt.srfvv_tbl_type;
567 ddindx binary_integer; indx binary_integer;
568 begin
569
570 -- copy data to the local IN or IN-OUT args, if any
571
572
573
574
575
576 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_srfvv_tbl, p5_a0
577 , p5_a1
578 , p5_a2
579 , p5_a3
580 , p5_a4
581 , p5_a5
582 , p5_a6
583 , p5_a7
584 , p5_a8
585 , p5_a9
586 , p5_a10
587 , p5_a11
588 , p5_a12
589 , p5_a13
590 , p5_a14
591 , p5_a15
592 , p5_a16
593 , p5_a17
594 , p5_a18
595 , p5_a19
596 , p5_a20
597 , p5_a21
598 , p5_a22
599 , p5_a23
600 , p5_a24
601 , p5_a25
602 , p5_a26
603 , p5_a27
604 , p5_a28
605 , p5_a29
606 , p5_a30
607 , p5_a31
608 , p5_a32
609 , p5_a33
610 , p5_a34
611 , p5_a35
612 , p5_a36
613 , p5_a37
614 , p5_a38
615 , p5_a39
616 );
617
618 -- here's the delegated call to the old PL/SQL routine
619 okl_vp_party_payment_pvt.lock_party_pymnt_dtls(p_api_version,
620 p_init_msg_list,
621 x_return_status,
622 x_msg_count,
623 x_msg_data,
624 ddp_srfvv_tbl);
625
626 -- copy data back from the local variables to OUT or IN-OUT args, if any
627
628
629
630
631
632 end;
633
634 procedure update_party_pymnt_dtls(p_api_version NUMBER
635 , p_init_msg_list VARCHAR2
636 , x_return_status out nocopy VARCHAR2
637 , x_msg_count out nocopy NUMBER
638 , x_msg_data out nocopy VARCHAR2
639 , p5_a0 NUMBER
640 , p5_a1 NUMBER
641 , p5_a2 NUMBER
642 , p5_a3 NUMBER
643 , p5_a4 NUMBER
644 , p5_a5 NUMBER
645 , p5_a6 VARCHAR2
646 , p5_a7 VARCHAR2
647 , p5_a8 NUMBER
648 , p5_a9 DATE
649 , p5_a10 VARCHAR2
650 , p5_a11 NUMBER
651 , p5_a12 VARCHAR2
652 , p5_a13 NUMBER
653 , p5_a14 NUMBER
654 , p5_a15 VARCHAR2
655 , p5_a16 NUMBER
656 , p5_a17 NUMBER
657 , p5_a18 VARCHAR2
658 , p5_a19 VARCHAR2
659 , p5_a20 VARCHAR2
660 , p5_a21 VARCHAR2
661 , p5_a22 VARCHAR2
662 , p5_a23 VARCHAR2
663 , p5_a24 VARCHAR2
664 , p5_a25 VARCHAR2
665 , p5_a26 VARCHAR2
666 , p5_a27 VARCHAR2
667 , p5_a28 VARCHAR2
668 , p5_a29 VARCHAR2
669 , p5_a30 VARCHAR2
670 , p5_a31 VARCHAR2
671 , p5_a32 VARCHAR2
672 , p5_a33 VARCHAR2
673 , p5_a34 VARCHAR2
674 , p5_a35 NUMBER
675 , p5_a36 DATE
676 , p5_a37 NUMBER
677 , p5_a38 DATE
678 , p5_a39 NUMBER
679 , p6_a0 out nocopy NUMBER
680 , p6_a1 out nocopy NUMBER
681 , p6_a2 out nocopy NUMBER
682 , p6_a3 out nocopy NUMBER
683 , p6_a4 out nocopy NUMBER
684 , p6_a5 out nocopy NUMBER
685 , p6_a6 out nocopy VARCHAR2
686 , p6_a7 out nocopy VARCHAR2
687 , p6_a8 out nocopy NUMBER
688 , p6_a9 out nocopy DATE
689 , p6_a10 out nocopy VARCHAR2
690 , p6_a11 out nocopy NUMBER
691 , p6_a12 out nocopy VARCHAR2
692 , p6_a13 out nocopy NUMBER
693 , p6_a14 out nocopy NUMBER
694 , p6_a15 out nocopy VARCHAR2
695 , p6_a16 out nocopy NUMBER
696 , p6_a17 out nocopy NUMBER
697 , p6_a18 out nocopy VARCHAR2
698 , p6_a19 out nocopy VARCHAR2
699 , p6_a20 out nocopy VARCHAR2
700 , p6_a21 out nocopy VARCHAR2
701 , p6_a22 out nocopy VARCHAR2
702 , p6_a23 out nocopy VARCHAR2
703 , p6_a24 out nocopy VARCHAR2
704 , p6_a25 out nocopy VARCHAR2
705 , p6_a26 out nocopy VARCHAR2
706 , p6_a27 out nocopy VARCHAR2
707 , p6_a28 out nocopy VARCHAR2
708 , p6_a29 out nocopy VARCHAR2
709 , p6_a30 out nocopy VARCHAR2
710 , p6_a31 out nocopy VARCHAR2
711 , p6_a32 out nocopy VARCHAR2
712 , p6_a33 out nocopy VARCHAR2
713 , p6_a34 out nocopy VARCHAR2
714 , p6_a35 out nocopy NUMBER
715 , p6_a36 out nocopy DATE
716 , p6_a37 out nocopy NUMBER
717 , p6_a38 out nocopy DATE
718 , p6_a39 out nocopy NUMBER
719 )
720
721 as
722 ddp_srfvv_rec okl_vp_party_payment_pvt.srfvv_rec_type;
723 ddx_srfvv_rec okl_vp_party_payment_pvt.srfvv_rec_type;
724 ddindx binary_integer; indx binary_integer;
725 begin
726
727 -- copy data to the local IN or IN-OUT args, if any
728
729
730
731
732
733 ddp_srfvv_rec.id := p5_a0;
734 ddp_srfvv_rec.object_version_number := p5_a1;
735 ddp_srfvv_rec.cpl_id := p5_a2;
736 ddp_srfvv_rec.vendor_id := p5_a3;
737 ddp_srfvv_rec.pay_site_id := p5_a4;
738 ddp_srfvv_rec.payment_term_id := p5_a5;
739 ddp_srfvv_rec.payment_method_code := p5_a6;
740 ddp_srfvv_rec.pay_group_code := p5_a7;
741 ddp_srfvv_rec.payment_hdr_id := p5_a8;
742 ddp_srfvv_rec.payment_start_date := p5_a9;
743 ddp_srfvv_rec.payment_frequency := p5_a10;
744 ddp_srfvv_rec.remit_days := p5_a11;
745 ddp_srfvv_rec.disbursement_basis := p5_a12;
746 ddp_srfvv_rec.disbursement_fixed_amount := p5_a13;
747 ddp_srfvv_rec.disbursement_percent := p5_a14;
748 ddp_srfvv_rec.processing_fee_basis := p5_a15;
749 ddp_srfvv_rec.processing_fee_fixed_amount := p5_a16;
750 ddp_srfvv_rec.processing_fee_percent := p5_a17;
751 ddp_srfvv_rec.payment_basis := p5_a18;
752 ddp_srfvv_rec.attribute_category := p5_a19;
753 ddp_srfvv_rec.attribute1 := p5_a20;
754 ddp_srfvv_rec.attribute2 := p5_a21;
755 ddp_srfvv_rec.attribute3 := p5_a22;
756 ddp_srfvv_rec.attribute4 := p5_a23;
757 ddp_srfvv_rec.attribute5 := p5_a24;
758 ddp_srfvv_rec.attribute6 := p5_a25;
759 ddp_srfvv_rec.attribute7 := p5_a26;
760 ddp_srfvv_rec.attribute8 := p5_a27;
761 ddp_srfvv_rec.attribute9 := p5_a28;
762 ddp_srfvv_rec.attribute10 := p5_a29;
763 ddp_srfvv_rec.attribute11 := p5_a30;
764 ddp_srfvv_rec.attribute12 := p5_a31;
765 ddp_srfvv_rec.attribute13 := p5_a32;
766 ddp_srfvv_rec.attribute14 := p5_a33;
767 ddp_srfvv_rec.attribute15 := p5_a34;
768 ddp_srfvv_rec.created_by := p5_a35;
769 ddp_srfvv_rec.creation_date := p5_a36;
770 ddp_srfvv_rec.last_updated_by := p5_a37;
771 ddp_srfvv_rec.last_update_date := p5_a38;
772 ddp_srfvv_rec.last_update_login := p5_a39;
773
774
775 -- here's the delegated call to the old PL/SQL routine
776 okl_vp_party_payment_pvt.update_party_pymnt_dtls(p_api_version,
777 p_init_msg_list,
778 x_return_status,
779 x_msg_count,
780 x_msg_data,
781 ddp_srfvv_rec,
782 ddx_srfvv_rec);
783
784 -- copy data back from the local variables to OUT or IN-OUT args, if any
785
786
787
788
789
790
791 p6_a0 := ddx_srfvv_rec.id;
792 p6_a1 := ddx_srfvv_rec.object_version_number;
793 p6_a2 := ddx_srfvv_rec.cpl_id;
794 p6_a3 := ddx_srfvv_rec.vendor_id;
795 p6_a4 := ddx_srfvv_rec.pay_site_id;
796 p6_a5 := ddx_srfvv_rec.payment_term_id;
797 p6_a6 := ddx_srfvv_rec.payment_method_code;
798 p6_a7 := ddx_srfvv_rec.pay_group_code;
799 p6_a8 := ddx_srfvv_rec.payment_hdr_id;
800 p6_a9 := ddx_srfvv_rec.payment_start_date;
801 p6_a10 := ddx_srfvv_rec.payment_frequency;
802 p6_a11 := ddx_srfvv_rec.remit_days;
803 p6_a12 := ddx_srfvv_rec.disbursement_basis;
804 p6_a13 := ddx_srfvv_rec.disbursement_fixed_amount;
805 p6_a14 := ddx_srfvv_rec.disbursement_percent;
806 p6_a15 := ddx_srfvv_rec.processing_fee_basis;
807 p6_a16 := ddx_srfvv_rec.processing_fee_fixed_amount;
808 p6_a17 := ddx_srfvv_rec.processing_fee_percent;
809 p6_a18 := ddx_srfvv_rec.payment_basis;
810 p6_a19 := ddx_srfvv_rec.attribute_category;
811 p6_a20 := ddx_srfvv_rec.attribute1;
812 p6_a21 := ddx_srfvv_rec.attribute2;
813 p6_a22 := ddx_srfvv_rec.attribute3;
814 p6_a23 := ddx_srfvv_rec.attribute4;
815 p6_a24 := ddx_srfvv_rec.attribute5;
816 p6_a25 := ddx_srfvv_rec.attribute6;
817 p6_a26 := ddx_srfvv_rec.attribute7;
818 p6_a27 := ddx_srfvv_rec.attribute8;
819 p6_a28 := ddx_srfvv_rec.attribute9;
820 p6_a29 := ddx_srfvv_rec.attribute10;
821 p6_a30 := ddx_srfvv_rec.attribute11;
822 p6_a31 := ddx_srfvv_rec.attribute12;
823 p6_a32 := ddx_srfvv_rec.attribute13;
824 p6_a33 := ddx_srfvv_rec.attribute14;
825 p6_a34 := ddx_srfvv_rec.attribute15;
826 p6_a35 := ddx_srfvv_rec.created_by;
827 p6_a36 := ddx_srfvv_rec.creation_date;
828 p6_a37 := ddx_srfvv_rec.last_updated_by;
829 p6_a38 := ddx_srfvv_rec.last_update_date;
830 p6_a39 := ddx_srfvv_rec.last_update_login;
831 end;
832
833 procedure update_party_pymnt_dtls(p_api_version NUMBER
834 , p_init_msg_list VARCHAR2
835 , x_return_status out nocopy VARCHAR2
836 , x_msg_count out nocopy NUMBER
837 , x_msg_data out nocopy VARCHAR2
838 , p5_a0 JTF_NUMBER_TABLE
839 , p5_a1 JTF_NUMBER_TABLE
840 , p5_a2 JTF_NUMBER_TABLE
841 , p5_a3 JTF_NUMBER_TABLE
842 , p5_a4 JTF_NUMBER_TABLE
843 , p5_a5 JTF_NUMBER_TABLE
844 , p5_a6 JTF_VARCHAR2_TABLE_100
845 , p5_a7 JTF_VARCHAR2_TABLE_100
846 , p5_a8 JTF_NUMBER_TABLE
847 , p5_a9 JTF_DATE_TABLE
848 , p5_a10 JTF_VARCHAR2_TABLE_100
849 , p5_a11 JTF_NUMBER_TABLE
850 , p5_a12 JTF_VARCHAR2_TABLE_100
851 , p5_a13 JTF_NUMBER_TABLE
852 , p5_a14 JTF_NUMBER_TABLE
853 , p5_a15 JTF_VARCHAR2_TABLE_100
854 , p5_a16 JTF_NUMBER_TABLE
855 , p5_a17 JTF_NUMBER_TABLE
856 , p5_a18 JTF_VARCHAR2_TABLE_100
857 , p5_a19 JTF_VARCHAR2_TABLE_100
858 , p5_a20 JTF_VARCHAR2_TABLE_500
859 , p5_a21 JTF_VARCHAR2_TABLE_500
860 , p5_a22 JTF_VARCHAR2_TABLE_500
861 , p5_a23 JTF_VARCHAR2_TABLE_500
862 , p5_a24 JTF_VARCHAR2_TABLE_500
863 , p5_a25 JTF_VARCHAR2_TABLE_500
864 , p5_a26 JTF_VARCHAR2_TABLE_500
865 , p5_a27 JTF_VARCHAR2_TABLE_500
866 , p5_a28 JTF_VARCHAR2_TABLE_500
867 , p5_a29 JTF_VARCHAR2_TABLE_500
868 , p5_a30 JTF_VARCHAR2_TABLE_500
869 , p5_a31 JTF_VARCHAR2_TABLE_500
870 , p5_a32 JTF_VARCHAR2_TABLE_500
871 , p5_a33 JTF_VARCHAR2_TABLE_500
872 , p5_a34 JTF_VARCHAR2_TABLE_500
873 , p5_a35 JTF_NUMBER_TABLE
874 , p5_a36 JTF_DATE_TABLE
875 , p5_a37 JTF_NUMBER_TABLE
876 , p5_a38 JTF_DATE_TABLE
877 , p5_a39 JTF_NUMBER_TABLE
878 , p6_a0 out nocopy JTF_NUMBER_TABLE
879 , p6_a1 out nocopy JTF_NUMBER_TABLE
880 , p6_a2 out nocopy JTF_NUMBER_TABLE
881 , p6_a3 out nocopy JTF_NUMBER_TABLE
882 , p6_a4 out nocopy JTF_NUMBER_TABLE
883 , p6_a5 out nocopy JTF_NUMBER_TABLE
884 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
885 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
886 , p6_a8 out nocopy JTF_NUMBER_TABLE
887 , p6_a9 out nocopy JTF_DATE_TABLE
888 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
889 , p6_a11 out nocopy JTF_NUMBER_TABLE
890 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
891 , p6_a13 out nocopy JTF_NUMBER_TABLE
892 , p6_a14 out nocopy JTF_NUMBER_TABLE
893 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
894 , p6_a16 out nocopy JTF_NUMBER_TABLE
895 , p6_a17 out nocopy JTF_NUMBER_TABLE
896 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
897 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
898 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
899 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
900 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
901 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
902 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
903 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
904 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
905 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
906 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
907 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
908 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
909 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
910 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
911 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
912 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
913 , p6_a35 out nocopy JTF_NUMBER_TABLE
914 , p6_a36 out nocopy JTF_DATE_TABLE
915 , p6_a37 out nocopy JTF_NUMBER_TABLE
916 , p6_a38 out nocopy JTF_DATE_TABLE
917 , p6_a39 out nocopy JTF_NUMBER_TABLE
918 )
919
920 as
921 ddp_srfvv_tbl okl_vp_party_payment_pvt.srfvv_tbl_type;
922 ddx_srfvv_tbl okl_vp_party_payment_pvt.srfvv_tbl_type;
923 ddindx binary_integer; indx binary_integer;
924 begin
925
926 -- copy data to the local IN or IN-OUT args, if any
927
928
929
930
931
932 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_srfvv_tbl, p5_a0
933 , p5_a1
934 , p5_a2
935 , p5_a3
936 , p5_a4
937 , p5_a5
938 , p5_a6
939 , p5_a7
940 , p5_a8
941 , p5_a9
942 , p5_a10
943 , p5_a11
944 , p5_a12
945 , p5_a13
946 , p5_a14
947 , p5_a15
948 , p5_a16
949 , p5_a17
950 , p5_a18
951 , p5_a19
952 , p5_a20
953 , p5_a21
954 , p5_a22
955 , p5_a23
956 , p5_a24
957 , p5_a25
958 , p5_a26
959 , p5_a27
960 , p5_a28
961 , p5_a29
962 , p5_a30
963 , p5_a31
964 , p5_a32
965 , p5_a33
966 , p5_a34
967 , p5_a35
968 , p5_a36
969 , p5_a37
970 , p5_a38
971 , p5_a39
972 );
973
974
975 -- here's the delegated call to the old PL/SQL routine
976 okl_vp_party_payment_pvt.update_party_pymnt_dtls(p_api_version,
977 p_init_msg_list,
978 x_return_status,
979 x_msg_count,
980 x_msg_data,
981 ddp_srfvv_tbl,
982 ddx_srfvv_tbl);
983
984 -- copy data back from the local variables to OUT or IN-OUT args, if any
985
986
987
988
989
990
991 okl_pyd_pvt_w.rosetta_table_copy_out_p2(ddx_srfvv_tbl, p6_a0
992 , p6_a1
993 , p6_a2
994 , p6_a3
995 , p6_a4
996 , p6_a5
997 , p6_a6
998 , p6_a7
999 , p6_a8
1000 , p6_a9
1001 , p6_a10
1002 , p6_a11
1003 , p6_a12
1004 , p6_a13
1005 , p6_a14
1006 , p6_a15
1007 , p6_a16
1008 , p6_a17
1009 , p6_a18
1010 , p6_a19
1011 , p6_a20
1012 , p6_a21
1013 , p6_a22
1014 , p6_a23
1015 , p6_a24
1016 , p6_a25
1017 , p6_a26
1018 , p6_a27
1019 , p6_a28
1020 , p6_a29
1021 , p6_a30
1022 , p6_a31
1023 , p6_a32
1024 , p6_a33
1025 , p6_a34
1026 , p6_a35
1027 , p6_a36
1028 , p6_a37
1029 , p6_a38
1030 , p6_a39
1031 );
1032 end;
1033
1034 procedure delete_party_pymnt_dtls(p_api_version NUMBER
1035 , p_init_msg_list VARCHAR2
1036 , x_return_status out nocopy VARCHAR2
1037 , x_msg_count out nocopy NUMBER
1038 , x_msg_data out nocopy VARCHAR2
1039 , p5_a0 NUMBER
1040 , p5_a1 NUMBER
1041 , p5_a2 NUMBER
1042 , p5_a3 NUMBER
1043 , p5_a4 NUMBER
1044 , p5_a5 NUMBER
1045 , p5_a6 VARCHAR2
1046 , p5_a7 VARCHAR2
1047 , p5_a8 NUMBER
1048 , p5_a9 DATE
1049 , p5_a10 VARCHAR2
1050 , p5_a11 NUMBER
1051 , p5_a12 VARCHAR2
1052 , p5_a13 NUMBER
1053 , p5_a14 NUMBER
1054 , p5_a15 VARCHAR2
1055 , p5_a16 NUMBER
1056 , p5_a17 NUMBER
1057 , p5_a18 VARCHAR2
1058 , p5_a19 VARCHAR2
1059 , p5_a20 VARCHAR2
1060 , p5_a21 VARCHAR2
1061 , p5_a22 VARCHAR2
1062 , p5_a23 VARCHAR2
1063 , p5_a24 VARCHAR2
1064 , p5_a25 VARCHAR2
1065 , p5_a26 VARCHAR2
1066 , p5_a27 VARCHAR2
1067 , p5_a28 VARCHAR2
1068 , p5_a29 VARCHAR2
1069 , p5_a30 VARCHAR2
1070 , p5_a31 VARCHAR2
1071 , p5_a32 VARCHAR2
1072 , p5_a33 VARCHAR2
1073 , p5_a34 VARCHAR2
1074 , p5_a35 NUMBER
1075 , p5_a36 DATE
1076 , p5_a37 NUMBER
1077 , p5_a38 DATE
1078 , p5_a39 NUMBER
1079 )
1080
1081 as
1082 ddp_srfvv_rec okl_vp_party_payment_pvt.srfvv_rec_type;
1083 ddindx binary_integer; indx binary_integer;
1084 begin
1085
1086 -- copy data to the local IN or IN-OUT args, if any
1087
1088
1089
1090
1091
1092 ddp_srfvv_rec.id := p5_a0;
1093 ddp_srfvv_rec.object_version_number := p5_a1;
1094 ddp_srfvv_rec.cpl_id := p5_a2;
1095 ddp_srfvv_rec.vendor_id := p5_a3;
1096 ddp_srfvv_rec.pay_site_id := p5_a4;
1097 ddp_srfvv_rec.payment_term_id := p5_a5;
1098 ddp_srfvv_rec.payment_method_code := p5_a6;
1099 ddp_srfvv_rec.pay_group_code := p5_a7;
1100 ddp_srfvv_rec.payment_hdr_id := p5_a8;
1101 ddp_srfvv_rec.payment_start_date := p5_a9;
1102 ddp_srfvv_rec.payment_frequency := p5_a10;
1103 ddp_srfvv_rec.remit_days := p5_a11;
1104 ddp_srfvv_rec.disbursement_basis := p5_a12;
1105 ddp_srfvv_rec.disbursement_fixed_amount := p5_a13;
1106 ddp_srfvv_rec.disbursement_percent := p5_a14;
1107 ddp_srfvv_rec.processing_fee_basis := p5_a15;
1108 ddp_srfvv_rec.processing_fee_fixed_amount := p5_a16;
1109 ddp_srfvv_rec.processing_fee_percent := p5_a17;
1110 ddp_srfvv_rec.payment_basis := p5_a18;
1111 ddp_srfvv_rec.attribute_category := p5_a19;
1112 ddp_srfvv_rec.attribute1 := p5_a20;
1113 ddp_srfvv_rec.attribute2 := p5_a21;
1114 ddp_srfvv_rec.attribute3 := p5_a22;
1115 ddp_srfvv_rec.attribute4 := p5_a23;
1116 ddp_srfvv_rec.attribute5 := p5_a24;
1117 ddp_srfvv_rec.attribute6 := p5_a25;
1118 ddp_srfvv_rec.attribute7 := p5_a26;
1119 ddp_srfvv_rec.attribute8 := p5_a27;
1120 ddp_srfvv_rec.attribute9 := p5_a28;
1121 ddp_srfvv_rec.attribute10 := p5_a29;
1122 ddp_srfvv_rec.attribute11 := p5_a30;
1123 ddp_srfvv_rec.attribute12 := p5_a31;
1124 ddp_srfvv_rec.attribute13 := p5_a32;
1125 ddp_srfvv_rec.attribute14 := p5_a33;
1126 ddp_srfvv_rec.attribute15 := p5_a34;
1127 ddp_srfvv_rec.created_by := p5_a35;
1128 ddp_srfvv_rec.creation_date := p5_a36;
1129 ddp_srfvv_rec.last_updated_by := p5_a37;
1130 ddp_srfvv_rec.last_update_date := p5_a38;
1131 ddp_srfvv_rec.last_update_login := p5_a39;
1132
1133 -- here's the delegated call to the old PL/SQL routine
1134 okl_vp_party_payment_pvt.delete_party_pymnt_dtls(p_api_version,
1135 p_init_msg_list,
1136 x_return_status,
1137 x_msg_count,
1138 x_msg_data,
1139 ddp_srfvv_rec);
1140
1141 -- copy data back from the local variables to OUT or IN-OUT args, if any
1142
1143
1144
1145
1146
1147 end;
1148
1149 procedure delete_party_pymnt_dtls(p_api_version NUMBER
1150 , p_init_msg_list VARCHAR2
1151 , x_return_status out nocopy VARCHAR2
1152 , x_msg_count out nocopy NUMBER
1153 , x_msg_data out nocopy VARCHAR2
1154 , p5_a0 JTF_NUMBER_TABLE
1155 , p5_a1 JTF_NUMBER_TABLE
1156 , p5_a2 JTF_NUMBER_TABLE
1157 , p5_a3 JTF_NUMBER_TABLE
1158 , p5_a4 JTF_NUMBER_TABLE
1159 , p5_a5 JTF_NUMBER_TABLE
1160 , p5_a6 JTF_VARCHAR2_TABLE_100
1161 , p5_a7 JTF_VARCHAR2_TABLE_100
1162 , p5_a8 JTF_NUMBER_TABLE
1163 , p5_a9 JTF_DATE_TABLE
1164 , p5_a10 JTF_VARCHAR2_TABLE_100
1165 , p5_a11 JTF_NUMBER_TABLE
1166 , p5_a12 JTF_VARCHAR2_TABLE_100
1167 , p5_a13 JTF_NUMBER_TABLE
1168 , p5_a14 JTF_NUMBER_TABLE
1169 , p5_a15 JTF_VARCHAR2_TABLE_100
1170 , p5_a16 JTF_NUMBER_TABLE
1171 , p5_a17 JTF_NUMBER_TABLE
1172 , p5_a18 JTF_VARCHAR2_TABLE_100
1173 , p5_a19 JTF_VARCHAR2_TABLE_100
1174 , p5_a20 JTF_VARCHAR2_TABLE_500
1175 , p5_a21 JTF_VARCHAR2_TABLE_500
1176 , p5_a22 JTF_VARCHAR2_TABLE_500
1177 , p5_a23 JTF_VARCHAR2_TABLE_500
1178 , p5_a24 JTF_VARCHAR2_TABLE_500
1179 , p5_a25 JTF_VARCHAR2_TABLE_500
1180 , p5_a26 JTF_VARCHAR2_TABLE_500
1181 , p5_a27 JTF_VARCHAR2_TABLE_500
1182 , p5_a28 JTF_VARCHAR2_TABLE_500
1183 , p5_a29 JTF_VARCHAR2_TABLE_500
1184 , p5_a30 JTF_VARCHAR2_TABLE_500
1185 , p5_a31 JTF_VARCHAR2_TABLE_500
1186 , p5_a32 JTF_VARCHAR2_TABLE_500
1187 , p5_a33 JTF_VARCHAR2_TABLE_500
1188 , p5_a34 JTF_VARCHAR2_TABLE_500
1189 , p5_a35 JTF_NUMBER_TABLE
1190 , p5_a36 JTF_DATE_TABLE
1191 , p5_a37 JTF_NUMBER_TABLE
1192 , p5_a38 JTF_DATE_TABLE
1193 , p5_a39 JTF_NUMBER_TABLE
1194 )
1195
1196 as
1197 ddp_srfvv_tbl okl_vp_party_payment_pvt.srfvv_tbl_type;
1198 ddindx binary_integer; indx binary_integer;
1199 begin
1200
1201 -- copy data to the local IN or IN-OUT args, if any
1202
1203
1204
1205
1206
1207 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_srfvv_tbl, p5_a0
1208 , p5_a1
1209 , p5_a2
1210 , p5_a3
1211 , p5_a4
1212 , p5_a5
1213 , p5_a6
1214 , p5_a7
1215 , p5_a8
1216 , p5_a9
1217 , p5_a10
1218 , p5_a11
1219 , p5_a12
1220 , p5_a13
1221 , p5_a14
1222 , p5_a15
1223 , p5_a16
1224 , p5_a17
1225 , p5_a18
1226 , p5_a19
1227 , p5_a20
1228 , p5_a21
1229 , p5_a22
1230 , p5_a23
1231 , p5_a24
1232 , p5_a25
1233 , p5_a26
1234 , p5_a27
1235 , p5_a28
1236 , p5_a29
1237 , p5_a30
1238 , p5_a31
1239 , p5_a32
1240 , p5_a33
1241 , p5_a34
1242 , p5_a35
1243 , p5_a36
1244 , p5_a37
1245 , p5_a38
1246 , p5_a39
1247 );
1248
1249 -- here's the delegated call to the old PL/SQL routine
1250 okl_vp_party_payment_pvt.delete_party_pymnt_dtls(p_api_version,
1251 p_init_msg_list,
1252 x_return_status,
1253 x_msg_count,
1254 x_msg_data,
1255 ddp_srfvv_tbl);
1256
1257 -- copy data back from the local variables to OUT or IN-OUT args, if any
1258
1259
1260
1261
1262
1263 end;
1264
1265 procedure validate_party_pymnt_dtls(p_api_version NUMBER
1266 , p_init_msg_list VARCHAR2
1267 , x_return_status out nocopy VARCHAR2
1268 , x_msg_count out nocopy NUMBER
1269 , x_msg_data out nocopy VARCHAR2
1270 , p5_a0 NUMBER
1271 , p5_a1 NUMBER
1272 , p5_a2 NUMBER
1273 , p5_a3 NUMBER
1274 , p5_a4 NUMBER
1275 , p5_a5 NUMBER
1276 , p5_a6 VARCHAR2
1277 , p5_a7 VARCHAR2
1278 , p5_a8 NUMBER
1279 , p5_a9 DATE
1280 , p5_a10 VARCHAR2
1281 , p5_a11 NUMBER
1282 , p5_a12 VARCHAR2
1283 , p5_a13 NUMBER
1284 , p5_a14 NUMBER
1285 , p5_a15 VARCHAR2
1286 , p5_a16 NUMBER
1287 , p5_a17 NUMBER
1288 , p5_a18 VARCHAR2
1289 , p5_a19 VARCHAR2
1290 , p5_a20 VARCHAR2
1291 , p5_a21 VARCHAR2
1292 , p5_a22 VARCHAR2
1293 , p5_a23 VARCHAR2
1294 , p5_a24 VARCHAR2
1295 , p5_a25 VARCHAR2
1296 , p5_a26 VARCHAR2
1297 , p5_a27 VARCHAR2
1298 , p5_a28 VARCHAR2
1299 , p5_a29 VARCHAR2
1300 , p5_a30 VARCHAR2
1301 , p5_a31 VARCHAR2
1302 , p5_a32 VARCHAR2
1303 , p5_a33 VARCHAR2
1304 , p5_a34 VARCHAR2
1305 , p5_a35 NUMBER
1306 , p5_a36 DATE
1307 , p5_a37 NUMBER
1308 , p5_a38 DATE
1309 , p5_a39 NUMBER
1310 )
1311
1312 as
1313 ddp_srfvv_rec okl_vp_party_payment_pvt.srfvv_rec_type;
1314 ddindx binary_integer; indx binary_integer;
1315 begin
1316
1317 -- copy data to the local IN or IN-OUT args, if any
1318
1319
1320
1321
1322
1323 ddp_srfvv_rec.id := p5_a0;
1324 ddp_srfvv_rec.object_version_number := p5_a1;
1325 ddp_srfvv_rec.cpl_id := p5_a2;
1326 ddp_srfvv_rec.vendor_id := p5_a3;
1327 ddp_srfvv_rec.pay_site_id := p5_a4;
1328 ddp_srfvv_rec.payment_term_id := p5_a5;
1329 ddp_srfvv_rec.payment_method_code := p5_a6;
1330 ddp_srfvv_rec.pay_group_code := p5_a7;
1331 ddp_srfvv_rec.payment_hdr_id := p5_a8;
1332 ddp_srfvv_rec.payment_start_date := p5_a9;
1333 ddp_srfvv_rec.payment_frequency := p5_a10;
1334 ddp_srfvv_rec.remit_days := p5_a11;
1335 ddp_srfvv_rec.disbursement_basis := p5_a12;
1336 ddp_srfvv_rec.disbursement_fixed_amount := p5_a13;
1337 ddp_srfvv_rec.disbursement_percent := p5_a14;
1338 ddp_srfvv_rec.processing_fee_basis := p5_a15;
1339 ddp_srfvv_rec.processing_fee_fixed_amount := p5_a16;
1340 ddp_srfvv_rec.processing_fee_percent := p5_a17;
1341 ddp_srfvv_rec.payment_basis := p5_a18;
1342 ddp_srfvv_rec.attribute_category := p5_a19;
1343 ddp_srfvv_rec.attribute1 := p5_a20;
1344 ddp_srfvv_rec.attribute2 := p5_a21;
1345 ddp_srfvv_rec.attribute3 := p5_a22;
1346 ddp_srfvv_rec.attribute4 := p5_a23;
1347 ddp_srfvv_rec.attribute5 := p5_a24;
1348 ddp_srfvv_rec.attribute6 := p5_a25;
1349 ddp_srfvv_rec.attribute7 := p5_a26;
1350 ddp_srfvv_rec.attribute8 := p5_a27;
1351 ddp_srfvv_rec.attribute9 := p5_a28;
1352 ddp_srfvv_rec.attribute10 := p5_a29;
1353 ddp_srfvv_rec.attribute11 := p5_a30;
1354 ddp_srfvv_rec.attribute12 := p5_a31;
1355 ddp_srfvv_rec.attribute13 := p5_a32;
1356 ddp_srfvv_rec.attribute14 := p5_a33;
1357 ddp_srfvv_rec.attribute15 := p5_a34;
1358 ddp_srfvv_rec.created_by := p5_a35;
1359 ddp_srfvv_rec.creation_date := p5_a36;
1360 ddp_srfvv_rec.last_updated_by := p5_a37;
1361 ddp_srfvv_rec.last_update_date := p5_a38;
1362 ddp_srfvv_rec.last_update_login := p5_a39;
1363
1364 -- here's the delegated call to the old PL/SQL routine
1365 okl_vp_party_payment_pvt.validate_party_pymnt_dtls(p_api_version,
1366 p_init_msg_list,
1367 x_return_status,
1368 x_msg_count,
1369 x_msg_data,
1370 ddp_srfvv_rec);
1371
1372 -- copy data back from the local variables to OUT or IN-OUT args, if any
1373
1374
1375
1376
1377
1378 end;
1379
1380 procedure validate_party_pymnt_dtls(p_api_version NUMBER
1381 , p_init_msg_list VARCHAR2
1382 , x_return_status out nocopy VARCHAR2
1383 , x_msg_count out nocopy NUMBER
1384 , x_msg_data out nocopy VARCHAR2
1385 , p5_a0 JTF_NUMBER_TABLE
1386 , p5_a1 JTF_NUMBER_TABLE
1387 , p5_a2 JTF_NUMBER_TABLE
1388 , p5_a3 JTF_NUMBER_TABLE
1389 , p5_a4 JTF_NUMBER_TABLE
1390 , p5_a5 JTF_NUMBER_TABLE
1391 , p5_a6 JTF_VARCHAR2_TABLE_100
1392 , p5_a7 JTF_VARCHAR2_TABLE_100
1393 , p5_a8 JTF_NUMBER_TABLE
1394 , p5_a9 JTF_DATE_TABLE
1395 , p5_a10 JTF_VARCHAR2_TABLE_100
1396 , p5_a11 JTF_NUMBER_TABLE
1397 , p5_a12 JTF_VARCHAR2_TABLE_100
1398 , p5_a13 JTF_NUMBER_TABLE
1399 , p5_a14 JTF_NUMBER_TABLE
1400 , p5_a15 JTF_VARCHAR2_TABLE_100
1401 , p5_a16 JTF_NUMBER_TABLE
1402 , p5_a17 JTF_NUMBER_TABLE
1403 , p5_a18 JTF_VARCHAR2_TABLE_100
1404 , p5_a19 JTF_VARCHAR2_TABLE_100
1405 , p5_a20 JTF_VARCHAR2_TABLE_500
1406 , p5_a21 JTF_VARCHAR2_TABLE_500
1407 , p5_a22 JTF_VARCHAR2_TABLE_500
1408 , p5_a23 JTF_VARCHAR2_TABLE_500
1409 , p5_a24 JTF_VARCHAR2_TABLE_500
1410 , p5_a25 JTF_VARCHAR2_TABLE_500
1411 , p5_a26 JTF_VARCHAR2_TABLE_500
1412 , p5_a27 JTF_VARCHAR2_TABLE_500
1413 , p5_a28 JTF_VARCHAR2_TABLE_500
1414 , p5_a29 JTF_VARCHAR2_TABLE_500
1415 , p5_a30 JTF_VARCHAR2_TABLE_500
1416 , p5_a31 JTF_VARCHAR2_TABLE_500
1417 , p5_a32 JTF_VARCHAR2_TABLE_500
1418 , p5_a33 JTF_VARCHAR2_TABLE_500
1419 , p5_a34 JTF_VARCHAR2_TABLE_500
1420 , p5_a35 JTF_NUMBER_TABLE
1421 , p5_a36 JTF_DATE_TABLE
1422 , p5_a37 JTF_NUMBER_TABLE
1423 , p5_a38 JTF_DATE_TABLE
1424 , p5_a39 JTF_NUMBER_TABLE
1425 )
1426
1427 as
1428 ddp_srfvv_tbl okl_vp_party_payment_pvt.srfvv_tbl_type;
1429 ddindx binary_integer; indx binary_integer;
1430 begin
1431
1432 -- copy data to the local IN or IN-OUT args, if any
1433
1434
1435
1436
1437
1438 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_srfvv_tbl, p5_a0
1439 , p5_a1
1440 , p5_a2
1441 , p5_a3
1442 , p5_a4
1443 , p5_a5
1444 , p5_a6
1445 , p5_a7
1446 , p5_a8
1447 , p5_a9
1448 , p5_a10
1449 , p5_a11
1450 , p5_a12
1451 , p5_a13
1452 , p5_a14
1453 , p5_a15
1454 , p5_a16
1455 , p5_a17
1456 , p5_a18
1457 , p5_a19
1458 , p5_a20
1459 , p5_a21
1460 , p5_a22
1461 , p5_a23
1462 , p5_a24
1463 , p5_a25
1464 , p5_a26
1465 , p5_a27
1466 , p5_a28
1467 , p5_a29
1468 , p5_a30
1469 , p5_a31
1470 , p5_a32
1471 , p5_a33
1472 , p5_a34
1473 , p5_a35
1474 , p5_a36
1475 , p5_a37
1476 , p5_a38
1477 , p5_a39
1478 );
1479
1480 -- here's the delegated call to the old PL/SQL routine
1481 okl_vp_party_payment_pvt.validate_party_pymnt_dtls(p_api_version,
1482 p_init_msg_list,
1483 x_return_status,
1484 x_msg_count,
1485 x_msg_data,
1486 ddp_srfvv_tbl);
1487
1488 -- copy data back from the local variables to OUT or IN-OUT args, if any
1489
1490
1491
1492
1493
1494 end;
1495
1496 end okl_vp_party_payment_pvt_w;