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