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