[Home] [Help]
PACKAGE BODY: APPS.OKL_SID_PVT_W
Source
1 package body okl_sid_pvt_w as
2 /* $Header: OKLISIDB.pls 120.1 2005/07/14 11:59:52 asawanka 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_sid_pvt.sidv_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_DATE_TABLE
28 , a6 JTF_DATE_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_VARCHAR2_TABLE_100
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_VARCHAR2_TABLE_500
34 , a12 JTF_VARCHAR2_TABLE_500
35 , a13 JTF_VARCHAR2_TABLE_500
36 , a14 JTF_VARCHAR2_TABLE_500
37 , a15 JTF_VARCHAR2_TABLE_500
38 , a16 JTF_VARCHAR2_TABLE_500
39 , a17 JTF_VARCHAR2_TABLE_500
40 , a18 JTF_VARCHAR2_TABLE_500
41 , a19 JTF_VARCHAR2_TABLE_500
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_NUMBER_TABLE
49 , a27 JTF_DATE_TABLE
50 , a28 JTF_NUMBER_TABLE
51 , a29 JTF_DATE_TABLE
52 , a30 JTF_NUMBER_TABLE
53 ) as
54 ddindx binary_integer; indx binary_integer;
55 begin
56 if a0 is not null and a0.count > 0 then
57 if a0.count > 0 then
58 indx := a0.first;
59 ddindx := 1;
60 while true loop
61 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
62 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
63 t(ddindx).cle_id := rosetta_g_miss_num_map(a2(indx));
64 t(ddindx).fa_cle_id := rosetta_g_miss_num_map(a3(indx));
65 t(ddindx).invoice_number := a4(indx);
66 t(ddindx).date_invoiced := rosetta_g_miss_date_in_map(a5(indx));
67 t(ddindx).date_due := rosetta_g_miss_date_in_map(a6(indx));
68 t(ddindx).shipping_address_id1 := rosetta_g_miss_num_map(a7(indx));
69 t(ddindx).shipping_address_id2 := a8(indx);
70 t(ddindx).shipping_address_code := a9(indx);
71 t(ddindx).attribute_category := a10(indx);
72 t(ddindx).attribute1 := a11(indx);
73 t(ddindx).attribute2 := a12(indx);
74 t(ddindx).attribute3 := a13(indx);
75 t(ddindx).attribute4 := a14(indx);
76 t(ddindx).attribute5 := a15(indx);
77 t(ddindx).attribute6 := a16(indx);
78 t(ddindx).attribute7 := a17(indx);
79 t(ddindx).attribute8 := a18(indx);
80 t(ddindx).attribute9 := a19(indx);
81 t(ddindx).attribute10 := a20(indx);
82 t(ddindx).attribute11 := a21(indx);
83 t(ddindx).attribute12 := a22(indx);
84 t(ddindx).attribute13 := a23(indx);
85 t(ddindx).attribute14 := a24(indx);
86 t(ddindx).attribute15 := a25(indx);
87 t(ddindx).created_by := rosetta_g_miss_num_map(a26(indx));
88 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a27(indx));
89 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a28(indx));
90 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a29(indx));
91 t(ddindx).last_update_login := rosetta_g_miss_num_map(a30(indx));
92 ddindx := ddindx+1;
93 if a0.last =indx
94 then exit;
95 end if;
96 indx := a0.next(indx);
97 end loop;
98 end if;
99 end if;
100 end rosetta_table_copy_in_p2;
101 procedure rosetta_table_copy_out_p2(t okl_sid_pvt.sidv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
102 , a1 out nocopy JTF_NUMBER_TABLE
103 , a2 out nocopy JTF_NUMBER_TABLE
104 , a3 out nocopy JTF_NUMBER_TABLE
105 , a4 out nocopy JTF_VARCHAR2_TABLE_100
106 , a5 out nocopy JTF_DATE_TABLE
107 , a6 out nocopy JTF_DATE_TABLE
108 , a7 out nocopy JTF_NUMBER_TABLE
109 , a8 out nocopy JTF_VARCHAR2_TABLE_100
110 , a9 out nocopy JTF_VARCHAR2_TABLE_100
111 , a10 out nocopy JTF_VARCHAR2_TABLE_100
112 , a11 out nocopy JTF_VARCHAR2_TABLE_500
113 , a12 out nocopy JTF_VARCHAR2_TABLE_500
114 , a13 out nocopy JTF_VARCHAR2_TABLE_500
115 , a14 out nocopy JTF_VARCHAR2_TABLE_500
116 , a15 out nocopy JTF_VARCHAR2_TABLE_500
117 , a16 out nocopy JTF_VARCHAR2_TABLE_500
118 , a17 out nocopy JTF_VARCHAR2_TABLE_500
119 , a18 out nocopy JTF_VARCHAR2_TABLE_500
120 , a19 out nocopy JTF_VARCHAR2_TABLE_500
121 , a20 out nocopy JTF_VARCHAR2_TABLE_500
122 , a21 out nocopy JTF_VARCHAR2_TABLE_500
123 , a22 out nocopy JTF_VARCHAR2_TABLE_500
124 , a23 out nocopy JTF_VARCHAR2_TABLE_500
125 , a24 out nocopy JTF_VARCHAR2_TABLE_500
126 , a25 out nocopy JTF_VARCHAR2_TABLE_500
127 , a26 out nocopy JTF_NUMBER_TABLE
128 , a27 out nocopy JTF_DATE_TABLE
129 , a28 out nocopy JTF_NUMBER_TABLE
130 , a29 out nocopy JTF_DATE_TABLE
131 , a30 out nocopy JTF_NUMBER_TABLE
132 ) as
133 ddindx binary_integer; indx binary_integer;
134 begin
135 if t is null or t.count = 0 then
136 a0 := JTF_NUMBER_TABLE();
137 a1 := JTF_NUMBER_TABLE();
138 a2 := JTF_NUMBER_TABLE();
139 a3 := JTF_NUMBER_TABLE();
140 a4 := JTF_VARCHAR2_TABLE_100();
141 a5 := JTF_DATE_TABLE();
142 a6 := JTF_DATE_TABLE();
143 a7 := JTF_NUMBER_TABLE();
144 a8 := JTF_VARCHAR2_TABLE_100();
145 a9 := JTF_VARCHAR2_TABLE_100();
146 a10 := JTF_VARCHAR2_TABLE_100();
147 a11 := JTF_VARCHAR2_TABLE_500();
148 a12 := JTF_VARCHAR2_TABLE_500();
149 a13 := JTF_VARCHAR2_TABLE_500();
150 a14 := JTF_VARCHAR2_TABLE_500();
151 a15 := JTF_VARCHAR2_TABLE_500();
152 a16 := JTF_VARCHAR2_TABLE_500();
153 a17 := JTF_VARCHAR2_TABLE_500();
154 a18 := JTF_VARCHAR2_TABLE_500();
155 a19 := JTF_VARCHAR2_TABLE_500();
156 a20 := JTF_VARCHAR2_TABLE_500();
157 a21 := JTF_VARCHAR2_TABLE_500();
158 a22 := JTF_VARCHAR2_TABLE_500();
159 a23 := JTF_VARCHAR2_TABLE_500();
160 a24 := JTF_VARCHAR2_TABLE_500();
161 a25 := JTF_VARCHAR2_TABLE_500();
162 a26 := JTF_NUMBER_TABLE();
163 a27 := JTF_DATE_TABLE();
164 a28 := JTF_NUMBER_TABLE();
165 a29 := JTF_DATE_TABLE();
166 a30 := JTF_NUMBER_TABLE();
167 else
168 a0 := JTF_NUMBER_TABLE();
169 a1 := JTF_NUMBER_TABLE();
170 a2 := JTF_NUMBER_TABLE();
171 a3 := JTF_NUMBER_TABLE();
172 a4 := JTF_VARCHAR2_TABLE_100();
173 a5 := JTF_DATE_TABLE();
174 a6 := JTF_DATE_TABLE();
175 a7 := JTF_NUMBER_TABLE();
176 a8 := JTF_VARCHAR2_TABLE_100();
177 a9 := JTF_VARCHAR2_TABLE_100();
178 a10 := JTF_VARCHAR2_TABLE_100();
179 a11 := JTF_VARCHAR2_TABLE_500();
180 a12 := JTF_VARCHAR2_TABLE_500();
181 a13 := JTF_VARCHAR2_TABLE_500();
182 a14 := JTF_VARCHAR2_TABLE_500();
183 a15 := JTF_VARCHAR2_TABLE_500();
184 a16 := JTF_VARCHAR2_TABLE_500();
185 a17 := JTF_VARCHAR2_TABLE_500();
186 a18 := JTF_VARCHAR2_TABLE_500();
187 a19 := JTF_VARCHAR2_TABLE_500();
188 a20 := JTF_VARCHAR2_TABLE_500();
189 a21 := JTF_VARCHAR2_TABLE_500();
190 a22 := JTF_VARCHAR2_TABLE_500();
191 a23 := JTF_VARCHAR2_TABLE_500();
192 a24 := JTF_VARCHAR2_TABLE_500();
193 a25 := JTF_VARCHAR2_TABLE_500();
194 a26 := JTF_NUMBER_TABLE();
195 a27 := JTF_DATE_TABLE();
196 a28 := JTF_NUMBER_TABLE();
197 a29 := JTF_DATE_TABLE();
198 a30 := JTF_NUMBER_TABLE();
199 if t.count > 0 then
200 a0.extend(t.count);
201 a1.extend(t.count);
202 a2.extend(t.count);
203 a3.extend(t.count);
204 a4.extend(t.count);
205 a5.extend(t.count);
206 a6.extend(t.count);
207 a7.extend(t.count);
208 a8.extend(t.count);
209 a9.extend(t.count);
210 a10.extend(t.count);
211 a11.extend(t.count);
212 a12.extend(t.count);
213 a13.extend(t.count);
214 a14.extend(t.count);
215 a15.extend(t.count);
216 a16.extend(t.count);
217 a17.extend(t.count);
218 a18.extend(t.count);
219 a19.extend(t.count);
220 a20.extend(t.count);
221 a21.extend(t.count);
222 a22.extend(t.count);
223 a23.extend(t.count);
224 a24.extend(t.count);
225 a25.extend(t.count);
226 a26.extend(t.count);
227 a27.extend(t.count);
228 a28.extend(t.count);
229 a29.extend(t.count);
230 a30.extend(t.count);
231 ddindx := t.first;
232 indx := 1;
233 while true loop
234 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
235 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
236 a2(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
237 a3(indx) := rosetta_g_miss_num_map(t(ddindx).fa_cle_id);
238 a4(indx) := t(ddindx).invoice_number;
239 a5(indx) := t(ddindx).date_invoiced;
240 a6(indx) := t(ddindx).date_due;
241 a7(indx) := rosetta_g_miss_num_map(t(ddindx).shipping_address_id1);
242 a8(indx) := t(ddindx).shipping_address_id2;
243 a9(indx) := t(ddindx).shipping_address_code;
244 a10(indx) := t(ddindx).attribute_category;
245 a11(indx) := t(ddindx).attribute1;
246 a12(indx) := t(ddindx).attribute2;
247 a13(indx) := t(ddindx).attribute3;
248 a14(indx) := t(ddindx).attribute4;
249 a15(indx) := t(ddindx).attribute5;
250 a16(indx) := t(ddindx).attribute6;
251 a17(indx) := t(ddindx).attribute7;
252 a18(indx) := t(ddindx).attribute8;
253 a19(indx) := t(ddindx).attribute9;
254 a20(indx) := t(ddindx).attribute10;
255 a21(indx) := t(ddindx).attribute11;
256 a22(indx) := t(ddindx).attribute12;
257 a23(indx) := t(ddindx).attribute13;
258 a24(indx) := t(ddindx).attribute14;
259 a25(indx) := t(ddindx).attribute15;
260 a26(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
261 a27(indx) := t(ddindx).creation_date;
262 a28(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
263 a29(indx) := t(ddindx).last_update_date;
264 a30(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
265 indx := indx+1;
266 if t.last =ddindx
267 then exit;
268 end if;
269 ddindx := t.next(ddindx);
270 end loop;
271 end if;
272 end if;
273 end rosetta_table_copy_out_p2;
274
275 procedure rosetta_table_copy_in_p5(t out nocopy okl_sid_pvt.sid_tbl_type, a0 JTF_NUMBER_TABLE
276 , a1 JTF_NUMBER_TABLE
277 , a2 JTF_NUMBER_TABLE
278 , a3 JTF_NUMBER_TABLE
279 , a4 JTF_VARCHAR2_TABLE_100
280 , a5 JTF_DATE_TABLE
281 , a6 JTF_DATE_TABLE
282 , a7 JTF_NUMBER_TABLE
283 , a8 JTF_VARCHAR2_TABLE_100
284 , a9 JTF_VARCHAR2_TABLE_100
285 , a10 JTF_VARCHAR2_TABLE_100
286 , a11 JTF_VARCHAR2_TABLE_500
287 , a12 JTF_VARCHAR2_TABLE_500
288 , a13 JTF_VARCHAR2_TABLE_500
289 , a14 JTF_VARCHAR2_TABLE_500
290 , a15 JTF_VARCHAR2_TABLE_500
291 , a16 JTF_VARCHAR2_TABLE_500
292 , a17 JTF_VARCHAR2_TABLE_500
293 , a18 JTF_VARCHAR2_TABLE_500
294 , a19 JTF_VARCHAR2_TABLE_500
295 , a20 JTF_VARCHAR2_TABLE_500
296 , a21 JTF_VARCHAR2_TABLE_500
297 , a22 JTF_VARCHAR2_TABLE_500
298 , a23 JTF_VARCHAR2_TABLE_500
299 , a24 JTF_VARCHAR2_TABLE_500
300 , a25 JTF_VARCHAR2_TABLE_500
301 , a26 JTF_NUMBER_TABLE
302 , a27 JTF_DATE_TABLE
303 , a28 JTF_NUMBER_TABLE
304 , a29 JTF_DATE_TABLE
305 , a30 JTF_NUMBER_TABLE
306 ) as
307 ddindx binary_integer; indx binary_integer;
308 begin
309 if a0 is not null and a0.count > 0 then
310 if a0.count > 0 then
311 indx := a0.first;
312 ddindx := 1;
313 while true loop
314 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
315 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
316 t(ddindx).cle_id := rosetta_g_miss_num_map(a2(indx));
317 t(ddindx).fa_cle_id := rosetta_g_miss_num_map(a3(indx));
318 t(ddindx).invoice_number := a4(indx);
319 t(ddindx).date_invoiced := rosetta_g_miss_date_in_map(a5(indx));
320 t(ddindx).date_due := rosetta_g_miss_date_in_map(a6(indx));
321 t(ddindx).shipping_address_id1 := rosetta_g_miss_num_map(a7(indx));
322 t(ddindx).shipping_address_id2 := a8(indx);
323 t(ddindx).shipping_address_code := a9(indx);
324 t(ddindx).attribute_category := a10(indx);
325 t(ddindx).attribute1 := a11(indx);
326 t(ddindx).attribute2 := a12(indx);
327 t(ddindx).attribute3 := a13(indx);
328 t(ddindx).attribute4 := a14(indx);
329 t(ddindx).attribute5 := a15(indx);
330 t(ddindx).attribute6 := a16(indx);
331 t(ddindx).attribute7 := a17(indx);
332 t(ddindx).attribute8 := a18(indx);
333 t(ddindx).attribute9 := a19(indx);
334 t(ddindx).attribute10 := a20(indx);
335 t(ddindx).attribute11 := a21(indx);
336 t(ddindx).attribute12 := a22(indx);
337 t(ddindx).attribute13 := a23(indx);
338 t(ddindx).attribute14 := a24(indx);
339 t(ddindx).attribute15 := a25(indx);
340 t(ddindx).created_by := rosetta_g_miss_num_map(a26(indx));
341 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a27(indx));
342 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a28(indx));
343 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a29(indx));
344 t(ddindx).last_update_login := rosetta_g_miss_num_map(a30(indx));
345 ddindx := ddindx+1;
346 if a0.last =indx
347 then exit;
348 end if;
349 indx := a0.next(indx);
350 end loop;
351 end if;
352 end if;
353 end rosetta_table_copy_in_p5;
354 procedure rosetta_table_copy_out_p5(t okl_sid_pvt.sid_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
355 , a1 out nocopy JTF_NUMBER_TABLE
356 , a2 out nocopy JTF_NUMBER_TABLE
357 , a3 out nocopy JTF_NUMBER_TABLE
358 , a4 out nocopy JTF_VARCHAR2_TABLE_100
359 , a5 out nocopy JTF_DATE_TABLE
360 , a6 out nocopy JTF_DATE_TABLE
361 , a7 out nocopy JTF_NUMBER_TABLE
362 , a8 out nocopy JTF_VARCHAR2_TABLE_100
363 , a9 out nocopy JTF_VARCHAR2_TABLE_100
364 , a10 out nocopy JTF_VARCHAR2_TABLE_100
365 , a11 out nocopy JTF_VARCHAR2_TABLE_500
366 , a12 out nocopy JTF_VARCHAR2_TABLE_500
367 , a13 out nocopy JTF_VARCHAR2_TABLE_500
368 , a14 out nocopy JTF_VARCHAR2_TABLE_500
369 , a15 out nocopy JTF_VARCHAR2_TABLE_500
370 , a16 out nocopy JTF_VARCHAR2_TABLE_500
371 , a17 out nocopy JTF_VARCHAR2_TABLE_500
372 , a18 out nocopy JTF_VARCHAR2_TABLE_500
373 , a19 out nocopy JTF_VARCHAR2_TABLE_500
374 , a20 out nocopy JTF_VARCHAR2_TABLE_500
375 , a21 out nocopy JTF_VARCHAR2_TABLE_500
376 , a22 out nocopy JTF_VARCHAR2_TABLE_500
377 , a23 out nocopy JTF_VARCHAR2_TABLE_500
378 , a24 out nocopy JTF_VARCHAR2_TABLE_500
379 , a25 out nocopy JTF_VARCHAR2_TABLE_500
380 , a26 out nocopy JTF_NUMBER_TABLE
381 , a27 out nocopy JTF_DATE_TABLE
382 , a28 out nocopy JTF_NUMBER_TABLE
383 , a29 out nocopy JTF_DATE_TABLE
384 , a30 out nocopy JTF_NUMBER_TABLE
385 ) as
386 ddindx binary_integer; indx binary_integer;
387 begin
388 if t is null or t.count = 0 then
389 a0 := JTF_NUMBER_TABLE();
390 a1 := JTF_NUMBER_TABLE();
391 a2 := JTF_NUMBER_TABLE();
392 a3 := JTF_NUMBER_TABLE();
393 a4 := JTF_VARCHAR2_TABLE_100();
394 a5 := JTF_DATE_TABLE();
395 a6 := JTF_DATE_TABLE();
396 a7 := JTF_NUMBER_TABLE();
397 a8 := JTF_VARCHAR2_TABLE_100();
398 a9 := JTF_VARCHAR2_TABLE_100();
399 a10 := JTF_VARCHAR2_TABLE_100();
400 a11 := JTF_VARCHAR2_TABLE_500();
401 a12 := JTF_VARCHAR2_TABLE_500();
402 a13 := JTF_VARCHAR2_TABLE_500();
403 a14 := JTF_VARCHAR2_TABLE_500();
404 a15 := JTF_VARCHAR2_TABLE_500();
405 a16 := JTF_VARCHAR2_TABLE_500();
406 a17 := JTF_VARCHAR2_TABLE_500();
407 a18 := JTF_VARCHAR2_TABLE_500();
408 a19 := JTF_VARCHAR2_TABLE_500();
409 a20 := JTF_VARCHAR2_TABLE_500();
410 a21 := JTF_VARCHAR2_TABLE_500();
411 a22 := JTF_VARCHAR2_TABLE_500();
412 a23 := JTF_VARCHAR2_TABLE_500();
413 a24 := JTF_VARCHAR2_TABLE_500();
414 a25 := JTF_VARCHAR2_TABLE_500();
415 a26 := JTF_NUMBER_TABLE();
416 a27 := JTF_DATE_TABLE();
417 a28 := JTF_NUMBER_TABLE();
418 a29 := JTF_DATE_TABLE();
419 a30 := JTF_NUMBER_TABLE();
420 else
421 a0 := JTF_NUMBER_TABLE();
422 a1 := JTF_NUMBER_TABLE();
423 a2 := JTF_NUMBER_TABLE();
424 a3 := JTF_NUMBER_TABLE();
425 a4 := JTF_VARCHAR2_TABLE_100();
426 a5 := JTF_DATE_TABLE();
427 a6 := JTF_DATE_TABLE();
428 a7 := JTF_NUMBER_TABLE();
429 a8 := JTF_VARCHAR2_TABLE_100();
430 a9 := JTF_VARCHAR2_TABLE_100();
431 a10 := JTF_VARCHAR2_TABLE_100();
432 a11 := JTF_VARCHAR2_TABLE_500();
433 a12 := JTF_VARCHAR2_TABLE_500();
434 a13 := JTF_VARCHAR2_TABLE_500();
435 a14 := JTF_VARCHAR2_TABLE_500();
436 a15 := JTF_VARCHAR2_TABLE_500();
437 a16 := JTF_VARCHAR2_TABLE_500();
438 a17 := JTF_VARCHAR2_TABLE_500();
439 a18 := JTF_VARCHAR2_TABLE_500();
440 a19 := JTF_VARCHAR2_TABLE_500();
441 a20 := JTF_VARCHAR2_TABLE_500();
442 a21 := JTF_VARCHAR2_TABLE_500();
443 a22 := JTF_VARCHAR2_TABLE_500();
444 a23 := JTF_VARCHAR2_TABLE_500();
445 a24 := JTF_VARCHAR2_TABLE_500();
446 a25 := JTF_VARCHAR2_TABLE_500();
447 a26 := JTF_NUMBER_TABLE();
448 a27 := JTF_DATE_TABLE();
449 a28 := JTF_NUMBER_TABLE();
450 a29 := JTF_DATE_TABLE();
451 a30 := JTF_NUMBER_TABLE();
452 if t.count > 0 then
453 a0.extend(t.count);
454 a1.extend(t.count);
455 a2.extend(t.count);
456 a3.extend(t.count);
457 a4.extend(t.count);
458 a5.extend(t.count);
459 a6.extend(t.count);
460 a7.extend(t.count);
461 a8.extend(t.count);
462 a9.extend(t.count);
463 a10.extend(t.count);
464 a11.extend(t.count);
465 a12.extend(t.count);
466 a13.extend(t.count);
467 a14.extend(t.count);
468 a15.extend(t.count);
469 a16.extend(t.count);
470 a17.extend(t.count);
471 a18.extend(t.count);
472 a19.extend(t.count);
473 a20.extend(t.count);
474 a21.extend(t.count);
475 a22.extend(t.count);
476 a23.extend(t.count);
477 a24.extend(t.count);
478 a25.extend(t.count);
479 a26.extend(t.count);
480 a27.extend(t.count);
481 a28.extend(t.count);
482 a29.extend(t.count);
483 a30.extend(t.count);
484 ddindx := t.first;
485 indx := 1;
486 while true loop
487 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
488 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
489 a2(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
490 a3(indx) := rosetta_g_miss_num_map(t(ddindx).fa_cle_id);
491 a4(indx) := t(ddindx).invoice_number;
492 a5(indx) := t(ddindx).date_invoiced;
493 a6(indx) := t(ddindx).date_due;
494 a7(indx) := rosetta_g_miss_num_map(t(ddindx).shipping_address_id1);
495 a8(indx) := t(ddindx).shipping_address_id2;
496 a9(indx) := t(ddindx).shipping_address_code;
497 a10(indx) := t(ddindx).attribute_category;
498 a11(indx) := t(ddindx).attribute1;
499 a12(indx) := t(ddindx).attribute2;
500 a13(indx) := t(ddindx).attribute3;
501 a14(indx) := t(ddindx).attribute4;
502 a15(indx) := t(ddindx).attribute5;
503 a16(indx) := t(ddindx).attribute6;
504 a17(indx) := t(ddindx).attribute7;
505 a18(indx) := t(ddindx).attribute8;
506 a19(indx) := t(ddindx).attribute9;
507 a20(indx) := t(ddindx).attribute10;
508 a21(indx) := t(ddindx).attribute11;
509 a22(indx) := t(ddindx).attribute12;
510 a23(indx) := t(ddindx).attribute13;
511 a24(indx) := t(ddindx).attribute14;
512 a25(indx) := t(ddindx).attribute15;
513 a26(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
514 a27(indx) := t(ddindx).creation_date;
515 a28(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
516 a29(indx) := t(ddindx).last_update_date;
517 a30(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
518 indx := indx+1;
519 if t.last =ddindx
520 then exit;
521 end if;
522 ddindx := t.next(ddindx);
523 end loop;
524 end if;
525 end if;
526 end rosetta_table_copy_out_p5;
527
528 procedure rosetta_table_copy_in_p8(t out nocopy okl_sid_pvt.okl_sidh_tbl_type, a0 JTF_NUMBER_TABLE
529 , a1 JTF_NUMBER_TABLE
530 , a2 JTF_NUMBER_TABLE
531 , a3 JTF_NUMBER_TABLE
532 , a4 JTF_NUMBER_TABLE
533 , a5 JTF_VARCHAR2_TABLE_100
534 , a6 JTF_DATE_TABLE
535 , a7 JTF_DATE_TABLE
536 , a8 JTF_NUMBER_TABLE
537 , a9 JTF_VARCHAR2_TABLE_100
538 , a10 JTF_VARCHAR2_TABLE_100
539 , a11 JTF_VARCHAR2_TABLE_100
540 , a12 JTF_VARCHAR2_TABLE_500
541 , a13 JTF_VARCHAR2_TABLE_500
542 , a14 JTF_VARCHAR2_TABLE_500
543 , a15 JTF_VARCHAR2_TABLE_500
544 , a16 JTF_VARCHAR2_TABLE_500
545 , a17 JTF_VARCHAR2_TABLE_500
546 , a18 JTF_VARCHAR2_TABLE_500
547 , a19 JTF_VARCHAR2_TABLE_500
548 , a20 JTF_VARCHAR2_TABLE_500
549 , a21 JTF_VARCHAR2_TABLE_500
550 , a22 JTF_VARCHAR2_TABLE_500
551 , a23 JTF_VARCHAR2_TABLE_500
552 , a24 JTF_VARCHAR2_TABLE_500
553 , a25 JTF_VARCHAR2_TABLE_500
554 , a26 JTF_VARCHAR2_TABLE_500
555 , a27 JTF_NUMBER_TABLE
556 , a28 JTF_DATE_TABLE
557 , a29 JTF_NUMBER_TABLE
558 , a30 JTF_DATE_TABLE
559 , a31 JTF_NUMBER_TABLE
560 ) as
561 ddindx binary_integer; indx binary_integer;
562 begin
563 if a0 is not null and a0.count > 0 then
564 if a0.count > 0 then
565 indx := a0.first;
566 ddindx := 1;
567 while true loop
568 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
569 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
570 t(ddindx).major_version := rosetta_g_miss_num_map(a2(indx));
571 t(ddindx).cle_id := rosetta_g_miss_num_map(a3(indx));
572 t(ddindx).fa_cle_id := rosetta_g_miss_num_map(a4(indx));
573 t(ddindx).invoice_number := a5(indx);
574 t(ddindx).date_invoiced := rosetta_g_miss_date_in_map(a6(indx));
575 t(ddindx).date_due := rosetta_g_miss_date_in_map(a7(indx));
576 t(ddindx).shipping_address_id1 := rosetta_g_miss_num_map(a8(indx));
577 t(ddindx).shipping_address_id2 := a9(indx);
578 t(ddindx).shipping_address_code := a10(indx);
579 t(ddindx).attribute_category := a11(indx);
580 t(ddindx).attribute1 := a12(indx);
581 t(ddindx).attribute2 := a13(indx);
582 t(ddindx).attribute3 := a14(indx);
583 t(ddindx).attribute4 := a15(indx);
584 t(ddindx).attribute5 := a16(indx);
585 t(ddindx).attribute6 := a17(indx);
586 t(ddindx).attribute7 := a18(indx);
587 t(ddindx).attribute8 := a19(indx);
588 t(ddindx).attribute9 := a20(indx);
589 t(ddindx).attribute10 := a21(indx);
590 t(ddindx).attribute11 := a22(indx);
591 t(ddindx).attribute12 := a23(indx);
592 t(ddindx).attribute13 := a24(indx);
593 t(ddindx).attribute14 := a25(indx);
594 t(ddindx).attribute15 := a26(indx);
595 t(ddindx).created_by := rosetta_g_miss_num_map(a27(indx));
596 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a28(indx));
597 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a29(indx));
598 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a30(indx));
599 t(ddindx).last_update_login := rosetta_g_miss_num_map(a31(indx));
600 ddindx := ddindx+1;
601 if a0.last =indx
602 then exit;
603 end if;
604 indx := a0.next(indx);
605 end loop;
606 end if;
607 end if;
608 end rosetta_table_copy_in_p8;
609 procedure rosetta_table_copy_out_p8(t okl_sid_pvt.okl_sidh_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
610 , a1 out nocopy JTF_NUMBER_TABLE
611 , a2 out nocopy JTF_NUMBER_TABLE
612 , a3 out nocopy JTF_NUMBER_TABLE
613 , a4 out nocopy JTF_NUMBER_TABLE
614 , a5 out nocopy JTF_VARCHAR2_TABLE_100
615 , a6 out nocopy JTF_DATE_TABLE
616 , a7 out nocopy JTF_DATE_TABLE
617 , a8 out nocopy JTF_NUMBER_TABLE
618 , a9 out nocopy JTF_VARCHAR2_TABLE_100
619 , a10 out nocopy JTF_VARCHAR2_TABLE_100
620 , a11 out nocopy JTF_VARCHAR2_TABLE_100
621 , a12 out nocopy JTF_VARCHAR2_TABLE_500
622 , a13 out nocopy JTF_VARCHAR2_TABLE_500
623 , a14 out nocopy JTF_VARCHAR2_TABLE_500
624 , a15 out nocopy JTF_VARCHAR2_TABLE_500
625 , a16 out nocopy JTF_VARCHAR2_TABLE_500
626 , a17 out nocopy JTF_VARCHAR2_TABLE_500
627 , a18 out nocopy JTF_VARCHAR2_TABLE_500
628 , a19 out nocopy JTF_VARCHAR2_TABLE_500
629 , a20 out nocopy JTF_VARCHAR2_TABLE_500
630 , a21 out nocopy JTF_VARCHAR2_TABLE_500
631 , a22 out nocopy JTF_VARCHAR2_TABLE_500
632 , a23 out nocopy JTF_VARCHAR2_TABLE_500
633 , a24 out nocopy JTF_VARCHAR2_TABLE_500
634 , a25 out nocopy JTF_VARCHAR2_TABLE_500
635 , a26 out nocopy JTF_VARCHAR2_TABLE_500
636 , a27 out nocopy JTF_NUMBER_TABLE
637 , a28 out nocopy JTF_DATE_TABLE
638 , a29 out nocopy JTF_NUMBER_TABLE
639 , a30 out nocopy JTF_DATE_TABLE
640 , a31 out nocopy JTF_NUMBER_TABLE
641 ) as
642 ddindx binary_integer; indx binary_integer;
643 begin
644 if t is null or t.count = 0 then
645 a0 := JTF_NUMBER_TABLE();
646 a1 := JTF_NUMBER_TABLE();
647 a2 := JTF_NUMBER_TABLE();
648 a3 := JTF_NUMBER_TABLE();
649 a4 := JTF_NUMBER_TABLE();
650 a5 := JTF_VARCHAR2_TABLE_100();
651 a6 := JTF_DATE_TABLE();
652 a7 := JTF_DATE_TABLE();
653 a8 := JTF_NUMBER_TABLE();
654 a9 := JTF_VARCHAR2_TABLE_100();
655 a10 := JTF_VARCHAR2_TABLE_100();
656 a11 := JTF_VARCHAR2_TABLE_100();
657 a12 := JTF_VARCHAR2_TABLE_500();
658 a13 := JTF_VARCHAR2_TABLE_500();
659 a14 := JTF_VARCHAR2_TABLE_500();
660 a15 := JTF_VARCHAR2_TABLE_500();
661 a16 := JTF_VARCHAR2_TABLE_500();
662 a17 := JTF_VARCHAR2_TABLE_500();
663 a18 := JTF_VARCHAR2_TABLE_500();
664 a19 := JTF_VARCHAR2_TABLE_500();
665 a20 := JTF_VARCHAR2_TABLE_500();
666 a21 := JTF_VARCHAR2_TABLE_500();
667 a22 := JTF_VARCHAR2_TABLE_500();
668 a23 := JTF_VARCHAR2_TABLE_500();
669 a24 := JTF_VARCHAR2_TABLE_500();
670 a25 := JTF_VARCHAR2_TABLE_500();
671 a26 := JTF_VARCHAR2_TABLE_500();
672 a27 := JTF_NUMBER_TABLE();
673 a28 := JTF_DATE_TABLE();
674 a29 := JTF_NUMBER_TABLE();
675 a30 := JTF_DATE_TABLE();
676 a31 := JTF_NUMBER_TABLE();
677 else
678 a0 := JTF_NUMBER_TABLE();
679 a1 := JTF_NUMBER_TABLE();
680 a2 := JTF_NUMBER_TABLE();
681 a3 := JTF_NUMBER_TABLE();
682 a4 := JTF_NUMBER_TABLE();
683 a5 := JTF_VARCHAR2_TABLE_100();
684 a6 := JTF_DATE_TABLE();
685 a7 := JTF_DATE_TABLE();
686 a8 := JTF_NUMBER_TABLE();
687 a9 := JTF_VARCHAR2_TABLE_100();
688 a10 := JTF_VARCHAR2_TABLE_100();
689 a11 := JTF_VARCHAR2_TABLE_100();
690 a12 := JTF_VARCHAR2_TABLE_500();
691 a13 := JTF_VARCHAR2_TABLE_500();
692 a14 := JTF_VARCHAR2_TABLE_500();
693 a15 := JTF_VARCHAR2_TABLE_500();
694 a16 := JTF_VARCHAR2_TABLE_500();
695 a17 := JTF_VARCHAR2_TABLE_500();
696 a18 := JTF_VARCHAR2_TABLE_500();
697 a19 := JTF_VARCHAR2_TABLE_500();
698 a20 := JTF_VARCHAR2_TABLE_500();
699 a21 := JTF_VARCHAR2_TABLE_500();
700 a22 := JTF_VARCHAR2_TABLE_500();
701 a23 := JTF_VARCHAR2_TABLE_500();
702 a24 := JTF_VARCHAR2_TABLE_500();
703 a25 := JTF_VARCHAR2_TABLE_500();
704 a26 := JTF_VARCHAR2_TABLE_500();
705 a27 := JTF_NUMBER_TABLE();
706 a28 := JTF_DATE_TABLE();
707 a29 := JTF_NUMBER_TABLE();
708 a30 := JTF_DATE_TABLE();
709 a31 := JTF_NUMBER_TABLE();
710 if t.count > 0 then
711 a0.extend(t.count);
712 a1.extend(t.count);
713 a2.extend(t.count);
714 a3.extend(t.count);
715 a4.extend(t.count);
716 a5.extend(t.count);
717 a6.extend(t.count);
718 a7.extend(t.count);
719 a8.extend(t.count);
720 a9.extend(t.count);
721 a10.extend(t.count);
722 a11.extend(t.count);
723 a12.extend(t.count);
724 a13.extend(t.count);
725 a14.extend(t.count);
726 a15.extend(t.count);
727 a16.extend(t.count);
728 a17.extend(t.count);
729 a18.extend(t.count);
730 a19.extend(t.count);
731 a20.extend(t.count);
732 a21.extend(t.count);
733 a22.extend(t.count);
734 a23.extend(t.count);
735 a24.extend(t.count);
736 a25.extend(t.count);
737 a26.extend(t.count);
738 a27.extend(t.count);
739 a28.extend(t.count);
740 a29.extend(t.count);
741 a30.extend(t.count);
742 a31.extend(t.count);
743 ddindx := t.first;
744 indx := 1;
745 while true loop
746 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
747 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
748 a2(indx) := rosetta_g_miss_num_map(t(ddindx).major_version);
749 a3(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
750 a4(indx) := rosetta_g_miss_num_map(t(ddindx).fa_cle_id);
751 a5(indx) := t(ddindx).invoice_number;
752 a6(indx) := t(ddindx).date_invoiced;
753 a7(indx) := t(ddindx).date_due;
754 a8(indx) := rosetta_g_miss_num_map(t(ddindx).shipping_address_id1);
755 a9(indx) := t(ddindx).shipping_address_id2;
756 a10(indx) := t(ddindx).shipping_address_code;
757 a11(indx) := t(ddindx).attribute_category;
758 a12(indx) := t(ddindx).attribute1;
759 a13(indx) := t(ddindx).attribute2;
760 a14(indx) := t(ddindx).attribute3;
761 a15(indx) := t(ddindx).attribute4;
762 a16(indx) := t(ddindx).attribute5;
763 a17(indx) := t(ddindx).attribute6;
764 a18(indx) := t(ddindx).attribute7;
765 a19(indx) := t(ddindx).attribute8;
766 a20(indx) := t(ddindx).attribute9;
767 a21(indx) := t(ddindx).attribute10;
768 a22(indx) := t(ddindx).attribute11;
769 a23(indx) := t(ddindx).attribute12;
770 a24(indx) := t(ddindx).attribute13;
771 a25(indx) := t(ddindx).attribute14;
772 a26(indx) := t(ddindx).attribute15;
773 a27(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
774 a28(indx) := t(ddindx).creation_date;
775 a29(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
776 a30(indx) := t(ddindx).last_update_date;
777 a31(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
778 indx := indx+1;
779 if t.last =ddindx
780 then exit;
781 end if;
782 ddindx := t.next(ddindx);
783 end loop;
784 end if;
785 end if;
786 end rosetta_table_copy_out_p8;
787
788 procedure insert_row(p_api_version NUMBER
789 , p_init_msg_list VARCHAR2
790 , x_return_status out nocopy VARCHAR2
791 , x_msg_count out nocopy NUMBER
792 , x_msg_data out nocopy VARCHAR2
793 , p6_a0 out nocopy NUMBER
794 , p6_a1 out nocopy NUMBER
795 , p6_a2 out nocopy NUMBER
796 , p6_a3 out nocopy NUMBER
797 , p6_a4 out nocopy VARCHAR2
798 , p6_a5 out nocopy DATE
799 , p6_a6 out nocopy DATE
800 , p6_a7 out nocopy NUMBER
801 , p6_a8 out nocopy VARCHAR2
802 , p6_a9 out nocopy VARCHAR2
803 , p6_a10 out nocopy VARCHAR2
804 , p6_a11 out nocopy VARCHAR2
805 , p6_a12 out nocopy VARCHAR2
806 , p6_a13 out nocopy VARCHAR2
807 , p6_a14 out nocopy VARCHAR2
808 , p6_a15 out nocopy VARCHAR2
809 , p6_a16 out nocopy VARCHAR2
810 , p6_a17 out nocopy VARCHAR2
811 , p6_a18 out nocopy VARCHAR2
812 , p6_a19 out nocopy VARCHAR2
813 , p6_a20 out nocopy VARCHAR2
814 , p6_a21 out nocopy VARCHAR2
815 , p6_a22 out nocopy VARCHAR2
816 , p6_a23 out nocopy VARCHAR2
817 , p6_a24 out nocopy VARCHAR2
818 , p6_a25 out nocopy VARCHAR2
819 , p6_a26 out nocopy NUMBER
820 , p6_a27 out nocopy DATE
821 , p6_a28 out nocopy NUMBER
822 , p6_a29 out nocopy DATE
823 , p6_a30 out nocopy NUMBER
824 , p5_a0 NUMBER := 0-1962.0724
825 , p5_a1 NUMBER := 0-1962.0724
826 , p5_a2 NUMBER := 0-1962.0724
827 , p5_a3 NUMBER := 0-1962.0724
828 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
829 , p5_a5 DATE := fnd_api.g_miss_date
830 , p5_a6 DATE := fnd_api.g_miss_date
831 , p5_a7 NUMBER := 0-1962.0724
832 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
833 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
834 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
835 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
836 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
837 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
838 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
839 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
840 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
841 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
842 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
843 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
844 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
845 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
846 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
847 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
848 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
849 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
850 , p5_a26 NUMBER := 0-1962.0724
851 , p5_a27 DATE := fnd_api.g_miss_date
852 , p5_a28 NUMBER := 0-1962.0724
853 , p5_a29 DATE := fnd_api.g_miss_date
854 , p5_a30 NUMBER := 0-1962.0724
855 )
856
857 as
858 ddp_sidv_rec okl_sid_pvt.sidv_rec_type;
859 ddx_sidv_rec okl_sid_pvt.sidv_rec_type;
860 ddindx binary_integer; indx binary_integer;
861 begin
862
863 -- copy data to the local IN or IN-OUT args, if any
864
865
866
867
868
869 ddp_sidv_rec.id := rosetta_g_miss_num_map(p5_a0);
870 ddp_sidv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
871 ddp_sidv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
872 ddp_sidv_rec.fa_cle_id := rosetta_g_miss_num_map(p5_a3);
873 ddp_sidv_rec.invoice_number := p5_a4;
874 ddp_sidv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a5);
875 ddp_sidv_rec.date_due := rosetta_g_miss_date_in_map(p5_a6);
876 ddp_sidv_rec.shipping_address_id1 := rosetta_g_miss_num_map(p5_a7);
877 ddp_sidv_rec.shipping_address_id2 := p5_a8;
878 ddp_sidv_rec.shipping_address_code := p5_a9;
879 ddp_sidv_rec.attribute_category := p5_a10;
880 ddp_sidv_rec.attribute1 := p5_a11;
881 ddp_sidv_rec.attribute2 := p5_a12;
882 ddp_sidv_rec.attribute3 := p5_a13;
883 ddp_sidv_rec.attribute4 := p5_a14;
884 ddp_sidv_rec.attribute5 := p5_a15;
885 ddp_sidv_rec.attribute6 := p5_a16;
886 ddp_sidv_rec.attribute7 := p5_a17;
887 ddp_sidv_rec.attribute8 := p5_a18;
888 ddp_sidv_rec.attribute9 := p5_a19;
889 ddp_sidv_rec.attribute10 := p5_a20;
890 ddp_sidv_rec.attribute11 := p5_a21;
891 ddp_sidv_rec.attribute12 := p5_a22;
892 ddp_sidv_rec.attribute13 := p5_a23;
893 ddp_sidv_rec.attribute14 := p5_a24;
894 ddp_sidv_rec.attribute15 := p5_a25;
895 ddp_sidv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
896 ddp_sidv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
897 ddp_sidv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
898 ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
899 ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
900
901
902 -- here's the delegated call to the old PL/SQL routine
903 okl_sid_pvt.insert_row(p_api_version,
904 p_init_msg_list,
905 x_return_status,
906 x_msg_count,
907 x_msg_data,
908 ddp_sidv_rec,
909 ddx_sidv_rec);
910
911 -- copy data back from the local variables to OUT or IN-OUT args, if any
912
913
914
915
916
917
918 p6_a0 := rosetta_g_miss_num_map(ddx_sidv_rec.id);
919 p6_a1 := rosetta_g_miss_num_map(ddx_sidv_rec.object_version_number);
920 p6_a2 := rosetta_g_miss_num_map(ddx_sidv_rec.cle_id);
921 p6_a3 := rosetta_g_miss_num_map(ddx_sidv_rec.fa_cle_id);
922 p6_a4 := ddx_sidv_rec.invoice_number;
923 p6_a5 := ddx_sidv_rec.date_invoiced;
924 p6_a6 := ddx_sidv_rec.date_due;
925 p6_a7 := rosetta_g_miss_num_map(ddx_sidv_rec.shipping_address_id1);
926 p6_a8 := ddx_sidv_rec.shipping_address_id2;
927 p6_a9 := ddx_sidv_rec.shipping_address_code;
928 p6_a10 := ddx_sidv_rec.attribute_category;
929 p6_a11 := ddx_sidv_rec.attribute1;
930 p6_a12 := ddx_sidv_rec.attribute2;
931 p6_a13 := ddx_sidv_rec.attribute3;
932 p6_a14 := ddx_sidv_rec.attribute4;
933 p6_a15 := ddx_sidv_rec.attribute5;
934 p6_a16 := ddx_sidv_rec.attribute6;
935 p6_a17 := ddx_sidv_rec.attribute7;
936 p6_a18 := ddx_sidv_rec.attribute8;
937 p6_a19 := ddx_sidv_rec.attribute9;
938 p6_a20 := ddx_sidv_rec.attribute10;
939 p6_a21 := ddx_sidv_rec.attribute11;
940 p6_a22 := ddx_sidv_rec.attribute12;
941 p6_a23 := ddx_sidv_rec.attribute13;
942 p6_a24 := ddx_sidv_rec.attribute14;
943 p6_a25 := ddx_sidv_rec.attribute15;
944 p6_a26 := rosetta_g_miss_num_map(ddx_sidv_rec.created_by);
945 p6_a27 := ddx_sidv_rec.creation_date;
946 p6_a28 := rosetta_g_miss_num_map(ddx_sidv_rec.last_updated_by);
947 p6_a29 := ddx_sidv_rec.last_update_date;
948 p6_a30 := rosetta_g_miss_num_map(ddx_sidv_rec.last_update_login);
949 end;
950
951 procedure insert_row(p_api_version NUMBER
952 , p_init_msg_list VARCHAR2
953 , x_return_status out nocopy VARCHAR2
954 , x_msg_count out nocopy NUMBER
955 , x_msg_data out nocopy VARCHAR2
956 , p5_a0 JTF_NUMBER_TABLE
957 , p5_a1 JTF_NUMBER_TABLE
958 , p5_a2 JTF_NUMBER_TABLE
959 , p5_a3 JTF_NUMBER_TABLE
960 , p5_a4 JTF_VARCHAR2_TABLE_100
961 , p5_a5 JTF_DATE_TABLE
962 , p5_a6 JTF_DATE_TABLE
963 , p5_a7 JTF_NUMBER_TABLE
964 , p5_a8 JTF_VARCHAR2_TABLE_100
965 , p5_a9 JTF_VARCHAR2_TABLE_100
966 , p5_a10 JTF_VARCHAR2_TABLE_100
967 , p5_a11 JTF_VARCHAR2_TABLE_500
968 , p5_a12 JTF_VARCHAR2_TABLE_500
969 , p5_a13 JTF_VARCHAR2_TABLE_500
970 , p5_a14 JTF_VARCHAR2_TABLE_500
971 , p5_a15 JTF_VARCHAR2_TABLE_500
972 , p5_a16 JTF_VARCHAR2_TABLE_500
973 , p5_a17 JTF_VARCHAR2_TABLE_500
974 , p5_a18 JTF_VARCHAR2_TABLE_500
975 , p5_a19 JTF_VARCHAR2_TABLE_500
976 , p5_a20 JTF_VARCHAR2_TABLE_500
977 , p5_a21 JTF_VARCHAR2_TABLE_500
978 , p5_a22 JTF_VARCHAR2_TABLE_500
979 , p5_a23 JTF_VARCHAR2_TABLE_500
980 , p5_a24 JTF_VARCHAR2_TABLE_500
981 , p5_a25 JTF_VARCHAR2_TABLE_500
982 , p5_a26 JTF_NUMBER_TABLE
983 , p5_a27 JTF_DATE_TABLE
984 , p5_a28 JTF_NUMBER_TABLE
985 , p5_a29 JTF_DATE_TABLE
986 , p5_a30 JTF_NUMBER_TABLE
987 , p6_a0 out nocopy JTF_NUMBER_TABLE
988 , p6_a1 out nocopy JTF_NUMBER_TABLE
989 , p6_a2 out nocopy JTF_NUMBER_TABLE
990 , p6_a3 out nocopy JTF_NUMBER_TABLE
991 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
992 , p6_a5 out nocopy JTF_DATE_TABLE
993 , p6_a6 out nocopy JTF_DATE_TABLE
994 , p6_a7 out nocopy JTF_NUMBER_TABLE
995 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
996 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
997 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
998 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
999 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1000 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1001 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1002 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1003 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1004 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1005 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1006 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1007 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1008 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1009 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1010 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1011 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1012 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1013 , p6_a26 out nocopy JTF_NUMBER_TABLE
1014 , p6_a27 out nocopy JTF_DATE_TABLE
1015 , p6_a28 out nocopy JTF_NUMBER_TABLE
1016 , p6_a29 out nocopy JTF_DATE_TABLE
1017 , p6_a30 out nocopy JTF_NUMBER_TABLE
1018 )
1019
1020 as
1021 ddp_sidv_tbl okl_sid_pvt.sidv_tbl_type;
1022 ddx_sidv_tbl okl_sid_pvt.sidv_tbl_type;
1023 ddindx binary_integer; indx binary_integer;
1024 begin
1025
1026 -- copy data to the local IN or IN-OUT args, if any
1027
1028
1029
1030
1031
1032 okl_sid_pvt_w.rosetta_table_copy_in_p2(ddp_sidv_tbl, p5_a0
1033 , p5_a1
1034 , p5_a2
1035 , p5_a3
1036 , p5_a4
1037 , p5_a5
1038 , p5_a6
1039 , p5_a7
1040 , p5_a8
1041 , p5_a9
1042 , p5_a10
1043 , p5_a11
1044 , p5_a12
1045 , p5_a13
1046 , p5_a14
1047 , p5_a15
1048 , p5_a16
1049 , p5_a17
1050 , p5_a18
1051 , p5_a19
1052 , p5_a20
1053 , p5_a21
1054 , p5_a22
1055 , p5_a23
1056 , p5_a24
1057 , p5_a25
1058 , p5_a26
1059 , p5_a27
1060 , p5_a28
1061 , p5_a29
1062 , p5_a30
1063 );
1064
1065
1066 -- here's the delegated call to the old PL/SQL routine
1067 okl_sid_pvt.insert_row(p_api_version,
1068 p_init_msg_list,
1069 x_return_status,
1070 x_msg_count,
1071 x_msg_data,
1072 ddp_sidv_tbl,
1073 ddx_sidv_tbl);
1074
1075 -- copy data back from the local variables to OUT or IN-OUT args, if any
1076
1077
1078
1079
1080
1081
1082 okl_sid_pvt_w.rosetta_table_copy_out_p2(ddx_sidv_tbl, p6_a0
1083 , p6_a1
1084 , p6_a2
1085 , p6_a3
1086 , p6_a4
1087 , p6_a5
1088 , p6_a6
1089 , p6_a7
1090 , p6_a8
1091 , p6_a9
1092 , p6_a10
1093 , p6_a11
1094 , p6_a12
1095 , p6_a13
1096 , p6_a14
1097 , p6_a15
1098 , p6_a16
1099 , p6_a17
1100 , p6_a18
1101 , p6_a19
1102 , p6_a20
1103 , p6_a21
1104 , p6_a22
1105 , p6_a23
1106 , p6_a24
1107 , p6_a25
1108 , p6_a26
1109 , p6_a27
1110 , p6_a28
1111 , p6_a29
1112 , p6_a30
1113 );
1114 end;
1115
1116 procedure lock_row(p_api_version NUMBER
1117 , p_init_msg_list VARCHAR2
1118 , x_return_status out nocopy VARCHAR2
1119 , x_msg_count out nocopy NUMBER
1120 , x_msg_data out nocopy VARCHAR2
1121 , p5_a0 NUMBER := 0-1962.0724
1122 , p5_a1 NUMBER := 0-1962.0724
1123 , p5_a2 NUMBER := 0-1962.0724
1124 , p5_a3 NUMBER := 0-1962.0724
1125 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1126 , p5_a5 DATE := fnd_api.g_miss_date
1127 , p5_a6 DATE := fnd_api.g_miss_date
1128 , p5_a7 NUMBER := 0-1962.0724
1129 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1130 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1131 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1132 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1133 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1134 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1135 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1136 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1137 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1138 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1139 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1140 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1141 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1142 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1143 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1144 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1145 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1146 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1147 , p5_a26 NUMBER := 0-1962.0724
1148 , p5_a27 DATE := fnd_api.g_miss_date
1149 , p5_a28 NUMBER := 0-1962.0724
1150 , p5_a29 DATE := fnd_api.g_miss_date
1151 , p5_a30 NUMBER := 0-1962.0724
1152 )
1153
1154 as
1155 ddp_sidv_rec okl_sid_pvt.sidv_rec_type;
1156 ddindx binary_integer; indx binary_integer;
1157 begin
1158
1159 -- copy data to the local IN or IN-OUT args, if any
1160
1161
1162
1163
1164
1165 ddp_sidv_rec.id := rosetta_g_miss_num_map(p5_a0);
1166 ddp_sidv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1167 ddp_sidv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
1168 ddp_sidv_rec.fa_cle_id := rosetta_g_miss_num_map(p5_a3);
1169 ddp_sidv_rec.invoice_number := p5_a4;
1170 ddp_sidv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a5);
1171 ddp_sidv_rec.date_due := rosetta_g_miss_date_in_map(p5_a6);
1172 ddp_sidv_rec.shipping_address_id1 := rosetta_g_miss_num_map(p5_a7);
1173 ddp_sidv_rec.shipping_address_id2 := p5_a8;
1174 ddp_sidv_rec.shipping_address_code := p5_a9;
1175 ddp_sidv_rec.attribute_category := p5_a10;
1176 ddp_sidv_rec.attribute1 := p5_a11;
1177 ddp_sidv_rec.attribute2 := p5_a12;
1178 ddp_sidv_rec.attribute3 := p5_a13;
1179 ddp_sidv_rec.attribute4 := p5_a14;
1180 ddp_sidv_rec.attribute5 := p5_a15;
1181 ddp_sidv_rec.attribute6 := p5_a16;
1182 ddp_sidv_rec.attribute7 := p5_a17;
1183 ddp_sidv_rec.attribute8 := p5_a18;
1184 ddp_sidv_rec.attribute9 := p5_a19;
1185 ddp_sidv_rec.attribute10 := p5_a20;
1186 ddp_sidv_rec.attribute11 := p5_a21;
1187 ddp_sidv_rec.attribute12 := p5_a22;
1188 ddp_sidv_rec.attribute13 := p5_a23;
1189 ddp_sidv_rec.attribute14 := p5_a24;
1190 ddp_sidv_rec.attribute15 := p5_a25;
1191 ddp_sidv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
1192 ddp_sidv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1193 ddp_sidv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
1194 ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1195 ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1196
1197 -- here's the delegated call to the old PL/SQL routine
1198 okl_sid_pvt.lock_row(p_api_version,
1199 p_init_msg_list,
1200 x_return_status,
1201 x_msg_count,
1202 x_msg_data,
1203 ddp_sidv_rec);
1204
1205 -- copy data back from the local variables to OUT or IN-OUT args, if any
1206
1207
1208
1209
1210
1211 end;
1212
1213 procedure lock_row(p_api_version NUMBER
1214 , p_init_msg_list VARCHAR2
1215 , x_return_status out nocopy VARCHAR2
1216 , x_msg_count out nocopy NUMBER
1217 , x_msg_data out nocopy VARCHAR2
1218 , p5_a0 JTF_NUMBER_TABLE
1219 , p5_a1 JTF_NUMBER_TABLE
1220 , p5_a2 JTF_NUMBER_TABLE
1221 , p5_a3 JTF_NUMBER_TABLE
1222 , p5_a4 JTF_VARCHAR2_TABLE_100
1223 , p5_a5 JTF_DATE_TABLE
1224 , p5_a6 JTF_DATE_TABLE
1225 , p5_a7 JTF_NUMBER_TABLE
1226 , p5_a8 JTF_VARCHAR2_TABLE_100
1227 , p5_a9 JTF_VARCHAR2_TABLE_100
1228 , p5_a10 JTF_VARCHAR2_TABLE_100
1229 , p5_a11 JTF_VARCHAR2_TABLE_500
1230 , p5_a12 JTF_VARCHAR2_TABLE_500
1231 , p5_a13 JTF_VARCHAR2_TABLE_500
1232 , p5_a14 JTF_VARCHAR2_TABLE_500
1233 , p5_a15 JTF_VARCHAR2_TABLE_500
1234 , p5_a16 JTF_VARCHAR2_TABLE_500
1235 , p5_a17 JTF_VARCHAR2_TABLE_500
1236 , p5_a18 JTF_VARCHAR2_TABLE_500
1237 , p5_a19 JTF_VARCHAR2_TABLE_500
1238 , p5_a20 JTF_VARCHAR2_TABLE_500
1239 , p5_a21 JTF_VARCHAR2_TABLE_500
1240 , p5_a22 JTF_VARCHAR2_TABLE_500
1241 , p5_a23 JTF_VARCHAR2_TABLE_500
1242 , p5_a24 JTF_VARCHAR2_TABLE_500
1243 , p5_a25 JTF_VARCHAR2_TABLE_500
1244 , p5_a26 JTF_NUMBER_TABLE
1245 , p5_a27 JTF_DATE_TABLE
1246 , p5_a28 JTF_NUMBER_TABLE
1247 , p5_a29 JTF_DATE_TABLE
1248 , p5_a30 JTF_NUMBER_TABLE
1249 )
1250
1251 as
1252 ddp_sidv_tbl okl_sid_pvt.sidv_tbl_type;
1253 ddindx binary_integer; indx binary_integer;
1254 begin
1255
1256 -- copy data to the local IN or IN-OUT args, if any
1257
1258
1259
1260
1261
1262 okl_sid_pvt_w.rosetta_table_copy_in_p2(ddp_sidv_tbl, p5_a0
1263 , p5_a1
1264 , p5_a2
1265 , p5_a3
1266 , p5_a4
1267 , p5_a5
1268 , p5_a6
1269 , p5_a7
1270 , p5_a8
1271 , p5_a9
1272 , p5_a10
1273 , p5_a11
1274 , p5_a12
1275 , p5_a13
1276 , p5_a14
1277 , p5_a15
1278 , p5_a16
1279 , p5_a17
1280 , p5_a18
1281 , p5_a19
1282 , p5_a20
1283 , p5_a21
1284 , p5_a22
1285 , p5_a23
1286 , p5_a24
1287 , p5_a25
1288 , p5_a26
1289 , p5_a27
1290 , p5_a28
1291 , p5_a29
1292 , p5_a30
1293 );
1294
1295 -- here's the delegated call to the old PL/SQL routine
1296 okl_sid_pvt.lock_row(p_api_version,
1297 p_init_msg_list,
1298 x_return_status,
1299 x_msg_count,
1300 x_msg_data,
1301 ddp_sidv_tbl);
1302
1303 -- copy data back from the local variables to OUT or IN-OUT args, if any
1304
1305
1306
1307
1308
1309 end;
1310
1311 procedure update_row(p_api_version NUMBER
1312 , p_init_msg_list VARCHAR2
1313 , x_return_status out nocopy VARCHAR2
1314 , x_msg_count out nocopy NUMBER
1315 , x_msg_data out nocopy VARCHAR2
1316 , p6_a0 out nocopy NUMBER
1317 , p6_a1 out nocopy NUMBER
1318 , p6_a2 out nocopy NUMBER
1319 , p6_a3 out nocopy NUMBER
1320 , p6_a4 out nocopy VARCHAR2
1321 , p6_a5 out nocopy DATE
1322 , p6_a6 out nocopy DATE
1323 , p6_a7 out nocopy NUMBER
1324 , p6_a8 out nocopy VARCHAR2
1325 , p6_a9 out nocopy VARCHAR2
1326 , p6_a10 out nocopy VARCHAR2
1327 , p6_a11 out nocopy VARCHAR2
1328 , p6_a12 out nocopy VARCHAR2
1329 , p6_a13 out nocopy VARCHAR2
1330 , p6_a14 out nocopy VARCHAR2
1331 , p6_a15 out nocopy VARCHAR2
1332 , p6_a16 out nocopy VARCHAR2
1333 , p6_a17 out nocopy VARCHAR2
1334 , p6_a18 out nocopy VARCHAR2
1335 , p6_a19 out nocopy VARCHAR2
1336 , p6_a20 out nocopy VARCHAR2
1337 , p6_a21 out nocopy VARCHAR2
1338 , p6_a22 out nocopy VARCHAR2
1339 , p6_a23 out nocopy VARCHAR2
1340 , p6_a24 out nocopy VARCHAR2
1341 , p6_a25 out nocopy VARCHAR2
1342 , p6_a26 out nocopy NUMBER
1343 , p6_a27 out nocopy DATE
1344 , p6_a28 out nocopy NUMBER
1345 , p6_a29 out nocopy DATE
1346 , p6_a30 out nocopy NUMBER
1347 , p5_a0 NUMBER := 0-1962.0724
1348 , p5_a1 NUMBER := 0-1962.0724
1349 , p5_a2 NUMBER := 0-1962.0724
1350 , p5_a3 NUMBER := 0-1962.0724
1351 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1352 , p5_a5 DATE := fnd_api.g_miss_date
1353 , p5_a6 DATE := fnd_api.g_miss_date
1354 , p5_a7 NUMBER := 0-1962.0724
1355 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1356 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1357 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1358 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1359 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1360 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1361 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1362 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1363 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1364 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1365 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1366 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1367 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1368 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1369 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1370 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1371 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1372 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1373 , p5_a26 NUMBER := 0-1962.0724
1374 , p5_a27 DATE := fnd_api.g_miss_date
1375 , p5_a28 NUMBER := 0-1962.0724
1376 , p5_a29 DATE := fnd_api.g_miss_date
1377 , p5_a30 NUMBER := 0-1962.0724
1378 )
1379
1380 as
1381 ddp_sidv_rec okl_sid_pvt.sidv_rec_type;
1382 ddx_sidv_rec okl_sid_pvt.sidv_rec_type;
1383 ddindx binary_integer; indx binary_integer;
1384 begin
1385
1386 -- copy data to the local IN or IN-OUT args, if any
1387
1388
1389
1390
1391
1392 ddp_sidv_rec.id := rosetta_g_miss_num_map(p5_a0);
1393 ddp_sidv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1394 ddp_sidv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
1395 ddp_sidv_rec.fa_cle_id := rosetta_g_miss_num_map(p5_a3);
1396 ddp_sidv_rec.invoice_number := p5_a4;
1397 ddp_sidv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a5);
1398 ddp_sidv_rec.date_due := rosetta_g_miss_date_in_map(p5_a6);
1399 ddp_sidv_rec.shipping_address_id1 := rosetta_g_miss_num_map(p5_a7);
1400 ddp_sidv_rec.shipping_address_id2 := p5_a8;
1401 ddp_sidv_rec.shipping_address_code := p5_a9;
1402 ddp_sidv_rec.attribute_category := p5_a10;
1403 ddp_sidv_rec.attribute1 := p5_a11;
1404 ddp_sidv_rec.attribute2 := p5_a12;
1405 ddp_sidv_rec.attribute3 := p5_a13;
1406 ddp_sidv_rec.attribute4 := p5_a14;
1407 ddp_sidv_rec.attribute5 := p5_a15;
1408 ddp_sidv_rec.attribute6 := p5_a16;
1409 ddp_sidv_rec.attribute7 := p5_a17;
1410 ddp_sidv_rec.attribute8 := p5_a18;
1411 ddp_sidv_rec.attribute9 := p5_a19;
1412 ddp_sidv_rec.attribute10 := p5_a20;
1413 ddp_sidv_rec.attribute11 := p5_a21;
1414 ddp_sidv_rec.attribute12 := p5_a22;
1415 ddp_sidv_rec.attribute13 := p5_a23;
1416 ddp_sidv_rec.attribute14 := p5_a24;
1417 ddp_sidv_rec.attribute15 := p5_a25;
1418 ddp_sidv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
1419 ddp_sidv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1420 ddp_sidv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
1421 ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1422 ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1423
1424
1425 -- here's the delegated call to the old PL/SQL routine
1426 okl_sid_pvt.update_row(p_api_version,
1427 p_init_msg_list,
1428 x_return_status,
1429 x_msg_count,
1430 x_msg_data,
1431 ddp_sidv_rec,
1432 ddx_sidv_rec);
1433
1434 -- copy data back from the local variables to OUT or IN-OUT args, if any
1435
1436
1437
1438
1439
1440
1441 p6_a0 := rosetta_g_miss_num_map(ddx_sidv_rec.id);
1442 p6_a1 := rosetta_g_miss_num_map(ddx_sidv_rec.object_version_number);
1443 p6_a2 := rosetta_g_miss_num_map(ddx_sidv_rec.cle_id);
1444 p6_a3 := rosetta_g_miss_num_map(ddx_sidv_rec.fa_cle_id);
1445 p6_a4 := ddx_sidv_rec.invoice_number;
1446 p6_a5 := ddx_sidv_rec.date_invoiced;
1447 p6_a6 := ddx_sidv_rec.date_due;
1448 p6_a7 := rosetta_g_miss_num_map(ddx_sidv_rec.shipping_address_id1);
1449 p6_a8 := ddx_sidv_rec.shipping_address_id2;
1450 p6_a9 := ddx_sidv_rec.shipping_address_code;
1451 p6_a10 := ddx_sidv_rec.attribute_category;
1452 p6_a11 := ddx_sidv_rec.attribute1;
1453 p6_a12 := ddx_sidv_rec.attribute2;
1454 p6_a13 := ddx_sidv_rec.attribute3;
1455 p6_a14 := ddx_sidv_rec.attribute4;
1456 p6_a15 := ddx_sidv_rec.attribute5;
1457 p6_a16 := ddx_sidv_rec.attribute6;
1458 p6_a17 := ddx_sidv_rec.attribute7;
1459 p6_a18 := ddx_sidv_rec.attribute8;
1460 p6_a19 := ddx_sidv_rec.attribute9;
1461 p6_a20 := ddx_sidv_rec.attribute10;
1462 p6_a21 := ddx_sidv_rec.attribute11;
1463 p6_a22 := ddx_sidv_rec.attribute12;
1464 p6_a23 := ddx_sidv_rec.attribute13;
1465 p6_a24 := ddx_sidv_rec.attribute14;
1466 p6_a25 := ddx_sidv_rec.attribute15;
1467 p6_a26 := rosetta_g_miss_num_map(ddx_sidv_rec.created_by);
1468 p6_a27 := ddx_sidv_rec.creation_date;
1469 p6_a28 := rosetta_g_miss_num_map(ddx_sidv_rec.last_updated_by);
1470 p6_a29 := ddx_sidv_rec.last_update_date;
1471 p6_a30 := rosetta_g_miss_num_map(ddx_sidv_rec.last_update_login);
1472 end;
1473
1474 procedure update_row(p_api_version NUMBER
1475 , p_init_msg_list VARCHAR2
1476 , x_return_status out nocopy VARCHAR2
1477 , x_msg_count out nocopy NUMBER
1478 , x_msg_data out nocopy VARCHAR2
1479 , p5_a0 JTF_NUMBER_TABLE
1480 , p5_a1 JTF_NUMBER_TABLE
1481 , p5_a2 JTF_NUMBER_TABLE
1482 , p5_a3 JTF_NUMBER_TABLE
1483 , p5_a4 JTF_VARCHAR2_TABLE_100
1484 , p5_a5 JTF_DATE_TABLE
1485 , p5_a6 JTF_DATE_TABLE
1486 , p5_a7 JTF_NUMBER_TABLE
1487 , p5_a8 JTF_VARCHAR2_TABLE_100
1488 , p5_a9 JTF_VARCHAR2_TABLE_100
1489 , p5_a10 JTF_VARCHAR2_TABLE_100
1490 , p5_a11 JTF_VARCHAR2_TABLE_500
1491 , p5_a12 JTF_VARCHAR2_TABLE_500
1492 , p5_a13 JTF_VARCHAR2_TABLE_500
1493 , p5_a14 JTF_VARCHAR2_TABLE_500
1494 , p5_a15 JTF_VARCHAR2_TABLE_500
1495 , p5_a16 JTF_VARCHAR2_TABLE_500
1496 , p5_a17 JTF_VARCHAR2_TABLE_500
1497 , p5_a18 JTF_VARCHAR2_TABLE_500
1498 , p5_a19 JTF_VARCHAR2_TABLE_500
1499 , p5_a20 JTF_VARCHAR2_TABLE_500
1500 , p5_a21 JTF_VARCHAR2_TABLE_500
1501 , p5_a22 JTF_VARCHAR2_TABLE_500
1502 , p5_a23 JTF_VARCHAR2_TABLE_500
1503 , p5_a24 JTF_VARCHAR2_TABLE_500
1504 , p5_a25 JTF_VARCHAR2_TABLE_500
1505 , p5_a26 JTF_NUMBER_TABLE
1506 , p5_a27 JTF_DATE_TABLE
1507 , p5_a28 JTF_NUMBER_TABLE
1508 , p5_a29 JTF_DATE_TABLE
1509 , p5_a30 JTF_NUMBER_TABLE
1510 , p6_a0 out nocopy JTF_NUMBER_TABLE
1511 , p6_a1 out nocopy JTF_NUMBER_TABLE
1512 , p6_a2 out nocopy JTF_NUMBER_TABLE
1513 , p6_a3 out nocopy JTF_NUMBER_TABLE
1514 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
1515 , p6_a5 out nocopy JTF_DATE_TABLE
1516 , p6_a6 out nocopy JTF_DATE_TABLE
1517 , p6_a7 out nocopy JTF_NUMBER_TABLE
1518 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
1519 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
1520 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
1521 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
1522 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1523 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1524 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1525 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1526 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1527 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1528 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1529 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1530 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1531 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1532 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1533 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1534 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1535 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1536 , p6_a26 out nocopy JTF_NUMBER_TABLE
1537 , p6_a27 out nocopy JTF_DATE_TABLE
1538 , p6_a28 out nocopy JTF_NUMBER_TABLE
1539 , p6_a29 out nocopy JTF_DATE_TABLE
1540 , p6_a30 out nocopy JTF_NUMBER_TABLE
1541 )
1542
1543 as
1544 ddp_sidv_tbl okl_sid_pvt.sidv_tbl_type;
1545 ddx_sidv_tbl okl_sid_pvt.sidv_tbl_type;
1546 ddindx binary_integer; indx binary_integer;
1547 begin
1548
1549 -- copy data to the local IN or IN-OUT args, if any
1550
1551
1552
1553
1554
1555 okl_sid_pvt_w.rosetta_table_copy_in_p2(ddp_sidv_tbl, p5_a0
1556 , p5_a1
1557 , p5_a2
1558 , p5_a3
1559 , p5_a4
1560 , p5_a5
1561 , p5_a6
1562 , p5_a7
1563 , p5_a8
1564 , p5_a9
1565 , p5_a10
1566 , p5_a11
1567 , p5_a12
1568 , p5_a13
1569 , p5_a14
1570 , p5_a15
1571 , p5_a16
1572 , p5_a17
1573 , p5_a18
1574 , p5_a19
1575 , p5_a20
1576 , p5_a21
1577 , p5_a22
1578 , p5_a23
1579 , p5_a24
1580 , p5_a25
1581 , p5_a26
1582 , p5_a27
1583 , p5_a28
1584 , p5_a29
1585 , p5_a30
1586 );
1587
1588
1589 -- here's the delegated call to the old PL/SQL routine
1590 okl_sid_pvt.update_row(p_api_version,
1591 p_init_msg_list,
1592 x_return_status,
1593 x_msg_count,
1594 x_msg_data,
1595 ddp_sidv_tbl,
1596 ddx_sidv_tbl);
1597
1598 -- copy data back from the local variables to OUT or IN-OUT args, if any
1599
1600
1601
1602
1603
1604
1605 okl_sid_pvt_w.rosetta_table_copy_out_p2(ddx_sidv_tbl, p6_a0
1606 , p6_a1
1607 , p6_a2
1608 , p6_a3
1609 , p6_a4
1610 , p6_a5
1611 , p6_a6
1612 , p6_a7
1613 , p6_a8
1614 , p6_a9
1615 , p6_a10
1616 , p6_a11
1617 , p6_a12
1618 , p6_a13
1619 , p6_a14
1620 , p6_a15
1621 , p6_a16
1622 , p6_a17
1623 , p6_a18
1624 , p6_a19
1625 , p6_a20
1626 , p6_a21
1627 , p6_a22
1628 , p6_a23
1629 , p6_a24
1630 , p6_a25
1631 , p6_a26
1632 , p6_a27
1633 , p6_a28
1634 , p6_a29
1635 , p6_a30
1636 );
1637 end;
1638
1639 procedure delete_row(p_api_version NUMBER
1640 , p_init_msg_list VARCHAR2
1641 , x_return_status out nocopy VARCHAR2
1642 , x_msg_count out nocopy NUMBER
1643 , x_msg_data out nocopy VARCHAR2
1644 , p5_a0 NUMBER := 0-1962.0724
1645 , p5_a1 NUMBER := 0-1962.0724
1646 , p5_a2 NUMBER := 0-1962.0724
1647 , p5_a3 NUMBER := 0-1962.0724
1648 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1649 , p5_a5 DATE := fnd_api.g_miss_date
1650 , p5_a6 DATE := fnd_api.g_miss_date
1651 , p5_a7 NUMBER := 0-1962.0724
1652 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1653 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1654 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1655 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1656 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1657 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1658 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1659 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1660 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1661 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1662 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1663 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1664 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1665 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1666 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1667 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1668 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1669 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1670 , p5_a26 NUMBER := 0-1962.0724
1671 , p5_a27 DATE := fnd_api.g_miss_date
1672 , p5_a28 NUMBER := 0-1962.0724
1673 , p5_a29 DATE := fnd_api.g_miss_date
1674 , p5_a30 NUMBER := 0-1962.0724
1675 )
1676
1677 as
1678 ddp_sidv_rec okl_sid_pvt.sidv_rec_type;
1679 ddindx binary_integer; indx binary_integer;
1680 begin
1681
1682 -- copy data to the local IN or IN-OUT args, if any
1683
1684
1685
1686
1687
1688 ddp_sidv_rec.id := rosetta_g_miss_num_map(p5_a0);
1689 ddp_sidv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1690 ddp_sidv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
1691 ddp_sidv_rec.fa_cle_id := rosetta_g_miss_num_map(p5_a3);
1692 ddp_sidv_rec.invoice_number := p5_a4;
1693 ddp_sidv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a5);
1694 ddp_sidv_rec.date_due := rosetta_g_miss_date_in_map(p5_a6);
1695 ddp_sidv_rec.shipping_address_id1 := rosetta_g_miss_num_map(p5_a7);
1696 ddp_sidv_rec.shipping_address_id2 := p5_a8;
1697 ddp_sidv_rec.shipping_address_code := p5_a9;
1698 ddp_sidv_rec.attribute_category := p5_a10;
1699 ddp_sidv_rec.attribute1 := p5_a11;
1700 ddp_sidv_rec.attribute2 := p5_a12;
1701 ddp_sidv_rec.attribute3 := p5_a13;
1702 ddp_sidv_rec.attribute4 := p5_a14;
1703 ddp_sidv_rec.attribute5 := p5_a15;
1704 ddp_sidv_rec.attribute6 := p5_a16;
1705 ddp_sidv_rec.attribute7 := p5_a17;
1706 ddp_sidv_rec.attribute8 := p5_a18;
1707 ddp_sidv_rec.attribute9 := p5_a19;
1708 ddp_sidv_rec.attribute10 := p5_a20;
1709 ddp_sidv_rec.attribute11 := p5_a21;
1710 ddp_sidv_rec.attribute12 := p5_a22;
1711 ddp_sidv_rec.attribute13 := p5_a23;
1712 ddp_sidv_rec.attribute14 := p5_a24;
1713 ddp_sidv_rec.attribute15 := p5_a25;
1714 ddp_sidv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
1715 ddp_sidv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1716 ddp_sidv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
1717 ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1718 ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1719
1720 -- here's the delegated call to the old PL/SQL routine
1721 okl_sid_pvt.delete_row(p_api_version,
1722 p_init_msg_list,
1723 x_return_status,
1724 x_msg_count,
1725 x_msg_data,
1726 ddp_sidv_rec);
1727
1728 -- copy data back from the local variables to OUT or IN-OUT args, if any
1729
1730
1731
1732
1733
1734 end;
1735
1736 procedure delete_row(p_api_version NUMBER
1737 , p_init_msg_list VARCHAR2
1738 , x_return_status out nocopy VARCHAR2
1739 , x_msg_count out nocopy NUMBER
1740 , x_msg_data out nocopy VARCHAR2
1741 , p5_a0 JTF_NUMBER_TABLE
1742 , p5_a1 JTF_NUMBER_TABLE
1743 , p5_a2 JTF_NUMBER_TABLE
1744 , p5_a3 JTF_NUMBER_TABLE
1745 , p5_a4 JTF_VARCHAR2_TABLE_100
1746 , p5_a5 JTF_DATE_TABLE
1747 , p5_a6 JTF_DATE_TABLE
1748 , p5_a7 JTF_NUMBER_TABLE
1749 , p5_a8 JTF_VARCHAR2_TABLE_100
1750 , p5_a9 JTF_VARCHAR2_TABLE_100
1751 , p5_a10 JTF_VARCHAR2_TABLE_100
1752 , p5_a11 JTF_VARCHAR2_TABLE_500
1753 , p5_a12 JTF_VARCHAR2_TABLE_500
1754 , p5_a13 JTF_VARCHAR2_TABLE_500
1755 , p5_a14 JTF_VARCHAR2_TABLE_500
1756 , p5_a15 JTF_VARCHAR2_TABLE_500
1757 , p5_a16 JTF_VARCHAR2_TABLE_500
1758 , p5_a17 JTF_VARCHAR2_TABLE_500
1759 , p5_a18 JTF_VARCHAR2_TABLE_500
1760 , p5_a19 JTF_VARCHAR2_TABLE_500
1761 , p5_a20 JTF_VARCHAR2_TABLE_500
1762 , p5_a21 JTF_VARCHAR2_TABLE_500
1763 , p5_a22 JTF_VARCHAR2_TABLE_500
1764 , p5_a23 JTF_VARCHAR2_TABLE_500
1765 , p5_a24 JTF_VARCHAR2_TABLE_500
1766 , p5_a25 JTF_VARCHAR2_TABLE_500
1767 , p5_a26 JTF_NUMBER_TABLE
1768 , p5_a27 JTF_DATE_TABLE
1769 , p5_a28 JTF_NUMBER_TABLE
1770 , p5_a29 JTF_DATE_TABLE
1771 , p5_a30 JTF_NUMBER_TABLE
1772 )
1773
1774 as
1775 ddp_sidv_tbl okl_sid_pvt.sidv_tbl_type;
1776 ddindx binary_integer; indx binary_integer;
1777 begin
1778
1779 -- copy data to the local IN or IN-OUT args, if any
1780
1781
1782
1783
1784
1785 okl_sid_pvt_w.rosetta_table_copy_in_p2(ddp_sidv_tbl, p5_a0
1786 , p5_a1
1787 , p5_a2
1788 , p5_a3
1789 , p5_a4
1790 , p5_a5
1791 , p5_a6
1792 , p5_a7
1793 , p5_a8
1794 , p5_a9
1795 , p5_a10
1796 , p5_a11
1797 , p5_a12
1798 , p5_a13
1799 , p5_a14
1800 , p5_a15
1801 , p5_a16
1802 , p5_a17
1803 , p5_a18
1804 , p5_a19
1805 , p5_a20
1806 , p5_a21
1807 , p5_a22
1808 , p5_a23
1809 , p5_a24
1810 , p5_a25
1811 , p5_a26
1812 , p5_a27
1813 , p5_a28
1814 , p5_a29
1815 , p5_a30
1816 );
1817
1818 -- here's the delegated call to the old PL/SQL routine
1819 okl_sid_pvt.delete_row(p_api_version,
1820 p_init_msg_list,
1821 x_return_status,
1822 x_msg_count,
1823 x_msg_data,
1824 ddp_sidv_tbl);
1825
1826 -- copy data back from the local variables to OUT or IN-OUT args, if any
1827
1828
1829
1830
1831
1832 end;
1833
1834 procedure validate_row(p_api_version NUMBER
1835 , p_init_msg_list VARCHAR2
1836 , x_return_status out nocopy VARCHAR2
1837 , x_msg_count out nocopy NUMBER
1838 , x_msg_data out nocopy VARCHAR2
1839 , p5_a0 NUMBER := 0-1962.0724
1840 , p5_a1 NUMBER := 0-1962.0724
1841 , p5_a2 NUMBER := 0-1962.0724
1842 , p5_a3 NUMBER := 0-1962.0724
1843 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1844 , p5_a5 DATE := fnd_api.g_miss_date
1845 , p5_a6 DATE := fnd_api.g_miss_date
1846 , p5_a7 NUMBER := 0-1962.0724
1847 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1848 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1849 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1850 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1851 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1852 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1853 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1854 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1855 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1856 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1857 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1858 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1859 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1860 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1861 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1862 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1863 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1864 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1865 , p5_a26 NUMBER := 0-1962.0724
1866 , p5_a27 DATE := fnd_api.g_miss_date
1867 , p5_a28 NUMBER := 0-1962.0724
1868 , p5_a29 DATE := fnd_api.g_miss_date
1869 , p5_a30 NUMBER := 0-1962.0724
1870 )
1871
1872 as
1873 ddp_sidv_rec okl_sid_pvt.sidv_rec_type;
1874 ddindx binary_integer; indx binary_integer;
1875 begin
1876
1877 -- copy data to the local IN or IN-OUT args, if any
1878
1879
1880
1881
1882
1883 ddp_sidv_rec.id := rosetta_g_miss_num_map(p5_a0);
1884 ddp_sidv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1885 ddp_sidv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
1886 ddp_sidv_rec.fa_cle_id := rosetta_g_miss_num_map(p5_a3);
1887 ddp_sidv_rec.invoice_number := p5_a4;
1888 ddp_sidv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a5);
1889 ddp_sidv_rec.date_due := rosetta_g_miss_date_in_map(p5_a6);
1890 ddp_sidv_rec.shipping_address_id1 := rosetta_g_miss_num_map(p5_a7);
1891 ddp_sidv_rec.shipping_address_id2 := p5_a8;
1892 ddp_sidv_rec.shipping_address_code := p5_a9;
1893 ddp_sidv_rec.attribute_category := p5_a10;
1894 ddp_sidv_rec.attribute1 := p5_a11;
1895 ddp_sidv_rec.attribute2 := p5_a12;
1896 ddp_sidv_rec.attribute3 := p5_a13;
1897 ddp_sidv_rec.attribute4 := p5_a14;
1898 ddp_sidv_rec.attribute5 := p5_a15;
1899 ddp_sidv_rec.attribute6 := p5_a16;
1900 ddp_sidv_rec.attribute7 := p5_a17;
1901 ddp_sidv_rec.attribute8 := p5_a18;
1902 ddp_sidv_rec.attribute9 := p5_a19;
1903 ddp_sidv_rec.attribute10 := p5_a20;
1904 ddp_sidv_rec.attribute11 := p5_a21;
1905 ddp_sidv_rec.attribute12 := p5_a22;
1906 ddp_sidv_rec.attribute13 := p5_a23;
1907 ddp_sidv_rec.attribute14 := p5_a24;
1908 ddp_sidv_rec.attribute15 := p5_a25;
1909 ddp_sidv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
1910 ddp_sidv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1911 ddp_sidv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
1912 ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1913 ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1914
1915 -- here's the delegated call to the old PL/SQL routine
1916 okl_sid_pvt.validate_row(p_api_version,
1917 p_init_msg_list,
1918 x_return_status,
1919 x_msg_count,
1920 x_msg_data,
1921 ddp_sidv_rec);
1922
1923 -- copy data back from the local variables to OUT or IN-OUT args, if any
1924
1925
1926
1927
1928
1929 end;
1930
1931 procedure validate_row(p_api_version NUMBER
1932 , p_init_msg_list VARCHAR2
1933 , x_return_status out nocopy VARCHAR2
1934 , x_msg_count out nocopy NUMBER
1935 , x_msg_data out nocopy VARCHAR2
1936 , p5_a0 JTF_NUMBER_TABLE
1937 , p5_a1 JTF_NUMBER_TABLE
1938 , p5_a2 JTF_NUMBER_TABLE
1939 , p5_a3 JTF_NUMBER_TABLE
1940 , p5_a4 JTF_VARCHAR2_TABLE_100
1941 , p5_a5 JTF_DATE_TABLE
1942 , p5_a6 JTF_DATE_TABLE
1943 , p5_a7 JTF_NUMBER_TABLE
1944 , p5_a8 JTF_VARCHAR2_TABLE_100
1945 , p5_a9 JTF_VARCHAR2_TABLE_100
1946 , p5_a10 JTF_VARCHAR2_TABLE_100
1947 , p5_a11 JTF_VARCHAR2_TABLE_500
1948 , p5_a12 JTF_VARCHAR2_TABLE_500
1949 , p5_a13 JTF_VARCHAR2_TABLE_500
1950 , p5_a14 JTF_VARCHAR2_TABLE_500
1951 , p5_a15 JTF_VARCHAR2_TABLE_500
1952 , p5_a16 JTF_VARCHAR2_TABLE_500
1953 , p5_a17 JTF_VARCHAR2_TABLE_500
1954 , p5_a18 JTF_VARCHAR2_TABLE_500
1955 , p5_a19 JTF_VARCHAR2_TABLE_500
1956 , p5_a20 JTF_VARCHAR2_TABLE_500
1957 , p5_a21 JTF_VARCHAR2_TABLE_500
1958 , p5_a22 JTF_VARCHAR2_TABLE_500
1959 , p5_a23 JTF_VARCHAR2_TABLE_500
1960 , p5_a24 JTF_VARCHAR2_TABLE_500
1961 , p5_a25 JTF_VARCHAR2_TABLE_500
1962 , p5_a26 JTF_NUMBER_TABLE
1963 , p5_a27 JTF_DATE_TABLE
1964 , p5_a28 JTF_NUMBER_TABLE
1965 , p5_a29 JTF_DATE_TABLE
1966 , p5_a30 JTF_NUMBER_TABLE
1967 )
1968
1969 as
1970 ddp_sidv_tbl okl_sid_pvt.sidv_tbl_type;
1971 ddindx binary_integer; indx binary_integer;
1972 begin
1973
1974 -- copy data to the local IN or IN-OUT args, if any
1975
1976
1977
1978
1979
1980 okl_sid_pvt_w.rosetta_table_copy_in_p2(ddp_sidv_tbl, p5_a0
1981 , p5_a1
1982 , p5_a2
1983 , p5_a3
1984 , p5_a4
1985 , p5_a5
1986 , p5_a6
1987 , p5_a7
1988 , p5_a8
1989 , p5_a9
1990 , p5_a10
1991 , p5_a11
1992 , p5_a12
1993 , p5_a13
1994 , p5_a14
1995 , p5_a15
1996 , p5_a16
1997 , p5_a17
1998 , p5_a18
1999 , p5_a19
2000 , p5_a20
2001 , p5_a21
2002 , p5_a22
2003 , p5_a23
2004 , p5_a24
2005 , p5_a25
2006 , p5_a26
2007 , p5_a27
2008 , p5_a28
2009 , p5_a29
2010 , p5_a30
2011 );
2012
2013 -- here's the delegated call to the old PL/SQL routine
2014 okl_sid_pvt.validate_row(p_api_version,
2015 p_init_msg_list,
2016 x_return_status,
2017 x_msg_count,
2018 x_msg_data,
2019 ddp_sidv_tbl);
2020
2021 -- copy data back from the local variables to OUT or IN-OUT args, if any
2022
2023
2024
2025
2026
2027 end;
2028
2029 end okl_sid_pvt_w;