[Home] [Help]
PACKAGE BODY: APPS.OKL_TRY_PVT_W
Source
1 package body okl_try_pvt_w as
2 /* $Header: OKLITRYB.pls 120.2 2005/07/15 07:40:21 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
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_try_pvt.try_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_DATE_TABLE
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_DATE_TABLE
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_VARCHAR2_TABLE_100
36 , a14 JTF_VARCHAR2_TABLE_100
37 , a15 JTF_VARCHAR2_TABLE_100
38 , a16 JTF_VARCHAR2_TABLE_100
39 ) as
40 ddindx binary_integer; indx binary_integer;
41 begin
42 if a0 is not null and a0.count > 0 then
43 if a0.count > 0 then
44 indx := a0.first;
45 ddindx := 1;
46 while true loop
47 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
48 t(ddindx).try_id := rosetta_g_miss_num_map(a1(indx));
49 t(ddindx).try_id_for := rosetta_g_miss_num_map(a2(indx));
50 t(ddindx).ilc_id := rosetta_g_miss_num_map(a3(indx));
51 t(ddindx).aep_code := a4(indx);
52 t(ddindx).try_type := a5(indx);
53 t(ddindx).object_version_number := rosetta_g_miss_num_map(a6(indx));
54 t(ddindx).org_id := rosetta_g_miss_num_map(a7(indx));
55 t(ddindx).created_by := rosetta_g_miss_num_map(a8(indx));
56 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a9(indx));
57 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a10(indx));
58 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a11(indx));
59 t(ddindx).last_update_login := rosetta_g_miss_num_map(a12(indx));
60 t(ddindx).trx_type_class := a13(indx);
61 t(ddindx).tax_upfront_yn := a14(indx);
62 t(ddindx).tax_invoice_yn := a15(indx);
63 t(ddindx).tax_schedule_yn := a16(indx);
64 ddindx := ddindx+1;
65 if a0.last =indx
66 then exit;
67 end if;
68 indx := a0.next(indx);
69 end loop;
70 end if;
71 end if;
72 end rosetta_table_copy_in_p2;
73 procedure rosetta_table_copy_out_p2(t okl_try_pvt.try_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
74 , a1 out nocopy JTF_NUMBER_TABLE
75 , a2 out nocopy JTF_NUMBER_TABLE
76 , a3 out nocopy JTF_NUMBER_TABLE
77 , a4 out nocopy JTF_VARCHAR2_TABLE_100
78 , a5 out nocopy JTF_VARCHAR2_TABLE_100
79 , a6 out nocopy JTF_NUMBER_TABLE
80 , a7 out nocopy JTF_NUMBER_TABLE
81 , a8 out nocopy JTF_NUMBER_TABLE
82 , a9 out nocopy JTF_DATE_TABLE
83 , a10 out nocopy JTF_NUMBER_TABLE
84 , a11 out nocopy JTF_DATE_TABLE
85 , a12 out nocopy JTF_NUMBER_TABLE
86 , a13 out nocopy JTF_VARCHAR2_TABLE_100
87 , a14 out nocopy JTF_VARCHAR2_TABLE_100
88 , a15 out nocopy JTF_VARCHAR2_TABLE_100
89 , a16 out nocopy JTF_VARCHAR2_TABLE_100
90 ) as
91 ddindx binary_integer; indx binary_integer;
92 begin
93 if t is null or t.count = 0 then
94 a0 := JTF_NUMBER_TABLE();
95 a1 := JTF_NUMBER_TABLE();
96 a2 := JTF_NUMBER_TABLE();
97 a3 := JTF_NUMBER_TABLE();
98 a4 := JTF_VARCHAR2_TABLE_100();
99 a5 := JTF_VARCHAR2_TABLE_100();
100 a6 := JTF_NUMBER_TABLE();
101 a7 := JTF_NUMBER_TABLE();
102 a8 := JTF_NUMBER_TABLE();
103 a9 := JTF_DATE_TABLE();
104 a10 := JTF_NUMBER_TABLE();
105 a11 := JTF_DATE_TABLE();
106 a12 := JTF_NUMBER_TABLE();
107 a13 := JTF_VARCHAR2_TABLE_100();
108 a14 := JTF_VARCHAR2_TABLE_100();
109 a15 := JTF_VARCHAR2_TABLE_100();
110 a16 := JTF_VARCHAR2_TABLE_100();
111 else
112 a0 := JTF_NUMBER_TABLE();
113 a1 := JTF_NUMBER_TABLE();
114 a2 := JTF_NUMBER_TABLE();
115 a3 := JTF_NUMBER_TABLE();
116 a4 := JTF_VARCHAR2_TABLE_100();
117 a5 := JTF_VARCHAR2_TABLE_100();
118 a6 := JTF_NUMBER_TABLE();
119 a7 := JTF_NUMBER_TABLE();
120 a8 := JTF_NUMBER_TABLE();
121 a9 := JTF_DATE_TABLE();
122 a10 := JTF_NUMBER_TABLE();
123 a11 := JTF_DATE_TABLE();
124 a12 := JTF_NUMBER_TABLE();
125 a13 := JTF_VARCHAR2_TABLE_100();
126 a14 := JTF_VARCHAR2_TABLE_100();
127 a15 := JTF_VARCHAR2_TABLE_100();
128 a16 := JTF_VARCHAR2_TABLE_100();
129 if t.count > 0 then
130 a0.extend(t.count);
131 a1.extend(t.count);
132 a2.extend(t.count);
133 a3.extend(t.count);
134 a4.extend(t.count);
135 a5.extend(t.count);
136 a6.extend(t.count);
137 a7.extend(t.count);
138 a8.extend(t.count);
139 a9.extend(t.count);
140 a10.extend(t.count);
141 a11.extend(t.count);
142 a12.extend(t.count);
143 a13.extend(t.count);
144 a14.extend(t.count);
145 a15.extend(t.count);
146 a16.extend(t.count);
147 ddindx := t.first;
148 indx := 1;
149 while true loop
150 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
151 a1(indx) := rosetta_g_miss_num_map(t(ddindx).try_id);
152 a2(indx) := rosetta_g_miss_num_map(t(ddindx).try_id_for);
153 a3(indx) := rosetta_g_miss_num_map(t(ddindx).ilc_id);
154 a4(indx) := t(ddindx).aep_code;
155 a5(indx) := t(ddindx).try_type;
156 a6(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
157 a7(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
158 a8(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
159 a9(indx) := t(ddindx).creation_date;
160 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
161 a11(indx) := t(ddindx).last_update_date;
162 a12(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
163 a13(indx) := t(ddindx).trx_type_class;
164 a14(indx) := t(ddindx).tax_upfront_yn;
165 a15(indx) := t(ddindx).tax_invoice_yn;
166 a16(indx) := t(ddindx).tax_schedule_yn;
167 indx := indx+1;
168 if t.last =ddindx
169 then exit;
170 end if;
171 ddindx := t.next(ddindx);
172 end loop;
173 end if;
174 end if;
175 end rosetta_table_copy_out_p2;
176
177 procedure rosetta_table_copy_in_p5(t out nocopy okl_try_pvt.okl_trx_types_tl_tbl_type, a0 JTF_NUMBER_TABLE
178 , a1 JTF_VARCHAR2_TABLE_100
179 , a2 JTF_VARCHAR2_TABLE_100
180 , a3 JTF_VARCHAR2_TABLE_100
181 , a4 JTF_VARCHAR2_TABLE_200
182 , a5 JTF_VARCHAR2_TABLE_2000
183 , a6 JTF_VARCHAR2_TABLE_100
184 , a7 JTF_VARCHAR2_TABLE_100
185 , a8 JTF_NUMBER_TABLE
186 , a9 JTF_DATE_TABLE
187 , a10 JTF_NUMBER_TABLE
188 , a11 JTF_DATE_TABLE
189 , a12 JTF_NUMBER_TABLE
190 ) as
191 ddindx binary_integer; indx binary_integer;
192 begin
193 if a0 is not null and a0.count > 0 then
194 if a0.count > 0 then
195 indx := a0.first;
196 ddindx := 1;
197 while true loop
198 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
199 t(ddindx).language := a1(indx);
200 t(ddindx).source_lang := a2(indx);
201 t(ddindx).sfwt_flag := a3(indx);
202 t(ddindx).name := a4(indx);
203 t(ddindx).description := a5(indx);
204 t(ddindx).contract_header_line_flag := a6(indx);
205 t(ddindx).transaction_header_line_detail := a7(indx);
206 t(ddindx).created_by := rosetta_g_miss_num_map(a8(indx));
207 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a9(indx));
208 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a10(indx));
209 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a11(indx));
210 t(ddindx).last_update_login := rosetta_g_miss_num_map(a12(indx));
211 ddindx := ddindx+1;
212 if a0.last =indx
213 then exit;
214 end if;
215 indx := a0.next(indx);
216 end loop;
217 end if;
218 end if;
219 end rosetta_table_copy_in_p5;
220 procedure rosetta_table_copy_out_p5(t okl_try_pvt.okl_trx_types_tl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
221 , a1 out nocopy JTF_VARCHAR2_TABLE_100
222 , a2 out nocopy JTF_VARCHAR2_TABLE_100
223 , a3 out nocopy JTF_VARCHAR2_TABLE_100
224 , a4 out nocopy JTF_VARCHAR2_TABLE_200
225 , a5 out nocopy JTF_VARCHAR2_TABLE_2000
226 , a6 out nocopy JTF_VARCHAR2_TABLE_100
227 , a7 out nocopy JTF_VARCHAR2_TABLE_100
228 , a8 out nocopy JTF_NUMBER_TABLE
229 , a9 out nocopy JTF_DATE_TABLE
230 , a10 out nocopy JTF_NUMBER_TABLE
231 , a11 out nocopy JTF_DATE_TABLE
232 , a12 out nocopy JTF_NUMBER_TABLE
233 ) as
234 ddindx binary_integer; indx binary_integer;
235 begin
236 if t is null or t.count = 0 then
237 a0 := JTF_NUMBER_TABLE();
238 a1 := JTF_VARCHAR2_TABLE_100();
239 a2 := JTF_VARCHAR2_TABLE_100();
240 a3 := JTF_VARCHAR2_TABLE_100();
241 a4 := JTF_VARCHAR2_TABLE_200();
242 a5 := JTF_VARCHAR2_TABLE_2000();
243 a6 := JTF_VARCHAR2_TABLE_100();
244 a7 := JTF_VARCHAR2_TABLE_100();
245 a8 := JTF_NUMBER_TABLE();
246 a9 := JTF_DATE_TABLE();
247 a10 := JTF_NUMBER_TABLE();
248 a11 := JTF_DATE_TABLE();
249 a12 := JTF_NUMBER_TABLE();
250 else
251 a0 := JTF_NUMBER_TABLE();
252 a1 := JTF_VARCHAR2_TABLE_100();
253 a2 := JTF_VARCHAR2_TABLE_100();
254 a3 := JTF_VARCHAR2_TABLE_100();
255 a4 := JTF_VARCHAR2_TABLE_200();
256 a5 := JTF_VARCHAR2_TABLE_2000();
257 a6 := JTF_VARCHAR2_TABLE_100();
258 a7 := JTF_VARCHAR2_TABLE_100();
259 a8 := JTF_NUMBER_TABLE();
260 a9 := JTF_DATE_TABLE();
261 a10 := JTF_NUMBER_TABLE();
262 a11 := JTF_DATE_TABLE();
263 a12 := JTF_NUMBER_TABLE();
264 if t.count > 0 then
265 a0.extend(t.count);
266 a1.extend(t.count);
267 a2.extend(t.count);
268 a3.extend(t.count);
269 a4.extend(t.count);
270 a5.extend(t.count);
271 a6.extend(t.count);
272 a7.extend(t.count);
273 a8.extend(t.count);
274 a9.extend(t.count);
275 a10.extend(t.count);
276 a11.extend(t.count);
277 a12.extend(t.count);
278 ddindx := t.first;
279 indx := 1;
280 while true loop
281 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
282 a1(indx) := t(ddindx).language;
283 a2(indx) := t(ddindx).source_lang;
284 a3(indx) := t(ddindx).sfwt_flag;
285 a4(indx) := t(ddindx).name;
286 a5(indx) := t(ddindx).description;
287 a6(indx) := t(ddindx).contract_header_line_flag;
288 a7(indx) := t(ddindx).transaction_header_line_detail;
289 a8(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
290 a9(indx) := t(ddindx).creation_date;
291 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
292 a11(indx) := t(ddindx).last_update_date;
293 a12(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
294 indx := indx+1;
295 if t.last =ddindx
296 then exit;
297 end if;
298 ddindx := t.next(ddindx);
299 end loop;
300 end if;
301 end if;
302 end rosetta_table_copy_out_p5;
303
304 procedure rosetta_table_copy_in_p8(t out nocopy okl_try_pvt.tryv_tbl_type, a0 JTF_NUMBER_TABLE
305 , a1 JTF_NUMBER_TABLE
306 , a2 JTF_VARCHAR2_TABLE_100
307 , a3 JTF_VARCHAR2_TABLE_100
308 , a4 JTF_NUMBER_TABLE
309 , a5 JTF_NUMBER_TABLE
310 , a6 JTF_NUMBER_TABLE
311 , a7 JTF_VARCHAR2_TABLE_100
312 , a8 JTF_VARCHAR2_TABLE_200
313 , a9 JTF_VARCHAR2_TABLE_2000
314 , a10 JTF_VARCHAR2_TABLE_100
315 , a11 JTF_VARCHAR2_TABLE_100
316 , a12 JTF_NUMBER_TABLE
317 , a13 JTF_NUMBER_TABLE
318 , a14 JTF_DATE_TABLE
319 , a15 JTF_NUMBER_TABLE
320 , a16 JTF_DATE_TABLE
321 , a17 JTF_NUMBER_TABLE
322 , a18 JTF_VARCHAR2_TABLE_100
323 , a19 JTF_VARCHAR2_TABLE_100
324 , a20 JTF_VARCHAR2_TABLE_100
325 , a21 JTF_VARCHAR2_TABLE_100
326 ) as
327 ddindx binary_integer; indx binary_integer;
328 begin
329 if a0 is not null and a0.count > 0 then
330 if a0.count > 0 then
331 indx := a0.first;
332 ddindx := 1;
333 while true loop
334 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
335 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
336 t(ddindx).sfwt_flag := a2(indx);
337 t(ddindx).aep_code := a3(indx);
338 t(ddindx).ilc_id := rosetta_g_miss_num_map(a4(indx));
339 t(ddindx).try_id := rosetta_g_miss_num_map(a5(indx));
340 t(ddindx).try_id_for := rosetta_g_miss_num_map(a6(indx));
341 t(ddindx).try_type := a7(indx);
342 t(ddindx).name := a8(indx);
343 t(ddindx).description := a9(indx);
344 t(ddindx).contract_header_line_flag := a10(indx);
345 t(ddindx).transaction_header_line_detail := a11(indx);
346 t(ddindx).org_id := rosetta_g_miss_num_map(a12(indx));
347 t(ddindx).created_by := rosetta_g_miss_num_map(a13(indx));
348 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a14(indx));
349 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a15(indx));
350 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a16(indx));
351 t(ddindx).last_update_login := rosetta_g_miss_num_map(a17(indx));
352 t(ddindx).trx_type_class := a18(indx);
353 t(ddindx).tax_upfront_yn := a19(indx);
354 t(ddindx).tax_invoice_yn := a20(indx);
355 t(ddindx).tax_schedule_yn := a21(indx);
356 ddindx := ddindx+1;
357 if a0.last =indx
358 then exit;
359 end if;
360 indx := a0.next(indx);
361 end loop;
362 end if;
363 end if;
364 end rosetta_table_copy_in_p8;
365 procedure rosetta_table_copy_out_p8(t okl_try_pvt.tryv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
366 , a1 out nocopy JTF_NUMBER_TABLE
367 , a2 out nocopy JTF_VARCHAR2_TABLE_100
368 , a3 out nocopy JTF_VARCHAR2_TABLE_100
369 , a4 out nocopy JTF_NUMBER_TABLE
370 , a5 out nocopy JTF_NUMBER_TABLE
371 , a6 out nocopy JTF_NUMBER_TABLE
372 , a7 out nocopy JTF_VARCHAR2_TABLE_100
373 , a8 out nocopy JTF_VARCHAR2_TABLE_200
374 , a9 out nocopy JTF_VARCHAR2_TABLE_2000
375 , a10 out nocopy JTF_VARCHAR2_TABLE_100
376 , a11 out nocopy JTF_VARCHAR2_TABLE_100
377 , a12 out nocopy JTF_NUMBER_TABLE
378 , a13 out nocopy JTF_NUMBER_TABLE
379 , a14 out nocopy JTF_DATE_TABLE
380 , a15 out nocopy JTF_NUMBER_TABLE
381 , a16 out nocopy JTF_DATE_TABLE
382 , a17 out nocopy JTF_NUMBER_TABLE
383 , a18 out nocopy JTF_VARCHAR2_TABLE_100
384 , a19 out nocopy JTF_VARCHAR2_TABLE_100
385 , a20 out nocopy JTF_VARCHAR2_TABLE_100
386 , a21 out nocopy JTF_VARCHAR2_TABLE_100
387 ) as
388 ddindx binary_integer; indx binary_integer;
389 begin
390 if t is null or t.count = 0 then
391 a0 := JTF_NUMBER_TABLE();
392 a1 := JTF_NUMBER_TABLE();
393 a2 := JTF_VARCHAR2_TABLE_100();
394 a3 := JTF_VARCHAR2_TABLE_100();
395 a4 := JTF_NUMBER_TABLE();
396 a5 := JTF_NUMBER_TABLE();
397 a6 := JTF_NUMBER_TABLE();
398 a7 := JTF_VARCHAR2_TABLE_100();
399 a8 := JTF_VARCHAR2_TABLE_200();
400 a9 := JTF_VARCHAR2_TABLE_2000();
401 a10 := JTF_VARCHAR2_TABLE_100();
402 a11 := JTF_VARCHAR2_TABLE_100();
403 a12 := JTF_NUMBER_TABLE();
404 a13 := JTF_NUMBER_TABLE();
405 a14 := JTF_DATE_TABLE();
406 a15 := JTF_NUMBER_TABLE();
407 a16 := JTF_DATE_TABLE();
408 a17 := JTF_NUMBER_TABLE();
409 a18 := JTF_VARCHAR2_TABLE_100();
410 a19 := JTF_VARCHAR2_TABLE_100();
411 a20 := JTF_VARCHAR2_TABLE_100();
412 a21 := JTF_VARCHAR2_TABLE_100();
413 else
414 a0 := JTF_NUMBER_TABLE();
415 a1 := JTF_NUMBER_TABLE();
416 a2 := JTF_VARCHAR2_TABLE_100();
417 a3 := JTF_VARCHAR2_TABLE_100();
418 a4 := JTF_NUMBER_TABLE();
419 a5 := JTF_NUMBER_TABLE();
420 a6 := JTF_NUMBER_TABLE();
421 a7 := JTF_VARCHAR2_TABLE_100();
422 a8 := JTF_VARCHAR2_TABLE_200();
423 a9 := JTF_VARCHAR2_TABLE_2000();
424 a10 := JTF_VARCHAR2_TABLE_100();
425 a11 := JTF_VARCHAR2_TABLE_100();
426 a12 := JTF_NUMBER_TABLE();
427 a13 := JTF_NUMBER_TABLE();
428 a14 := JTF_DATE_TABLE();
429 a15 := JTF_NUMBER_TABLE();
430 a16 := JTF_DATE_TABLE();
431 a17 := JTF_NUMBER_TABLE();
432 a18 := JTF_VARCHAR2_TABLE_100();
433 a19 := JTF_VARCHAR2_TABLE_100();
434 a20 := JTF_VARCHAR2_TABLE_100();
435 a21 := JTF_VARCHAR2_TABLE_100();
436 if t.count > 0 then
437 a0.extend(t.count);
438 a1.extend(t.count);
439 a2.extend(t.count);
440 a3.extend(t.count);
441 a4.extend(t.count);
442 a5.extend(t.count);
443 a6.extend(t.count);
444 a7.extend(t.count);
445 a8.extend(t.count);
446 a9.extend(t.count);
447 a10.extend(t.count);
448 a11.extend(t.count);
449 a12.extend(t.count);
450 a13.extend(t.count);
451 a14.extend(t.count);
452 a15.extend(t.count);
453 a16.extend(t.count);
454 a17.extend(t.count);
455 a18.extend(t.count);
456 a19.extend(t.count);
457 a20.extend(t.count);
458 a21.extend(t.count);
459 ddindx := t.first;
460 indx := 1;
461 while true loop
462 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
463 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
464 a2(indx) := t(ddindx).sfwt_flag;
465 a3(indx) := t(ddindx).aep_code;
466 a4(indx) := rosetta_g_miss_num_map(t(ddindx).ilc_id);
467 a5(indx) := rosetta_g_miss_num_map(t(ddindx).try_id);
468 a6(indx) := rosetta_g_miss_num_map(t(ddindx).try_id_for);
469 a7(indx) := t(ddindx).try_type;
470 a8(indx) := t(ddindx).name;
471 a9(indx) := t(ddindx).description;
472 a10(indx) := t(ddindx).contract_header_line_flag;
473 a11(indx) := t(ddindx).transaction_header_line_detail;
474 a12(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
475 a13(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
476 a14(indx) := t(ddindx).creation_date;
477 a15(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
478 a16(indx) := t(ddindx).last_update_date;
479 a17(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
480 a18(indx) := t(ddindx).trx_type_class;
481 a19(indx) := t(ddindx).tax_upfront_yn;
482 a20(indx) := t(ddindx).tax_invoice_yn;
483 a21(indx) := t(ddindx).tax_schedule_yn;
484 indx := indx+1;
485 if t.last =ddindx
486 then exit;
487 end if;
488 ddindx := t.next(ddindx);
489 end loop;
490 end if;
491 end if;
492 end rosetta_table_copy_out_p8;
493
494 procedure insert_row(p_api_version NUMBER
495 , p_init_msg_list VARCHAR2
496 , x_return_status out nocopy VARCHAR2
497 , x_msg_count out nocopy NUMBER
498 , x_msg_data out nocopy VARCHAR2
499 , p6_a0 out nocopy NUMBER
500 , p6_a1 out nocopy NUMBER
501 , p6_a2 out nocopy VARCHAR2
502 , p6_a3 out nocopy VARCHAR2
503 , p6_a4 out nocopy NUMBER
504 , p6_a5 out nocopy NUMBER
505 , p6_a6 out nocopy NUMBER
506 , p6_a7 out nocopy VARCHAR2
507 , p6_a8 out nocopy VARCHAR2
508 , p6_a9 out nocopy VARCHAR2
509 , p6_a10 out nocopy VARCHAR2
510 , p6_a11 out nocopy VARCHAR2
511 , p6_a12 out nocopy NUMBER
512 , p6_a13 out nocopy NUMBER
513 , p6_a14 out nocopy DATE
514 , p6_a15 out nocopy NUMBER
515 , p6_a16 out nocopy DATE
516 , p6_a17 out nocopy NUMBER
517 , p6_a18 out nocopy VARCHAR2
518 , p6_a19 out nocopy VARCHAR2
519 , p6_a20 out nocopy VARCHAR2
520 , p6_a21 out nocopy VARCHAR2
521 , p5_a0 NUMBER := 0-1962.0724
522 , p5_a1 NUMBER := 0-1962.0724
523 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
524 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
525 , p5_a4 NUMBER := 0-1962.0724
526 , p5_a5 NUMBER := 0-1962.0724
527 , p5_a6 NUMBER := 0-1962.0724
528 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
529 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
530 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
531 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
532 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
533 , p5_a12 NUMBER := 0-1962.0724
534 , p5_a13 NUMBER := 0-1962.0724
535 , p5_a14 DATE := fnd_api.g_miss_date
536 , p5_a15 NUMBER := 0-1962.0724
537 , p5_a16 DATE := fnd_api.g_miss_date
538 , p5_a17 NUMBER := 0-1962.0724
539 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
540 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
541 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
542 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
543 )
544
545 as
546 ddp_tryv_rec okl_try_pvt.tryv_rec_type;
547 ddx_tryv_rec okl_try_pvt.tryv_rec_type;
548 ddindx binary_integer; indx binary_integer;
549 begin
550
551 -- copy data to the local IN or IN-OUT args, if any
552
553
554
555
556
557 ddp_tryv_rec.id := rosetta_g_miss_num_map(p5_a0);
558 ddp_tryv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
559 ddp_tryv_rec.sfwt_flag := p5_a2;
560 ddp_tryv_rec.aep_code := p5_a3;
561 ddp_tryv_rec.ilc_id := rosetta_g_miss_num_map(p5_a4);
562 ddp_tryv_rec.try_id := rosetta_g_miss_num_map(p5_a5);
563 ddp_tryv_rec.try_id_for := rosetta_g_miss_num_map(p5_a6);
564 ddp_tryv_rec.try_type := p5_a7;
565 ddp_tryv_rec.name := p5_a8;
566 ddp_tryv_rec.description := p5_a9;
567 ddp_tryv_rec.contract_header_line_flag := p5_a10;
568 ddp_tryv_rec.transaction_header_line_detail := p5_a11;
569 ddp_tryv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
570 ddp_tryv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
571 ddp_tryv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
572 ddp_tryv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
573 ddp_tryv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
574 ddp_tryv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
575 ddp_tryv_rec.trx_type_class := p5_a18;
576 ddp_tryv_rec.tax_upfront_yn := p5_a19;
577 ddp_tryv_rec.tax_invoice_yn := p5_a20;
578 ddp_tryv_rec.tax_schedule_yn := p5_a21;
579
580
581 -- here's the delegated call to the old PL/SQL routine
582 okl_try_pvt.insert_row(p_api_version,
583 p_init_msg_list,
584 x_return_status,
585 x_msg_count,
586 x_msg_data,
587 ddp_tryv_rec,
588 ddx_tryv_rec);
589
590 -- copy data back from the local variables to OUT or IN-OUT args, if any
591
592
593
594
595
596
597 p6_a0 := rosetta_g_miss_num_map(ddx_tryv_rec.id);
598 p6_a1 := rosetta_g_miss_num_map(ddx_tryv_rec.object_version_number);
599 p6_a2 := ddx_tryv_rec.sfwt_flag;
600 p6_a3 := ddx_tryv_rec.aep_code;
601 p6_a4 := rosetta_g_miss_num_map(ddx_tryv_rec.ilc_id);
602 p6_a5 := rosetta_g_miss_num_map(ddx_tryv_rec.try_id);
603 p6_a6 := rosetta_g_miss_num_map(ddx_tryv_rec.try_id_for);
604 p6_a7 := ddx_tryv_rec.try_type;
605 p6_a8 := ddx_tryv_rec.name;
606 p6_a9 := ddx_tryv_rec.description;
607 p6_a10 := ddx_tryv_rec.contract_header_line_flag;
608 p6_a11 := ddx_tryv_rec.transaction_header_line_detail;
609 p6_a12 := rosetta_g_miss_num_map(ddx_tryv_rec.org_id);
610 p6_a13 := rosetta_g_miss_num_map(ddx_tryv_rec.created_by);
611 p6_a14 := ddx_tryv_rec.creation_date;
612 p6_a15 := rosetta_g_miss_num_map(ddx_tryv_rec.last_updated_by);
613 p6_a16 := ddx_tryv_rec.last_update_date;
614 p6_a17 := rosetta_g_miss_num_map(ddx_tryv_rec.last_update_login);
615 p6_a18 := ddx_tryv_rec.trx_type_class;
616 p6_a19 := ddx_tryv_rec.tax_upfront_yn;
617 p6_a20 := ddx_tryv_rec.tax_invoice_yn;
618 p6_a21 := ddx_tryv_rec.tax_schedule_yn;
619 end;
620
621 procedure insert_row(p_api_version NUMBER
622 , p_init_msg_list VARCHAR2
623 , x_return_status out nocopy VARCHAR2
624 , x_msg_count out nocopy NUMBER
625 , x_msg_data out nocopy VARCHAR2
626 , p5_a0 JTF_NUMBER_TABLE
627 , p5_a1 JTF_NUMBER_TABLE
628 , p5_a2 JTF_VARCHAR2_TABLE_100
629 , p5_a3 JTF_VARCHAR2_TABLE_100
630 , p5_a4 JTF_NUMBER_TABLE
631 , p5_a5 JTF_NUMBER_TABLE
632 , p5_a6 JTF_NUMBER_TABLE
633 , p5_a7 JTF_VARCHAR2_TABLE_100
634 , p5_a8 JTF_VARCHAR2_TABLE_200
635 , p5_a9 JTF_VARCHAR2_TABLE_2000
636 , p5_a10 JTF_VARCHAR2_TABLE_100
637 , p5_a11 JTF_VARCHAR2_TABLE_100
638 , p5_a12 JTF_NUMBER_TABLE
639 , p5_a13 JTF_NUMBER_TABLE
640 , p5_a14 JTF_DATE_TABLE
641 , p5_a15 JTF_NUMBER_TABLE
642 , p5_a16 JTF_DATE_TABLE
643 , p5_a17 JTF_NUMBER_TABLE
644 , p5_a18 JTF_VARCHAR2_TABLE_100
645 , p5_a19 JTF_VARCHAR2_TABLE_100
646 , p5_a20 JTF_VARCHAR2_TABLE_100
647 , p5_a21 JTF_VARCHAR2_TABLE_100
648 , p6_a0 out nocopy JTF_NUMBER_TABLE
649 , p6_a1 out nocopy JTF_NUMBER_TABLE
650 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
651 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
652 , p6_a4 out nocopy JTF_NUMBER_TABLE
653 , p6_a5 out nocopy JTF_NUMBER_TABLE
654 , p6_a6 out nocopy JTF_NUMBER_TABLE
655 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
656 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_200
657 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_2000
658 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
659 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
660 , p6_a12 out nocopy JTF_NUMBER_TABLE
661 , p6_a13 out nocopy JTF_NUMBER_TABLE
662 , p6_a14 out nocopy JTF_DATE_TABLE
663 , p6_a15 out nocopy JTF_NUMBER_TABLE
664 , p6_a16 out nocopy JTF_DATE_TABLE
665 , p6_a17 out nocopy JTF_NUMBER_TABLE
666 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
667 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
668 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
669 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_100
670 )
671
672 as
673 ddp_tryv_tbl okl_try_pvt.tryv_tbl_type;
674 ddx_tryv_tbl okl_try_pvt.tryv_tbl_type;
675 ddindx binary_integer; indx binary_integer;
676 begin
677
678 -- copy data to the local IN or IN-OUT args, if any
679
680
681
682
683
684 okl_try_pvt_w.rosetta_table_copy_in_p8(ddp_tryv_tbl, p5_a0
685 , p5_a1
686 , p5_a2
687 , p5_a3
688 , p5_a4
689 , p5_a5
690 , p5_a6
691 , p5_a7
692 , p5_a8
693 , p5_a9
694 , p5_a10
695 , p5_a11
696 , p5_a12
697 , p5_a13
698 , p5_a14
699 , p5_a15
700 , p5_a16
701 , p5_a17
702 , p5_a18
703 , p5_a19
704 , p5_a20
705 , p5_a21
706 );
707
708
709 -- here's the delegated call to the old PL/SQL routine
710 okl_try_pvt.insert_row(p_api_version,
711 p_init_msg_list,
712 x_return_status,
713 x_msg_count,
714 x_msg_data,
715 ddp_tryv_tbl,
716 ddx_tryv_tbl);
717
718 -- copy data back from the local variables to OUT or IN-OUT args, if any
719
720
721
722
723
724
725 okl_try_pvt_w.rosetta_table_copy_out_p8(ddx_tryv_tbl, p6_a0
726 , p6_a1
727 , p6_a2
728 , p6_a3
729 , p6_a4
730 , p6_a5
731 , p6_a6
732 , p6_a7
733 , p6_a8
734 , p6_a9
735 , p6_a10
736 , p6_a11
737 , p6_a12
738 , p6_a13
739 , p6_a14
740 , p6_a15
741 , p6_a16
742 , p6_a17
743 , p6_a18
744 , p6_a19
745 , p6_a20
746 , p6_a21
747 );
748 end;
749
750 procedure lock_row(p_api_version NUMBER
751 , p_init_msg_list VARCHAR2
752 , x_return_status out nocopy VARCHAR2
753 , x_msg_count out nocopy NUMBER
754 , x_msg_data out nocopy VARCHAR2
755 , p5_a0 NUMBER := 0-1962.0724
756 , p5_a1 NUMBER := 0-1962.0724
757 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
758 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
759 , p5_a4 NUMBER := 0-1962.0724
760 , p5_a5 NUMBER := 0-1962.0724
761 , p5_a6 NUMBER := 0-1962.0724
762 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
763 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
764 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
765 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
766 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
767 , p5_a12 NUMBER := 0-1962.0724
768 , p5_a13 NUMBER := 0-1962.0724
769 , p5_a14 DATE := fnd_api.g_miss_date
770 , p5_a15 NUMBER := 0-1962.0724
771 , p5_a16 DATE := fnd_api.g_miss_date
772 , p5_a17 NUMBER := 0-1962.0724
773 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
774 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
775 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
776 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
777 )
778
779 as
780 ddp_tryv_rec okl_try_pvt.tryv_rec_type;
781 ddindx binary_integer; indx binary_integer;
782 begin
783
784 -- copy data to the local IN or IN-OUT args, if any
785
786
787
788
789
790 ddp_tryv_rec.id := rosetta_g_miss_num_map(p5_a0);
791 ddp_tryv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
792 ddp_tryv_rec.sfwt_flag := p5_a2;
793 ddp_tryv_rec.aep_code := p5_a3;
794 ddp_tryv_rec.ilc_id := rosetta_g_miss_num_map(p5_a4);
795 ddp_tryv_rec.try_id := rosetta_g_miss_num_map(p5_a5);
796 ddp_tryv_rec.try_id_for := rosetta_g_miss_num_map(p5_a6);
797 ddp_tryv_rec.try_type := p5_a7;
798 ddp_tryv_rec.name := p5_a8;
799 ddp_tryv_rec.description := p5_a9;
800 ddp_tryv_rec.contract_header_line_flag := p5_a10;
801 ddp_tryv_rec.transaction_header_line_detail := p5_a11;
802 ddp_tryv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
803 ddp_tryv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
804 ddp_tryv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
805 ddp_tryv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
806 ddp_tryv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
807 ddp_tryv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
808 ddp_tryv_rec.trx_type_class := p5_a18;
809 ddp_tryv_rec.tax_upfront_yn := p5_a19;
810 ddp_tryv_rec.tax_invoice_yn := p5_a20;
811 ddp_tryv_rec.tax_schedule_yn := p5_a21;
812
813 -- here's the delegated call to the old PL/SQL routine
814 okl_try_pvt.lock_row(p_api_version,
815 p_init_msg_list,
816 x_return_status,
817 x_msg_count,
818 x_msg_data,
819 ddp_tryv_rec);
820
821 -- copy data back from the local variables to OUT or IN-OUT args, if any
822
823
824
825
826
827 end;
828
829 procedure lock_row(p_api_version NUMBER
830 , p_init_msg_list VARCHAR2
831 , x_return_status out nocopy VARCHAR2
832 , x_msg_count out nocopy NUMBER
833 , x_msg_data out nocopy VARCHAR2
834 , p5_a0 JTF_NUMBER_TABLE
835 , p5_a1 JTF_NUMBER_TABLE
836 , p5_a2 JTF_VARCHAR2_TABLE_100
837 , p5_a3 JTF_VARCHAR2_TABLE_100
838 , p5_a4 JTF_NUMBER_TABLE
839 , p5_a5 JTF_NUMBER_TABLE
840 , p5_a6 JTF_NUMBER_TABLE
841 , p5_a7 JTF_VARCHAR2_TABLE_100
842 , p5_a8 JTF_VARCHAR2_TABLE_200
843 , p5_a9 JTF_VARCHAR2_TABLE_2000
844 , p5_a10 JTF_VARCHAR2_TABLE_100
845 , p5_a11 JTF_VARCHAR2_TABLE_100
846 , p5_a12 JTF_NUMBER_TABLE
847 , p5_a13 JTF_NUMBER_TABLE
848 , p5_a14 JTF_DATE_TABLE
849 , p5_a15 JTF_NUMBER_TABLE
850 , p5_a16 JTF_DATE_TABLE
851 , p5_a17 JTF_NUMBER_TABLE
852 , p5_a18 JTF_VARCHAR2_TABLE_100
853 , p5_a19 JTF_VARCHAR2_TABLE_100
854 , p5_a20 JTF_VARCHAR2_TABLE_100
855 , p5_a21 JTF_VARCHAR2_TABLE_100
856 )
857
858 as
859 ddp_tryv_tbl okl_try_pvt.tryv_tbl_type;
860 ddindx binary_integer; indx binary_integer;
861 begin
862
863 -- copy data to the local IN or IN-OUT args, if any
864
865
866
867
868
869 okl_try_pvt_w.rosetta_table_copy_in_p8(ddp_tryv_tbl, p5_a0
870 , p5_a1
871 , p5_a2
872 , p5_a3
873 , p5_a4
874 , p5_a5
875 , p5_a6
876 , p5_a7
877 , p5_a8
878 , p5_a9
879 , p5_a10
880 , p5_a11
881 , p5_a12
882 , p5_a13
883 , p5_a14
884 , p5_a15
885 , p5_a16
886 , p5_a17
887 , p5_a18
888 , p5_a19
889 , p5_a20
890 , p5_a21
891 );
892
893 -- here's the delegated call to the old PL/SQL routine
894 okl_try_pvt.lock_row(p_api_version,
895 p_init_msg_list,
896 x_return_status,
897 x_msg_count,
898 x_msg_data,
899 ddp_tryv_tbl);
900
901 -- copy data back from the local variables to OUT or IN-OUT args, if any
902
903
904
905
906
907 end;
908
909 procedure update_row(p_api_version NUMBER
910 , p_init_msg_list VARCHAR2
911 , x_return_status out nocopy VARCHAR2
912 , x_msg_count out nocopy NUMBER
913 , x_msg_data out nocopy VARCHAR2
914 , p6_a0 out nocopy NUMBER
915 , p6_a1 out nocopy NUMBER
916 , p6_a2 out nocopy VARCHAR2
917 , p6_a3 out nocopy VARCHAR2
918 , p6_a4 out nocopy NUMBER
919 , p6_a5 out nocopy NUMBER
920 , p6_a6 out nocopy NUMBER
921 , p6_a7 out nocopy VARCHAR2
922 , p6_a8 out nocopy VARCHAR2
923 , p6_a9 out nocopy VARCHAR2
924 , p6_a10 out nocopy VARCHAR2
925 , p6_a11 out nocopy VARCHAR2
926 , p6_a12 out nocopy NUMBER
927 , p6_a13 out nocopy NUMBER
928 , p6_a14 out nocopy DATE
929 , p6_a15 out nocopy NUMBER
930 , p6_a16 out nocopy DATE
931 , p6_a17 out nocopy NUMBER
932 , p6_a18 out nocopy VARCHAR2
933 , p6_a19 out nocopy VARCHAR2
934 , p6_a20 out nocopy VARCHAR2
935 , p6_a21 out nocopy VARCHAR2
936 , p5_a0 NUMBER := 0-1962.0724
937 , p5_a1 NUMBER := 0-1962.0724
938 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
939 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
940 , p5_a4 NUMBER := 0-1962.0724
941 , p5_a5 NUMBER := 0-1962.0724
942 , p5_a6 NUMBER := 0-1962.0724
943 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
944 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
945 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
946 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
947 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
948 , p5_a12 NUMBER := 0-1962.0724
949 , p5_a13 NUMBER := 0-1962.0724
950 , p5_a14 DATE := fnd_api.g_miss_date
951 , p5_a15 NUMBER := 0-1962.0724
952 , p5_a16 DATE := fnd_api.g_miss_date
953 , p5_a17 NUMBER := 0-1962.0724
954 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
955 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
956 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
957 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
958 )
959
960 as
961 ddp_tryv_rec okl_try_pvt.tryv_rec_type;
962 ddx_tryv_rec okl_try_pvt.tryv_rec_type;
963 ddindx binary_integer; indx binary_integer;
964 begin
965
966 -- copy data to the local IN or IN-OUT args, if any
967
968
969
970
971
972 ddp_tryv_rec.id := rosetta_g_miss_num_map(p5_a0);
973 ddp_tryv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
974 ddp_tryv_rec.sfwt_flag := p5_a2;
975 ddp_tryv_rec.aep_code := p5_a3;
976 ddp_tryv_rec.ilc_id := rosetta_g_miss_num_map(p5_a4);
977 ddp_tryv_rec.try_id := rosetta_g_miss_num_map(p5_a5);
978 ddp_tryv_rec.try_id_for := rosetta_g_miss_num_map(p5_a6);
979 ddp_tryv_rec.try_type := p5_a7;
980 ddp_tryv_rec.name := p5_a8;
981 ddp_tryv_rec.description := p5_a9;
982 ddp_tryv_rec.contract_header_line_flag := p5_a10;
983 ddp_tryv_rec.transaction_header_line_detail := p5_a11;
984 ddp_tryv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
985 ddp_tryv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
986 ddp_tryv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
987 ddp_tryv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
988 ddp_tryv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
989 ddp_tryv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
990 ddp_tryv_rec.trx_type_class := p5_a18;
991 ddp_tryv_rec.tax_upfront_yn := p5_a19;
992 ddp_tryv_rec.tax_invoice_yn := p5_a20;
993 ddp_tryv_rec.tax_schedule_yn := p5_a21;
994
995
996 -- here's the delegated call to the old PL/SQL routine
997 okl_try_pvt.update_row(p_api_version,
998 p_init_msg_list,
999 x_return_status,
1000 x_msg_count,
1001 x_msg_data,
1002 ddp_tryv_rec,
1003 ddx_tryv_rec);
1004
1005 -- copy data back from the local variables to OUT or IN-OUT args, if any
1006
1007
1008
1009
1010
1011
1012 p6_a0 := rosetta_g_miss_num_map(ddx_tryv_rec.id);
1013 p6_a1 := rosetta_g_miss_num_map(ddx_tryv_rec.object_version_number);
1014 p6_a2 := ddx_tryv_rec.sfwt_flag;
1015 p6_a3 := ddx_tryv_rec.aep_code;
1016 p6_a4 := rosetta_g_miss_num_map(ddx_tryv_rec.ilc_id);
1017 p6_a5 := rosetta_g_miss_num_map(ddx_tryv_rec.try_id);
1018 p6_a6 := rosetta_g_miss_num_map(ddx_tryv_rec.try_id_for);
1019 p6_a7 := ddx_tryv_rec.try_type;
1020 p6_a8 := ddx_tryv_rec.name;
1021 p6_a9 := ddx_tryv_rec.description;
1022 p6_a10 := ddx_tryv_rec.contract_header_line_flag;
1023 p6_a11 := ddx_tryv_rec.transaction_header_line_detail;
1024 p6_a12 := rosetta_g_miss_num_map(ddx_tryv_rec.org_id);
1025 p6_a13 := rosetta_g_miss_num_map(ddx_tryv_rec.created_by);
1026 p6_a14 := ddx_tryv_rec.creation_date;
1027 p6_a15 := rosetta_g_miss_num_map(ddx_tryv_rec.last_updated_by);
1028 p6_a16 := ddx_tryv_rec.last_update_date;
1029 p6_a17 := rosetta_g_miss_num_map(ddx_tryv_rec.last_update_login);
1030 p6_a18 := ddx_tryv_rec.trx_type_class;
1031 p6_a19 := ddx_tryv_rec.tax_upfront_yn;
1032 p6_a20 := ddx_tryv_rec.tax_invoice_yn;
1033 p6_a21 := ddx_tryv_rec.tax_schedule_yn;
1034 end;
1035
1036 procedure update_row(p_api_version NUMBER
1037 , p_init_msg_list VARCHAR2
1038 , x_return_status out nocopy VARCHAR2
1039 , x_msg_count out nocopy NUMBER
1040 , x_msg_data out nocopy VARCHAR2
1041 , p5_a0 JTF_NUMBER_TABLE
1042 , p5_a1 JTF_NUMBER_TABLE
1043 , p5_a2 JTF_VARCHAR2_TABLE_100
1044 , p5_a3 JTF_VARCHAR2_TABLE_100
1045 , p5_a4 JTF_NUMBER_TABLE
1046 , p5_a5 JTF_NUMBER_TABLE
1047 , p5_a6 JTF_NUMBER_TABLE
1048 , p5_a7 JTF_VARCHAR2_TABLE_100
1049 , p5_a8 JTF_VARCHAR2_TABLE_200
1050 , p5_a9 JTF_VARCHAR2_TABLE_2000
1051 , p5_a10 JTF_VARCHAR2_TABLE_100
1052 , p5_a11 JTF_VARCHAR2_TABLE_100
1053 , p5_a12 JTF_NUMBER_TABLE
1054 , p5_a13 JTF_NUMBER_TABLE
1055 , p5_a14 JTF_DATE_TABLE
1056 , p5_a15 JTF_NUMBER_TABLE
1057 , p5_a16 JTF_DATE_TABLE
1058 , p5_a17 JTF_NUMBER_TABLE
1059 , p5_a18 JTF_VARCHAR2_TABLE_100
1060 , p5_a19 JTF_VARCHAR2_TABLE_100
1061 , p5_a20 JTF_VARCHAR2_TABLE_100
1062 , p5_a21 JTF_VARCHAR2_TABLE_100
1063 , p6_a0 out nocopy JTF_NUMBER_TABLE
1064 , p6_a1 out nocopy JTF_NUMBER_TABLE
1065 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
1066 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
1067 , p6_a4 out nocopy JTF_NUMBER_TABLE
1068 , p6_a5 out nocopy JTF_NUMBER_TABLE
1069 , p6_a6 out nocopy JTF_NUMBER_TABLE
1070 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
1071 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_200
1072 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_2000
1073 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
1074 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
1075 , p6_a12 out nocopy JTF_NUMBER_TABLE
1076 , p6_a13 out nocopy JTF_NUMBER_TABLE
1077 , p6_a14 out nocopy JTF_DATE_TABLE
1078 , p6_a15 out nocopy JTF_NUMBER_TABLE
1079 , p6_a16 out nocopy JTF_DATE_TABLE
1080 , p6_a17 out nocopy JTF_NUMBER_TABLE
1081 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
1082 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
1083 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
1084 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_100
1085 )
1086
1087 as
1088 ddp_tryv_tbl okl_try_pvt.tryv_tbl_type;
1089 ddx_tryv_tbl okl_try_pvt.tryv_tbl_type;
1090 ddindx binary_integer; indx binary_integer;
1091 begin
1092
1093 -- copy data to the local IN or IN-OUT args, if any
1094
1095
1096
1097
1098
1099 okl_try_pvt_w.rosetta_table_copy_in_p8(ddp_tryv_tbl, p5_a0
1100 , p5_a1
1101 , p5_a2
1102 , p5_a3
1103 , p5_a4
1104 , p5_a5
1105 , p5_a6
1106 , p5_a7
1107 , p5_a8
1108 , p5_a9
1109 , p5_a10
1110 , p5_a11
1111 , p5_a12
1112 , p5_a13
1113 , p5_a14
1114 , p5_a15
1115 , p5_a16
1116 , p5_a17
1117 , p5_a18
1118 , p5_a19
1119 , p5_a20
1120 , p5_a21
1121 );
1122
1123
1124 -- here's the delegated call to the old PL/SQL routine
1125 okl_try_pvt.update_row(p_api_version,
1126 p_init_msg_list,
1127 x_return_status,
1128 x_msg_count,
1129 x_msg_data,
1130 ddp_tryv_tbl,
1131 ddx_tryv_tbl);
1132
1133 -- copy data back from the local variables to OUT or IN-OUT args, if any
1134
1135
1136
1137
1138
1139
1140 okl_try_pvt_w.rosetta_table_copy_out_p8(ddx_tryv_tbl, p6_a0
1141 , p6_a1
1142 , p6_a2
1143 , p6_a3
1144 , p6_a4
1145 , p6_a5
1146 , p6_a6
1147 , p6_a7
1148 , p6_a8
1149 , p6_a9
1150 , p6_a10
1151 , p6_a11
1152 , p6_a12
1153 , p6_a13
1154 , p6_a14
1155 , p6_a15
1156 , p6_a16
1157 , p6_a17
1158 , p6_a18
1159 , p6_a19
1160 , p6_a20
1161 , p6_a21
1162 );
1163 end;
1164
1165 procedure delete_row(p_api_version NUMBER
1166 , p_init_msg_list VARCHAR2
1167 , x_return_status out nocopy VARCHAR2
1168 , x_msg_count out nocopy NUMBER
1169 , x_msg_data out nocopy VARCHAR2
1170 , p5_a0 NUMBER := 0-1962.0724
1171 , p5_a1 NUMBER := 0-1962.0724
1172 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1173 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1174 , p5_a4 NUMBER := 0-1962.0724
1175 , p5_a5 NUMBER := 0-1962.0724
1176 , p5_a6 NUMBER := 0-1962.0724
1177 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1178 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1179 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1180 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1181 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1182 , p5_a12 NUMBER := 0-1962.0724
1183 , p5_a13 NUMBER := 0-1962.0724
1184 , p5_a14 DATE := fnd_api.g_miss_date
1185 , p5_a15 NUMBER := 0-1962.0724
1186 , p5_a16 DATE := fnd_api.g_miss_date
1187 , p5_a17 NUMBER := 0-1962.0724
1188 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1189 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1190 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1191 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1192 )
1193
1194 as
1195 ddp_tryv_rec okl_try_pvt.tryv_rec_type;
1196 ddindx binary_integer; indx binary_integer;
1197 begin
1198
1199 -- copy data to the local IN or IN-OUT args, if any
1200
1201
1202
1203
1204
1205 ddp_tryv_rec.id := rosetta_g_miss_num_map(p5_a0);
1206 ddp_tryv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1207 ddp_tryv_rec.sfwt_flag := p5_a2;
1208 ddp_tryv_rec.aep_code := p5_a3;
1209 ddp_tryv_rec.ilc_id := rosetta_g_miss_num_map(p5_a4);
1210 ddp_tryv_rec.try_id := rosetta_g_miss_num_map(p5_a5);
1211 ddp_tryv_rec.try_id_for := rosetta_g_miss_num_map(p5_a6);
1212 ddp_tryv_rec.try_type := p5_a7;
1213 ddp_tryv_rec.name := p5_a8;
1214 ddp_tryv_rec.description := p5_a9;
1215 ddp_tryv_rec.contract_header_line_flag := p5_a10;
1216 ddp_tryv_rec.transaction_header_line_detail := p5_a11;
1217 ddp_tryv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
1218 ddp_tryv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
1219 ddp_tryv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
1220 ddp_tryv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
1221 ddp_tryv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
1222 ddp_tryv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
1223 ddp_tryv_rec.trx_type_class := p5_a18;
1224 ddp_tryv_rec.tax_upfront_yn := p5_a19;
1225 ddp_tryv_rec.tax_invoice_yn := p5_a20;
1226 ddp_tryv_rec.tax_schedule_yn := p5_a21;
1227
1228 -- here's the delegated call to the old PL/SQL routine
1229 okl_try_pvt.delete_row(p_api_version,
1230 p_init_msg_list,
1231 x_return_status,
1232 x_msg_count,
1233 x_msg_data,
1234 ddp_tryv_rec);
1235
1236 -- copy data back from the local variables to OUT or IN-OUT args, if any
1237
1238
1239
1240
1241
1242 end;
1243
1244 procedure delete_row(p_api_version NUMBER
1245 , p_init_msg_list VARCHAR2
1246 , x_return_status out nocopy VARCHAR2
1247 , x_msg_count out nocopy NUMBER
1248 , x_msg_data out nocopy VARCHAR2
1249 , p5_a0 JTF_NUMBER_TABLE
1250 , p5_a1 JTF_NUMBER_TABLE
1251 , p5_a2 JTF_VARCHAR2_TABLE_100
1252 , p5_a3 JTF_VARCHAR2_TABLE_100
1253 , p5_a4 JTF_NUMBER_TABLE
1254 , p5_a5 JTF_NUMBER_TABLE
1255 , p5_a6 JTF_NUMBER_TABLE
1256 , p5_a7 JTF_VARCHAR2_TABLE_100
1257 , p5_a8 JTF_VARCHAR2_TABLE_200
1258 , p5_a9 JTF_VARCHAR2_TABLE_2000
1259 , p5_a10 JTF_VARCHAR2_TABLE_100
1260 , p5_a11 JTF_VARCHAR2_TABLE_100
1261 , p5_a12 JTF_NUMBER_TABLE
1262 , p5_a13 JTF_NUMBER_TABLE
1263 , p5_a14 JTF_DATE_TABLE
1264 , p5_a15 JTF_NUMBER_TABLE
1265 , p5_a16 JTF_DATE_TABLE
1266 , p5_a17 JTF_NUMBER_TABLE
1267 , p5_a18 JTF_VARCHAR2_TABLE_100
1268 , p5_a19 JTF_VARCHAR2_TABLE_100
1269 , p5_a20 JTF_VARCHAR2_TABLE_100
1270 , p5_a21 JTF_VARCHAR2_TABLE_100
1271 )
1272
1273 as
1274 ddp_tryv_tbl okl_try_pvt.tryv_tbl_type;
1275 ddindx binary_integer; indx binary_integer;
1276 begin
1277
1278 -- copy data to the local IN or IN-OUT args, if any
1279
1280
1281
1282
1283
1284 okl_try_pvt_w.rosetta_table_copy_in_p8(ddp_tryv_tbl, p5_a0
1285 , p5_a1
1286 , p5_a2
1287 , p5_a3
1288 , p5_a4
1289 , p5_a5
1290 , p5_a6
1291 , p5_a7
1292 , p5_a8
1293 , p5_a9
1294 , p5_a10
1295 , p5_a11
1296 , p5_a12
1297 , p5_a13
1298 , p5_a14
1299 , p5_a15
1300 , p5_a16
1301 , p5_a17
1302 , p5_a18
1303 , p5_a19
1304 , p5_a20
1305 , p5_a21
1306 );
1307
1308 -- here's the delegated call to the old PL/SQL routine
1309 okl_try_pvt.delete_row(p_api_version,
1310 p_init_msg_list,
1311 x_return_status,
1312 x_msg_count,
1313 x_msg_data,
1314 ddp_tryv_tbl);
1315
1316 -- copy data back from the local variables to OUT or IN-OUT args, if any
1317
1318
1319
1320
1321
1322 end;
1323
1324 procedure validate_row(p_api_version NUMBER
1325 , p_init_msg_list VARCHAR2
1326 , x_return_status out nocopy VARCHAR2
1327 , x_msg_count out nocopy NUMBER
1328 , x_msg_data out nocopy VARCHAR2
1329 , p5_a0 NUMBER := 0-1962.0724
1330 , p5_a1 NUMBER := 0-1962.0724
1331 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1332 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1333 , p5_a4 NUMBER := 0-1962.0724
1334 , p5_a5 NUMBER := 0-1962.0724
1335 , p5_a6 NUMBER := 0-1962.0724
1336 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1337 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1338 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1339 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1340 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1341 , p5_a12 NUMBER := 0-1962.0724
1342 , p5_a13 NUMBER := 0-1962.0724
1343 , p5_a14 DATE := fnd_api.g_miss_date
1344 , p5_a15 NUMBER := 0-1962.0724
1345 , p5_a16 DATE := fnd_api.g_miss_date
1346 , p5_a17 NUMBER := 0-1962.0724
1347 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1348 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1349 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1350 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1351 )
1352
1353 as
1354 ddp_tryv_rec okl_try_pvt.tryv_rec_type;
1355 ddindx binary_integer; indx binary_integer;
1356 begin
1357
1358 -- copy data to the local IN or IN-OUT args, if any
1359
1360
1361
1362
1363
1364 ddp_tryv_rec.id := rosetta_g_miss_num_map(p5_a0);
1365 ddp_tryv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1366 ddp_tryv_rec.sfwt_flag := p5_a2;
1367 ddp_tryv_rec.aep_code := p5_a3;
1368 ddp_tryv_rec.ilc_id := rosetta_g_miss_num_map(p5_a4);
1369 ddp_tryv_rec.try_id := rosetta_g_miss_num_map(p5_a5);
1370 ddp_tryv_rec.try_id_for := rosetta_g_miss_num_map(p5_a6);
1371 ddp_tryv_rec.try_type := p5_a7;
1372 ddp_tryv_rec.name := p5_a8;
1373 ddp_tryv_rec.description := p5_a9;
1374 ddp_tryv_rec.contract_header_line_flag := p5_a10;
1375 ddp_tryv_rec.transaction_header_line_detail := p5_a11;
1376 ddp_tryv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
1377 ddp_tryv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
1378 ddp_tryv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
1379 ddp_tryv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
1380 ddp_tryv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
1381 ddp_tryv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
1382 ddp_tryv_rec.trx_type_class := p5_a18;
1383 ddp_tryv_rec.tax_upfront_yn := p5_a19;
1384 ddp_tryv_rec.tax_invoice_yn := p5_a20;
1385 ddp_tryv_rec.tax_schedule_yn := p5_a21;
1386
1387 -- here's the delegated call to the old PL/SQL routine
1388 okl_try_pvt.validate_row(p_api_version,
1389 p_init_msg_list,
1390 x_return_status,
1391 x_msg_count,
1392 x_msg_data,
1393 ddp_tryv_rec);
1394
1395 -- copy data back from the local variables to OUT or IN-OUT args, if any
1396
1397
1398
1399
1400
1401 end;
1402
1403 procedure validate_row(p_api_version NUMBER
1404 , p_init_msg_list VARCHAR2
1405 , x_return_status out nocopy VARCHAR2
1406 , x_msg_count out nocopy NUMBER
1407 , x_msg_data out nocopy VARCHAR2
1408 , p5_a0 JTF_NUMBER_TABLE
1409 , p5_a1 JTF_NUMBER_TABLE
1410 , p5_a2 JTF_VARCHAR2_TABLE_100
1411 , p5_a3 JTF_VARCHAR2_TABLE_100
1412 , p5_a4 JTF_NUMBER_TABLE
1413 , p5_a5 JTF_NUMBER_TABLE
1414 , p5_a6 JTF_NUMBER_TABLE
1415 , p5_a7 JTF_VARCHAR2_TABLE_100
1416 , p5_a8 JTF_VARCHAR2_TABLE_200
1417 , p5_a9 JTF_VARCHAR2_TABLE_2000
1418 , p5_a10 JTF_VARCHAR2_TABLE_100
1419 , p5_a11 JTF_VARCHAR2_TABLE_100
1420 , p5_a12 JTF_NUMBER_TABLE
1421 , p5_a13 JTF_NUMBER_TABLE
1422 , p5_a14 JTF_DATE_TABLE
1423 , p5_a15 JTF_NUMBER_TABLE
1424 , p5_a16 JTF_DATE_TABLE
1425 , p5_a17 JTF_NUMBER_TABLE
1426 , p5_a18 JTF_VARCHAR2_TABLE_100
1427 , p5_a19 JTF_VARCHAR2_TABLE_100
1428 , p5_a20 JTF_VARCHAR2_TABLE_100
1429 , p5_a21 JTF_VARCHAR2_TABLE_100
1430 )
1431
1432 as
1433 ddp_tryv_tbl okl_try_pvt.tryv_tbl_type;
1434 ddindx binary_integer; indx binary_integer;
1435 begin
1436
1437 -- copy data to the local IN or IN-OUT args, if any
1438
1439
1440
1441
1442
1443 okl_try_pvt_w.rosetta_table_copy_in_p8(ddp_tryv_tbl, p5_a0
1444 , p5_a1
1445 , p5_a2
1446 , p5_a3
1447 , p5_a4
1448 , p5_a5
1449 , p5_a6
1450 , p5_a7
1451 , p5_a8
1452 , p5_a9
1453 , p5_a10
1454 , p5_a11
1455 , p5_a12
1456 , p5_a13
1457 , p5_a14
1458 , p5_a15
1459 , p5_a16
1460 , p5_a17
1461 , p5_a18
1462 , p5_a19
1463 , p5_a20
1464 , p5_a21
1465 );
1466
1467 -- here's the delegated call to the old PL/SQL routine
1468 okl_try_pvt.validate_row(p_api_version,
1469 p_init_msg_list,
1470 x_return_status,
1471 x_msg_count,
1472 x_msg_data,
1473 ddp_tryv_tbl);
1474
1475 -- copy data back from the local variables to OUT or IN-OUT args, if any
1476
1477
1478
1479
1480
1481 end;
1482
1483 end okl_try_pvt_w;