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