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