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