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