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