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