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