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