[Home] [Help]
PACKAGE BODY: APPS.OKL_PYD_PVT_W
Source
1 package body okl_pyd_pvt_w as
2 /* $Header: OKLIPYDB.pls 120.3 2005/10/13 22:35:27 manumanu noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p2(t out nocopy okl_pyd_pvt.ppydv_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_VARCHAR2_TABLE_100
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_DATE_TABLE
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_VARCHAR2_TABLE_100
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_NUMBER_TABLE
37 , a15 JTF_VARCHAR2_TABLE_100
38 , a16 JTF_NUMBER_TABLE
39 , a17 JTF_NUMBER_TABLE
40 , a18 JTF_VARCHAR2_TABLE_100
41 , a19 JTF_VARCHAR2_TABLE_100
42 , a20 JTF_VARCHAR2_TABLE_500
43 , a21 JTF_VARCHAR2_TABLE_500
44 , a22 JTF_VARCHAR2_TABLE_500
45 , a23 JTF_VARCHAR2_TABLE_500
46 , a24 JTF_VARCHAR2_TABLE_500
47 , a25 JTF_VARCHAR2_TABLE_500
48 , a26 JTF_VARCHAR2_TABLE_500
49 , a27 JTF_VARCHAR2_TABLE_500
50 , a28 JTF_VARCHAR2_TABLE_500
51 , a29 JTF_VARCHAR2_TABLE_500
52 , a30 JTF_VARCHAR2_TABLE_500
53 , a31 JTF_VARCHAR2_TABLE_500
54 , a32 JTF_VARCHAR2_TABLE_500
55 , a33 JTF_VARCHAR2_TABLE_500
56 , a34 JTF_VARCHAR2_TABLE_500
57 , a35 JTF_NUMBER_TABLE
58 , a36 JTF_DATE_TABLE
59 , a37 JTF_NUMBER_TABLE
60 , a38 JTF_DATE_TABLE
61 , a39 JTF_NUMBER_TABLE
62 ) as
63 ddindx binary_integer; indx binary_integer;
64 begin
65 if a0 is not null and a0.count > 0 then
66 if a0.count > 0 then
67 indx := a0.first;
68 ddindx := 1;
69 while true loop
70 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
71 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
72 t(ddindx).cpl_id := rosetta_g_miss_num_map(a2(indx));
73 t(ddindx).vendor_id := rosetta_g_miss_num_map(a3(indx));
74 t(ddindx).pay_site_id := rosetta_g_miss_num_map(a4(indx));
75 t(ddindx).payment_term_id := rosetta_g_miss_num_map(a5(indx));
76 t(ddindx).payment_method_code := a6(indx);
77 t(ddindx).pay_group_code := a7(indx);
78 t(ddindx).payment_hdr_id := rosetta_g_miss_num_map(a8(indx));
79 t(ddindx).payment_start_date := rosetta_g_miss_date_in_map(a9(indx));
80 t(ddindx).payment_frequency := a10(indx);
81 t(ddindx).remit_days := rosetta_g_miss_num_map(a11(indx));
82 t(ddindx).disbursement_basis := a12(indx);
83 t(ddindx).disbursement_fixed_amount := rosetta_g_miss_num_map(a13(indx));
84 t(ddindx).disbursement_percent := rosetta_g_miss_num_map(a14(indx));
85 t(ddindx).processing_fee_basis := a15(indx);
86 t(ddindx).processing_fee_fixed_amount := rosetta_g_miss_num_map(a16(indx));
87 t(ddindx).processing_fee_percent := rosetta_g_miss_num_map(a17(indx));
88 t(ddindx).payment_basis := a18(indx);
89 t(ddindx).attribute_category := a19(indx);
90 t(ddindx).attribute1 := a20(indx);
91 t(ddindx).attribute2 := a21(indx);
92 t(ddindx).attribute3 := a22(indx);
93 t(ddindx).attribute4 := a23(indx);
94 t(ddindx).attribute5 := a24(indx);
95 t(ddindx).attribute6 := a25(indx);
96 t(ddindx).attribute7 := a26(indx);
97 t(ddindx).attribute8 := a27(indx);
98 t(ddindx).attribute9 := a28(indx);
99 t(ddindx).attribute10 := a29(indx);
100 t(ddindx).attribute11 := a30(indx);
101 t(ddindx).attribute12 := a31(indx);
102 t(ddindx).attribute13 := a32(indx);
103 t(ddindx).attribute14 := a33(indx);
104 t(ddindx).attribute15 := a34(indx);
105 t(ddindx).created_by := rosetta_g_miss_num_map(a35(indx));
106 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a36(indx));
107 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a37(indx));
108 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a38(indx));
109 t(ddindx).last_update_login := rosetta_g_miss_num_map(a39(indx));
110 ddindx := ddindx+1;
111 if a0.last =indx
112 then exit;
113 end if;
114 indx := a0.next(indx);
115 end loop;
116 end if;
117 end if;
118 end rosetta_table_copy_in_p2;
119 procedure rosetta_table_copy_out_p2(t okl_pyd_pvt.ppydv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
120 , a1 out nocopy JTF_NUMBER_TABLE
121 , a2 out nocopy JTF_NUMBER_TABLE
122 , a3 out nocopy JTF_NUMBER_TABLE
123 , a4 out nocopy JTF_NUMBER_TABLE
124 , a5 out nocopy JTF_NUMBER_TABLE
125 , a6 out nocopy JTF_VARCHAR2_TABLE_100
126 , a7 out nocopy JTF_VARCHAR2_TABLE_100
127 , a8 out nocopy JTF_NUMBER_TABLE
128 , a9 out nocopy JTF_DATE_TABLE
129 , a10 out nocopy JTF_VARCHAR2_TABLE_100
130 , a11 out nocopy JTF_NUMBER_TABLE
131 , a12 out nocopy JTF_VARCHAR2_TABLE_100
132 , a13 out nocopy JTF_NUMBER_TABLE
133 , a14 out nocopy JTF_NUMBER_TABLE
134 , a15 out nocopy JTF_VARCHAR2_TABLE_100
135 , a16 out nocopy JTF_NUMBER_TABLE
136 , a17 out nocopy JTF_NUMBER_TABLE
137 , a18 out nocopy JTF_VARCHAR2_TABLE_100
138 , a19 out nocopy JTF_VARCHAR2_TABLE_100
139 , a20 out nocopy JTF_VARCHAR2_TABLE_500
140 , a21 out nocopy JTF_VARCHAR2_TABLE_500
141 , a22 out nocopy JTF_VARCHAR2_TABLE_500
142 , a23 out nocopy JTF_VARCHAR2_TABLE_500
143 , a24 out nocopy JTF_VARCHAR2_TABLE_500
144 , a25 out nocopy JTF_VARCHAR2_TABLE_500
145 , a26 out nocopy JTF_VARCHAR2_TABLE_500
146 , a27 out nocopy JTF_VARCHAR2_TABLE_500
147 , a28 out nocopy JTF_VARCHAR2_TABLE_500
148 , a29 out nocopy JTF_VARCHAR2_TABLE_500
149 , a30 out nocopy JTF_VARCHAR2_TABLE_500
150 , a31 out nocopy JTF_VARCHAR2_TABLE_500
151 , a32 out nocopy JTF_VARCHAR2_TABLE_500
152 , a33 out nocopy JTF_VARCHAR2_TABLE_500
153 , a34 out nocopy JTF_VARCHAR2_TABLE_500
154 , a35 out nocopy JTF_NUMBER_TABLE
155 , a36 out nocopy JTF_DATE_TABLE
156 , a37 out nocopy JTF_NUMBER_TABLE
157 , a38 out nocopy JTF_DATE_TABLE
158 , a39 out nocopy JTF_NUMBER_TABLE
159 ) as
160 ddindx binary_integer; indx binary_integer;
161 begin
162 if t is null or t.count = 0 then
163 a0 := JTF_NUMBER_TABLE();
164 a1 := JTF_NUMBER_TABLE();
165 a2 := JTF_NUMBER_TABLE();
166 a3 := JTF_NUMBER_TABLE();
167 a4 := JTF_NUMBER_TABLE();
168 a5 := JTF_NUMBER_TABLE();
169 a6 := JTF_VARCHAR2_TABLE_100();
170 a7 := JTF_VARCHAR2_TABLE_100();
171 a8 := JTF_NUMBER_TABLE();
172 a9 := JTF_DATE_TABLE();
173 a10 := JTF_VARCHAR2_TABLE_100();
174 a11 := JTF_NUMBER_TABLE();
175 a12 := JTF_VARCHAR2_TABLE_100();
176 a13 := JTF_NUMBER_TABLE();
177 a14 := JTF_NUMBER_TABLE();
178 a15 := JTF_VARCHAR2_TABLE_100();
179 a16 := JTF_NUMBER_TABLE();
180 a17 := JTF_NUMBER_TABLE();
181 a18 := JTF_VARCHAR2_TABLE_100();
182 a19 := JTF_VARCHAR2_TABLE_100();
183 a20 := JTF_VARCHAR2_TABLE_500();
184 a21 := JTF_VARCHAR2_TABLE_500();
185 a22 := JTF_VARCHAR2_TABLE_500();
186 a23 := JTF_VARCHAR2_TABLE_500();
187 a24 := JTF_VARCHAR2_TABLE_500();
188 a25 := JTF_VARCHAR2_TABLE_500();
189 a26 := JTF_VARCHAR2_TABLE_500();
190 a27 := JTF_VARCHAR2_TABLE_500();
191 a28 := JTF_VARCHAR2_TABLE_500();
192 a29 := JTF_VARCHAR2_TABLE_500();
193 a30 := JTF_VARCHAR2_TABLE_500();
194 a31 := JTF_VARCHAR2_TABLE_500();
195 a32 := JTF_VARCHAR2_TABLE_500();
196 a33 := JTF_VARCHAR2_TABLE_500();
197 a34 := JTF_VARCHAR2_TABLE_500();
198 a35 := JTF_NUMBER_TABLE();
199 a36 := JTF_DATE_TABLE();
200 a37 := JTF_NUMBER_TABLE();
201 a38 := JTF_DATE_TABLE();
202 a39 := JTF_NUMBER_TABLE();
203 else
204 a0 := JTF_NUMBER_TABLE();
205 a1 := JTF_NUMBER_TABLE();
206 a2 := JTF_NUMBER_TABLE();
207 a3 := JTF_NUMBER_TABLE();
208 a4 := JTF_NUMBER_TABLE();
209 a5 := JTF_NUMBER_TABLE();
210 a6 := JTF_VARCHAR2_TABLE_100();
211 a7 := JTF_VARCHAR2_TABLE_100();
212 a8 := JTF_NUMBER_TABLE();
213 a9 := JTF_DATE_TABLE();
214 a10 := JTF_VARCHAR2_TABLE_100();
215 a11 := JTF_NUMBER_TABLE();
216 a12 := JTF_VARCHAR2_TABLE_100();
217 a13 := JTF_NUMBER_TABLE();
218 a14 := JTF_NUMBER_TABLE();
219 a15 := JTF_VARCHAR2_TABLE_100();
220 a16 := JTF_NUMBER_TABLE();
221 a17 := JTF_NUMBER_TABLE();
222 a18 := JTF_VARCHAR2_TABLE_100();
223 a19 := JTF_VARCHAR2_TABLE_100();
224 a20 := JTF_VARCHAR2_TABLE_500();
225 a21 := JTF_VARCHAR2_TABLE_500();
226 a22 := JTF_VARCHAR2_TABLE_500();
227 a23 := JTF_VARCHAR2_TABLE_500();
228 a24 := JTF_VARCHAR2_TABLE_500();
229 a25 := JTF_VARCHAR2_TABLE_500();
230 a26 := JTF_VARCHAR2_TABLE_500();
231 a27 := JTF_VARCHAR2_TABLE_500();
232 a28 := JTF_VARCHAR2_TABLE_500();
233 a29 := JTF_VARCHAR2_TABLE_500();
234 a30 := JTF_VARCHAR2_TABLE_500();
235 a31 := JTF_VARCHAR2_TABLE_500();
236 a32 := JTF_VARCHAR2_TABLE_500();
237 a33 := JTF_VARCHAR2_TABLE_500();
238 a34 := JTF_VARCHAR2_TABLE_500();
239 a35 := JTF_NUMBER_TABLE();
240 a36 := JTF_DATE_TABLE();
241 a37 := JTF_NUMBER_TABLE();
242 a38 := JTF_DATE_TABLE();
243 a39 := JTF_NUMBER_TABLE();
244 if t.count > 0 then
245 a0.extend(t.count);
246 a1.extend(t.count);
247 a2.extend(t.count);
248 a3.extend(t.count);
249 a4.extend(t.count);
250 a5.extend(t.count);
251 a6.extend(t.count);
252 a7.extend(t.count);
253 a8.extend(t.count);
254 a9.extend(t.count);
255 a10.extend(t.count);
256 a11.extend(t.count);
257 a12.extend(t.count);
258 a13.extend(t.count);
259 a14.extend(t.count);
260 a15.extend(t.count);
261 a16.extend(t.count);
262 a17.extend(t.count);
263 a18.extend(t.count);
264 a19.extend(t.count);
265 a20.extend(t.count);
266 a21.extend(t.count);
267 a22.extend(t.count);
268 a23.extend(t.count);
269 a24.extend(t.count);
270 a25.extend(t.count);
271 a26.extend(t.count);
272 a27.extend(t.count);
273 a28.extend(t.count);
274 a29.extend(t.count);
275 a30.extend(t.count);
276 a31.extend(t.count);
277 a32.extend(t.count);
278 a33.extend(t.count);
279 a34.extend(t.count);
280 a35.extend(t.count);
281 a36.extend(t.count);
282 a37.extend(t.count);
283 a38.extend(t.count);
284 a39.extend(t.count);
285 ddindx := t.first;
286 indx := 1;
287 while true loop
288 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
289 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
290 a2(indx) := rosetta_g_miss_num_map(t(ddindx).cpl_id);
291 a3(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_id);
292 a4(indx) := rosetta_g_miss_num_map(t(ddindx).pay_site_id);
293 a5(indx) := rosetta_g_miss_num_map(t(ddindx).payment_term_id);
294 a6(indx) := t(ddindx).payment_method_code;
295 a7(indx) := t(ddindx).pay_group_code;
296 a8(indx) := rosetta_g_miss_num_map(t(ddindx).payment_hdr_id);
297 a9(indx) := t(ddindx).payment_start_date;
298 a10(indx) := t(ddindx).payment_frequency;
299 a11(indx) := rosetta_g_miss_num_map(t(ddindx).remit_days);
300 a12(indx) := t(ddindx).disbursement_basis;
301 a13(indx) := rosetta_g_miss_num_map(t(ddindx).disbursement_fixed_amount);
302 a14(indx) := rosetta_g_miss_num_map(t(ddindx).disbursement_percent);
303 a15(indx) := t(ddindx).processing_fee_basis;
304 a16(indx) := rosetta_g_miss_num_map(t(ddindx).processing_fee_fixed_amount);
305 a17(indx) := rosetta_g_miss_num_map(t(ddindx).processing_fee_percent);
306 a18(indx) := t(ddindx).payment_basis;
307 a19(indx) := t(ddindx).attribute_category;
308 a20(indx) := t(ddindx).attribute1;
309 a21(indx) := t(ddindx).attribute2;
310 a22(indx) := t(ddindx).attribute3;
311 a23(indx) := t(ddindx).attribute4;
312 a24(indx) := t(ddindx).attribute5;
313 a25(indx) := t(ddindx).attribute6;
314 a26(indx) := t(ddindx).attribute7;
315 a27(indx) := t(ddindx).attribute8;
316 a28(indx) := t(ddindx).attribute9;
317 a29(indx) := t(ddindx).attribute10;
318 a30(indx) := t(ddindx).attribute11;
319 a31(indx) := t(ddindx).attribute12;
320 a32(indx) := t(ddindx).attribute13;
321 a33(indx) := t(ddindx).attribute14;
322 a34(indx) := t(ddindx).attribute15;
323 a35(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
324 a36(indx) := t(ddindx).creation_date;
325 a37(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
326 a38(indx) := t(ddindx).last_update_date;
327 a39(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
328 indx := indx+1;
329 if t.last =ddindx
330 then exit;
331 end if;
332 ddindx := t.next(ddindx);
333 end loop;
334 end if;
335 end if;
336 end rosetta_table_copy_out_p2;
337
338 procedure rosetta_table_copy_in_p5(t out nocopy okl_pyd_pvt.ppyd_tbl_type, a0 JTF_NUMBER_TABLE
339 , a1 JTF_NUMBER_TABLE
340 , a2 JTF_NUMBER_TABLE
341 , a3 JTF_NUMBER_TABLE
342 , a4 JTF_NUMBER_TABLE
343 , a5 JTF_NUMBER_TABLE
344 , a6 JTF_VARCHAR2_TABLE_100
345 , a7 JTF_VARCHAR2_TABLE_100
346 , a8 JTF_NUMBER_TABLE
347 , a9 JTF_DATE_TABLE
348 , a10 JTF_VARCHAR2_TABLE_100
349 , a11 JTF_NUMBER_TABLE
350 , a12 JTF_VARCHAR2_TABLE_100
351 , a13 JTF_NUMBER_TABLE
352 , a14 JTF_NUMBER_TABLE
353 , a15 JTF_VARCHAR2_TABLE_100
354 , a16 JTF_NUMBER_TABLE
355 , a17 JTF_NUMBER_TABLE
356 , a18 JTF_VARCHAR2_TABLE_100
357 , a19 JTF_VARCHAR2_TABLE_100
358 , a20 JTF_VARCHAR2_TABLE_500
359 , a21 JTF_VARCHAR2_TABLE_500
360 , a22 JTF_VARCHAR2_TABLE_500
361 , a23 JTF_VARCHAR2_TABLE_500
362 , a24 JTF_VARCHAR2_TABLE_500
363 , a25 JTF_VARCHAR2_TABLE_500
364 , a26 JTF_VARCHAR2_TABLE_500
365 , a27 JTF_VARCHAR2_TABLE_500
366 , a28 JTF_VARCHAR2_TABLE_500
367 , a29 JTF_VARCHAR2_TABLE_500
368 , a30 JTF_VARCHAR2_TABLE_500
369 , a31 JTF_VARCHAR2_TABLE_500
370 , a32 JTF_VARCHAR2_TABLE_500
371 , a33 JTF_VARCHAR2_TABLE_500
372 , a34 JTF_VARCHAR2_TABLE_500
373 , a35 JTF_NUMBER_TABLE
374 , a36 JTF_DATE_TABLE
375 , a37 JTF_NUMBER_TABLE
376 , a38 JTF_DATE_TABLE
377 , a39 JTF_NUMBER_TABLE
378 ) as
379 ddindx binary_integer; indx binary_integer;
380 begin
381 if a0 is not null and a0.count > 0 then
382 if a0.count > 0 then
383 indx := a0.first;
384 ddindx := 1;
385 while true loop
386 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
387 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
388 t(ddindx).cpl_id := rosetta_g_miss_num_map(a2(indx));
389 t(ddindx).vendor_id := rosetta_g_miss_num_map(a3(indx));
390 t(ddindx).pay_site_id := rosetta_g_miss_num_map(a4(indx));
391 t(ddindx).payment_term_id := rosetta_g_miss_num_map(a5(indx));
392 t(ddindx).payment_method_code := a6(indx);
393 t(ddindx).pay_group_code := a7(indx);
394 t(ddindx).payment_hdr_id := rosetta_g_miss_num_map(a8(indx));
395 t(ddindx).payment_start_date := rosetta_g_miss_date_in_map(a9(indx));
396 t(ddindx).payment_frequency := a10(indx);
397 t(ddindx).remit_days := rosetta_g_miss_num_map(a11(indx));
398 t(ddindx).disbursement_basis := a12(indx);
399 t(ddindx).disbursement_fixed_amount := rosetta_g_miss_num_map(a13(indx));
400 t(ddindx).disbursement_percent := rosetta_g_miss_num_map(a14(indx));
401 t(ddindx).processing_fee_basis := a15(indx);
402 t(ddindx).processing_fee_fixed_amount := rosetta_g_miss_num_map(a16(indx));
403 t(ddindx).processing_fee_percent := rosetta_g_miss_num_map(a17(indx));
404 t(ddindx).payment_basis := a18(indx);
405 t(ddindx).attribute_category := a19(indx);
406 t(ddindx).attribute1 := a20(indx);
407 t(ddindx).attribute2 := a21(indx);
408 t(ddindx).attribute3 := a22(indx);
409 t(ddindx).attribute4 := a23(indx);
410 t(ddindx).attribute5 := a24(indx);
411 t(ddindx).attribute6 := a25(indx);
412 t(ddindx).attribute7 := a26(indx);
413 t(ddindx).attribute8 := a27(indx);
414 t(ddindx).attribute9 := a28(indx);
415 t(ddindx).attribute10 := a29(indx);
416 t(ddindx).attribute11 := a30(indx);
417 t(ddindx).attribute12 := a31(indx);
418 t(ddindx).attribute13 := a32(indx);
419 t(ddindx).attribute14 := a33(indx);
420 t(ddindx).attribute15 := a34(indx);
421 t(ddindx).created_by := rosetta_g_miss_num_map(a35(indx));
422 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a36(indx));
423 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a37(indx));
424 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a38(indx));
425 t(ddindx).last_update_login := rosetta_g_miss_num_map(a39(indx));
426 ddindx := ddindx+1;
427 if a0.last =indx
428 then exit;
429 end if;
430 indx := a0.next(indx);
431 end loop;
432 end if;
433 end if;
434 end rosetta_table_copy_in_p5;
435 procedure rosetta_table_copy_out_p5(t okl_pyd_pvt.ppyd_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
436 , a1 out nocopy JTF_NUMBER_TABLE
437 , a2 out nocopy JTF_NUMBER_TABLE
438 , a3 out nocopy JTF_NUMBER_TABLE
439 , a4 out nocopy JTF_NUMBER_TABLE
440 , a5 out nocopy JTF_NUMBER_TABLE
441 , a6 out nocopy JTF_VARCHAR2_TABLE_100
442 , a7 out nocopy JTF_VARCHAR2_TABLE_100
443 , a8 out nocopy JTF_NUMBER_TABLE
444 , a9 out nocopy JTF_DATE_TABLE
445 , a10 out nocopy JTF_VARCHAR2_TABLE_100
446 , a11 out nocopy JTF_NUMBER_TABLE
447 , a12 out nocopy JTF_VARCHAR2_TABLE_100
448 , a13 out nocopy JTF_NUMBER_TABLE
449 , a14 out nocopy JTF_NUMBER_TABLE
450 , a15 out nocopy JTF_VARCHAR2_TABLE_100
451 , a16 out nocopy JTF_NUMBER_TABLE
452 , a17 out nocopy JTF_NUMBER_TABLE
453 , a18 out nocopy JTF_VARCHAR2_TABLE_100
454 , a19 out nocopy JTF_VARCHAR2_TABLE_100
455 , a20 out nocopy JTF_VARCHAR2_TABLE_500
456 , a21 out nocopy JTF_VARCHAR2_TABLE_500
457 , a22 out nocopy JTF_VARCHAR2_TABLE_500
458 , a23 out nocopy JTF_VARCHAR2_TABLE_500
459 , a24 out nocopy JTF_VARCHAR2_TABLE_500
460 , a25 out nocopy JTF_VARCHAR2_TABLE_500
461 , a26 out nocopy JTF_VARCHAR2_TABLE_500
462 , a27 out nocopy JTF_VARCHAR2_TABLE_500
463 , a28 out nocopy JTF_VARCHAR2_TABLE_500
464 , a29 out nocopy JTF_VARCHAR2_TABLE_500
465 , a30 out nocopy JTF_VARCHAR2_TABLE_500
466 , a31 out nocopy JTF_VARCHAR2_TABLE_500
467 , a32 out nocopy JTF_VARCHAR2_TABLE_500
468 , a33 out nocopy JTF_VARCHAR2_TABLE_500
469 , a34 out nocopy JTF_VARCHAR2_TABLE_500
470 , a35 out nocopy JTF_NUMBER_TABLE
471 , a36 out nocopy JTF_DATE_TABLE
472 , a37 out nocopy JTF_NUMBER_TABLE
473 , a38 out nocopy JTF_DATE_TABLE
474 , a39 out nocopy JTF_NUMBER_TABLE
475 ) as
476 ddindx binary_integer; indx binary_integer;
477 begin
478 if t is null or t.count = 0 then
479 a0 := JTF_NUMBER_TABLE();
480 a1 := JTF_NUMBER_TABLE();
481 a2 := JTF_NUMBER_TABLE();
482 a3 := JTF_NUMBER_TABLE();
483 a4 := JTF_NUMBER_TABLE();
484 a5 := JTF_NUMBER_TABLE();
485 a6 := JTF_VARCHAR2_TABLE_100();
486 a7 := JTF_VARCHAR2_TABLE_100();
487 a8 := JTF_NUMBER_TABLE();
488 a9 := JTF_DATE_TABLE();
489 a10 := JTF_VARCHAR2_TABLE_100();
490 a11 := JTF_NUMBER_TABLE();
491 a12 := JTF_VARCHAR2_TABLE_100();
492 a13 := JTF_NUMBER_TABLE();
493 a14 := JTF_NUMBER_TABLE();
494 a15 := JTF_VARCHAR2_TABLE_100();
495 a16 := JTF_NUMBER_TABLE();
496 a17 := JTF_NUMBER_TABLE();
497 a18 := JTF_VARCHAR2_TABLE_100();
498 a19 := JTF_VARCHAR2_TABLE_100();
499 a20 := JTF_VARCHAR2_TABLE_500();
500 a21 := JTF_VARCHAR2_TABLE_500();
501 a22 := JTF_VARCHAR2_TABLE_500();
502 a23 := JTF_VARCHAR2_TABLE_500();
503 a24 := JTF_VARCHAR2_TABLE_500();
504 a25 := JTF_VARCHAR2_TABLE_500();
505 a26 := JTF_VARCHAR2_TABLE_500();
506 a27 := JTF_VARCHAR2_TABLE_500();
507 a28 := JTF_VARCHAR2_TABLE_500();
508 a29 := JTF_VARCHAR2_TABLE_500();
509 a30 := JTF_VARCHAR2_TABLE_500();
510 a31 := JTF_VARCHAR2_TABLE_500();
511 a32 := JTF_VARCHAR2_TABLE_500();
512 a33 := JTF_VARCHAR2_TABLE_500();
513 a34 := JTF_VARCHAR2_TABLE_500();
514 a35 := JTF_NUMBER_TABLE();
515 a36 := JTF_DATE_TABLE();
516 a37 := JTF_NUMBER_TABLE();
517 a38 := JTF_DATE_TABLE();
518 a39 := JTF_NUMBER_TABLE();
519 else
520 a0 := JTF_NUMBER_TABLE();
521 a1 := JTF_NUMBER_TABLE();
522 a2 := JTF_NUMBER_TABLE();
523 a3 := JTF_NUMBER_TABLE();
524 a4 := JTF_NUMBER_TABLE();
525 a5 := JTF_NUMBER_TABLE();
526 a6 := JTF_VARCHAR2_TABLE_100();
527 a7 := JTF_VARCHAR2_TABLE_100();
528 a8 := JTF_NUMBER_TABLE();
529 a9 := JTF_DATE_TABLE();
530 a10 := JTF_VARCHAR2_TABLE_100();
531 a11 := JTF_NUMBER_TABLE();
532 a12 := JTF_VARCHAR2_TABLE_100();
533 a13 := JTF_NUMBER_TABLE();
534 a14 := JTF_NUMBER_TABLE();
535 a15 := JTF_VARCHAR2_TABLE_100();
536 a16 := JTF_NUMBER_TABLE();
537 a17 := JTF_NUMBER_TABLE();
538 a18 := JTF_VARCHAR2_TABLE_100();
539 a19 := JTF_VARCHAR2_TABLE_100();
540 a20 := JTF_VARCHAR2_TABLE_500();
541 a21 := JTF_VARCHAR2_TABLE_500();
542 a22 := JTF_VARCHAR2_TABLE_500();
543 a23 := JTF_VARCHAR2_TABLE_500();
544 a24 := JTF_VARCHAR2_TABLE_500();
545 a25 := JTF_VARCHAR2_TABLE_500();
546 a26 := JTF_VARCHAR2_TABLE_500();
547 a27 := JTF_VARCHAR2_TABLE_500();
548 a28 := JTF_VARCHAR2_TABLE_500();
549 a29 := JTF_VARCHAR2_TABLE_500();
550 a30 := JTF_VARCHAR2_TABLE_500();
551 a31 := JTF_VARCHAR2_TABLE_500();
552 a32 := JTF_VARCHAR2_TABLE_500();
553 a33 := JTF_VARCHAR2_TABLE_500();
554 a34 := JTF_VARCHAR2_TABLE_500();
555 a35 := JTF_NUMBER_TABLE();
556 a36 := JTF_DATE_TABLE();
557 a37 := JTF_NUMBER_TABLE();
558 a38 := JTF_DATE_TABLE();
559 a39 := JTF_NUMBER_TABLE();
560 if t.count > 0 then
561 a0.extend(t.count);
562 a1.extend(t.count);
563 a2.extend(t.count);
564 a3.extend(t.count);
565 a4.extend(t.count);
566 a5.extend(t.count);
567 a6.extend(t.count);
568 a7.extend(t.count);
569 a8.extend(t.count);
570 a9.extend(t.count);
571 a10.extend(t.count);
572 a11.extend(t.count);
573 a12.extend(t.count);
574 a13.extend(t.count);
575 a14.extend(t.count);
576 a15.extend(t.count);
577 a16.extend(t.count);
578 a17.extend(t.count);
579 a18.extend(t.count);
580 a19.extend(t.count);
581 a20.extend(t.count);
582 a21.extend(t.count);
583 a22.extend(t.count);
584 a23.extend(t.count);
585 a24.extend(t.count);
586 a25.extend(t.count);
587 a26.extend(t.count);
588 a27.extend(t.count);
589 a28.extend(t.count);
590 a29.extend(t.count);
591 a30.extend(t.count);
592 a31.extend(t.count);
593 a32.extend(t.count);
594 a33.extend(t.count);
595 a34.extend(t.count);
596 a35.extend(t.count);
597 a36.extend(t.count);
598 a37.extend(t.count);
599 a38.extend(t.count);
600 a39.extend(t.count);
601 ddindx := t.first;
602 indx := 1;
603 while true loop
604 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
605 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
606 a2(indx) := rosetta_g_miss_num_map(t(ddindx).cpl_id);
607 a3(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_id);
608 a4(indx) := rosetta_g_miss_num_map(t(ddindx).pay_site_id);
609 a5(indx) := rosetta_g_miss_num_map(t(ddindx).payment_term_id);
610 a6(indx) := t(ddindx).payment_method_code;
611 a7(indx) := t(ddindx).pay_group_code;
612 a8(indx) := rosetta_g_miss_num_map(t(ddindx).payment_hdr_id);
613 a9(indx) := t(ddindx).payment_start_date;
614 a10(indx) := t(ddindx).payment_frequency;
615 a11(indx) := rosetta_g_miss_num_map(t(ddindx).remit_days);
616 a12(indx) := t(ddindx).disbursement_basis;
617 a13(indx) := rosetta_g_miss_num_map(t(ddindx).disbursement_fixed_amount);
618 a14(indx) := rosetta_g_miss_num_map(t(ddindx).disbursement_percent);
619 a15(indx) := t(ddindx).processing_fee_basis;
620 a16(indx) := rosetta_g_miss_num_map(t(ddindx).processing_fee_fixed_amount);
621 a17(indx) := rosetta_g_miss_num_map(t(ddindx).processing_fee_percent);
622 a18(indx) := t(ddindx).payment_basis;
623 a19(indx) := t(ddindx).attribute_category;
624 a20(indx) := t(ddindx).attribute1;
625 a21(indx) := t(ddindx).attribute2;
626 a22(indx) := t(ddindx).attribute3;
627 a23(indx) := t(ddindx).attribute4;
628 a24(indx) := t(ddindx).attribute5;
629 a25(indx) := t(ddindx).attribute6;
630 a26(indx) := t(ddindx).attribute7;
631 a27(indx) := t(ddindx).attribute8;
632 a28(indx) := t(ddindx).attribute9;
633 a29(indx) := t(ddindx).attribute10;
634 a30(indx) := t(ddindx).attribute11;
635 a31(indx) := t(ddindx).attribute12;
636 a32(indx) := t(ddindx).attribute13;
637 a33(indx) := t(ddindx).attribute14;
638 a34(indx) := t(ddindx).attribute15;
639 a35(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
640 a36(indx) := t(ddindx).creation_date;
641 a37(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
642 a38(indx) := t(ddindx).last_update_date;
643 a39(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
644 indx := indx+1;
645 if t.last =ddindx
646 then exit;
647 end if;
648 ddindx := t.next(ddindx);
649 end loop;
650 end if;
651 end if;
652 end rosetta_table_copy_out_p5;
653
654 procedure rosetta_table_copy_in_p8(t out nocopy okl_pyd_pvt.ppydh_tbl_type, a0 JTF_NUMBER_TABLE
655 , a1 JTF_NUMBER_TABLE
656 , a2 JTF_NUMBER_TABLE
657 , a3 JTF_NUMBER_TABLE
658 , a4 JTF_NUMBER_TABLE
659 , a5 JTF_NUMBER_TABLE
660 , a6 JTF_NUMBER_TABLE
661 , a7 JTF_VARCHAR2_TABLE_100
662 , a8 JTF_VARCHAR2_TABLE_100
663 , a9 JTF_NUMBER_TABLE
664 , a10 JTF_DATE_TABLE
665 , a11 JTF_VARCHAR2_TABLE_100
666 , a12 JTF_NUMBER_TABLE
667 , a13 JTF_VARCHAR2_TABLE_100
668 , a14 JTF_NUMBER_TABLE
669 , a15 JTF_NUMBER_TABLE
670 , a16 JTF_VARCHAR2_TABLE_100
671 , a17 JTF_NUMBER_TABLE
672 , a18 JTF_NUMBER_TABLE
673 , a19 JTF_VARCHAR2_TABLE_100
674 , a20 JTF_VARCHAR2_TABLE_100
675 , a21 JTF_VARCHAR2_TABLE_500
676 , a22 JTF_VARCHAR2_TABLE_500
677 , a23 JTF_VARCHAR2_TABLE_500
678 , a24 JTF_VARCHAR2_TABLE_500
679 , a25 JTF_VARCHAR2_TABLE_500
680 , a26 JTF_VARCHAR2_TABLE_500
681 , a27 JTF_VARCHAR2_TABLE_500
682 , a28 JTF_VARCHAR2_TABLE_500
683 , a29 JTF_VARCHAR2_TABLE_500
684 , a30 JTF_VARCHAR2_TABLE_500
685 , a31 JTF_VARCHAR2_TABLE_500
686 , a32 JTF_VARCHAR2_TABLE_500
687 , a33 JTF_VARCHAR2_TABLE_500
688 , a34 JTF_VARCHAR2_TABLE_500
689 , a35 JTF_VARCHAR2_TABLE_500
690 , a36 JTF_NUMBER_TABLE
691 , a37 JTF_DATE_TABLE
692 , a38 JTF_NUMBER_TABLE
693 , a39 JTF_DATE_TABLE
694 , a40 JTF_NUMBER_TABLE
695 ) as
696 ddindx binary_integer; indx binary_integer;
697 begin
698 if a0 is not null and a0.count > 0 then
699 if a0.count > 0 then
700 indx := a0.first;
701 ddindx := 1;
702 while true loop
703 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
704 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
705 t(ddindx).major_version := rosetta_g_miss_num_map(a2(indx));
706 t(ddindx).cpl_id := rosetta_g_miss_num_map(a3(indx));
707 t(ddindx).vendor_id := rosetta_g_miss_num_map(a4(indx));
708 t(ddindx).pay_site_id := rosetta_g_miss_num_map(a5(indx));
709 t(ddindx).payment_term_id := rosetta_g_miss_num_map(a6(indx));
710 t(ddindx).payment_method_code := a7(indx);
711 t(ddindx).pay_group_code := a8(indx);
712 t(ddindx).payment_hdr_id := rosetta_g_miss_num_map(a9(indx));
713 t(ddindx).payment_start_date := rosetta_g_miss_date_in_map(a10(indx));
714 t(ddindx).payment_frequency := a11(indx);
715 t(ddindx).remit_days := rosetta_g_miss_num_map(a12(indx));
716 t(ddindx).disbursement_basis := a13(indx);
717 t(ddindx).disbursement_fixed_amount := rosetta_g_miss_num_map(a14(indx));
718 t(ddindx).disbursement_percent := rosetta_g_miss_num_map(a15(indx));
719 t(ddindx).processing_fee_basis := a16(indx);
720 t(ddindx).processing_fee_fixed_amount := rosetta_g_miss_num_map(a17(indx));
721 t(ddindx).processing_fee_percent := rosetta_g_miss_num_map(a18(indx));
722 t(ddindx).payment_basis := a19(indx);
723 t(ddindx).attribute_category := a20(indx);
724 t(ddindx).attribute1 := a21(indx);
725 t(ddindx).attribute2 := a22(indx);
726 t(ddindx).attribute3 := a23(indx);
727 t(ddindx).attribute4 := a24(indx);
728 t(ddindx).attribute5 := a25(indx);
729 t(ddindx).attribute6 := a26(indx);
730 t(ddindx).attribute7 := a27(indx);
731 t(ddindx).attribute8 := a28(indx);
732 t(ddindx).attribute9 := a29(indx);
733 t(ddindx).attribute10 := a30(indx);
734 t(ddindx).attribute11 := a31(indx);
735 t(ddindx).attribute12 := a32(indx);
736 t(ddindx).attribute13 := a33(indx);
737 t(ddindx).attribute14 := a34(indx);
738 t(ddindx).attribute15 := a35(indx);
739 t(ddindx).created_by := rosetta_g_miss_num_map(a36(indx));
740 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a37(indx));
741 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a38(indx));
742 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a39(indx));
743 t(ddindx).last_update_login := rosetta_g_miss_num_map(a40(indx));
744 ddindx := ddindx+1;
745 if a0.last =indx
746 then exit;
747 end if;
748 indx := a0.next(indx);
749 end loop;
750 end if;
751 end if;
752 end rosetta_table_copy_in_p8;
753 procedure rosetta_table_copy_out_p8(t okl_pyd_pvt.ppydh_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
754 , a1 out nocopy JTF_NUMBER_TABLE
755 , a2 out nocopy JTF_NUMBER_TABLE
756 , a3 out nocopy JTF_NUMBER_TABLE
757 , a4 out nocopy JTF_NUMBER_TABLE
758 , a5 out nocopy JTF_NUMBER_TABLE
759 , a6 out nocopy JTF_NUMBER_TABLE
760 , a7 out nocopy JTF_VARCHAR2_TABLE_100
761 , a8 out nocopy JTF_VARCHAR2_TABLE_100
762 , a9 out nocopy JTF_NUMBER_TABLE
763 , a10 out nocopy JTF_DATE_TABLE
764 , a11 out nocopy JTF_VARCHAR2_TABLE_100
765 , a12 out nocopy JTF_NUMBER_TABLE
766 , a13 out nocopy JTF_VARCHAR2_TABLE_100
767 , a14 out nocopy JTF_NUMBER_TABLE
768 , a15 out nocopy JTF_NUMBER_TABLE
769 , a16 out nocopy JTF_VARCHAR2_TABLE_100
770 , a17 out nocopy JTF_NUMBER_TABLE
771 , a18 out nocopy JTF_NUMBER_TABLE
772 , a19 out nocopy JTF_VARCHAR2_TABLE_100
773 , a20 out nocopy JTF_VARCHAR2_TABLE_100
774 , a21 out nocopy JTF_VARCHAR2_TABLE_500
775 , a22 out nocopy JTF_VARCHAR2_TABLE_500
776 , a23 out nocopy JTF_VARCHAR2_TABLE_500
777 , a24 out nocopy JTF_VARCHAR2_TABLE_500
778 , a25 out nocopy JTF_VARCHAR2_TABLE_500
779 , a26 out nocopy JTF_VARCHAR2_TABLE_500
780 , a27 out nocopy JTF_VARCHAR2_TABLE_500
781 , a28 out nocopy JTF_VARCHAR2_TABLE_500
782 , a29 out nocopy JTF_VARCHAR2_TABLE_500
783 , a30 out nocopy JTF_VARCHAR2_TABLE_500
784 , a31 out nocopy JTF_VARCHAR2_TABLE_500
785 , a32 out nocopy JTF_VARCHAR2_TABLE_500
786 , a33 out nocopy JTF_VARCHAR2_TABLE_500
787 , a34 out nocopy JTF_VARCHAR2_TABLE_500
788 , a35 out nocopy JTF_VARCHAR2_TABLE_500
789 , a36 out nocopy JTF_NUMBER_TABLE
790 , a37 out nocopy JTF_DATE_TABLE
791 , a38 out nocopy JTF_NUMBER_TABLE
792 , a39 out nocopy JTF_DATE_TABLE
793 , a40 out nocopy JTF_NUMBER_TABLE
794 ) as
795 ddindx binary_integer; indx binary_integer;
796 begin
797 if t is null or t.count = 0 then
798 a0 := JTF_NUMBER_TABLE();
799 a1 := JTF_NUMBER_TABLE();
800 a2 := JTF_NUMBER_TABLE();
801 a3 := JTF_NUMBER_TABLE();
802 a4 := JTF_NUMBER_TABLE();
803 a5 := JTF_NUMBER_TABLE();
804 a6 := JTF_NUMBER_TABLE();
805 a7 := JTF_VARCHAR2_TABLE_100();
806 a8 := JTF_VARCHAR2_TABLE_100();
807 a9 := JTF_NUMBER_TABLE();
808 a10 := JTF_DATE_TABLE();
809 a11 := JTF_VARCHAR2_TABLE_100();
810 a12 := JTF_NUMBER_TABLE();
811 a13 := JTF_VARCHAR2_TABLE_100();
812 a14 := JTF_NUMBER_TABLE();
813 a15 := JTF_NUMBER_TABLE();
814 a16 := JTF_VARCHAR2_TABLE_100();
815 a17 := JTF_NUMBER_TABLE();
816 a18 := JTF_NUMBER_TABLE();
817 a19 := JTF_VARCHAR2_TABLE_100();
818 a20 := JTF_VARCHAR2_TABLE_100();
819 a21 := JTF_VARCHAR2_TABLE_500();
820 a22 := JTF_VARCHAR2_TABLE_500();
821 a23 := JTF_VARCHAR2_TABLE_500();
822 a24 := JTF_VARCHAR2_TABLE_500();
823 a25 := JTF_VARCHAR2_TABLE_500();
824 a26 := JTF_VARCHAR2_TABLE_500();
825 a27 := JTF_VARCHAR2_TABLE_500();
826 a28 := JTF_VARCHAR2_TABLE_500();
827 a29 := JTF_VARCHAR2_TABLE_500();
828 a30 := JTF_VARCHAR2_TABLE_500();
829 a31 := JTF_VARCHAR2_TABLE_500();
830 a32 := JTF_VARCHAR2_TABLE_500();
831 a33 := JTF_VARCHAR2_TABLE_500();
832 a34 := JTF_VARCHAR2_TABLE_500();
833 a35 := JTF_VARCHAR2_TABLE_500();
834 a36 := JTF_NUMBER_TABLE();
835 a37 := JTF_DATE_TABLE();
836 a38 := JTF_NUMBER_TABLE();
837 a39 := JTF_DATE_TABLE();
838 a40 := JTF_NUMBER_TABLE();
839 else
840 a0 := JTF_NUMBER_TABLE();
841 a1 := JTF_NUMBER_TABLE();
842 a2 := JTF_NUMBER_TABLE();
843 a3 := JTF_NUMBER_TABLE();
844 a4 := JTF_NUMBER_TABLE();
845 a5 := JTF_NUMBER_TABLE();
846 a6 := JTF_NUMBER_TABLE();
847 a7 := JTF_VARCHAR2_TABLE_100();
848 a8 := JTF_VARCHAR2_TABLE_100();
849 a9 := JTF_NUMBER_TABLE();
850 a10 := JTF_DATE_TABLE();
851 a11 := JTF_VARCHAR2_TABLE_100();
852 a12 := JTF_NUMBER_TABLE();
853 a13 := JTF_VARCHAR2_TABLE_100();
854 a14 := JTF_NUMBER_TABLE();
855 a15 := JTF_NUMBER_TABLE();
856 a16 := JTF_VARCHAR2_TABLE_100();
857 a17 := JTF_NUMBER_TABLE();
858 a18 := JTF_NUMBER_TABLE();
859 a19 := JTF_VARCHAR2_TABLE_100();
860 a20 := JTF_VARCHAR2_TABLE_100();
861 a21 := JTF_VARCHAR2_TABLE_500();
862 a22 := JTF_VARCHAR2_TABLE_500();
863 a23 := JTF_VARCHAR2_TABLE_500();
864 a24 := JTF_VARCHAR2_TABLE_500();
865 a25 := JTF_VARCHAR2_TABLE_500();
866 a26 := JTF_VARCHAR2_TABLE_500();
867 a27 := JTF_VARCHAR2_TABLE_500();
868 a28 := JTF_VARCHAR2_TABLE_500();
869 a29 := JTF_VARCHAR2_TABLE_500();
870 a30 := JTF_VARCHAR2_TABLE_500();
871 a31 := JTF_VARCHAR2_TABLE_500();
872 a32 := JTF_VARCHAR2_TABLE_500();
873 a33 := JTF_VARCHAR2_TABLE_500();
874 a34 := JTF_VARCHAR2_TABLE_500();
875 a35 := JTF_VARCHAR2_TABLE_500();
876 a36 := JTF_NUMBER_TABLE();
877 a37 := JTF_DATE_TABLE();
878 a38 := JTF_NUMBER_TABLE();
879 a39 := JTF_DATE_TABLE();
880 a40 := JTF_NUMBER_TABLE();
881 if t.count > 0 then
882 a0.extend(t.count);
883 a1.extend(t.count);
884 a2.extend(t.count);
885 a3.extend(t.count);
886 a4.extend(t.count);
887 a5.extend(t.count);
888 a6.extend(t.count);
889 a7.extend(t.count);
890 a8.extend(t.count);
891 a9.extend(t.count);
892 a10.extend(t.count);
893 a11.extend(t.count);
894 a12.extend(t.count);
895 a13.extend(t.count);
896 a14.extend(t.count);
897 a15.extend(t.count);
898 a16.extend(t.count);
899 a17.extend(t.count);
900 a18.extend(t.count);
901 a19.extend(t.count);
902 a20.extend(t.count);
903 a21.extend(t.count);
904 a22.extend(t.count);
905 a23.extend(t.count);
906 a24.extend(t.count);
907 a25.extend(t.count);
908 a26.extend(t.count);
909 a27.extend(t.count);
910 a28.extend(t.count);
911 a29.extend(t.count);
912 a30.extend(t.count);
913 a31.extend(t.count);
914 a32.extend(t.count);
915 a33.extend(t.count);
916 a34.extend(t.count);
917 a35.extend(t.count);
918 a36.extend(t.count);
919 a37.extend(t.count);
920 a38.extend(t.count);
921 a39.extend(t.count);
922 a40.extend(t.count);
923 ddindx := t.first;
924 indx := 1;
925 while true loop
926 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
927 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
928 a2(indx) := rosetta_g_miss_num_map(t(ddindx).major_version);
929 a3(indx) := rosetta_g_miss_num_map(t(ddindx).cpl_id);
930 a4(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_id);
931 a5(indx) := rosetta_g_miss_num_map(t(ddindx).pay_site_id);
932 a6(indx) := rosetta_g_miss_num_map(t(ddindx).payment_term_id);
933 a7(indx) := t(ddindx).payment_method_code;
934 a8(indx) := t(ddindx).pay_group_code;
935 a9(indx) := rosetta_g_miss_num_map(t(ddindx).payment_hdr_id);
936 a10(indx) := t(ddindx).payment_start_date;
937 a11(indx) := t(ddindx).payment_frequency;
938 a12(indx) := rosetta_g_miss_num_map(t(ddindx).remit_days);
939 a13(indx) := t(ddindx).disbursement_basis;
940 a14(indx) := rosetta_g_miss_num_map(t(ddindx).disbursement_fixed_amount);
941 a15(indx) := rosetta_g_miss_num_map(t(ddindx).disbursement_percent);
942 a16(indx) := t(ddindx).processing_fee_basis;
943 a17(indx) := rosetta_g_miss_num_map(t(ddindx).processing_fee_fixed_amount);
944 a18(indx) := rosetta_g_miss_num_map(t(ddindx).processing_fee_percent);
945 a19(indx) := t(ddindx).payment_basis;
946 a20(indx) := t(ddindx).attribute_category;
947 a21(indx) := t(ddindx).attribute1;
948 a22(indx) := t(ddindx).attribute2;
949 a23(indx) := t(ddindx).attribute3;
950 a24(indx) := t(ddindx).attribute4;
951 a25(indx) := t(ddindx).attribute5;
952 a26(indx) := t(ddindx).attribute6;
953 a27(indx) := t(ddindx).attribute7;
954 a28(indx) := t(ddindx).attribute8;
955 a29(indx) := t(ddindx).attribute9;
956 a30(indx) := t(ddindx).attribute10;
957 a31(indx) := t(ddindx).attribute11;
958 a32(indx) := t(ddindx).attribute12;
959 a33(indx) := t(ddindx).attribute13;
960 a34(indx) := t(ddindx).attribute14;
961 a35(indx) := t(ddindx).attribute15;
962 a36(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
963 a37(indx) := t(ddindx).creation_date;
964 a38(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
965 a39(indx) := t(ddindx).last_update_date;
966 a40(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
967 indx := indx+1;
968 if t.last =ddindx
969 then exit;
970 end if;
971 ddindx := t.next(ddindx);
972 end loop;
973 end if;
974 end if;
975 end rosetta_table_copy_out_p8;
976
977 procedure insert_row(p_api_version NUMBER
978 , p_init_msg_list VARCHAR2
979 , x_return_status out nocopy VARCHAR2
980 , x_msg_count out nocopy NUMBER
981 , x_msg_data out nocopy VARCHAR2
982 , p6_a0 out nocopy NUMBER
983 , p6_a1 out nocopy NUMBER
984 , p6_a2 out nocopy NUMBER
985 , p6_a3 out nocopy NUMBER
986 , p6_a4 out nocopy NUMBER
987 , p6_a5 out nocopy NUMBER
988 , p6_a6 out nocopy VARCHAR2
989 , p6_a7 out nocopy VARCHAR2
990 , p6_a8 out nocopy NUMBER
991 , p6_a9 out nocopy DATE
992 , p6_a10 out nocopy VARCHAR2
993 , p6_a11 out nocopy NUMBER
994 , p6_a12 out nocopy VARCHAR2
995 , p6_a13 out nocopy NUMBER
996 , p6_a14 out nocopy NUMBER
997 , p6_a15 out nocopy VARCHAR2
998 , p6_a16 out nocopy NUMBER
999 , p6_a17 out nocopy NUMBER
1000 , p6_a18 out nocopy VARCHAR2
1001 , p6_a19 out nocopy VARCHAR2
1002 , p6_a20 out nocopy VARCHAR2
1003 , p6_a21 out nocopy VARCHAR2
1004 , p6_a22 out nocopy VARCHAR2
1005 , p6_a23 out nocopy VARCHAR2
1006 , p6_a24 out nocopy VARCHAR2
1007 , p6_a25 out nocopy VARCHAR2
1008 , p6_a26 out nocopy VARCHAR2
1009 , p6_a27 out nocopy VARCHAR2
1010 , p6_a28 out nocopy VARCHAR2
1011 , p6_a29 out nocopy VARCHAR2
1012 , p6_a30 out nocopy VARCHAR2
1013 , p6_a31 out nocopy VARCHAR2
1014 , p6_a32 out nocopy VARCHAR2
1015 , p6_a33 out nocopy VARCHAR2
1016 , p6_a34 out nocopy VARCHAR2
1017 , p6_a35 out nocopy NUMBER
1018 , p6_a36 out nocopy DATE
1019 , p6_a37 out nocopy NUMBER
1020 , p6_a38 out nocopy DATE
1021 , p6_a39 out nocopy NUMBER
1022 , p5_a0 NUMBER := 0-1962.0724
1023 , p5_a1 NUMBER := 0-1962.0724
1024 , p5_a2 NUMBER := 0-1962.0724
1025 , p5_a3 NUMBER := 0-1962.0724
1026 , p5_a4 NUMBER := 0-1962.0724
1027 , p5_a5 NUMBER := 0-1962.0724
1028 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1029 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1030 , p5_a8 NUMBER := 0-1962.0724
1031 , p5_a9 DATE := fnd_api.g_miss_date
1032 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1033 , p5_a11 NUMBER := 0-1962.0724
1034 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1035 , p5_a13 NUMBER := 0-1962.0724
1036 , p5_a14 NUMBER := 0-1962.0724
1037 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1038 , p5_a16 NUMBER := 0-1962.0724
1039 , p5_a17 NUMBER := 0-1962.0724
1040 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1041 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1042 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1043 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1044 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1045 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1046 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1047 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1048 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1049 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1050 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1051 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1052 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1053 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1054 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1055 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
1056 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
1057 , p5_a35 NUMBER := 0-1962.0724
1058 , p5_a36 DATE := fnd_api.g_miss_date
1059 , p5_a37 NUMBER := 0-1962.0724
1060 , p5_a38 DATE := fnd_api.g_miss_date
1061 , p5_a39 NUMBER := 0-1962.0724
1062 )
1063
1064 as
1065 ddp_ppydv_rec okl_pyd_pvt.ppydv_rec_type;
1066 ddx_ppydv_rec okl_pyd_pvt.ppydv_rec_type;
1067 ddindx binary_integer; indx binary_integer;
1068 begin
1069
1070 -- copy data to the local IN or IN-OUT args, if any
1071
1072
1073
1074
1075
1076 ddp_ppydv_rec.id := rosetta_g_miss_num_map(p5_a0);
1077 ddp_ppydv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1078 ddp_ppydv_rec.cpl_id := rosetta_g_miss_num_map(p5_a2);
1079 ddp_ppydv_rec.vendor_id := rosetta_g_miss_num_map(p5_a3);
1080 ddp_ppydv_rec.pay_site_id := rosetta_g_miss_num_map(p5_a4);
1081 ddp_ppydv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a5);
1082 ddp_ppydv_rec.payment_method_code := p5_a6;
1083 ddp_ppydv_rec.pay_group_code := p5_a7;
1084 ddp_ppydv_rec.payment_hdr_id := rosetta_g_miss_num_map(p5_a8);
1085 ddp_ppydv_rec.payment_start_date := rosetta_g_miss_date_in_map(p5_a9);
1086 ddp_ppydv_rec.payment_frequency := p5_a10;
1087 ddp_ppydv_rec.remit_days := rosetta_g_miss_num_map(p5_a11);
1088 ddp_ppydv_rec.disbursement_basis := p5_a12;
1089 ddp_ppydv_rec.disbursement_fixed_amount := rosetta_g_miss_num_map(p5_a13);
1090 ddp_ppydv_rec.disbursement_percent := rosetta_g_miss_num_map(p5_a14);
1091 ddp_ppydv_rec.processing_fee_basis := p5_a15;
1092 ddp_ppydv_rec.processing_fee_fixed_amount := rosetta_g_miss_num_map(p5_a16);
1093 ddp_ppydv_rec.processing_fee_percent := rosetta_g_miss_num_map(p5_a17);
1094 ddp_ppydv_rec.payment_basis := p5_a18;
1095 ddp_ppydv_rec.attribute_category := p5_a19;
1096 ddp_ppydv_rec.attribute1 := p5_a20;
1097 ddp_ppydv_rec.attribute2 := p5_a21;
1098 ddp_ppydv_rec.attribute3 := p5_a22;
1099 ddp_ppydv_rec.attribute4 := p5_a23;
1100 ddp_ppydv_rec.attribute5 := p5_a24;
1101 ddp_ppydv_rec.attribute6 := p5_a25;
1102 ddp_ppydv_rec.attribute7 := p5_a26;
1103 ddp_ppydv_rec.attribute8 := p5_a27;
1104 ddp_ppydv_rec.attribute9 := p5_a28;
1105 ddp_ppydv_rec.attribute10 := p5_a29;
1106 ddp_ppydv_rec.attribute11 := p5_a30;
1107 ddp_ppydv_rec.attribute12 := p5_a31;
1108 ddp_ppydv_rec.attribute13 := p5_a32;
1109 ddp_ppydv_rec.attribute14 := p5_a33;
1110 ddp_ppydv_rec.attribute15 := p5_a34;
1111 ddp_ppydv_rec.created_by := rosetta_g_miss_num_map(p5_a35);
1112 ddp_ppydv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a36);
1113 ddp_ppydv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a37);
1114 ddp_ppydv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a38);
1115 ddp_ppydv_rec.last_update_login := rosetta_g_miss_num_map(p5_a39);
1116
1117
1118 -- here's the delegated call to the old PL/SQL routine
1119 okl_pyd_pvt.insert_row(p_api_version,
1120 p_init_msg_list,
1121 x_return_status,
1122 x_msg_count,
1123 x_msg_data,
1124 ddp_ppydv_rec,
1125 ddx_ppydv_rec);
1126
1127 -- copy data back from the local variables to OUT or IN-OUT args, if any
1128
1129
1130
1131
1132
1133
1134 p6_a0 := rosetta_g_miss_num_map(ddx_ppydv_rec.id);
1135 p6_a1 := rosetta_g_miss_num_map(ddx_ppydv_rec.object_version_number);
1136 p6_a2 := rosetta_g_miss_num_map(ddx_ppydv_rec.cpl_id);
1137 p6_a3 := rosetta_g_miss_num_map(ddx_ppydv_rec.vendor_id);
1138 p6_a4 := rosetta_g_miss_num_map(ddx_ppydv_rec.pay_site_id);
1139 p6_a5 := rosetta_g_miss_num_map(ddx_ppydv_rec.payment_term_id);
1140 p6_a6 := ddx_ppydv_rec.payment_method_code;
1141 p6_a7 := ddx_ppydv_rec.pay_group_code;
1142 p6_a8 := rosetta_g_miss_num_map(ddx_ppydv_rec.payment_hdr_id);
1143 p6_a9 := ddx_ppydv_rec.payment_start_date;
1144 p6_a10 := ddx_ppydv_rec.payment_frequency;
1145 p6_a11 := rosetta_g_miss_num_map(ddx_ppydv_rec.remit_days);
1146 p6_a12 := ddx_ppydv_rec.disbursement_basis;
1147 p6_a13 := rosetta_g_miss_num_map(ddx_ppydv_rec.disbursement_fixed_amount);
1148 p6_a14 := rosetta_g_miss_num_map(ddx_ppydv_rec.disbursement_percent);
1149 p6_a15 := ddx_ppydv_rec.processing_fee_basis;
1150 p6_a16 := rosetta_g_miss_num_map(ddx_ppydv_rec.processing_fee_fixed_amount);
1151 p6_a17 := rosetta_g_miss_num_map(ddx_ppydv_rec.processing_fee_percent);
1152 p6_a18 := ddx_ppydv_rec.payment_basis;
1153 p6_a19 := ddx_ppydv_rec.attribute_category;
1154 p6_a20 := ddx_ppydv_rec.attribute1;
1155 p6_a21 := ddx_ppydv_rec.attribute2;
1156 p6_a22 := ddx_ppydv_rec.attribute3;
1157 p6_a23 := ddx_ppydv_rec.attribute4;
1158 p6_a24 := ddx_ppydv_rec.attribute5;
1159 p6_a25 := ddx_ppydv_rec.attribute6;
1160 p6_a26 := ddx_ppydv_rec.attribute7;
1161 p6_a27 := ddx_ppydv_rec.attribute8;
1162 p6_a28 := ddx_ppydv_rec.attribute9;
1163 p6_a29 := ddx_ppydv_rec.attribute10;
1164 p6_a30 := ddx_ppydv_rec.attribute11;
1165 p6_a31 := ddx_ppydv_rec.attribute12;
1166 p6_a32 := ddx_ppydv_rec.attribute13;
1167 p6_a33 := ddx_ppydv_rec.attribute14;
1168 p6_a34 := ddx_ppydv_rec.attribute15;
1169 p6_a35 := rosetta_g_miss_num_map(ddx_ppydv_rec.created_by);
1170 p6_a36 := ddx_ppydv_rec.creation_date;
1171 p6_a37 := rosetta_g_miss_num_map(ddx_ppydv_rec.last_updated_by);
1172 p6_a38 := ddx_ppydv_rec.last_update_date;
1173 p6_a39 := rosetta_g_miss_num_map(ddx_ppydv_rec.last_update_login);
1174 end;
1175
1176 procedure insert_row(p_api_version NUMBER
1177 , p_init_msg_list VARCHAR2
1178 , x_return_status out nocopy VARCHAR2
1179 , x_msg_count out nocopy NUMBER
1180 , x_msg_data out nocopy VARCHAR2
1181 , p5_a0 JTF_NUMBER_TABLE
1182 , p5_a1 JTF_NUMBER_TABLE
1183 , p5_a2 JTF_NUMBER_TABLE
1184 , p5_a3 JTF_NUMBER_TABLE
1185 , p5_a4 JTF_NUMBER_TABLE
1186 , p5_a5 JTF_NUMBER_TABLE
1187 , p5_a6 JTF_VARCHAR2_TABLE_100
1188 , p5_a7 JTF_VARCHAR2_TABLE_100
1189 , p5_a8 JTF_NUMBER_TABLE
1190 , p5_a9 JTF_DATE_TABLE
1191 , p5_a10 JTF_VARCHAR2_TABLE_100
1192 , p5_a11 JTF_NUMBER_TABLE
1193 , p5_a12 JTF_VARCHAR2_TABLE_100
1194 , p5_a13 JTF_NUMBER_TABLE
1195 , p5_a14 JTF_NUMBER_TABLE
1196 , p5_a15 JTF_VARCHAR2_TABLE_100
1197 , p5_a16 JTF_NUMBER_TABLE
1198 , p5_a17 JTF_NUMBER_TABLE
1199 , p5_a18 JTF_VARCHAR2_TABLE_100
1200 , p5_a19 JTF_VARCHAR2_TABLE_100
1201 , p5_a20 JTF_VARCHAR2_TABLE_500
1202 , p5_a21 JTF_VARCHAR2_TABLE_500
1203 , p5_a22 JTF_VARCHAR2_TABLE_500
1204 , p5_a23 JTF_VARCHAR2_TABLE_500
1205 , p5_a24 JTF_VARCHAR2_TABLE_500
1206 , p5_a25 JTF_VARCHAR2_TABLE_500
1207 , p5_a26 JTF_VARCHAR2_TABLE_500
1208 , p5_a27 JTF_VARCHAR2_TABLE_500
1209 , p5_a28 JTF_VARCHAR2_TABLE_500
1210 , p5_a29 JTF_VARCHAR2_TABLE_500
1211 , p5_a30 JTF_VARCHAR2_TABLE_500
1212 , p5_a31 JTF_VARCHAR2_TABLE_500
1213 , p5_a32 JTF_VARCHAR2_TABLE_500
1214 , p5_a33 JTF_VARCHAR2_TABLE_500
1215 , p5_a34 JTF_VARCHAR2_TABLE_500
1216 , p5_a35 JTF_NUMBER_TABLE
1217 , p5_a36 JTF_DATE_TABLE
1218 , p5_a37 JTF_NUMBER_TABLE
1219 , p5_a38 JTF_DATE_TABLE
1220 , p5_a39 JTF_NUMBER_TABLE
1221 , p6_a0 out nocopy JTF_NUMBER_TABLE
1222 , p6_a1 out nocopy JTF_NUMBER_TABLE
1223 , p6_a2 out nocopy JTF_NUMBER_TABLE
1224 , p6_a3 out nocopy JTF_NUMBER_TABLE
1225 , p6_a4 out nocopy JTF_NUMBER_TABLE
1226 , p6_a5 out nocopy JTF_NUMBER_TABLE
1227 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
1228 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
1229 , p6_a8 out nocopy JTF_NUMBER_TABLE
1230 , p6_a9 out nocopy JTF_DATE_TABLE
1231 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
1232 , p6_a11 out nocopy JTF_NUMBER_TABLE
1233 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1234 , p6_a13 out nocopy JTF_NUMBER_TABLE
1235 , p6_a14 out nocopy JTF_NUMBER_TABLE
1236 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
1237 , p6_a16 out nocopy JTF_NUMBER_TABLE
1238 , p6_a17 out nocopy JTF_NUMBER_TABLE
1239 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
1240 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
1241 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1242 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1243 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1244 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1245 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1246 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1247 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1248 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1249 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
1250 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1251 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
1252 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
1253 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
1254 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
1255 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
1256 , p6_a35 out nocopy JTF_NUMBER_TABLE
1257 , p6_a36 out nocopy JTF_DATE_TABLE
1258 , p6_a37 out nocopy JTF_NUMBER_TABLE
1259 , p6_a38 out nocopy JTF_DATE_TABLE
1260 , p6_a39 out nocopy JTF_NUMBER_TABLE
1261 , p7_a0 in out nocopy JTF_NUMBER_TABLE
1262 , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1263 , p7_a2 in out nocopy JTF_NUMBER_TABLE
1264 , p7_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
1265 , p7_a4 in out nocopy JTF_NUMBER_TABLE
1266 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1267 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1268 )
1269
1270 as
1271 ddp_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
1272 ddx_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
1273 ddpx_error_tbl okl_api.error_tbl_type;
1274 ddindx binary_integer; indx binary_integer;
1275 begin
1276
1277 -- copy data to the local IN or IN-OUT args, if any
1278
1279
1280
1281
1282
1283 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_ppydv_tbl, p5_a0
1284 , p5_a1
1285 , p5_a2
1286 , p5_a3
1287 , p5_a4
1288 , p5_a5
1289 , p5_a6
1290 , p5_a7
1291 , p5_a8
1292 , p5_a9
1293 , p5_a10
1294 , p5_a11
1295 , p5_a12
1296 , p5_a13
1297 , p5_a14
1298 , p5_a15
1299 , p5_a16
1300 , p5_a17
1301 , p5_a18
1302 , p5_a19
1303 , p5_a20
1304 , p5_a21
1305 , p5_a22
1306 , p5_a23
1307 , p5_a24
1308 , p5_a25
1309 , p5_a26
1310 , p5_a27
1311 , p5_a28
1312 , p5_a29
1313 , p5_a30
1314 , p5_a31
1315 , p5_a32
1316 , p5_a33
1317 , p5_a34
1318 , p5_a35
1319 , p5_a36
1320 , p5_a37
1321 , p5_a38
1322 , p5_a39
1323 );
1324
1325
1326 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p7_a0
1327 , p7_a1
1328 , p7_a2
1329 , p7_a3
1330 , p7_a4
1331 , p7_a5
1332 , p7_a6
1333 );
1334
1335 -- here's the delegated call to the old PL/SQL routine
1336 okl_pyd_pvt.insert_row(p_api_version,
1337 p_init_msg_list,
1338 x_return_status,
1339 x_msg_count,
1340 x_msg_data,
1341 ddp_ppydv_tbl,
1342 ddx_ppydv_tbl,
1343 ddpx_error_tbl);
1344
1345 -- copy data back from the local variables to OUT or IN-OUT args, if any
1346
1347
1348
1349
1350
1351
1352 okl_pyd_pvt_w.rosetta_table_copy_out_p2(ddx_ppydv_tbl, p6_a0
1353 , p6_a1
1354 , p6_a2
1355 , p6_a3
1356 , p6_a4
1357 , p6_a5
1358 , p6_a6
1359 , p6_a7
1360 , p6_a8
1361 , p6_a9
1362 , p6_a10
1363 , p6_a11
1364 , p6_a12
1365 , p6_a13
1366 , p6_a14
1367 , p6_a15
1368 , p6_a16
1369 , p6_a17
1370 , p6_a18
1371 , p6_a19
1372 , p6_a20
1373 , p6_a21
1374 , p6_a22
1375 , p6_a23
1376 , p6_a24
1377 , p6_a25
1378 , p6_a26
1379 , p6_a27
1380 , p6_a28
1381 , p6_a29
1382 , p6_a30
1383 , p6_a31
1384 , p6_a32
1385 , p6_a33
1386 , p6_a34
1387 , p6_a35
1388 , p6_a36
1389 , p6_a37
1390 , p6_a38
1391 , p6_a39
1392 );
1393
1394 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p7_a0
1395 , p7_a1
1396 , p7_a2
1397 , p7_a3
1398 , p7_a4
1399 , p7_a5
1400 , p7_a6
1401 );
1402 end;
1403
1404 procedure insert_row(p_api_version NUMBER
1405 , p_init_msg_list VARCHAR2
1406 , x_return_status out nocopy VARCHAR2
1407 , x_msg_count out nocopy NUMBER
1408 , x_msg_data out nocopy VARCHAR2
1409 , p5_a0 JTF_NUMBER_TABLE
1410 , p5_a1 JTF_NUMBER_TABLE
1411 , p5_a2 JTF_NUMBER_TABLE
1412 , p5_a3 JTF_NUMBER_TABLE
1413 , p5_a4 JTF_NUMBER_TABLE
1414 , p5_a5 JTF_NUMBER_TABLE
1415 , p5_a6 JTF_VARCHAR2_TABLE_100
1416 , p5_a7 JTF_VARCHAR2_TABLE_100
1417 , p5_a8 JTF_NUMBER_TABLE
1418 , p5_a9 JTF_DATE_TABLE
1419 , p5_a10 JTF_VARCHAR2_TABLE_100
1420 , p5_a11 JTF_NUMBER_TABLE
1421 , p5_a12 JTF_VARCHAR2_TABLE_100
1422 , p5_a13 JTF_NUMBER_TABLE
1423 , p5_a14 JTF_NUMBER_TABLE
1424 , p5_a15 JTF_VARCHAR2_TABLE_100
1425 , p5_a16 JTF_NUMBER_TABLE
1426 , p5_a17 JTF_NUMBER_TABLE
1427 , p5_a18 JTF_VARCHAR2_TABLE_100
1428 , p5_a19 JTF_VARCHAR2_TABLE_100
1429 , p5_a20 JTF_VARCHAR2_TABLE_500
1430 , p5_a21 JTF_VARCHAR2_TABLE_500
1431 , p5_a22 JTF_VARCHAR2_TABLE_500
1432 , p5_a23 JTF_VARCHAR2_TABLE_500
1433 , p5_a24 JTF_VARCHAR2_TABLE_500
1434 , p5_a25 JTF_VARCHAR2_TABLE_500
1435 , p5_a26 JTF_VARCHAR2_TABLE_500
1436 , p5_a27 JTF_VARCHAR2_TABLE_500
1437 , p5_a28 JTF_VARCHAR2_TABLE_500
1438 , p5_a29 JTF_VARCHAR2_TABLE_500
1439 , p5_a30 JTF_VARCHAR2_TABLE_500
1440 , p5_a31 JTF_VARCHAR2_TABLE_500
1441 , p5_a32 JTF_VARCHAR2_TABLE_500
1442 , p5_a33 JTF_VARCHAR2_TABLE_500
1443 , p5_a34 JTF_VARCHAR2_TABLE_500
1444 , p5_a35 JTF_NUMBER_TABLE
1445 , p5_a36 JTF_DATE_TABLE
1446 , p5_a37 JTF_NUMBER_TABLE
1447 , p5_a38 JTF_DATE_TABLE
1448 , p5_a39 JTF_NUMBER_TABLE
1449 , p6_a0 out nocopy JTF_NUMBER_TABLE
1450 , p6_a1 out nocopy JTF_NUMBER_TABLE
1451 , p6_a2 out nocopy JTF_NUMBER_TABLE
1452 , p6_a3 out nocopy JTF_NUMBER_TABLE
1453 , p6_a4 out nocopy JTF_NUMBER_TABLE
1454 , p6_a5 out nocopy JTF_NUMBER_TABLE
1455 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
1456 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
1457 , p6_a8 out nocopy JTF_NUMBER_TABLE
1458 , p6_a9 out nocopy JTF_DATE_TABLE
1459 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
1460 , p6_a11 out nocopy JTF_NUMBER_TABLE
1461 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1462 , p6_a13 out nocopy JTF_NUMBER_TABLE
1463 , p6_a14 out nocopy JTF_NUMBER_TABLE
1464 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
1465 , p6_a16 out nocopy JTF_NUMBER_TABLE
1466 , p6_a17 out nocopy JTF_NUMBER_TABLE
1467 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
1468 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
1469 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1470 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1471 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1472 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1473 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1474 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1475 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1476 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1477 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
1478 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1479 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
1480 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
1481 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
1482 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
1483 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
1484 , p6_a35 out nocopy JTF_NUMBER_TABLE
1485 , p6_a36 out nocopy JTF_DATE_TABLE
1486 , p6_a37 out nocopy JTF_NUMBER_TABLE
1487 , p6_a38 out nocopy JTF_DATE_TABLE
1488 , p6_a39 out nocopy JTF_NUMBER_TABLE
1489 )
1490
1491 as
1492 ddp_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
1493 ddx_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
1494 ddindx binary_integer; indx binary_integer;
1495 begin
1496
1497 -- copy data to the local IN or IN-OUT args, if any
1498
1499
1500
1501
1502
1503 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_ppydv_tbl, p5_a0
1504 , p5_a1
1505 , p5_a2
1506 , p5_a3
1507 , p5_a4
1508 , p5_a5
1509 , p5_a6
1510 , p5_a7
1511 , p5_a8
1512 , p5_a9
1513 , p5_a10
1514 , p5_a11
1515 , p5_a12
1516 , p5_a13
1517 , p5_a14
1518 , p5_a15
1519 , p5_a16
1520 , p5_a17
1521 , p5_a18
1522 , p5_a19
1523 , p5_a20
1524 , p5_a21
1525 , p5_a22
1526 , p5_a23
1527 , p5_a24
1528 , p5_a25
1529 , p5_a26
1530 , p5_a27
1531 , p5_a28
1532 , p5_a29
1533 , p5_a30
1534 , p5_a31
1535 , p5_a32
1536 , p5_a33
1537 , p5_a34
1538 , p5_a35
1539 , p5_a36
1540 , p5_a37
1541 , p5_a38
1542 , p5_a39
1543 );
1544
1545
1546 -- here's the delegated call to the old PL/SQL routine
1547 okl_pyd_pvt.insert_row(p_api_version,
1548 p_init_msg_list,
1549 x_return_status,
1550 x_msg_count,
1551 x_msg_data,
1552 ddp_ppydv_tbl,
1553 ddx_ppydv_tbl);
1554
1555 -- copy data back from the local variables to OUT or IN-OUT args, if any
1556
1557
1558
1559
1560
1561
1562 okl_pyd_pvt_w.rosetta_table_copy_out_p2(ddx_ppydv_tbl, p6_a0
1563 , p6_a1
1564 , p6_a2
1565 , p6_a3
1566 , p6_a4
1567 , p6_a5
1568 , p6_a6
1569 , p6_a7
1570 , p6_a8
1571 , p6_a9
1572 , p6_a10
1573 , p6_a11
1574 , p6_a12
1575 , p6_a13
1576 , p6_a14
1577 , p6_a15
1578 , p6_a16
1579 , p6_a17
1580 , p6_a18
1581 , p6_a19
1582 , p6_a20
1583 , p6_a21
1584 , p6_a22
1585 , p6_a23
1586 , p6_a24
1587 , p6_a25
1588 , p6_a26
1589 , p6_a27
1590 , p6_a28
1591 , p6_a29
1592 , p6_a30
1593 , p6_a31
1594 , p6_a32
1595 , p6_a33
1596 , p6_a34
1597 , p6_a35
1598 , p6_a36
1599 , p6_a37
1600 , p6_a38
1601 , p6_a39
1602 );
1603 end;
1604
1605 procedure lock_row(p_api_version NUMBER
1606 , p_init_msg_list VARCHAR2
1607 , x_return_status out nocopy VARCHAR2
1608 , x_msg_count out nocopy NUMBER
1609 , x_msg_data out nocopy VARCHAR2
1610 , p5_a0 NUMBER := 0-1962.0724
1611 , p5_a1 NUMBER := 0-1962.0724
1612 , p5_a2 NUMBER := 0-1962.0724
1613 , p5_a3 NUMBER := 0-1962.0724
1614 , p5_a4 NUMBER := 0-1962.0724
1615 , p5_a5 NUMBER := 0-1962.0724
1616 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1617 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1618 , p5_a8 NUMBER := 0-1962.0724
1619 , p5_a9 DATE := fnd_api.g_miss_date
1620 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1621 , p5_a11 NUMBER := 0-1962.0724
1622 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1623 , p5_a13 NUMBER := 0-1962.0724
1624 , p5_a14 NUMBER := 0-1962.0724
1625 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1626 , p5_a16 NUMBER := 0-1962.0724
1627 , p5_a17 NUMBER := 0-1962.0724
1628 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1629 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1630 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1631 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1632 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1633 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1634 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1635 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1636 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1637 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1638 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1639 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1640 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1641 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1642 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1643 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
1644 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
1645 , p5_a35 NUMBER := 0-1962.0724
1646 , p5_a36 DATE := fnd_api.g_miss_date
1647 , p5_a37 NUMBER := 0-1962.0724
1648 , p5_a38 DATE := fnd_api.g_miss_date
1649 , p5_a39 NUMBER := 0-1962.0724
1650 )
1651
1652 as
1653 ddp_ppydv_rec okl_pyd_pvt.ppydv_rec_type;
1654 ddindx binary_integer; indx binary_integer;
1655 begin
1656
1657 -- copy data to the local IN or IN-OUT args, if any
1658
1659
1660
1661
1662
1663 ddp_ppydv_rec.id := rosetta_g_miss_num_map(p5_a0);
1664 ddp_ppydv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1665 ddp_ppydv_rec.cpl_id := rosetta_g_miss_num_map(p5_a2);
1666 ddp_ppydv_rec.vendor_id := rosetta_g_miss_num_map(p5_a3);
1667 ddp_ppydv_rec.pay_site_id := rosetta_g_miss_num_map(p5_a4);
1668 ddp_ppydv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a5);
1669 ddp_ppydv_rec.payment_method_code := p5_a6;
1670 ddp_ppydv_rec.pay_group_code := p5_a7;
1671 ddp_ppydv_rec.payment_hdr_id := rosetta_g_miss_num_map(p5_a8);
1672 ddp_ppydv_rec.payment_start_date := rosetta_g_miss_date_in_map(p5_a9);
1673 ddp_ppydv_rec.payment_frequency := p5_a10;
1674 ddp_ppydv_rec.remit_days := rosetta_g_miss_num_map(p5_a11);
1675 ddp_ppydv_rec.disbursement_basis := p5_a12;
1676 ddp_ppydv_rec.disbursement_fixed_amount := rosetta_g_miss_num_map(p5_a13);
1677 ddp_ppydv_rec.disbursement_percent := rosetta_g_miss_num_map(p5_a14);
1678 ddp_ppydv_rec.processing_fee_basis := p5_a15;
1679 ddp_ppydv_rec.processing_fee_fixed_amount := rosetta_g_miss_num_map(p5_a16);
1680 ddp_ppydv_rec.processing_fee_percent := rosetta_g_miss_num_map(p5_a17);
1681 ddp_ppydv_rec.payment_basis := p5_a18;
1682 ddp_ppydv_rec.attribute_category := p5_a19;
1683 ddp_ppydv_rec.attribute1 := p5_a20;
1684 ddp_ppydv_rec.attribute2 := p5_a21;
1685 ddp_ppydv_rec.attribute3 := p5_a22;
1686 ddp_ppydv_rec.attribute4 := p5_a23;
1687 ddp_ppydv_rec.attribute5 := p5_a24;
1688 ddp_ppydv_rec.attribute6 := p5_a25;
1689 ddp_ppydv_rec.attribute7 := p5_a26;
1690 ddp_ppydv_rec.attribute8 := p5_a27;
1691 ddp_ppydv_rec.attribute9 := p5_a28;
1692 ddp_ppydv_rec.attribute10 := p5_a29;
1693 ddp_ppydv_rec.attribute11 := p5_a30;
1694 ddp_ppydv_rec.attribute12 := p5_a31;
1695 ddp_ppydv_rec.attribute13 := p5_a32;
1696 ddp_ppydv_rec.attribute14 := p5_a33;
1697 ddp_ppydv_rec.attribute15 := p5_a34;
1698 ddp_ppydv_rec.created_by := rosetta_g_miss_num_map(p5_a35);
1699 ddp_ppydv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a36);
1700 ddp_ppydv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a37);
1701 ddp_ppydv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a38);
1702 ddp_ppydv_rec.last_update_login := rosetta_g_miss_num_map(p5_a39);
1703
1704 -- here's the delegated call to the old PL/SQL routine
1705 okl_pyd_pvt.lock_row(p_api_version,
1706 p_init_msg_list,
1707 x_return_status,
1708 x_msg_count,
1709 x_msg_data,
1710 ddp_ppydv_rec);
1711
1712 -- copy data back from the local variables to OUT or IN-OUT args, if any
1713
1714
1715
1716
1717
1718 end;
1719
1720 procedure lock_row(p_api_version NUMBER
1721 , p_init_msg_list VARCHAR2
1722 , x_return_status out nocopy VARCHAR2
1723 , x_msg_count out nocopy NUMBER
1724 , x_msg_data out nocopy VARCHAR2
1725 , p5_a0 JTF_NUMBER_TABLE
1726 , p5_a1 JTF_NUMBER_TABLE
1727 , p5_a2 JTF_NUMBER_TABLE
1728 , p5_a3 JTF_NUMBER_TABLE
1729 , p5_a4 JTF_NUMBER_TABLE
1730 , p5_a5 JTF_NUMBER_TABLE
1731 , p5_a6 JTF_VARCHAR2_TABLE_100
1732 , p5_a7 JTF_VARCHAR2_TABLE_100
1733 , p5_a8 JTF_NUMBER_TABLE
1734 , p5_a9 JTF_DATE_TABLE
1735 , p5_a10 JTF_VARCHAR2_TABLE_100
1736 , p5_a11 JTF_NUMBER_TABLE
1737 , p5_a12 JTF_VARCHAR2_TABLE_100
1738 , p5_a13 JTF_NUMBER_TABLE
1739 , p5_a14 JTF_NUMBER_TABLE
1740 , p5_a15 JTF_VARCHAR2_TABLE_100
1741 , p5_a16 JTF_NUMBER_TABLE
1742 , p5_a17 JTF_NUMBER_TABLE
1743 , p5_a18 JTF_VARCHAR2_TABLE_100
1744 , p5_a19 JTF_VARCHAR2_TABLE_100
1745 , p5_a20 JTF_VARCHAR2_TABLE_500
1746 , p5_a21 JTF_VARCHAR2_TABLE_500
1747 , p5_a22 JTF_VARCHAR2_TABLE_500
1748 , p5_a23 JTF_VARCHAR2_TABLE_500
1749 , p5_a24 JTF_VARCHAR2_TABLE_500
1750 , p5_a25 JTF_VARCHAR2_TABLE_500
1751 , p5_a26 JTF_VARCHAR2_TABLE_500
1752 , p5_a27 JTF_VARCHAR2_TABLE_500
1753 , p5_a28 JTF_VARCHAR2_TABLE_500
1754 , p5_a29 JTF_VARCHAR2_TABLE_500
1755 , p5_a30 JTF_VARCHAR2_TABLE_500
1756 , p5_a31 JTF_VARCHAR2_TABLE_500
1757 , p5_a32 JTF_VARCHAR2_TABLE_500
1758 , p5_a33 JTF_VARCHAR2_TABLE_500
1759 , p5_a34 JTF_VARCHAR2_TABLE_500
1760 , p5_a35 JTF_NUMBER_TABLE
1761 , p5_a36 JTF_DATE_TABLE
1762 , p5_a37 JTF_NUMBER_TABLE
1763 , p5_a38 JTF_DATE_TABLE
1764 , p5_a39 JTF_NUMBER_TABLE
1765 , p6_a0 in out nocopy JTF_NUMBER_TABLE
1766 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1767 , p6_a2 in out nocopy JTF_NUMBER_TABLE
1768 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
1769 , p6_a4 in out nocopy JTF_NUMBER_TABLE
1770 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1771 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1772 )
1773
1774 as
1775 ddp_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
1776 ddpx_error_tbl okl_api.error_tbl_type;
1777 ddindx binary_integer; indx binary_integer;
1778 begin
1779
1780 -- copy data to the local IN or IN-OUT args, if any
1781
1782
1783
1784
1785
1786 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_ppydv_tbl, p5_a0
1787 , p5_a1
1788 , p5_a2
1789 , p5_a3
1790 , p5_a4
1791 , p5_a5
1792 , p5_a6
1793 , p5_a7
1794 , p5_a8
1795 , p5_a9
1796 , p5_a10
1797 , p5_a11
1798 , p5_a12
1799 , p5_a13
1800 , p5_a14
1801 , p5_a15
1802 , p5_a16
1803 , p5_a17
1804 , p5_a18
1805 , p5_a19
1806 , p5_a20
1807 , p5_a21
1808 , p5_a22
1809 , p5_a23
1810 , p5_a24
1811 , p5_a25
1812 , p5_a26
1813 , p5_a27
1814 , p5_a28
1815 , p5_a29
1816 , p5_a30
1817 , p5_a31
1818 , p5_a32
1819 , p5_a33
1820 , p5_a34
1821 , p5_a35
1822 , p5_a36
1823 , p5_a37
1824 , p5_a38
1825 , p5_a39
1826 );
1827
1828 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p6_a0
1829 , p6_a1
1830 , p6_a2
1831 , p6_a3
1832 , p6_a4
1833 , p6_a5
1834 , p6_a6
1835 );
1836
1837 -- here's the delegated call to the old PL/SQL routine
1838 okl_pyd_pvt.lock_row(p_api_version,
1839 p_init_msg_list,
1840 x_return_status,
1841 x_msg_count,
1842 x_msg_data,
1843 ddp_ppydv_tbl,
1844 ddpx_error_tbl);
1845
1846 -- copy data back from the local variables to OUT or IN-OUT args, if any
1847
1848
1849
1850
1851
1852
1853 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p6_a0
1854 , p6_a1
1855 , p6_a2
1856 , p6_a3
1857 , p6_a4
1858 , p6_a5
1859 , p6_a6
1860 );
1861 end;
1862
1863 procedure lock_row(p_api_version NUMBER
1864 , p_init_msg_list VARCHAR2
1865 , x_return_status out nocopy VARCHAR2
1866 , x_msg_count out nocopy NUMBER
1867 , x_msg_data out nocopy VARCHAR2
1868 , p5_a0 JTF_NUMBER_TABLE
1869 , p5_a1 JTF_NUMBER_TABLE
1870 , p5_a2 JTF_NUMBER_TABLE
1871 , p5_a3 JTF_NUMBER_TABLE
1872 , p5_a4 JTF_NUMBER_TABLE
1873 , p5_a5 JTF_NUMBER_TABLE
1874 , p5_a6 JTF_VARCHAR2_TABLE_100
1875 , p5_a7 JTF_VARCHAR2_TABLE_100
1876 , p5_a8 JTF_NUMBER_TABLE
1877 , p5_a9 JTF_DATE_TABLE
1878 , p5_a10 JTF_VARCHAR2_TABLE_100
1879 , p5_a11 JTF_NUMBER_TABLE
1880 , p5_a12 JTF_VARCHAR2_TABLE_100
1881 , p5_a13 JTF_NUMBER_TABLE
1882 , p5_a14 JTF_NUMBER_TABLE
1883 , p5_a15 JTF_VARCHAR2_TABLE_100
1884 , p5_a16 JTF_NUMBER_TABLE
1885 , p5_a17 JTF_NUMBER_TABLE
1886 , p5_a18 JTF_VARCHAR2_TABLE_100
1887 , p5_a19 JTF_VARCHAR2_TABLE_100
1888 , p5_a20 JTF_VARCHAR2_TABLE_500
1889 , p5_a21 JTF_VARCHAR2_TABLE_500
1890 , p5_a22 JTF_VARCHAR2_TABLE_500
1891 , p5_a23 JTF_VARCHAR2_TABLE_500
1892 , p5_a24 JTF_VARCHAR2_TABLE_500
1893 , p5_a25 JTF_VARCHAR2_TABLE_500
1894 , p5_a26 JTF_VARCHAR2_TABLE_500
1895 , p5_a27 JTF_VARCHAR2_TABLE_500
1896 , p5_a28 JTF_VARCHAR2_TABLE_500
1897 , p5_a29 JTF_VARCHAR2_TABLE_500
1898 , p5_a30 JTF_VARCHAR2_TABLE_500
1899 , p5_a31 JTF_VARCHAR2_TABLE_500
1900 , p5_a32 JTF_VARCHAR2_TABLE_500
1901 , p5_a33 JTF_VARCHAR2_TABLE_500
1902 , p5_a34 JTF_VARCHAR2_TABLE_500
1903 , p5_a35 JTF_NUMBER_TABLE
1904 , p5_a36 JTF_DATE_TABLE
1905 , p5_a37 JTF_NUMBER_TABLE
1906 , p5_a38 JTF_DATE_TABLE
1907 , p5_a39 JTF_NUMBER_TABLE
1908 )
1909
1910 as
1911 ddp_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
1912 ddindx binary_integer; indx binary_integer;
1913 begin
1914
1915 -- copy data to the local IN or IN-OUT args, if any
1916
1917
1918
1919
1920
1921 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_ppydv_tbl, p5_a0
1922 , p5_a1
1923 , p5_a2
1924 , p5_a3
1925 , p5_a4
1926 , p5_a5
1927 , p5_a6
1928 , p5_a7
1929 , p5_a8
1930 , p5_a9
1931 , p5_a10
1932 , p5_a11
1933 , p5_a12
1934 , p5_a13
1935 , p5_a14
1936 , p5_a15
1937 , p5_a16
1938 , p5_a17
1939 , p5_a18
1940 , p5_a19
1941 , p5_a20
1942 , p5_a21
1943 , p5_a22
1944 , p5_a23
1945 , p5_a24
1946 , p5_a25
1947 , p5_a26
1948 , p5_a27
1949 , p5_a28
1950 , p5_a29
1951 , p5_a30
1952 , p5_a31
1953 , p5_a32
1954 , p5_a33
1955 , p5_a34
1956 , p5_a35
1957 , p5_a36
1958 , p5_a37
1959 , p5_a38
1960 , p5_a39
1961 );
1962
1963 -- here's the delegated call to the old PL/SQL routine
1964 okl_pyd_pvt.lock_row(p_api_version,
1965 p_init_msg_list,
1966 x_return_status,
1967 x_msg_count,
1968 x_msg_data,
1969 ddp_ppydv_tbl);
1970
1971 -- copy data back from the local variables to OUT or IN-OUT args, if any
1972
1973
1974
1975
1976
1977 end;
1978
1979 procedure update_row(p_api_version NUMBER
1980 , p_init_msg_list VARCHAR2
1981 , x_return_status out nocopy VARCHAR2
1982 , x_msg_count out nocopy NUMBER
1983 , x_msg_data out nocopy VARCHAR2
1984 , p6_a0 out nocopy NUMBER
1985 , p6_a1 out nocopy NUMBER
1986 , p6_a2 out nocopy NUMBER
1987 , p6_a3 out nocopy NUMBER
1988 , p6_a4 out nocopy NUMBER
1989 , p6_a5 out nocopy NUMBER
1990 , p6_a6 out nocopy VARCHAR2
1991 , p6_a7 out nocopy VARCHAR2
1992 , p6_a8 out nocopy NUMBER
1993 , p6_a9 out nocopy DATE
1994 , p6_a10 out nocopy VARCHAR2
1995 , p6_a11 out nocopy NUMBER
1996 , p6_a12 out nocopy VARCHAR2
1997 , p6_a13 out nocopy NUMBER
1998 , p6_a14 out nocopy NUMBER
1999 , p6_a15 out nocopy VARCHAR2
2000 , p6_a16 out nocopy NUMBER
2001 , p6_a17 out nocopy NUMBER
2002 , p6_a18 out nocopy VARCHAR2
2003 , p6_a19 out nocopy VARCHAR2
2004 , p6_a20 out nocopy VARCHAR2
2005 , p6_a21 out nocopy VARCHAR2
2006 , p6_a22 out nocopy VARCHAR2
2007 , p6_a23 out nocopy VARCHAR2
2008 , p6_a24 out nocopy VARCHAR2
2009 , p6_a25 out nocopy VARCHAR2
2010 , p6_a26 out nocopy VARCHAR2
2011 , p6_a27 out nocopy VARCHAR2
2012 , p6_a28 out nocopy VARCHAR2
2013 , p6_a29 out nocopy VARCHAR2
2014 , p6_a30 out nocopy VARCHAR2
2015 , p6_a31 out nocopy VARCHAR2
2016 , p6_a32 out nocopy VARCHAR2
2017 , p6_a33 out nocopy VARCHAR2
2018 , p6_a34 out nocopy VARCHAR2
2019 , p6_a35 out nocopy NUMBER
2020 , p6_a36 out nocopy DATE
2021 , p6_a37 out nocopy NUMBER
2022 , p6_a38 out nocopy DATE
2023 , p6_a39 out nocopy NUMBER
2024 , p5_a0 NUMBER := 0-1962.0724
2025 , p5_a1 NUMBER := 0-1962.0724
2026 , p5_a2 NUMBER := 0-1962.0724
2027 , p5_a3 NUMBER := 0-1962.0724
2028 , p5_a4 NUMBER := 0-1962.0724
2029 , p5_a5 NUMBER := 0-1962.0724
2030 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2031 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
2032 , p5_a8 NUMBER := 0-1962.0724
2033 , p5_a9 DATE := fnd_api.g_miss_date
2034 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2035 , p5_a11 NUMBER := 0-1962.0724
2036 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2037 , p5_a13 NUMBER := 0-1962.0724
2038 , p5_a14 NUMBER := 0-1962.0724
2039 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2040 , p5_a16 NUMBER := 0-1962.0724
2041 , p5_a17 NUMBER := 0-1962.0724
2042 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2043 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2044 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2045 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2046 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2047 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2048 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2049 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2050 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2051 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2052 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2053 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
2054 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
2055 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
2056 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
2057 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
2058 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
2059 , p5_a35 NUMBER := 0-1962.0724
2060 , p5_a36 DATE := fnd_api.g_miss_date
2061 , p5_a37 NUMBER := 0-1962.0724
2062 , p5_a38 DATE := fnd_api.g_miss_date
2063 , p5_a39 NUMBER := 0-1962.0724
2064 )
2065
2066 as
2067 ddp_ppydv_rec okl_pyd_pvt.ppydv_rec_type;
2068 ddx_ppydv_rec okl_pyd_pvt.ppydv_rec_type;
2069 ddindx binary_integer; indx binary_integer;
2070 begin
2071
2072 -- copy data to the local IN or IN-OUT args, if any
2073
2074
2075
2076
2077
2078 ddp_ppydv_rec.id := rosetta_g_miss_num_map(p5_a0);
2079 ddp_ppydv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2080 ddp_ppydv_rec.cpl_id := rosetta_g_miss_num_map(p5_a2);
2081 ddp_ppydv_rec.vendor_id := rosetta_g_miss_num_map(p5_a3);
2082 ddp_ppydv_rec.pay_site_id := rosetta_g_miss_num_map(p5_a4);
2083 ddp_ppydv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a5);
2084 ddp_ppydv_rec.payment_method_code := p5_a6;
2085 ddp_ppydv_rec.pay_group_code := p5_a7;
2086 ddp_ppydv_rec.payment_hdr_id := rosetta_g_miss_num_map(p5_a8);
2087 ddp_ppydv_rec.payment_start_date := rosetta_g_miss_date_in_map(p5_a9);
2088 ddp_ppydv_rec.payment_frequency := p5_a10;
2089 ddp_ppydv_rec.remit_days := rosetta_g_miss_num_map(p5_a11);
2090 ddp_ppydv_rec.disbursement_basis := p5_a12;
2091 ddp_ppydv_rec.disbursement_fixed_amount := rosetta_g_miss_num_map(p5_a13);
2092 ddp_ppydv_rec.disbursement_percent := rosetta_g_miss_num_map(p5_a14);
2093 ddp_ppydv_rec.processing_fee_basis := p5_a15;
2094 ddp_ppydv_rec.processing_fee_fixed_amount := rosetta_g_miss_num_map(p5_a16);
2095 ddp_ppydv_rec.processing_fee_percent := rosetta_g_miss_num_map(p5_a17);
2096 ddp_ppydv_rec.payment_basis := p5_a18;
2097 ddp_ppydv_rec.attribute_category := p5_a19;
2098 ddp_ppydv_rec.attribute1 := p5_a20;
2099 ddp_ppydv_rec.attribute2 := p5_a21;
2100 ddp_ppydv_rec.attribute3 := p5_a22;
2101 ddp_ppydv_rec.attribute4 := p5_a23;
2102 ddp_ppydv_rec.attribute5 := p5_a24;
2103 ddp_ppydv_rec.attribute6 := p5_a25;
2104 ddp_ppydv_rec.attribute7 := p5_a26;
2105 ddp_ppydv_rec.attribute8 := p5_a27;
2106 ddp_ppydv_rec.attribute9 := p5_a28;
2107 ddp_ppydv_rec.attribute10 := p5_a29;
2108 ddp_ppydv_rec.attribute11 := p5_a30;
2109 ddp_ppydv_rec.attribute12 := p5_a31;
2110 ddp_ppydv_rec.attribute13 := p5_a32;
2111 ddp_ppydv_rec.attribute14 := p5_a33;
2112 ddp_ppydv_rec.attribute15 := p5_a34;
2113 ddp_ppydv_rec.created_by := rosetta_g_miss_num_map(p5_a35);
2114 ddp_ppydv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a36);
2115 ddp_ppydv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a37);
2116 ddp_ppydv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a38);
2117 ddp_ppydv_rec.last_update_login := rosetta_g_miss_num_map(p5_a39);
2118
2119
2120 -- here's the delegated call to the old PL/SQL routine
2121 okl_pyd_pvt.update_row(p_api_version,
2122 p_init_msg_list,
2123 x_return_status,
2124 x_msg_count,
2125 x_msg_data,
2126 ddp_ppydv_rec,
2127 ddx_ppydv_rec);
2128
2129 -- copy data back from the local variables to OUT or IN-OUT args, if any
2130
2131
2132
2133
2134
2135
2136 p6_a0 := rosetta_g_miss_num_map(ddx_ppydv_rec.id);
2137 p6_a1 := rosetta_g_miss_num_map(ddx_ppydv_rec.object_version_number);
2138 p6_a2 := rosetta_g_miss_num_map(ddx_ppydv_rec.cpl_id);
2139 p6_a3 := rosetta_g_miss_num_map(ddx_ppydv_rec.vendor_id);
2140 p6_a4 := rosetta_g_miss_num_map(ddx_ppydv_rec.pay_site_id);
2141 p6_a5 := rosetta_g_miss_num_map(ddx_ppydv_rec.payment_term_id);
2142 p6_a6 := ddx_ppydv_rec.payment_method_code;
2143 p6_a7 := ddx_ppydv_rec.pay_group_code;
2144 p6_a8 := rosetta_g_miss_num_map(ddx_ppydv_rec.payment_hdr_id);
2145 p6_a9 := ddx_ppydv_rec.payment_start_date;
2146 p6_a10 := ddx_ppydv_rec.payment_frequency;
2147 p6_a11 := rosetta_g_miss_num_map(ddx_ppydv_rec.remit_days);
2148 p6_a12 := ddx_ppydv_rec.disbursement_basis;
2149 p6_a13 := rosetta_g_miss_num_map(ddx_ppydv_rec.disbursement_fixed_amount);
2150 p6_a14 := rosetta_g_miss_num_map(ddx_ppydv_rec.disbursement_percent);
2151 p6_a15 := ddx_ppydv_rec.processing_fee_basis;
2152 p6_a16 := rosetta_g_miss_num_map(ddx_ppydv_rec.processing_fee_fixed_amount);
2153 p6_a17 := rosetta_g_miss_num_map(ddx_ppydv_rec.processing_fee_percent);
2154 p6_a18 := ddx_ppydv_rec.payment_basis;
2155 p6_a19 := ddx_ppydv_rec.attribute_category;
2156 p6_a20 := ddx_ppydv_rec.attribute1;
2157 p6_a21 := ddx_ppydv_rec.attribute2;
2158 p6_a22 := ddx_ppydv_rec.attribute3;
2159 p6_a23 := ddx_ppydv_rec.attribute4;
2160 p6_a24 := ddx_ppydv_rec.attribute5;
2161 p6_a25 := ddx_ppydv_rec.attribute6;
2162 p6_a26 := ddx_ppydv_rec.attribute7;
2163 p6_a27 := ddx_ppydv_rec.attribute8;
2164 p6_a28 := ddx_ppydv_rec.attribute9;
2165 p6_a29 := ddx_ppydv_rec.attribute10;
2166 p6_a30 := ddx_ppydv_rec.attribute11;
2167 p6_a31 := ddx_ppydv_rec.attribute12;
2168 p6_a32 := ddx_ppydv_rec.attribute13;
2169 p6_a33 := ddx_ppydv_rec.attribute14;
2170 p6_a34 := ddx_ppydv_rec.attribute15;
2171 p6_a35 := rosetta_g_miss_num_map(ddx_ppydv_rec.created_by);
2172 p6_a36 := ddx_ppydv_rec.creation_date;
2173 p6_a37 := rosetta_g_miss_num_map(ddx_ppydv_rec.last_updated_by);
2174 p6_a38 := ddx_ppydv_rec.last_update_date;
2175 p6_a39 := rosetta_g_miss_num_map(ddx_ppydv_rec.last_update_login);
2176 end;
2177
2178 procedure update_row(p_api_version NUMBER
2179 , p_init_msg_list VARCHAR2
2180 , x_return_status out nocopy VARCHAR2
2181 , x_msg_count out nocopy NUMBER
2182 , x_msg_data out nocopy VARCHAR2
2183 , p5_a0 JTF_NUMBER_TABLE
2184 , p5_a1 JTF_NUMBER_TABLE
2185 , p5_a2 JTF_NUMBER_TABLE
2186 , p5_a3 JTF_NUMBER_TABLE
2187 , p5_a4 JTF_NUMBER_TABLE
2188 , p5_a5 JTF_NUMBER_TABLE
2189 , p5_a6 JTF_VARCHAR2_TABLE_100
2190 , p5_a7 JTF_VARCHAR2_TABLE_100
2191 , p5_a8 JTF_NUMBER_TABLE
2192 , p5_a9 JTF_DATE_TABLE
2193 , p5_a10 JTF_VARCHAR2_TABLE_100
2194 , p5_a11 JTF_NUMBER_TABLE
2195 , p5_a12 JTF_VARCHAR2_TABLE_100
2196 , p5_a13 JTF_NUMBER_TABLE
2197 , p5_a14 JTF_NUMBER_TABLE
2198 , p5_a15 JTF_VARCHAR2_TABLE_100
2199 , p5_a16 JTF_NUMBER_TABLE
2200 , p5_a17 JTF_NUMBER_TABLE
2201 , p5_a18 JTF_VARCHAR2_TABLE_100
2202 , p5_a19 JTF_VARCHAR2_TABLE_100
2203 , p5_a20 JTF_VARCHAR2_TABLE_500
2204 , p5_a21 JTF_VARCHAR2_TABLE_500
2205 , p5_a22 JTF_VARCHAR2_TABLE_500
2206 , p5_a23 JTF_VARCHAR2_TABLE_500
2207 , p5_a24 JTF_VARCHAR2_TABLE_500
2208 , p5_a25 JTF_VARCHAR2_TABLE_500
2209 , p5_a26 JTF_VARCHAR2_TABLE_500
2210 , p5_a27 JTF_VARCHAR2_TABLE_500
2211 , p5_a28 JTF_VARCHAR2_TABLE_500
2212 , p5_a29 JTF_VARCHAR2_TABLE_500
2213 , p5_a30 JTF_VARCHAR2_TABLE_500
2214 , p5_a31 JTF_VARCHAR2_TABLE_500
2215 , p5_a32 JTF_VARCHAR2_TABLE_500
2216 , p5_a33 JTF_VARCHAR2_TABLE_500
2217 , p5_a34 JTF_VARCHAR2_TABLE_500
2218 , p5_a35 JTF_NUMBER_TABLE
2219 , p5_a36 JTF_DATE_TABLE
2220 , p5_a37 JTF_NUMBER_TABLE
2221 , p5_a38 JTF_DATE_TABLE
2222 , p5_a39 JTF_NUMBER_TABLE
2223 , p6_a0 out nocopy JTF_NUMBER_TABLE
2224 , p6_a1 out nocopy JTF_NUMBER_TABLE
2225 , p6_a2 out nocopy JTF_NUMBER_TABLE
2226 , p6_a3 out nocopy JTF_NUMBER_TABLE
2227 , p6_a4 out nocopy JTF_NUMBER_TABLE
2228 , p6_a5 out nocopy JTF_NUMBER_TABLE
2229 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
2230 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
2231 , p6_a8 out nocopy JTF_NUMBER_TABLE
2232 , p6_a9 out nocopy JTF_DATE_TABLE
2233 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
2234 , p6_a11 out nocopy JTF_NUMBER_TABLE
2235 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
2236 , p6_a13 out nocopy JTF_NUMBER_TABLE
2237 , p6_a14 out nocopy JTF_NUMBER_TABLE
2238 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
2239 , p6_a16 out nocopy JTF_NUMBER_TABLE
2240 , p6_a17 out nocopy JTF_NUMBER_TABLE
2241 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
2242 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
2243 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
2244 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
2245 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
2246 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
2247 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
2248 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
2249 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
2250 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
2251 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
2252 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
2253 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
2254 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
2255 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
2256 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
2257 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
2258 , p6_a35 out nocopy JTF_NUMBER_TABLE
2259 , p6_a36 out nocopy JTF_DATE_TABLE
2260 , p6_a37 out nocopy JTF_NUMBER_TABLE
2261 , p6_a38 out nocopy JTF_DATE_TABLE
2262 , p6_a39 out nocopy JTF_NUMBER_TABLE
2263 , p7_a0 in out nocopy JTF_NUMBER_TABLE
2264 , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_100
2265 , p7_a2 in out nocopy JTF_NUMBER_TABLE
2266 , p7_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
2267 , p7_a4 in out nocopy JTF_NUMBER_TABLE
2268 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
2269 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
2270 )
2271
2272 as
2273 ddp_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
2274 ddx_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
2275 ddpx_error_tbl okl_api.error_tbl_type;
2276 ddindx binary_integer; indx binary_integer;
2277 begin
2278
2279 -- copy data to the local IN or IN-OUT args, if any
2280
2281
2282
2283
2284
2285 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_ppydv_tbl, p5_a0
2286 , p5_a1
2287 , p5_a2
2288 , p5_a3
2289 , p5_a4
2290 , p5_a5
2291 , p5_a6
2292 , p5_a7
2293 , p5_a8
2294 , p5_a9
2295 , p5_a10
2296 , p5_a11
2297 , p5_a12
2298 , p5_a13
2299 , p5_a14
2300 , p5_a15
2301 , p5_a16
2302 , p5_a17
2303 , p5_a18
2304 , p5_a19
2305 , p5_a20
2306 , p5_a21
2307 , p5_a22
2308 , p5_a23
2309 , p5_a24
2310 , p5_a25
2311 , p5_a26
2312 , p5_a27
2313 , p5_a28
2314 , p5_a29
2315 , p5_a30
2316 , p5_a31
2317 , p5_a32
2318 , p5_a33
2319 , p5_a34
2320 , p5_a35
2321 , p5_a36
2322 , p5_a37
2323 , p5_a38
2324 , p5_a39
2325 );
2326
2327
2328 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p7_a0
2329 , p7_a1
2330 , p7_a2
2331 , p7_a3
2332 , p7_a4
2333 , p7_a5
2334 , p7_a6
2335 );
2336
2337 -- here's the delegated call to the old PL/SQL routine
2338 okl_pyd_pvt.update_row(p_api_version,
2339 p_init_msg_list,
2340 x_return_status,
2341 x_msg_count,
2342 x_msg_data,
2343 ddp_ppydv_tbl,
2344 ddx_ppydv_tbl,
2345 ddpx_error_tbl);
2346
2347 -- copy data back from the local variables to OUT or IN-OUT args, if any
2348
2349
2350
2351
2352
2353
2354 okl_pyd_pvt_w.rosetta_table_copy_out_p2(ddx_ppydv_tbl, p6_a0
2355 , p6_a1
2356 , p6_a2
2357 , p6_a3
2358 , p6_a4
2359 , p6_a5
2360 , p6_a6
2361 , p6_a7
2362 , p6_a8
2363 , p6_a9
2364 , p6_a10
2365 , p6_a11
2366 , p6_a12
2367 , p6_a13
2368 , p6_a14
2369 , p6_a15
2370 , p6_a16
2371 , p6_a17
2372 , p6_a18
2373 , p6_a19
2374 , p6_a20
2375 , p6_a21
2376 , p6_a22
2377 , p6_a23
2378 , p6_a24
2379 , p6_a25
2380 , p6_a26
2381 , p6_a27
2382 , p6_a28
2383 , p6_a29
2384 , p6_a30
2385 , p6_a31
2386 , p6_a32
2387 , p6_a33
2388 , p6_a34
2389 , p6_a35
2390 , p6_a36
2391 , p6_a37
2392 , p6_a38
2393 , p6_a39
2394 );
2395
2396 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p7_a0
2397 , p7_a1
2398 , p7_a2
2399 , p7_a3
2400 , p7_a4
2401 , p7_a5
2402 , p7_a6
2403 );
2404 end;
2405
2406 procedure update_row(p_api_version NUMBER
2407 , p_init_msg_list VARCHAR2
2408 , x_return_status out nocopy VARCHAR2
2409 , x_msg_count out nocopy NUMBER
2410 , x_msg_data out nocopy VARCHAR2
2411 , p5_a0 JTF_NUMBER_TABLE
2412 , p5_a1 JTF_NUMBER_TABLE
2413 , p5_a2 JTF_NUMBER_TABLE
2414 , p5_a3 JTF_NUMBER_TABLE
2415 , p5_a4 JTF_NUMBER_TABLE
2416 , p5_a5 JTF_NUMBER_TABLE
2417 , p5_a6 JTF_VARCHAR2_TABLE_100
2418 , p5_a7 JTF_VARCHAR2_TABLE_100
2419 , p5_a8 JTF_NUMBER_TABLE
2420 , p5_a9 JTF_DATE_TABLE
2421 , p5_a10 JTF_VARCHAR2_TABLE_100
2422 , p5_a11 JTF_NUMBER_TABLE
2423 , p5_a12 JTF_VARCHAR2_TABLE_100
2424 , p5_a13 JTF_NUMBER_TABLE
2425 , p5_a14 JTF_NUMBER_TABLE
2426 , p5_a15 JTF_VARCHAR2_TABLE_100
2427 , p5_a16 JTF_NUMBER_TABLE
2428 , p5_a17 JTF_NUMBER_TABLE
2429 , p5_a18 JTF_VARCHAR2_TABLE_100
2430 , p5_a19 JTF_VARCHAR2_TABLE_100
2431 , p5_a20 JTF_VARCHAR2_TABLE_500
2432 , p5_a21 JTF_VARCHAR2_TABLE_500
2433 , p5_a22 JTF_VARCHAR2_TABLE_500
2434 , p5_a23 JTF_VARCHAR2_TABLE_500
2435 , p5_a24 JTF_VARCHAR2_TABLE_500
2436 , p5_a25 JTF_VARCHAR2_TABLE_500
2437 , p5_a26 JTF_VARCHAR2_TABLE_500
2438 , p5_a27 JTF_VARCHAR2_TABLE_500
2439 , p5_a28 JTF_VARCHAR2_TABLE_500
2440 , p5_a29 JTF_VARCHAR2_TABLE_500
2441 , p5_a30 JTF_VARCHAR2_TABLE_500
2442 , p5_a31 JTF_VARCHAR2_TABLE_500
2443 , p5_a32 JTF_VARCHAR2_TABLE_500
2444 , p5_a33 JTF_VARCHAR2_TABLE_500
2445 , p5_a34 JTF_VARCHAR2_TABLE_500
2446 , p5_a35 JTF_NUMBER_TABLE
2447 , p5_a36 JTF_DATE_TABLE
2448 , p5_a37 JTF_NUMBER_TABLE
2449 , p5_a38 JTF_DATE_TABLE
2450 , p5_a39 JTF_NUMBER_TABLE
2451 , p6_a0 out nocopy JTF_NUMBER_TABLE
2452 , p6_a1 out nocopy JTF_NUMBER_TABLE
2453 , p6_a2 out nocopy JTF_NUMBER_TABLE
2454 , p6_a3 out nocopy JTF_NUMBER_TABLE
2455 , p6_a4 out nocopy JTF_NUMBER_TABLE
2456 , p6_a5 out nocopy JTF_NUMBER_TABLE
2457 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
2458 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
2459 , p6_a8 out nocopy JTF_NUMBER_TABLE
2460 , p6_a9 out nocopy JTF_DATE_TABLE
2461 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
2462 , p6_a11 out nocopy JTF_NUMBER_TABLE
2463 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
2464 , p6_a13 out nocopy JTF_NUMBER_TABLE
2465 , p6_a14 out nocopy JTF_NUMBER_TABLE
2466 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
2467 , p6_a16 out nocopy JTF_NUMBER_TABLE
2468 , p6_a17 out nocopy JTF_NUMBER_TABLE
2469 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
2470 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
2471 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
2472 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
2473 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
2474 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
2475 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
2476 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
2477 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
2478 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
2479 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
2480 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
2481 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
2482 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
2483 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
2484 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
2485 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
2486 , p6_a35 out nocopy JTF_NUMBER_TABLE
2487 , p6_a36 out nocopy JTF_DATE_TABLE
2488 , p6_a37 out nocopy JTF_NUMBER_TABLE
2489 , p6_a38 out nocopy JTF_DATE_TABLE
2490 , p6_a39 out nocopy JTF_NUMBER_TABLE
2491 )
2492
2493 as
2494 ddp_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
2495 ddx_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
2496 ddindx binary_integer; indx binary_integer;
2497 begin
2498
2499 -- copy data to the local IN or IN-OUT args, if any
2500
2501
2502
2503
2504
2505 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_ppydv_tbl, p5_a0
2506 , p5_a1
2507 , p5_a2
2508 , p5_a3
2509 , p5_a4
2510 , p5_a5
2511 , p5_a6
2512 , p5_a7
2513 , p5_a8
2514 , p5_a9
2515 , p5_a10
2516 , p5_a11
2517 , p5_a12
2518 , p5_a13
2519 , p5_a14
2520 , p5_a15
2521 , p5_a16
2522 , p5_a17
2523 , p5_a18
2524 , p5_a19
2525 , p5_a20
2526 , p5_a21
2527 , p5_a22
2528 , p5_a23
2529 , p5_a24
2530 , p5_a25
2531 , p5_a26
2532 , p5_a27
2533 , p5_a28
2534 , p5_a29
2535 , p5_a30
2536 , p5_a31
2537 , p5_a32
2538 , p5_a33
2539 , p5_a34
2540 , p5_a35
2541 , p5_a36
2542 , p5_a37
2543 , p5_a38
2544 , p5_a39
2545 );
2546
2547
2548 -- here's the delegated call to the old PL/SQL routine
2549 okl_pyd_pvt.update_row(p_api_version,
2550 p_init_msg_list,
2551 x_return_status,
2552 x_msg_count,
2553 x_msg_data,
2554 ddp_ppydv_tbl,
2555 ddx_ppydv_tbl);
2556
2557 -- copy data back from the local variables to OUT or IN-OUT args, if any
2558
2559
2560
2561
2562
2563
2564 okl_pyd_pvt_w.rosetta_table_copy_out_p2(ddx_ppydv_tbl, p6_a0
2565 , p6_a1
2566 , p6_a2
2567 , p6_a3
2568 , p6_a4
2569 , p6_a5
2570 , p6_a6
2571 , p6_a7
2572 , p6_a8
2573 , p6_a9
2574 , p6_a10
2575 , p6_a11
2576 , p6_a12
2577 , p6_a13
2578 , p6_a14
2579 , p6_a15
2580 , p6_a16
2581 , p6_a17
2582 , p6_a18
2583 , p6_a19
2584 , p6_a20
2585 , p6_a21
2586 , p6_a22
2587 , p6_a23
2588 , p6_a24
2589 , p6_a25
2590 , p6_a26
2591 , p6_a27
2592 , p6_a28
2593 , p6_a29
2594 , p6_a30
2595 , p6_a31
2596 , p6_a32
2597 , p6_a33
2598 , p6_a34
2599 , p6_a35
2600 , p6_a36
2601 , p6_a37
2602 , p6_a38
2603 , p6_a39
2604 );
2605 end;
2606
2607 procedure delete_row(p_api_version NUMBER
2608 , p_init_msg_list VARCHAR2
2609 , x_return_status out nocopy VARCHAR2
2610 , x_msg_count out nocopy NUMBER
2611 , x_msg_data out nocopy VARCHAR2
2612 , p5_a0 NUMBER := 0-1962.0724
2613 , p5_a1 NUMBER := 0-1962.0724
2614 , p5_a2 NUMBER := 0-1962.0724
2615 , p5_a3 NUMBER := 0-1962.0724
2616 , p5_a4 NUMBER := 0-1962.0724
2617 , p5_a5 NUMBER := 0-1962.0724
2618 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2619 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
2620 , p5_a8 NUMBER := 0-1962.0724
2621 , p5_a9 DATE := fnd_api.g_miss_date
2622 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2623 , p5_a11 NUMBER := 0-1962.0724
2624 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2625 , p5_a13 NUMBER := 0-1962.0724
2626 , p5_a14 NUMBER := 0-1962.0724
2627 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2628 , p5_a16 NUMBER := 0-1962.0724
2629 , p5_a17 NUMBER := 0-1962.0724
2630 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2631 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2632 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2633 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2634 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2635 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2636 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2637 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2638 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2639 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2640 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2641 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
2642 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
2643 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
2644 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
2645 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
2646 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
2647 , p5_a35 NUMBER := 0-1962.0724
2648 , p5_a36 DATE := fnd_api.g_miss_date
2649 , p5_a37 NUMBER := 0-1962.0724
2650 , p5_a38 DATE := fnd_api.g_miss_date
2651 , p5_a39 NUMBER := 0-1962.0724
2652 )
2653
2654 as
2655 ddp_ppydv_rec okl_pyd_pvt.ppydv_rec_type;
2656 ddindx binary_integer; indx binary_integer;
2657 begin
2658
2659 -- copy data to the local IN or IN-OUT args, if any
2660
2661
2662
2663
2664
2665 ddp_ppydv_rec.id := rosetta_g_miss_num_map(p5_a0);
2666 ddp_ppydv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2667 ddp_ppydv_rec.cpl_id := rosetta_g_miss_num_map(p5_a2);
2668 ddp_ppydv_rec.vendor_id := rosetta_g_miss_num_map(p5_a3);
2669 ddp_ppydv_rec.pay_site_id := rosetta_g_miss_num_map(p5_a4);
2670 ddp_ppydv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a5);
2671 ddp_ppydv_rec.payment_method_code := p5_a6;
2672 ddp_ppydv_rec.pay_group_code := p5_a7;
2673 ddp_ppydv_rec.payment_hdr_id := rosetta_g_miss_num_map(p5_a8);
2674 ddp_ppydv_rec.payment_start_date := rosetta_g_miss_date_in_map(p5_a9);
2675 ddp_ppydv_rec.payment_frequency := p5_a10;
2676 ddp_ppydv_rec.remit_days := rosetta_g_miss_num_map(p5_a11);
2677 ddp_ppydv_rec.disbursement_basis := p5_a12;
2678 ddp_ppydv_rec.disbursement_fixed_amount := rosetta_g_miss_num_map(p5_a13);
2679 ddp_ppydv_rec.disbursement_percent := rosetta_g_miss_num_map(p5_a14);
2680 ddp_ppydv_rec.processing_fee_basis := p5_a15;
2681 ddp_ppydv_rec.processing_fee_fixed_amount := rosetta_g_miss_num_map(p5_a16);
2682 ddp_ppydv_rec.processing_fee_percent := rosetta_g_miss_num_map(p5_a17);
2683 ddp_ppydv_rec.payment_basis := p5_a18;
2684 ddp_ppydv_rec.attribute_category := p5_a19;
2685 ddp_ppydv_rec.attribute1 := p5_a20;
2686 ddp_ppydv_rec.attribute2 := p5_a21;
2687 ddp_ppydv_rec.attribute3 := p5_a22;
2688 ddp_ppydv_rec.attribute4 := p5_a23;
2689 ddp_ppydv_rec.attribute5 := p5_a24;
2690 ddp_ppydv_rec.attribute6 := p5_a25;
2691 ddp_ppydv_rec.attribute7 := p5_a26;
2692 ddp_ppydv_rec.attribute8 := p5_a27;
2693 ddp_ppydv_rec.attribute9 := p5_a28;
2694 ddp_ppydv_rec.attribute10 := p5_a29;
2695 ddp_ppydv_rec.attribute11 := p5_a30;
2696 ddp_ppydv_rec.attribute12 := p5_a31;
2697 ddp_ppydv_rec.attribute13 := p5_a32;
2698 ddp_ppydv_rec.attribute14 := p5_a33;
2699 ddp_ppydv_rec.attribute15 := p5_a34;
2700 ddp_ppydv_rec.created_by := rosetta_g_miss_num_map(p5_a35);
2701 ddp_ppydv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a36);
2702 ddp_ppydv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a37);
2703 ddp_ppydv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a38);
2704 ddp_ppydv_rec.last_update_login := rosetta_g_miss_num_map(p5_a39);
2705
2706 -- here's the delegated call to the old PL/SQL routine
2707 okl_pyd_pvt.delete_row(p_api_version,
2708 p_init_msg_list,
2709 x_return_status,
2710 x_msg_count,
2711 x_msg_data,
2712 ddp_ppydv_rec);
2713
2714 -- copy data back from the local variables to OUT or IN-OUT args, if any
2715
2716
2717
2718
2719
2720 end;
2721
2722 procedure delete_row(p_api_version NUMBER
2723 , p_init_msg_list VARCHAR2
2724 , x_return_status out nocopy VARCHAR2
2725 , x_msg_count out nocopy NUMBER
2726 , x_msg_data out nocopy VARCHAR2
2727 , p5_a0 JTF_NUMBER_TABLE
2728 , p5_a1 JTF_NUMBER_TABLE
2729 , p5_a2 JTF_NUMBER_TABLE
2730 , p5_a3 JTF_NUMBER_TABLE
2731 , p5_a4 JTF_NUMBER_TABLE
2732 , p5_a5 JTF_NUMBER_TABLE
2733 , p5_a6 JTF_VARCHAR2_TABLE_100
2734 , p5_a7 JTF_VARCHAR2_TABLE_100
2735 , p5_a8 JTF_NUMBER_TABLE
2736 , p5_a9 JTF_DATE_TABLE
2737 , p5_a10 JTF_VARCHAR2_TABLE_100
2738 , p5_a11 JTF_NUMBER_TABLE
2739 , p5_a12 JTF_VARCHAR2_TABLE_100
2740 , p5_a13 JTF_NUMBER_TABLE
2741 , p5_a14 JTF_NUMBER_TABLE
2742 , p5_a15 JTF_VARCHAR2_TABLE_100
2743 , p5_a16 JTF_NUMBER_TABLE
2744 , p5_a17 JTF_NUMBER_TABLE
2745 , p5_a18 JTF_VARCHAR2_TABLE_100
2746 , p5_a19 JTF_VARCHAR2_TABLE_100
2747 , p5_a20 JTF_VARCHAR2_TABLE_500
2748 , p5_a21 JTF_VARCHAR2_TABLE_500
2749 , p5_a22 JTF_VARCHAR2_TABLE_500
2750 , p5_a23 JTF_VARCHAR2_TABLE_500
2751 , p5_a24 JTF_VARCHAR2_TABLE_500
2752 , p5_a25 JTF_VARCHAR2_TABLE_500
2753 , p5_a26 JTF_VARCHAR2_TABLE_500
2754 , p5_a27 JTF_VARCHAR2_TABLE_500
2755 , p5_a28 JTF_VARCHAR2_TABLE_500
2756 , p5_a29 JTF_VARCHAR2_TABLE_500
2757 , p5_a30 JTF_VARCHAR2_TABLE_500
2758 , p5_a31 JTF_VARCHAR2_TABLE_500
2759 , p5_a32 JTF_VARCHAR2_TABLE_500
2760 , p5_a33 JTF_VARCHAR2_TABLE_500
2761 , p5_a34 JTF_VARCHAR2_TABLE_500
2762 , p5_a35 JTF_NUMBER_TABLE
2763 , p5_a36 JTF_DATE_TABLE
2764 , p5_a37 JTF_NUMBER_TABLE
2765 , p5_a38 JTF_DATE_TABLE
2766 , p5_a39 JTF_NUMBER_TABLE
2767 , p6_a0 in out nocopy JTF_NUMBER_TABLE
2768 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
2769 , p6_a2 in out nocopy JTF_NUMBER_TABLE
2770 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
2771 , p6_a4 in out nocopy JTF_NUMBER_TABLE
2772 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
2773 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
2774 )
2775
2776 as
2777 ddp_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
2778 ddpx_error_tbl okl_api.error_tbl_type;
2779 ddindx binary_integer; indx binary_integer;
2780 begin
2781
2782 -- copy data to the local IN or IN-OUT args, if any
2783
2784
2785
2786
2787
2788 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_ppydv_tbl, p5_a0
2789 , p5_a1
2790 , p5_a2
2791 , p5_a3
2792 , p5_a4
2793 , p5_a5
2794 , p5_a6
2795 , p5_a7
2796 , p5_a8
2797 , p5_a9
2798 , p5_a10
2799 , p5_a11
2800 , p5_a12
2801 , p5_a13
2802 , p5_a14
2803 , p5_a15
2804 , p5_a16
2805 , p5_a17
2806 , p5_a18
2807 , p5_a19
2808 , p5_a20
2809 , p5_a21
2810 , p5_a22
2811 , p5_a23
2812 , p5_a24
2813 , p5_a25
2814 , p5_a26
2815 , p5_a27
2816 , p5_a28
2817 , p5_a29
2818 , p5_a30
2819 , p5_a31
2820 , p5_a32
2821 , p5_a33
2822 , p5_a34
2823 , p5_a35
2824 , p5_a36
2825 , p5_a37
2826 , p5_a38
2827 , p5_a39
2828 );
2829
2830 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p6_a0
2831 , p6_a1
2832 , p6_a2
2833 , p6_a3
2834 , p6_a4
2835 , p6_a5
2836 , p6_a6
2837 );
2838
2839 -- here's the delegated call to the old PL/SQL routine
2840 okl_pyd_pvt.delete_row(p_api_version,
2841 p_init_msg_list,
2842 x_return_status,
2843 x_msg_count,
2844 x_msg_data,
2845 ddp_ppydv_tbl,
2846 ddpx_error_tbl);
2847
2848 -- copy data back from the local variables to OUT or IN-OUT args, if any
2849
2850
2851
2852
2853
2854
2855 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p6_a0
2856 , p6_a1
2857 , p6_a2
2858 , p6_a3
2859 , p6_a4
2860 , p6_a5
2861 , p6_a6
2862 );
2863 end;
2864
2865 procedure delete_row(p_api_version NUMBER
2866 , p_init_msg_list VARCHAR2
2867 , x_return_status out nocopy VARCHAR2
2868 , x_msg_count out nocopy NUMBER
2869 , x_msg_data out nocopy VARCHAR2
2870 , p5_a0 JTF_NUMBER_TABLE
2871 , p5_a1 JTF_NUMBER_TABLE
2872 , p5_a2 JTF_NUMBER_TABLE
2873 , p5_a3 JTF_NUMBER_TABLE
2874 , p5_a4 JTF_NUMBER_TABLE
2875 , p5_a5 JTF_NUMBER_TABLE
2876 , p5_a6 JTF_VARCHAR2_TABLE_100
2877 , p5_a7 JTF_VARCHAR2_TABLE_100
2878 , p5_a8 JTF_NUMBER_TABLE
2879 , p5_a9 JTF_DATE_TABLE
2880 , p5_a10 JTF_VARCHAR2_TABLE_100
2881 , p5_a11 JTF_NUMBER_TABLE
2882 , p5_a12 JTF_VARCHAR2_TABLE_100
2883 , p5_a13 JTF_NUMBER_TABLE
2884 , p5_a14 JTF_NUMBER_TABLE
2885 , p5_a15 JTF_VARCHAR2_TABLE_100
2886 , p5_a16 JTF_NUMBER_TABLE
2887 , p5_a17 JTF_NUMBER_TABLE
2888 , p5_a18 JTF_VARCHAR2_TABLE_100
2889 , p5_a19 JTF_VARCHAR2_TABLE_100
2890 , p5_a20 JTF_VARCHAR2_TABLE_500
2891 , p5_a21 JTF_VARCHAR2_TABLE_500
2892 , p5_a22 JTF_VARCHAR2_TABLE_500
2893 , p5_a23 JTF_VARCHAR2_TABLE_500
2894 , p5_a24 JTF_VARCHAR2_TABLE_500
2895 , p5_a25 JTF_VARCHAR2_TABLE_500
2896 , p5_a26 JTF_VARCHAR2_TABLE_500
2897 , p5_a27 JTF_VARCHAR2_TABLE_500
2898 , p5_a28 JTF_VARCHAR2_TABLE_500
2899 , p5_a29 JTF_VARCHAR2_TABLE_500
2900 , p5_a30 JTF_VARCHAR2_TABLE_500
2901 , p5_a31 JTF_VARCHAR2_TABLE_500
2902 , p5_a32 JTF_VARCHAR2_TABLE_500
2903 , p5_a33 JTF_VARCHAR2_TABLE_500
2904 , p5_a34 JTF_VARCHAR2_TABLE_500
2905 , p5_a35 JTF_NUMBER_TABLE
2906 , p5_a36 JTF_DATE_TABLE
2907 , p5_a37 JTF_NUMBER_TABLE
2908 , p5_a38 JTF_DATE_TABLE
2909 , p5_a39 JTF_NUMBER_TABLE
2910 )
2911
2912 as
2913 ddp_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
2914 ddindx binary_integer; indx binary_integer;
2915 begin
2916
2917 -- copy data to the local IN or IN-OUT args, if any
2918
2919
2920
2921
2922
2923 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_ppydv_tbl, p5_a0
2924 , p5_a1
2925 , p5_a2
2926 , p5_a3
2927 , p5_a4
2928 , p5_a5
2929 , p5_a6
2930 , p5_a7
2931 , p5_a8
2932 , p5_a9
2933 , p5_a10
2934 , p5_a11
2935 , p5_a12
2936 , p5_a13
2937 , p5_a14
2938 , p5_a15
2939 , p5_a16
2940 , p5_a17
2941 , p5_a18
2942 , p5_a19
2943 , p5_a20
2944 , p5_a21
2945 , p5_a22
2946 , p5_a23
2947 , p5_a24
2948 , p5_a25
2949 , p5_a26
2950 , p5_a27
2951 , p5_a28
2952 , p5_a29
2953 , p5_a30
2954 , p5_a31
2955 , p5_a32
2956 , p5_a33
2957 , p5_a34
2958 , p5_a35
2959 , p5_a36
2960 , p5_a37
2961 , p5_a38
2962 , p5_a39
2963 );
2964
2965 -- here's the delegated call to the old PL/SQL routine
2966 okl_pyd_pvt.delete_row(p_api_version,
2967 p_init_msg_list,
2968 x_return_status,
2969 x_msg_count,
2970 x_msg_data,
2971 ddp_ppydv_tbl);
2972
2973 -- copy data back from the local variables to OUT or IN-OUT args, if any
2974
2975
2976
2977
2978
2979 end;
2980
2981 procedure validate_row(p_api_version NUMBER
2982 , p_init_msg_list VARCHAR2
2983 , x_return_status out nocopy VARCHAR2
2984 , x_msg_count out nocopy NUMBER
2985 , x_msg_data out nocopy VARCHAR2
2986 , p5_a0 NUMBER := 0-1962.0724
2987 , p5_a1 NUMBER := 0-1962.0724
2988 , p5_a2 NUMBER := 0-1962.0724
2989 , p5_a3 NUMBER := 0-1962.0724
2990 , p5_a4 NUMBER := 0-1962.0724
2991 , p5_a5 NUMBER := 0-1962.0724
2992 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2993 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
2994 , p5_a8 NUMBER := 0-1962.0724
2995 , p5_a9 DATE := fnd_api.g_miss_date
2996 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2997 , p5_a11 NUMBER := 0-1962.0724
2998 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2999 , p5_a13 NUMBER := 0-1962.0724
3000 , p5_a14 NUMBER := 0-1962.0724
3001 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
3002 , p5_a16 NUMBER := 0-1962.0724
3003 , p5_a17 NUMBER := 0-1962.0724
3004 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
3005 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
3006 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
3007 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
3008 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
3009 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
3010 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
3011 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
3012 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
3013 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
3014 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
3015 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
3016 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
3017 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
3018 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
3019 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
3020 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
3021 , p5_a35 NUMBER := 0-1962.0724
3022 , p5_a36 DATE := fnd_api.g_miss_date
3023 , p5_a37 NUMBER := 0-1962.0724
3024 , p5_a38 DATE := fnd_api.g_miss_date
3025 , p5_a39 NUMBER := 0-1962.0724
3026 )
3027
3028 as
3029 ddp_ppydv_rec okl_pyd_pvt.ppydv_rec_type;
3030 ddindx binary_integer; indx binary_integer;
3031 begin
3032
3033 -- copy data to the local IN or IN-OUT args, if any
3034
3035
3036
3037
3038
3039 ddp_ppydv_rec.id := rosetta_g_miss_num_map(p5_a0);
3040 ddp_ppydv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
3041 ddp_ppydv_rec.cpl_id := rosetta_g_miss_num_map(p5_a2);
3042 ddp_ppydv_rec.vendor_id := rosetta_g_miss_num_map(p5_a3);
3043 ddp_ppydv_rec.pay_site_id := rosetta_g_miss_num_map(p5_a4);
3044 ddp_ppydv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a5);
3045 ddp_ppydv_rec.payment_method_code := p5_a6;
3046 ddp_ppydv_rec.pay_group_code := p5_a7;
3047 ddp_ppydv_rec.payment_hdr_id := rosetta_g_miss_num_map(p5_a8);
3048 ddp_ppydv_rec.payment_start_date := rosetta_g_miss_date_in_map(p5_a9);
3049 ddp_ppydv_rec.payment_frequency := p5_a10;
3050 ddp_ppydv_rec.remit_days := rosetta_g_miss_num_map(p5_a11);
3051 ddp_ppydv_rec.disbursement_basis := p5_a12;
3052 ddp_ppydv_rec.disbursement_fixed_amount := rosetta_g_miss_num_map(p5_a13);
3053 ddp_ppydv_rec.disbursement_percent := rosetta_g_miss_num_map(p5_a14);
3054 ddp_ppydv_rec.processing_fee_basis := p5_a15;
3055 ddp_ppydv_rec.processing_fee_fixed_amount := rosetta_g_miss_num_map(p5_a16);
3056 ddp_ppydv_rec.processing_fee_percent := rosetta_g_miss_num_map(p5_a17);
3057 ddp_ppydv_rec.payment_basis := p5_a18;
3058 ddp_ppydv_rec.attribute_category := p5_a19;
3059 ddp_ppydv_rec.attribute1 := p5_a20;
3060 ddp_ppydv_rec.attribute2 := p5_a21;
3061 ddp_ppydv_rec.attribute3 := p5_a22;
3062 ddp_ppydv_rec.attribute4 := p5_a23;
3063 ddp_ppydv_rec.attribute5 := p5_a24;
3064 ddp_ppydv_rec.attribute6 := p5_a25;
3065 ddp_ppydv_rec.attribute7 := p5_a26;
3066 ddp_ppydv_rec.attribute8 := p5_a27;
3067 ddp_ppydv_rec.attribute9 := p5_a28;
3068 ddp_ppydv_rec.attribute10 := p5_a29;
3069 ddp_ppydv_rec.attribute11 := p5_a30;
3070 ddp_ppydv_rec.attribute12 := p5_a31;
3071 ddp_ppydv_rec.attribute13 := p5_a32;
3072 ddp_ppydv_rec.attribute14 := p5_a33;
3073 ddp_ppydv_rec.attribute15 := p5_a34;
3074 ddp_ppydv_rec.created_by := rosetta_g_miss_num_map(p5_a35);
3075 ddp_ppydv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a36);
3076 ddp_ppydv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a37);
3077 ddp_ppydv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a38);
3078 ddp_ppydv_rec.last_update_login := rosetta_g_miss_num_map(p5_a39);
3079
3080 -- here's the delegated call to the old PL/SQL routine
3081 okl_pyd_pvt.validate_row(p_api_version,
3082 p_init_msg_list,
3083 x_return_status,
3084 x_msg_count,
3085 x_msg_data,
3086 ddp_ppydv_rec);
3087
3088 -- copy data back from the local variables to OUT or IN-OUT args, if any
3089
3090
3091
3092
3093
3094 end;
3095
3096 procedure validate_row(p_api_version NUMBER
3097 , p_init_msg_list VARCHAR2
3098 , x_return_status out nocopy VARCHAR2
3099 , x_msg_count out nocopy NUMBER
3100 , x_msg_data out nocopy VARCHAR2
3101 , p5_a0 JTF_NUMBER_TABLE
3102 , p5_a1 JTF_NUMBER_TABLE
3103 , p5_a2 JTF_NUMBER_TABLE
3104 , p5_a3 JTF_NUMBER_TABLE
3105 , p5_a4 JTF_NUMBER_TABLE
3106 , p5_a5 JTF_NUMBER_TABLE
3107 , p5_a6 JTF_VARCHAR2_TABLE_100
3108 , p5_a7 JTF_VARCHAR2_TABLE_100
3109 , p5_a8 JTF_NUMBER_TABLE
3110 , p5_a9 JTF_DATE_TABLE
3111 , p5_a10 JTF_VARCHAR2_TABLE_100
3112 , p5_a11 JTF_NUMBER_TABLE
3113 , p5_a12 JTF_VARCHAR2_TABLE_100
3114 , p5_a13 JTF_NUMBER_TABLE
3115 , p5_a14 JTF_NUMBER_TABLE
3116 , p5_a15 JTF_VARCHAR2_TABLE_100
3117 , p5_a16 JTF_NUMBER_TABLE
3118 , p5_a17 JTF_NUMBER_TABLE
3119 , p5_a18 JTF_VARCHAR2_TABLE_100
3120 , p5_a19 JTF_VARCHAR2_TABLE_100
3121 , p5_a20 JTF_VARCHAR2_TABLE_500
3122 , p5_a21 JTF_VARCHAR2_TABLE_500
3123 , p5_a22 JTF_VARCHAR2_TABLE_500
3124 , p5_a23 JTF_VARCHAR2_TABLE_500
3125 , p5_a24 JTF_VARCHAR2_TABLE_500
3126 , p5_a25 JTF_VARCHAR2_TABLE_500
3127 , p5_a26 JTF_VARCHAR2_TABLE_500
3128 , p5_a27 JTF_VARCHAR2_TABLE_500
3129 , p5_a28 JTF_VARCHAR2_TABLE_500
3130 , p5_a29 JTF_VARCHAR2_TABLE_500
3131 , p5_a30 JTF_VARCHAR2_TABLE_500
3132 , p5_a31 JTF_VARCHAR2_TABLE_500
3133 , p5_a32 JTF_VARCHAR2_TABLE_500
3134 , p5_a33 JTF_VARCHAR2_TABLE_500
3135 , p5_a34 JTF_VARCHAR2_TABLE_500
3136 , p5_a35 JTF_NUMBER_TABLE
3137 , p5_a36 JTF_DATE_TABLE
3138 , p5_a37 JTF_NUMBER_TABLE
3139 , p5_a38 JTF_DATE_TABLE
3140 , p5_a39 JTF_NUMBER_TABLE
3141 , p6_a0 in out nocopy JTF_NUMBER_TABLE
3142 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
3143 , p6_a2 in out nocopy JTF_NUMBER_TABLE
3144 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
3145 , p6_a4 in out nocopy JTF_NUMBER_TABLE
3146 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
3147 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
3148 )
3149
3150 as
3151 ddp_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
3152 ddpx_error_tbl okl_api.error_tbl_type;
3153 ddindx binary_integer; indx binary_integer;
3154 begin
3155
3156 -- copy data to the local IN or IN-OUT args, if any
3157
3158
3159
3160
3161
3162 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_ppydv_tbl, p5_a0
3163 , p5_a1
3164 , p5_a2
3165 , p5_a3
3166 , p5_a4
3167 , p5_a5
3168 , p5_a6
3169 , p5_a7
3170 , p5_a8
3171 , p5_a9
3172 , p5_a10
3173 , p5_a11
3174 , p5_a12
3175 , p5_a13
3176 , p5_a14
3177 , p5_a15
3178 , p5_a16
3179 , p5_a17
3180 , p5_a18
3181 , p5_a19
3182 , p5_a20
3183 , p5_a21
3184 , p5_a22
3185 , p5_a23
3186 , p5_a24
3187 , p5_a25
3188 , p5_a26
3189 , p5_a27
3190 , p5_a28
3191 , p5_a29
3192 , p5_a30
3193 , p5_a31
3194 , p5_a32
3195 , p5_a33
3196 , p5_a34
3197 , p5_a35
3198 , p5_a36
3199 , p5_a37
3200 , p5_a38
3201 , p5_a39
3202 );
3203
3204 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p6_a0
3205 , p6_a1
3206 , p6_a2
3207 , p6_a3
3208 , p6_a4
3209 , p6_a5
3210 , p6_a6
3211 );
3212
3213 -- here's the delegated call to the old PL/SQL routine
3214 okl_pyd_pvt.validate_row(p_api_version,
3215 p_init_msg_list,
3216 x_return_status,
3217 x_msg_count,
3218 x_msg_data,
3219 ddp_ppydv_tbl,
3220 ddpx_error_tbl);
3221
3222 -- copy data back from the local variables to OUT or IN-OUT args, if any
3223
3224
3225
3226
3227
3228
3229 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p6_a0
3230 , p6_a1
3231 , p6_a2
3232 , p6_a3
3233 , p6_a4
3234 , p6_a5
3235 , p6_a6
3236 );
3237 end;
3238
3239 procedure validate_row(p_api_version NUMBER
3240 , p_init_msg_list VARCHAR2
3241 , x_return_status out nocopy VARCHAR2
3242 , x_msg_count out nocopy NUMBER
3243 , x_msg_data out nocopy VARCHAR2
3244 , p5_a0 JTF_NUMBER_TABLE
3245 , p5_a1 JTF_NUMBER_TABLE
3246 , p5_a2 JTF_NUMBER_TABLE
3247 , p5_a3 JTF_NUMBER_TABLE
3248 , p5_a4 JTF_NUMBER_TABLE
3249 , p5_a5 JTF_NUMBER_TABLE
3250 , p5_a6 JTF_VARCHAR2_TABLE_100
3251 , p5_a7 JTF_VARCHAR2_TABLE_100
3252 , p5_a8 JTF_NUMBER_TABLE
3253 , p5_a9 JTF_DATE_TABLE
3254 , p5_a10 JTF_VARCHAR2_TABLE_100
3255 , p5_a11 JTF_NUMBER_TABLE
3256 , p5_a12 JTF_VARCHAR2_TABLE_100
3257 , p5_a13 JTF_NUMBER_TABLE
3258 , p5_a14 JTF_NUMBER_TABLE
3259 , p5_a15 JTF_VARCHAR2_TABLE_100
3260 , p5_a16 JTF_NUMBER_TABLE
3261 , p5_a17 JTF_NUMBER_TABLE
3262 , p5_a18 JTF_VARCHAR2_TABLE_100
3263 , p5_a19 JTF_VARCHAR2_TABLE_100
3264 , p5_a20 JTF_VARCHAR2_TABLE_500
3265 , p5_a21 JTF_VARCHAR2_TABLE_500
3266 , p5_a22 JTF_VARCHAR2_TABLE_500
3267 , p5_a23 JTF_VARCHAR2_TABLE_500
3268 , p5_a24 JTF_VARCHAR2_TABLE_500
3269 , p5_a25 JTF_VARCHAR2_TABLE_500
3270 , p5_a26 JTF_VARCHAR2_TABLE_500
3271 , p5_a27 JTF_VARCHAR2_TABLE_500
3272 , p5_a28 JTF_VARCHAR2_TABLE_500
3273 , p5_a29 JTF_VARCHAR2_TABLE_500
3274 , p5_a30 JTF_VARCHAR2_TABLE_500
3275 , p5_a31 JTF_VARCHAR2_TABLE_500
3276 , p5_a32 JTF_VARCHAR2_TABLE_500
3277 , p5_a33 JTF_VARCHAR2_TABLE_500
3278 , p5_a34 JTF_VARCHAR2_TABLE_500
3279 , p5_a35 JTF_NUMBER_TABLE
3280 , p5_a36 JTF_DATE_TABLE
3281 , p5_a37 JTF_NUMBER_TABLE
3282 , p5_a38 JTF_DATE_TABLE
3283 , p5_a39 JTF_NUMBER_TABLE
3284 )
3285
3286 as
3287 ddp_ppydv_tbl okl_pyd_pvt.ppydv_tbl_type;
3288 ddindx binary_integer; indx binary_integer;
3289 begin
3290
3291 -- copy data to the local IN or IN-OUT args, if any
3292
3293
3294
3295
3296
3297 okl_pyd_pvt_w.rosetta_table_copy_in_p2(ddp_ppydv_tbl, p5_a0
3298 , p5_a1
3299 , p5_a2
3300 , p5_a3
3301 , p5_a4
3302 , p5_a5
3303 , p5_a6
3304 , p5_a7
3305 , p5_a8
3306 , p5_a9
3307 , p5_a10
3308 , p5_a11
3309 , p5_a12
3310 , p5_a13
3311 , p5_a14
3312 , p5_a15
3313 , p5_a16
3314 , p5_a17
3315 , p5_a18
3316 , p5_a19
3317 , p5_a20
3318 , p5_a21
3319 , p5_a22
3320 , p5_a23
3321 , p5_a24
3322 , p5_a25
3323 , p5_a26
3324 , p5_a27
3325 , p5_a28
3326 , p5_a29
3327 , p5_a30
3328 , p5_a31
3329 , p5_a32
3330 , p5_a33
3331 , p5_a34
3332 , p5_a35
3333 , p5_a36
3334 , p5_a37
3335 , p5_a38
3336 , p5_a39
3337 );
3338
3339 -- here's the delegated call to the old PL/SQL routine
3340 okl_pyd_pvt.validate_row(p_api_version,
3341 p_init_msg_list,
3342 x_return_status,
3343 x_msg_count,
3344 x_msg_data,
3345 ddp_ppydv_tbl);
3346
3347 -- copy data back from the local variables to OUT or IN-OUT args, if any
3348
3349
3350
3351
3352
3353 end;
3354
3355 end okl_pyd_pvt_w;