[Home] [Help]
PACKAGE BODY: APPS.OKL_SRM_PVT_W
Source
1 package body okl_srm_pvt_w as
2 /* $Header: OKLISRMB.pls 120.1 2005/07/15 07:38:58 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_srm_pvt.srm_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_VARCHAR2_TABLE_100
25 , a3 JTF_VARCHAR2_TABLE_300
26 , a4 JTF_VARCHAR2_TABLE_1000
27 , a5 JTF_VARCHAR2_TABLE_200
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_VARCHAR2_TABLE_2000
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_NUMBER_TABLE
48 , a26 JTF_DATE_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).sir_id := rosetta_g_miss_num_map(a1(indx));
61 t(ddindx).error_code := a2(indx);
62 t(ddindx).error_message := a3(indx);
63 t(ddindx).tag_name := a4(indx);
64 t(ddindx).tag_attribute_name := a5(indx);
65 t(ddindx).tag_attribute_value := a6(indx);
66 t(ddindx).description := a7(indx);
67 t(ddindx).stream_interface_attribute01 := a8(indx);
68 t(ddindx).stream_interface_attribute02 := a9(indx);
69 t(ddindx).stream_interface_attribute03 := a10(indx);
70 t(ddindx).stream_interface_attribute04 := a11(indx);
71 t(ddindx).stream_interface_attribute05 := a12(indx);
72 t(ddindx).stream_interface_attribute06 := a13(indx);
73 t(ddindx).stream_interface_attribute07 := a14(indx);
74 t(ddindx).stream_interface_attribute08 := a15(indx);
75 t(ddindx).stream_interface_attribute09 := a16(indx);
76 t(ddindx).stream_interface_attribute10 := a17(indx);
77 t(ddindx).stream_interface_attribute11 := a18(indx);
78 t(ddindx).stream_interface_attribute12 := a19(indx);
79 t(ddindx).stream_interface_attribute13 := a20(indx);
80 t(ddindx).stream_interface_attribute14 := a21(indx);
81 t(ddindx).stream_interface_attribute15 := a22(indx);
82 t(ddindx).object_version_number := rosetta_g_miss_num_map(a23(indx));
83 t(ddindx).created_by := rosetta_g_miss_num_map(a24(indx));
84 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a25(indx));
85 t(ddindx).creation_date := rosetta_g_miss_date_in_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_srm_pvt.srm_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
98 , a1 out nocopy JTF_NUMBER_TABLE
99 , a2 out nocopy JTF_VARCHAR2_TABLE_100
100 , a3 out nocopy JTF_VARCHAR2_TABLE_300
101 , a4 out nocopy JTF_VARCHAR2_TABLE_1000
102 , a5 out nocopy JTF_VARCHAR2_TABLE_200
103 , a6 out nocopy JTF_VARCHAR2_TABLE_100
104 , a7 out nocopy JTF_VARCHAR2_TABLE_2000
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_NUMBER_TABLE
123 , a26 out nocopy JTF_DATE_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_VARCHAR2_TABLE_100();
133 a3 := JTF_VARCHAR2_TABLE_300();
134 a4 := JTF_VARCHAR2_TABLE_1000();
135 a5 := JTF_VARCHAR2_TABLE_200();
136 a6 := JTF_VARCHAR2_TABLE_100();
137 a7 := JTF_VARCHAR2_TABLE_2000();
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_NUMBER_TABLE();
156 a26 := JTF_DATE_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_VARCHAR2_TABLE_100();
163 a3 := JTF_VARCHAR2_TABLE_300();
164 a4 := JTF_VARCHAR2_TABLE_1000();
165 a5 := JTF_VARCHAR2_TABLE_200();
166 a6 := JTF_VARCHAR2_TABLE_100();
167 a7 := JTF_VARCHAR2_TABLE_2000();
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_NUMBER_TABLE();
186 a26 := JTF_DATE_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).sir_id);
224 a2(indx) := t(ddindx).error_code;
225 a3(indx) := t(ddindx).error_message;
226 a4(indx) := t(ddindx).tag_name;
227 a5(indx) := t(ddindx).tag_attribute_name;
228 a6(indx) := t(ddindx).tag_attribute_value;
229 a7(indx) := t(ddindx).description;
230 a8(indx) := t(ddindx).stream_interface_attribute01;
231 a9(indx) := t(ddindx).stream_interface_attribute02;
232 a10(indx) := t(ddindx).stream_interface_attribute03;
233 a11(indx) := t(ddindx).stream_interface_attribute04;
234 a12(indx) := t(ddindx).stream_interface_attribute05;
235 a13(indx) := t(ddindx).stream_interface_attribute06;
236 a14(indx) := t(ddindx).stream_interface_attribute07;
237 a15(indx) := t(ddindx).stream_interface_attribute08;
238 a16(indx) := t(ddindx).stream_interface_attribute09;
239 a17(indx) := t(ddindx).stream_interface_attribute10;
240 a18(indx) := t(ddindx).stream_interface_attribute11;
241 a19(indx) := t(ddindx).stream_interface_attribute12;
242 a20(indx) := t(ddindx).stream_interface_attribute13;
243 a21(indx) := t(ddindx).stream_interface_attribute14;
244 a22(indx) := t(ddindx).stream_interface_attribute15;
245 a23(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
246 a24(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
247 a25(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
248 a26(indx) := t(ddindx).creation_date;
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_srm_pvt.srmv_tbl_type, a0 JTF_NUMBER_TABLE
262 , a1 JTF_VARCHAR2_TABLE_100
263 , a2 JTF_VARCHAR2_TABLE_2000
264 , a3 JTF_VARCHAR2_TABLE_200
265 , a4 JTF_VARCHAR2_TABLE_1000
266 , a5 JTF_NUMBER_TABLE
267 , a6 JTF_VARCHAR2_TABLE_300
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_NUMBER_TABLE
287 , a26 JTF_DATE_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).error_code := a1(indx);
300 t(ddindx).description := a2(indx);
301 t(ddindx).tag_attribute_name := a3(indx);
302 t(ddindx).tag_name := a4(indx);
303 t(ddindx).sir_id := rosetta_g_miss_num_map(a5(indx));
304 t(ddindx).error_message := a6(indx);
305 t(ddindx).tag_attribute_value := a7(indx);
306 t(ddindx).stream_interface_attribute01 := a8(indx);
307 t(ddindx).stream_interface_attribute02 := a9(indx);
308 t(ddindx).stream_interface_attribute03 := a10(indx);
309 t(ddindx).stream_interface_attribute04 := a11(indx);
310 t(ddindx).stream_interface_attribute05 := a12(indx);
311 t(ddindx).stream_interface_attribute06 := a13(indx);
312 t(ddindx).stream_interface_attribute07 := a14(indx);
313 t(ddindx).stream_interface_attribute08 := a15(indx);
314 t(ddindx).stream_interface_attribute09 := a16(indx);
315 t(ddindx).stream_interface_attribute10 := a17(indx);
316 t(ddindx).stream_interface_attribute11 := a18(indx);
317 t(ddindx).stream_interface_attribute12 := a19(indx);
318 t(ddindx).stream_interface_attribute13 := a20(indx);
319 t(ddindx).stream_interface_attribute14 := a21(indx);
320 t(ddindx).stream_interface_attribute15 := a22(indx);
321 t(ddindx).object_version_number := rosetta_g_miss_num_map(a23(indx));
322 t(ddindx).created_by := rosetta_g_miss_num_map(a24(indx));
323 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a25(indx));
324 t(ddindx).creation_date := rosetta_g_miss_date_in_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_srm_pvt.srmv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
337 , a1 out nocopy JTF_VARCHAR2_TABLE_100
338 , a2 out nocopy JTF_VARCHAR2_TABLE_2000
339 , a3 out nocopy JTF_VARCHAR2_TABLE_200
340 , a4 out nocopy JTF_VARCHAR2_TABLE_1000
341 , a5 out nocopy JTF_NUMBER_TABLE
342 , a6 out nocopy JTF_VARCHAR2_TABLE_300
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_NUMBER_TABLE
362 , a26 out nocopy JTF_DATE_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_VARCHAR2_TABLE_100();
371 a2 := JTF_VARCHAR2_TABLE_2000();
372 a3 := JTF_VARCHAR2_TABLE_200();
373 a4 := JTF_VARCHAR2_TABLE_1000();
374 a5 := JTF_NUMBER_TABLE();
375 a6 := JTF_VARCHAR2_TABLE_300();
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_NUMBER_TABLE();
395 a26 := JTF_DATE_TABLE();
396 a27 := JTF_DATE_TABLE();
397 a28 := JTF_NUMBER_TABLE();
398 else
399 a0 := JTF_NUMBER_TABLE();
400 a1 := JTF_VARCHAR2_TABLE_100();
401 a2 := JTF_VARCHAR2_TABLE_2000();
402 a3 := JTF_VARCHAR2_TABLE_200();
403 a4 := JTF_VARCHAR2_TABLE_1000();
404 a5 := JTF_NUMBER_TABLE();
405 a6 := JTF_VARCHAR2_TABLE_300();
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_NUMBER_TABLE();
425 a26 := JTF_DATE_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) := t(ddindx).error_code;
463 a2(indx) := t(ddindx).description;
464 a3(indx) := t(ddindx).tag_attribute_name;
465 a4(indx) := t(ddindx).tag_name;
466 a5(indx) := rosetta_g_miss_num_map(t(ddindx).sir_id);
467 a6(indx) := t(ddindx).error_message;
468 a7(indx) := t(ddindx).tag_attribute_value;
469 a8(indx) := t(ddindx).stream_interface_attribute01;
470 a9(indx) := t(ddindx).stream_interface_attribute02;
471 a10(indx) := t(ddindx).stream_interface_attribute03;
472 a11(indx) := t(ddindx).stream_interface_attribute04;
473 a12(indx) := t(ddindx).stream_interface_attribute05;
474 a13(indx) := t(ddindx).stream_interface_attribute06;
475 a14(indx) := t(ddindx).stream_interface_attribute07;
476 a15(indx) := t(ddindx).stream_interface_attribute08;
477 a16(indx) := t(ddindx).stream_interface_attribute09;
478 a17(indx) := t(ddindx).stream_interface_attribute10;
479 a18(indx) := t(ddindx).stream_interface_attribute11;
480 a19(indx) := t(ddindx).stream_interface_attribute12;
481 a20(indx) := t(ddindx).stream_interface_attribute13;
482 a21(indx) := t(ddindx).stream_interface_attribute14;
483 a22(indx) := t(ddindx).stream_interface_attribute15;
484 a23(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
485 a24(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
486 a25(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
487 a26(indx) := t(ddindx).creation_date;
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 VARCHAR2
507 , p6_a2 out nocopy VARCHAR2
508 , p6_a3 out nocopy VARCHAR2
509 , p6_a4 out nocopy VARCHAR2
510 , p6_a5 out nocopy NUMBER
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 NUMBER
531 , p6_a26 out nocopy DATE
532 , p6_a27 out nocopy DATE
533 , p6_a28 out nocopy NUMBER
534 , p5_a0 NUMBER := 0-1962.0724
535 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
536 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
537 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
538 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
539 , p5_a5 NUMBER := 0-1962.0724
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 NUMBER := 0-1962.0724
560 , p5_a26 DATE := fnd_api.g_miss_date
561 , p5_a27 DATE := fnd_api.g_miss_date
562 , p5_a28 NUMBER := 0-1962.0724
563 )
564
565 as
566 ddp_srmv_rec okl_srm_pvt.srmv_rec_type;
567 ddx_srmv_rec okl_srm_pvt.srmv_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_srmv_rec.id := rosetta_g_miss_num_map(p5_a0);
578 ddp_srmv_rec.error_code := p5_a1;
579 ddp_srmv_rec.description := p5_a2;
580 ddp_srmv_rec.tag_attribute_name := p5_a3;
581 ddp_srmv_rec.tag_name := p5_a4;
582 ddp_srmv_rec.sir_id := rosetta_g_miss_num_map(p5_a5);
583 ddp_srmv_rec.error_message := p5_a6;
584 ddp_srmv_rec.tag_attribute_value := p5_a7;
585 ddp_srmv_rec.stream_interface_attribute01 := p5_a8;
586 ddp_srmv_rec.stream_interface_attribute02 := p5_a9;
587 ddp_srmv_rec.stream_interface_attribute03 := p5_a10;
588 ddp_srmv_rec.stream_interface_attribute04 := p5_a11;
589 ddp_srmv_rec.stream_interface_attribute05 := p5_a12;
590 ddp_srmv_rec.stream_interface_attribute06 := p5_a13;
591 ddp_srmv_rec.stream_interface_attribute07 := p5_a14;
592 ddp_srmv_rec.stream_interface_attribute08 := p5_a15;
593 ddp_srmv_rec.stream_interface_attribute09 := p5_a16;
594 ddp_srmv_rec.stream_interface_attribute10 := p5_a17;
595 ddp_srmv_rec.stream_interface_attribute11 := p5_a18;
596 ddp_srmv_rec.stream_interface_attribute12 := p5_a19;
597 ddp_srmv_rec.stream_interface_attribute13 := p5_a20;
598 ddp_srmv_rec.stream_interface_attribute14 := p5_a21;
599 ddp_srmv_rec.stream_interface_attribute15 := p5_a22;
600 ddp_srmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a23);
601 ddp_srmv_rec.created_by := rosetta_g_miss_num_map(p5_a24);
602 ddp_srmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a25);
603 ddp_srmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
604 ddp_srmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
605 ddp_srmv_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_srm_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_srmv_rec,
615 ddx_srmv_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_srmv_rec.id);
625 p6_a1 := ddx_srmv_rec.error_code;
626 p6_a2 := ddx_srmv_rec.description;
627 p6_a3 := ddx_srmv_rec.tag_attribute_name;
628 p6_a4 := ddx_srmv_rec.tag_name;
629 p6_a5 := rosetta_g_miss_num_map(ddx_srmv_rec.sir_id);
630 p6_a6 := ddx_srmv_rec.error_message;
631 p6_a7 := ddx_srmv_rec.tag_attribute_value;
632 p6_a8 := ddx_srmv_rec.stream_interface_attribute01;
633 p6_a9 := ddx_srmv_rec.stream_interface_attribute02;
634 p6_a10 := ddx_srmv_rec.stream_interface_attribute03;
635 p6_a11 := ddx_srmv_rec.stream_interface_attribute04;
636 p6_a12 := ddx_srmv_rec.stream_interface_attribute05;
637 p6_a13 := ddx_srmv_rec.stream_interface_attribute06;
638 p6_a14 := ddx_srmv_rec.stream_interface_attribute07;
639 p6_a15 := ddx_srmv_rec.stream_interface_attribute08;
640 p6_a16 := ddx_srmv_rec.stream_interface_attribute09;
641 p6_a17 := ddx_srmv_rec.stream_interface_attribute10;
642 p6_a18 := ddx_srmv_rec.stream_interface_attribute11;
643 p6_a19 := ddx_srmv_rec.stream_interface_attribute12;
644 p6_a20 := ddx_srmv_rec.stream_interface_attribute13;
645 p6_a21 := ddx_srmv_rec.stream_interface_attribute14;
646 p6_a22 := ddx_srmv_rec.stream_interface_attribute15;
647 p6_a23 := rosetta_g_miss_num_map(ddx_srmv_rec.object_version_number);
648 p6_a24 := rosetta_g_miss_num_map(ddx_srmv_rec.created_by);
649 p6_a25 := rosetta_g_miss_num_map(ddx_srmv_rec.last_updated_by);
650 p6_a26 := ddx_srmv_rec.creation_date;
651 p6_a27 := ddx_srmv_rec.last_update_date;
652 p6_a28 := rosetta_g_miss_num_map(ddx_srmv_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_VARCHAR2_TABLE_100
662 , p5_a2 JTF_VARCHAR2_TABLE_2000
663 , p5_a3 JTF_VARCHAR2_TABLE_200
664 , p5_a4 JTF_VARCHAR2_TABLE_1000
665 , p5_a5 JTF_NUMBER_TABLE
666 , p5_a6 JTF_VARCHAR2_TABLE_300
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_NUMBER_TABLE
686 , p5_a26 JTF_DATE_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_VARCHAR2_TABLE_100
691 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_2000
692 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
693 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_1000
694 , p6_a5 out nocopy JTF_NUMBER_TABLE
695 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_300
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_NUMBER_TABLE
715 , p6_a26 out nocopy JTF_DATE_TABLE
716 , p6_a27 out nocopy JTF_DATE_TABLE
717 , p6_a28 out nocopy JTF_NUMBER_TABLE
718 )
719
720 as
721 ddp_srmv_tbl okl_srm_pvt.srmv_tbl_type;
722 ddx_srmv_tbl okl_srm_pvt.srmv_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_srm_pvt_w.rosetta_table_copy_in_p5(ddp_srmv_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_srm_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_srmv_tbl,
771 ddx_srmv_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_srm_pvt_w.rosetta_table_copy_out_p5(ddx_srmv_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 lock_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 , p5_a0 NUMBER := 0-1962.0724
818 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
819 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
820 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
821 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
822 , p5_a5 NUMBER := 0-1962.0724
823 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
824 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
825 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
826 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
827 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
828 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
829 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
830 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
831 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
832 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
833 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
834 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
835 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
836 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
837 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
838 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
839 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
840 , p5_a23 NUMBER := 0-1962.0724
841 , p5_a24 NUMBER := 0-1962.0724
842 , p5_a25 NUMBER := 0-1962.0724
843 , p5_a26 DATE := fnd_api.g_miss_date
844 , p5_a27 DATE := fnd_api.g_miss_date
845 , p5_a28 NUMBER := 0-1962.0724
846 )
847
848 as
849 ddp_srmv_rec okl_srm_pvt.srmv_rec_type;
850 ddindx binary_integer; indx binary_integer;
851 begin
852
853 -- copy data to the local IN or IN-OUT args, if any
854
855
856
857
858
859 ddp_srmv_rec.id := rosetta_g_miss_num_map(p5_a0);
860 ddp_srmv_rec.error_code := p5_a1;
861 ddp_srmv_rec.description := p5_a2;
862 ddp_srmv_rec.tag_attribute_name := p5_a3;
863 ddp_srmv_rec.tag_name := p5_a4;
864 ddp_srmv_rec.sir_id := rosetta_g_miss_num_map(p5_a5);
865 ddp_srmv_rec.error_message := p5_a6;
866 ddp_srmv_rec.tag_attribute_value := p5_a7;
867 ddp_srmv_rec.stream_interface_attribute01 := p5_a8;
868 ddp_srmv_rec.stream_interface_attribute02 := p5_a9;
869 ddp_srmv_rec.stream_interface_attribute03 := p5_a10;
870 ddp_srmv_rec.stream_interface_attribute04 := p5_a11;
871 ddp_srmv_rec.stream_interface_attribute05 := p5_a12;
872 ddp_srmv_rec.stream_interface_attribute06 := p5_a13;
873 ddp_srmv_rec.stream_interface_attribute07 := p5_a14;
874 ddp_srmv_rec.stream_interface_attribute08 := p5_a15;
875 ddp_srmv_rec.stream_interface_attribute09 := p5_a16;
876 ddp_srmv_rec.stream_interface_attribute10 := p5_a17;
877 ddp_srmv_rec.stream_interface_attribute11 := p5_a18;
878 ddp_srmv_rec.stream_interface_attribute12 := p5_a19;
879 ddp_srmv_rec.stream_interface_attribute13 := p5_a20;
880 ddp_srmv_rec.stream_interface_attribute14 := p5_a21;
881 ddp_srmv_rec.stream_interface_attribute15 := p5_a22;
882 ddp_srmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a23);
883 ddp_srmv_rec.created_by := rosetta_g_miss_num_map(p5_a24);
884 ddp_srmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a25);
885 ddp_srmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
886 ddp_srmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
887 ddp_srmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
888
889 -- here's the delegated call to the old PL/SQL routine
890 okl_srm_pvt.lock_row(p_api_version,
891 p_init_msg_list,
892 x_return_status,
893 x_msg_count,
894 x_msg_data,
895 ddp_srmv_rec);
896
897 -- copy data back from the local variables to OUT or IN-OUT args, if any
898
899
900
901
902
903 end;
904
905 procedure lock_row(p_api_version NUMBER
906 , p_init_msg_list VARCHAR2
907 , x_return_status out nocopy VARCHAR2
908 , x_msg_count out nocopy NUMBER
909 , x_msg_data out nocopy VARCHAR2
910 , p5_a0 JTF_NUMBER_TABLE
911 , p5_a1 JTF_VARCHAR2_TABLE_100
912 , p5_a2 JTF_VARCHAR2_TABLE_2000
913 , p5_a3 JTF_VARCHAR2_TABLE_200
914 , p5_a4 JTF_VARCHAR2_TABLE_1000
915 , p5_a5 JTF_NUMBER_TABLE
916 , p5_a6 JTF_VARCHAR2_TABLE_300
917 , p5_a7 JTF_VARCHAR2_TABLE_100
918 , p5_a8 JTF_VARCHAR2_TABLE_500
919 , p5_a9 JTF_VARCHAR2_TABLE_500
920 , p5_a10 JTF_VARCHAR2_TABLE_500
921 , p5_a11 JTF_VARCHAR2_TABLE_500
922 , p5_a12 JTF_VARCHAR2_TABLE_500
923 , p5_a13 JTF_VARCHAR2_TABLE_500
924 , p5_a14 JTF_VARCHAR2_TABLE_500
925 , p5_a15 JTF_VARCHAR2_TABLE_500
926 , p5_a16 JTF_VARCHAR2_TABLE_500
927 , p5_a17 JTF_VARCHAR2_TABLE_500
928 , p5_a18 JTF_VARCHAR2_TABLE_500
929 , p5_a19 JTF_VARCHAR2_TABLE_500
930 , p5_a20 JTF_VARCHAR2_TABLE_500
931 , p5_a21 JTF_VARCHAR2_TABLE_500
932 , p5_a22 JTF_VARCHAR2_TABLE_500
933 , p5_a23 JTF_NUMBER_TABLE
934 , p5_a24 JTF_NUMBER_TABLE
935 , p5_a25 JTF_NUMBER_TABLE
936 , p5_a26 JTF_DATE_TABLE
937 , p5_a27 JTF_DATE_TABLE
938 , p5_a28 JTF_NUMBER_TABLE
939 )
940
941 as
942 ddp_srmv_tbl okl_srm_pvt.srmv_tbl_type;
943 ddindx binary_integer; indx binary_integer;
944 begin
945
946 -- copy data to the local IN or IN-OUT args, if any
947
948
949
950
951
952 okl_srm_pvt_w.rosetta_table_copy_in_p5(ddp_srmv_tbl, p5_a0
953 , p5_a1
954 , p5_a2
955 , p5_a3
956 , p5_a4
957 , p5_a5
958 , p5_a6
959 , p5_a7
960 , p5_a8
961 , p5_a9
962 , p5_a10
963 , p5_a11
964 , p5_a12
965 , p5_a13
966 , p5_a14
967 , p5_a15
968 , p5_a16
969 , p5_a17
970 , p5_a18
971 , p5_a19
972 , p5_a20
973 , p5_a21
974 , p5_a22
975 , p5_a23
976 , p5_a24
977 , p5_a25
978 , p5_a26
979 , p5_a27
980 , p5_a28
981 );
982
983 -- here's the delegated call to the old PL/SQL routine
984 okl_srm_pvt.lock_row(p_api_version,
985 p_init_msg_list,
986 x_return_status,
987 x_msg_count,
988 x_msg_data,
989 ddp_srmv_tbl);
990
991 -- copy data back from the local variables to OUT or IN-OUT args, if any
992
993
994
995
996
997 end;
998
999 procedure update_row(p_api_version NUMBER
1000 , p_init_msg_list VARCHAR2
1001 , x_return_status out nocopy VARCHAR2
1002 , x_msg_count out nocopy NUMBER
1003 , x_msg_data out nocopy VARCHAR2
1004 , p6_a0 out nocopy NUMBER
1005 , p6_a1 out nocopy VARCHAR2
1006 , p6_a2 out nocopy VARCHAR2
1007 , p6_a3 out nocopy VARCHAR2
1008 , p6_a4 out nocopy VARCHAR2
1009 , p6_a5 out nocopy NUMBER
1010 , p6_a6 out nocopy VARCHAR2
1011 , p6_a7 out nocopy VARCHAR2
1012 , p6_a8 out nocopy VARCHAR2
1013 , p6_a9 out nocopy VARCHAR2
1014 , p6_a10 out nocopy VARCHAR2
1015 , p6_a11 out nocopy VARCHAR2
1016 , p6_a12 out nocopy VARCHAR2
1017 , p6_a13 out nocopy VARCHAR2
1018 , p6_a14 out nocopy VARCHAR2
1019 , p6_a15 out nocopy VARCHAR2
1020 , p6_a16 out nocopy VARCHAR2
1021 , p6_a17 out nocopy VARCHAR2
1022 , p6_a18 out nocopy VARCHAR2
1023 , p6_a19 out nocopy VARCHAR2
1024 , p6_a20 out nocopy VARCHAR2
1025 , p6_a21 out nocopy VARCHAR2
1026 , p6_a22 out nocopy VARCHAR2
1027 , p6_a23 out nocopy NUMBER
1028 , p6_a24 out nocopy NUMBER
1029 , p6_a25 out nocopy NUMBER
1030 , p6_a26 out nocopy DATE
1031 , p6_a27 out nocopy DATE
1032 , p6_a28 out nocopy NUMBER
1033 , p5_a0 NUMBER := 0-1962.0724
1034 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1035 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1036 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1037 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1038 , p5_a5 NUMBER := 0-1962.0724
1039 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1040 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1041 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1042 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1043 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1044 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1045 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1046 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1047 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1048 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1049 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1050 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1051 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1052 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1053 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1054 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1055 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1056 , p5_a23 NUMBER := 0-1962.0724
1057 , p5_a24 NUMBER := 0-1962.0724
1058 , p5_a25 NUMBER := 0-1962.0724
1059 , p5_a26 DATE := fnd_api.g_miss_date
1060 , p5_a27 DATE := fnd_api.g_miss_date
1061 , p5_a28 NUMBER := 0-1962.0724
1062 )
1063
1064 as
1065 ddp_srmv_rec okl_srm_pvt.srmv_rec_type;
1066 ddx_srmv_rec okl_srm_pvt.srmv_rec_type;
1067 ddindx binary_integer; indx binary_integer;
1068 begin
1069
1070 -- copy data to the local IN or IN-OUT args, if any
1071
1072
1073
1074
1075
1076 ddp_srmv_rec.id := rosetta_g_miss_num_map(p5_a0);
1077 ddp_srmv_rec.error_code := p5_a1;
1078 ddp_srmv_rec.description := p5_a2;
1079 ddp_srmv_rec.tag_attribute_name := p5_a3;
1080 ddp_srmv_rec.tag_name := p5_a4;
1081 ddp_srmv_rec.sir_id := rosetta_g_miss_num_map(p5_a5);
1082 ddp_srmv_rec.error_message := p5_a6;
1083 ddp_srmv_rec.tag_attribute_value := p5_a7;
1084 ddp_srmv_rec.stream_interface_attribute01 := p5_a8;
1085 ddp_srmv_rec.stream_interface_attribute02 := p5_a9;
1086 ddp_srmv_rec.stream_interface_attribute03 := p5_a10;
1087 ddp_srmv_rec.stream_interface_attribute04 := p5_a11;
1088 ddp_srmv_rec.stream_interface_attribute05 := p5_a12;
1089 ddp_srmv_rec.stream_interface_attribute06 := p5_a13;
1090 ddp_srmv_rec.stream_interface_attribute07 := p5_a14;
1091 ddp_srmv_rec.stream_interface_attribute08 := p5_a15;
1092 ddp_srmv_rec.stream_interface_attribute09 := p5_a16;
1093 ddp_srmv_rec.stream_interface_attribute10 := p5_a17;
1094 ddp_srmv_rec.stream_interface_attribute11 := p5_a18;
1095 ddp_srmv_rec.stream_interface_attribute12 := p5_a19;
1096 ddp_srmv_rec.stream_interface_attribute13 := p5_a20;
1097 ddp_srmv_rec.stream_interface_attribute14 := p5_a21;
1098 ddp_srmv_rec.stream_interface_attribute15 := p5_a22;
1099 ddp_srmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a23);
1100 ddp_srmv_rec.created_by := rosetta_g_miss_num_map(p5_a24);
1101 ddp_srmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a25);
1102 ddp_srmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
1103 ddp_srmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
1104 ddp_srmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
1105
1106
1107 -- here's the delegated call to the old PL/SQL routine
1108 okl_srm_pvt.update_row(p_api_version,
1109 p_init_msg_list,
1110 x_return_status,
1111 x_msg_count,
1112 x_msg_data,
1113 ddp_srmv_rec,
1114 ddx_srmv_rec);
1115
1116 -- copy data back from the local variables to OUT or IN-OUT args, if any
1117
1118
1119
1120
1121
1122
1123 p6_a0 := rosetta_g_miss_num_map(ddx_srmv_rec.id);
1124 p6_a1 := ddx_srmv_rec.error_code;
1125 p6_a2 := ddx_srmv_rec.description;
1126 p6_a3 := ddx_srmv_rec.tag_attribute_name;
1127 p6_a4 := ddx_srmv_rec.tag_name;
1128 p6_a5 := rosetta_g_miss_num_map(ddx_srmv_rec.sir_id);
1129 p6_a6 := ddx_srmv_rec.error_message;
1130 p6_a7 := ddx_srmv_rec.tag_attribute_value;
1131 p6_a8 := ddx_srmv_rec.stream_interface_attribute01;
1132 p6_a9 := ddx_srmv_rec.stream_interface_attribute02;
1133 p6_a10 := ddx_srmv_rec.stream_interface_attribute03;
1134 p6_a11 := ddx_srmv_rec.stream_interface_attribute04;
1135 p6_a12 := ddx_srmv_rec.stream_interface_attribute05;
1136 p6_a13 := ddx_srmv_rec.stream_interface_attribute06;
1137 p6_a14 := ddx_srmv_rec.stream_interface_attribute07;
1138 p6_a15 := ddx_srmv_rec.stream_interface_attribute08;
1139 p6_a16 := ddx_srmv_rec.stream_interface_attribute09;
1140 p6_a17 := ddx_srmv_rec.stream_interface_attribute10;
1141 p6_a18 := ddx_srmv_rec.stream_interface_attribute11;
1142 p6_a19 := ddx_srmv_rec.stream_interface_attribute12;
1143 p6_a20 := ddx_srmv_rec.stream_interface_attribute13;
1144 p6_a21 := ddx_srmv_rec.stream_interface_attribute14;
1145 p6_a22 := ddx_srmv_rec.stream_interface_attribute15;
1146 p6_a23 := rosetta_g_miss_num_map(ddx_srmv_rec.object_version_number);
1147 p6_a24 := rosetta_g_miss_num_map(ddx_srmv_rec.created_by);
1148 p6_a25 := rosetta_g_miss_num_map(ddx_srmv_rec.last_updated_by);
1149 p6_a26 := ddx_srmv_rec.creation_date;
1150 p6_a27 := ddx_srmv_rec.last_update_date;
1151 p6_a28 := rosetta_g_miss_num_map(ddx_srmv_rec.last_update_login);
1152 end;
1153
1154 procedure update_row(p_api_version NUMBER
1155 , p_init_msg_list VARCHAR2
1156 , x_return_status out nocopy VARCHAR2
1157 , x_msg_count out nocopy NUMBER
1158 , x_msg_data out nocopy VARCHAR2
1159 , p5_a0 JTF_NUMBER_TABLE
1160 , p5_a1 JTF_VARCHAR2_TABLE_100
1161 , p5_a2 JTF_VARCHAR2_TABLE_2000
1162 , p5_a3 JTF_VARCHAR2_TABLE_200
1163 , p5_a4 JTF_VARCHAR2_TABLE_1000
1164 , p5_a5 JTF_NUMBER_TABLE
1165 , p5_a6 JTF_VARCHAR2_TABLE_300
1166 , p5_a7 JTF_VARCHAR2_TABLE_100
1167 , p5_a8 JTF_VARCHAR2_TABLE_500
1168 , p5_a9 JTF_VARCHAR2_TABLE_500
1169 , p5_a10 JTF_VARCHAR2_TABLE_500
1170 , p5_a11 JTF_VARCHAR2_TABLE_500
1171 , p5_a12 JTF_VARCHAR2_TABLE_500
1172 , p5_a13 JTF_VARCHAR2_TABLE_500
1173 , p5_a14 JTF_VARCHAR2_TABLE_500
1174 , p5_a15 JTF_VARCHAR2_TABLE_500
1175 , p5_a16 JTF_VARCHAR2_TABLE_500
1176 , p5_a17 JTF_VARCHAR2_TABLE_500
1177 , p5_a18 JTF_VARCHAR2_TABLE_500
1178 , p5_a19 JTF_VARCHAR2_TABLE_500
1179 , p5_a20 JTF_VARCHAR2_TABLE_500
1180 , p5_a21 JTF_VARCHAR2_TABLE_500
1181 , p5_a22 JTF_VARCHAR2_TABLE_500
1182 , p5_a23 JTF_NUMBER_TABLE
1183 , p5_a24 JTF_NUMBER_TABLE
1184 , p5_a25 JTF_NUMBER_TABLE
1185 , p5_a26 JTF_DATE_TABLE
1186 , p5_a27 JTF_DATE_TABLE
1187 , p5_a28 JTF_NUMBER_TABLE
1188 , p6_a0 out nocopy JTF_NUMBER_TABLE
1189 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
1190 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_2000
1191 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
1192 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_1000
1193 , p6_a5 out nocopy JTF_NUMBER_TABLE
1194 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_300
1195 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
1196 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
1197 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
1198 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
1199 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
1200 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1201 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1202 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1203 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1204 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1205 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1206 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1207 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1208 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1209 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1210 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1211 , p6_a23 out nocopy JTF_NUMBER_TABLE
1212 , p6_a24 out nocopy JTF_NUMBER_TABLE
1213 , p6_a25 out nocopy JTF_NUMBER_TABLE
1214 , p6_a26 out nocopy JTF_DATE_TABLE
1215 , p6_a27 out nocopy JTF_DATE_TABLE
1216 , p6_a28 out nocopy JTF_NUMBER_TABLE
1217 )
1218
1219 as
1220 ddp_srmv_tbl okl_srm_pvt.srmv_tbl_type;
1221 ddx_srmv_tbl okl_srm_pvt.srmv_tbl_type;
1222 ddindx binary_integer; indx binary_integer;
1223 begin
1224
1225 -- copy data to the local IN or IN-OUT args, if any
1226
1227
1228
1229
1230
1231 okl_srm_pvt_w.rosetta_table_copy_in_p5(ddp_srmv_tbl, p5_a0
1232 , p5_a1
1233 , p5_a2
1234 , p5_a3
1235 , p5_a4
1236 , p5_a5
1237 , p5_a6
1238 , p5_a7
1239 , p5_a8
1240 , p5_a9
1241 , p5_a10
1242 , p5_a11
1243 , p5_a12
1244 , p5_a13
1245 , p5_a14
1246 , p5_a15
1247 , p5_a16
1248 , p5_a17
1249 , p5_a18
1250 , p5_a19
1251 , p5_a20
1252 , p5_a21
1253 , p5_a22
1254 , p5_a23
1255 , p5_a24
1256 , p5_a25
1257 , p5_a26
1258 , p5_a27
1259 , p5_a28
1260 );
1261
1262
1263 -- here's the delegated call to the old PL/SQL routine
1264 okl_srm_pvt.update_row(p_api_version,
1265 p_init_msg_list,
1266 x_return_status,
1267 x_msg_count,
1268 x_msg_data,
1269 ddp_srmv_tbl,
1270 ddx_srmv_tbl);
1271
1272 -- copy data back from the local variables to OUT or IN-OUT args, if any
1273
1274
1275
1276
1277
1278
1279 okl_srm_pvt_w.rosetta_table_copy_out_p5(ddx_srmv_tbl, p6_a0
1280 , p6_a1
1281 , p6_a2
1282 , p6_a3
1283 , p6_a4
1284 , p6_a5
1285 , p6_a6
1286 , p6_a7
1287 , p6_a8
1288 , p6_a9
1289 , p6_a10
1290 , p6_a11
1291 , p6_a12
1292 , p6_a13
1293 , p6_a14
1294 , p6_a15
1295 , p6_a16
1296 , p6_a17
1297 , p6_a18
1298 , p6_a19
1299 , p6_a20
1300 , p6_a21
1301 , p6_a22
1302 , p6_a23
1303 , p6_a24
1304 , p6_a25
1305 , p6_a26
1306 , p6_a27
1307 , p6_a28
1308 );
1309 end;
1310
1311 procedure delete_row(p_api_version NUMBER
1312 , p_init_msg_list VARCHAR2
1313 , x_return_status out nocopy VARCHAR2
1314 , x_msg_count out nocopy NUMBER
1315 , x_msg_data out nocopy VARCHAR2
1316 , p5_a0 NUMBER := 0-1962.0724
1317 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1318 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1319 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1320 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1321 , p5_a5 NUMBER := 0-1962.0724
1322 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1323 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1324 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1325 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1326 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1327 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1328 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1329 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1330 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1331 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1332 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1333 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1334 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1335 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1336 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1337 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1338 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1339 , p5_a23 NUMBER := 0-1962.0724
1340 , p5_a24 NUMBER := 0-1962.0724
1341 , p5_a25 NUMBER := 0-1962.0724
1342 , p5_a26 DATE := fnd_api.g_miss_date
1343 , p5_a27 DATE := fnd_api.g_miss_date
1344 , p5_a28 NUMBER := 0-1962.0724
1345 )
1346
1347 as
1348 ddp_srmv_rec okl_srm_pvt.srmv_rec_type;
1349 ddindx binary_integer; indx binary_integer;
1350 begin
1351
1352 -- copy data to the local IN or IN-OUT args, if any
1353
1354
1355
1356
1357
1358 ddp_srmv_rec.id := rosetta_g_miss_num_map(p5_a0);
1359 ddp_srmv_rec.error_code := p5_a1;
1360 ddp_srmv_rec.description := p5_a2;
1361 ddp_srmv_rec.tag_attribute_name := p5_a3;
1362 ddp_srmv_rec.tag_name := p5_a4;
1363 ddp_srmv_rec.sir_id := rosetta_g_miss_num_map(p5_a5);
1364 ddp_srmv_rec.error_message := p5_a6;
1365 ddp_srmv_rec.tag_attribute_value := p5_a7;
1366 ddp_srmv_rec.stream_interface_attribute01 := p5_a8;
1367 ddp_srmv_rec.stream_interface_attribute02 := p5_a9;
1368 ddp_srmv_rec.stream_interface_attribute03 := p5_a10;
1369 ddp_srmv_rec.stream_interface_attribute04 := p5_a11;
1370 ddp_srmv_rec.stream_interface_attribute05 := p5_a12;
1371 ddp_srmv_rec.stream_interface_attribute06 := p5_a13;
1372 ddp_srmv_rec.stream_interface_attribute07 := p5_a14;
1373 ddp_srmv_rec.stream_interface_attribute08 := p5_a15;
1374 ddp_srmv_rec.stream_interface_attribute09 := p5_a16;
1375 ddp_srmv_rec.stream_interface_attribute10 := p5_a17;
1376 ddp_srmv_rec.stream_interface_attribute11 := p5_a18;
1377 ddp_srmv_rec.stream_interface_attribute12 := p5_a19;
1378 ddp_srmv_rec.stream_interface_attribute13 := p5_a20;
1379 ddp_srmv_rec.stream_interface_attribute14 := p5_a21;
1380 ddp_srmv_rec.stream_interface_attribute15 := p5_a22;
1381 ddp_srmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a23);
1382 ddp_srmv_rec.created_by := rosetta_g_miss_num_map(p5_a24);
1383 ddp_srmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a25);
1384 ddp_srmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
1385 ddp_srmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
1386 ddp_srmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
1387
1388 -- here's the delegated call to the old PL/SQL routine
1389 okl_srm_pvt.delete_row(p_api_version,
1390 p_init_msg_list,
1391 x_return_status,
1392 x_msg_count,
1393 x_msg_data,
1394 ddp_srmv_rec);
1395
1396 -- copy data back from the local variables to OUT or IN-OUT args, if any
1397
1398
1399
1400
1401
1402 end;
1403
1404 procedure delete_row(p_api_version NUMBER
1405 , p_init_msg_list VARCHAR2
1406 , x_return_status out nocopy VARCHAR2
1407 , x_msg_count out nocopy NUMBER
1408 , x_msg_data out nocopy VARCHAR2
1409 , p5_a0 JTF_NUMBER_TABLE
1410 , p5_a1 JTF_VARCHAR2_TABLE_100
1411 , p5_a2 JTF_VARCHAR2_TABLE_2000
1412 , p5_a3 JTF_VARCHAR2_TABLE_200
1413 , p5_a4 JTF_VARCHAR2_TABLE_1000
1414 , p5_a5 JTF_NUMBER_TABLE
1415 , p5_a6 JTF_VARCHAR2_TABLE_300
1416 , p5_a7 JTF_VARCHAR2_TABLE_100
1417 , p5_a8 JTF_VARCHAR2_TABLE_500
1418 , p5_a9 JTF_VARCHAR2_TABLE_500
1419 , p5_a10 JTF_VARCHAR2_TABLE_500
1420 , p5_a11 JTF_VARCHAR2_TABLE_500
1421 , p5_a12 JTF_VARCHAR2_TABLE_500
1422 , p5_a13 JTF_VARCHAR2_TABLE_500
1423 , p5_a14 JTF_VARCHAR2_TABLE_500
1424 , p5_a15 JTF_VARCHAR2_TABLE_500
1425 , p5_a16 JTF_VARCHAR2_TABLE_500
1426 , p5_a17 JTF_VARCHAR2_TABLE_500
1427 , p5_a18 JTF_VARCHAR2_TABLE_500
1428 , p5_a19 JTF_VARCHAR2_TABLE_500
1429 , p5_a20 JTF_VARCHAR2_TABLE_500
1430 , p5_a21 JTF_VARCHAR2_TABLE_500
1431 , p5_a22 JTF_VARCHAR2_TABLE_500
1432 , p5_a23 JTF_NUMBER_TABLE
1433 , p5_a24 JTF_NUMBER_TABLE
1434 , p5_a25 JTF_NUMBER_TABLE
1435 , p5_a26 JTF_DATE_TABLE
1436 , p5_a27 JTF_DATE_TABLE
1437 , p5_a28 JTF_NUMBER_TABLE
1438 )
1439
1440 as
1441 ddp_srmv_tbl okl_srm_pvt.srmv_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_srm_pvt_w.rosetta_table_copy_in_p5(ddp_srmv_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 );
1481
1482 -- here's the delegated call to the old PL/SQL routine
1483 okl_srm_pvt.delete_row(p_api_version,
1484 p_init_msg_list,
1485 x_return_status,
1486 x_msg_count,
1487 x_msg_data,
1488 ddp_srmv_tbl);
1489
1490 -- copy data back from the local variables to OUT or IN-OUT args, if any
1491
1492
1493
1494
1495
1496 end;
1497
1498 procedure validate_row(p_api_version NUMBER
1499 , p_init_msg_list VARCHAR2
1500 , x_return_status out nocopy VARCHAR2
1501 , x_msg_count out nocopy NUMBER
1502 , x_msg_data out nocopy VARCHAR2
1503 , p5_a0 NUMBER := 0-1962.0724
1504 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1505 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1506 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1507 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1508 , p5_a5 NUMBER := 0-1962.0724
1509 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1510 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1511 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1512 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1513 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1514 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1515 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1516 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1517 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1518 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1519 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1520 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1521 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1522 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1523 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1524 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1525 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1526 , p5_a23 NUMBER := 0-1962.0724
1527 , p5_a24 NUMBER := 0-1962.0724
1528 , p5_a25 NUMBER := 0-1962.0724
1529 , p5_a26 DATE := fnd_api.g_miss_date
1530 , p5_a27 DATE := fnd_api.g_miss_date
1531 , p5_a28 NUMBER := 0-1962.0724
1532 )
1533
1534 as
1535 ddp_srmv_rec okl_srm_pvt.srmv_rec_type;
1536 ddindx binary_integer; indx binary_integer;
1537 begin
1538
1539 -- copy data to the local IN or IN-OUT args, if any
1540
1541
1542
1543
1544
1545 ddp_srmv_rec.id := rosetta_g_miss_num_map(p5_a0);
1546 ddp_srmv_rec.error_code := p5_a1;
1547 ddp_srmv_rec.description := p5_a2;
1548 ddp_srmv_rec.tag_attribute_name := p5_a3;
1549 ddp_srmv_rec.tag_name := p5_a4;
1550 ddp_srmv_rec.sir_id := rosetta_g_miss_num_map(p5_a5);
1551 ddp_srmv_rec.error_message := p5_a6;
1552 ddp_srmv_rec.tag_attribute_value := p5_a7;
1553 ddp_srmv_rec.stream_interface_attribute01 := p5_a8;
1554 ddp_srmv_rec.stream_interface_attribute02 := p5_a9;
1555 ddp_srmv_rec.stream_interface_attribute03 := p5_a10;
1556 ddp_srmv_rec.stream_interface_attribute04 := p5_a11;
1557 ddp_srmv_rec.stream_interface_attribute05 := p5_a12;
1558 ddp_srmv_rec.stream_interface_attribute06 := p5_a13;
1559 ddp_srmv_rec.stream_interface_attribute07 := p5_a14;
1560 ddp_srmv_rec.stream_interface_attribute08 := p5_a15;
1561 ddp_srmv_rec.stream_interface_attribute09 := p5_a16;
1562 ddp_srmv_rec.stream_interface_attribute10 := p5_a17;
1563 ddp_srmv_rec.stream_interface_attribute11 := p5_a18;
1564 ddp_srmv_rec.stream_interface_attribute12 := p5_a19;
1565 ddp_srmv_rec.stream_interface_attribute13 := p5_a20;
1566 ddp_srmv_rec.stream_interface_attribute14 := p5_a21;
1567 ddp_srmv_rec.stream_interface_attribute15 := p5_a22;
1568 ddp_srmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a23);
1569 ddp_srmv_rec.created_by := rosetta_g_miss_num_map(p5_a24);
1570 ddp_srmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a25);
1571 ddp_srmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
1572 ddp_srmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
1573 ddp_srmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
1574
1575 -- here's the delegated call to the old PL/SQL routine
1576 okl_srm_pvt.validate_row(p_api_version,
1577 p_init_msg_list,
1578 x_return_status,
1579 x_msg_count,
1580 x_msg_data,
1581 ddp_srmv_rec);
1582
1583 -- copy data back from the local variables to OUT or IN-OUT args, if any
1584
1585
1586
1587
1588
1589 end;
1590
1591 procedure validate_row(p_api_version NUMBER
1592 , p_init_msg_list VARCHAR2
1593 , x_return_status out nocopy VARCHAR2
1594 , x_msg_count out nocopy NUMBER
1595 , x_msg_data out nocopy VARCHAR2
1596 , p5_a0 JTF_NUMBER_TABLE
1597 , p5_a1 JTF_VARCHAR2_TABLE_100
1598 , p5_a2 JTF_VARCHAR2_TABLE_2000
1599 , p5_a3 JTF_VARCHAR2_TABLE_200
1600 , p5_a4 JTF_VARCHAR2_TABLE_1000
1601 , p5_a5 JTF_NUMBER_TABLE
1602 , p5_a6 JTF_VARCHAR2_TABLE_300
1603 , p5_a7 JTF_VARCHAR2_TABLE_100
1604 , p5_a8 JTF_VARCHAR2_TABLE_500
1605 , p5_a9 JTF_VARCHAR2_TABLE_500
1606 , p5_a10 JTF_VARCHAR2_TABLE_500
1607 , p5_a11 JTF_VARCHAR2_TABLE_500
1608 , p5_a12 JTF_VARCHAR2_TABLE_500
1609 , p5_a13 JTF_VARCHAR2_TABLE_500
1610 , p5_a14 JTF_VARCHAR2_TABLE_500
1611 , p5_a15 JTF_VARCHAR2_TABLE_500
1612 , p5_a16 JTF_VARCHAR2_TABLE_500
1613 , p5_a17 JTF_VARCHAR2_TABLE_500
1614 , p5_a18 JTF_VARCHAR2_TABLE_500
1615 , p5_a19 JTF_VARCHAR2_TABLE_500
1616 , p5_a20 JTF_VARCHAR2_TABLE_500
1617 , p5_a21 JTF_VARCHAR2_TABLE_500
1618 , p5_a22 JTF_VARCHAR2_TABLE_500
1619 , p5_a23 JTF_NUMBER_TABLE
1620 , p5_a24 JTF_NUMBER_TABLE
1621 , p5_a25 JTF_NUMBER_TABLE
1622 , p5_a26 JTF_DATE_TABLE
1623 , p5_a27 JTF_DATE_TABLE
1624 , p5_a28 JTF_NUMBER_TABLE
1625 )
1626
1627 as
1628 ddp_srmv_tbl okl_srm_pvt.srmv_tbl_type;
1629 ddindx binary_integer; indx binary_integer;
1630 begin
1631
1632 -- copy data to the local IN or IN-OUT args, if any
1633
1634
1635
1636
1637
1638 okl_srm_pvt_w.rosetta_table_copy_in_p5(ddp_srmv_tbl, p5_a0
1639 , p5_a1
1640 , p5_a2
1641 , p5_a3
1642 , p5_a4
1643 , p5_a5
1644 , p5_a6
1645 , p5_a7
1646 , p5_a8
1647 , p5_a9
1648 , p5_a10
1649 , p5_a11
1650 , p5_a12
1651 , p5_a13
1652 , p5_a14
1653 , p5_a15
1654 , p5_a16
1655 , p5_a17
1656 , p5_a18
1657 , p5_a19
1658 , p5_a20
1659 , p5_a21
1660 , p5_a22
1661 , p5_a23
1662 , p5_a24
1663 , p5_a25
1664 , p5_a26
1665 , p5_a27
1666 , p5_a28
1667 );
1668
1669 -- here's the delegated call to the old PL/SQL routine
1670 okl_srm_pvt.validate_row(p_api_version,
1671 p_init_msg_list,
1672 x_return_status,
1673 x_msg_count,
1674 x_msg_data,
1675 ddp_srmv_tbl);
1676
1677 -- copy data back from the local variables to OUT or IN-OUT args, if any
1678
1679
1680
1681
1682
1683 end;
1684
1685 end okl_srm_pvt_w;