[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUP_PRD_PRCTEMPL_PUB_W
Source
1 package body okl_setup_prd_prctempl_pub_w as
2 /* $Header: OKLUPPEB.pls 120.2 2005/10/30 04:49:29 appldev noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure insert_prd_price_tmpls(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 NUMBER
29 , p6_a2 out nocopy NUMBER
30 , p6_a3 out nocopy VARCHAR2
31 , p6_a4 out nocopy VARCHAR2
32 , p6_a5 out nocopy VARCHAR2
33 , p6_a6 out nocopy DATE
34 , p6_a7 out nocopy DATE
35 , p6_a8 out nocopy VARCHAR2
36 , p6_a9 out nocopy NUMBER
37 , p6_a10 out nocopy DATE
38 , p6_a11 out nocopy NUMBER
39 , p6_a12 out nocopy DATE
40 , p6_a13 out nocopy NUMBER
41 , p5_a0 NUMBER := 0-1962.0724
42 , p5_a1 NUMBER := 0-1962.0724
43 , p5_a2 NUMBER := 0-1962.0724
44 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
45 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
46 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
47 , p5_a6 DATE := fnd_api.g_miss_date
48 , p5_a7 DATE := fnd_api.g_miss_date
49 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
50 , p5_a9 NUMBER := 0-1962.0724
51 , p5_a10 DATE := fnd_api.g_miss_date
52 , p5_a11 NUMBER := 0-1962.0724
53 , p5_a12 DATE := fnd_api.g_miss_date
54 , p5_a13 NUMBER := 0-1962.0724
55 )
56
57 as
58 ddp_pitv_rec okl_setup_prd_prctempl_pub.pitv_rec_type;
59 ddx_pitv_rec okl_setup_prd_prctempl_pub.pitv_rec_type;
60 ddindx binary_integer; indx binary_integer;
61 begin
62
63 -- copy data to the local IN or IN-OUT args, if any
64
65
66
67
68
69 ddp_pitv_rec.id := rosetta_g_miss_num_map(p5_a0);
70 ddp_pitv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
71 ddp_pitv_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
72 ddp_pitv_rec.template_name := p5_a3;
73 ddp_pitv_rec.template_path := p5_a4;
74 ddp_pitv_rec.version := p5_a5;
75 ddp_pitv_rec.start_date := rosetta_g_miss_date_in_map(p5_a6);
76 ddp_pitv_rec.end_date := rosetta_g_miss_date_in_map(p5_a7);
77 ddp_pitv_rec.description := p5_a8;
78 ddp_pitv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
79 ddp_pitv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
80 ddp_pitv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
81 ddp_pitv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
82 ddp_pitv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
83
84
85 -- here's the delegated call to the old PL/SQL routine
86 okl_setup_prd_prctempl_pub.insert_prd_price_tmpls(p_api_version,
87 p_init_msg_list,
88 x_return_status,
89 x_msg_count,
90 x_msg_data,
91 ddp_pitv_rec,
92 ddx_pitv_rec);
93
94 -- copy data back from the local variables to OUT or IN-OUT args, if any
95
96
97
98
99
100
101 p6_a0 := rosetta_g_miss_num_map(ddx_pitv_rec.id);
102 p6_a1 := rosetta_g_miss_num_map(ddx_pitv_rec.object_version_number);
103 p6_a2 := rosetta_g_miss_num_map(ddx_pitv_rec.pdt_id);
104 p6_a3 := ddx_pitv_rec.template_name;
105 p6_a4 := ddx_pitv_rec.template_path;
106 p6_a5 := ddx_pitv_rec.version;
107 p6_a6 := ddx_pitv_rec.start_date;
108 p6_a7 := ddx_pitv_rec.end_date;
109 p6_a8 := ddx_pitv_rec.description;
110 p6_a9 := rosetta_g_miss_num_map(ddx_pitv_rec.created_by);
111 p6_a10 := ddx_pitv_rec.creation_date;
112 p6_a11 := rosetta_g_miss_num_map(ddx_pitv_rec.last_updated_by);
113 p6_a12 := ddx_pitv_rec.last_update_date;
114 p6_a13 := rosetta_g_miss_num_map(ddx_pitv_rec.last_update_login);
115 end;
116
117 procedure update_prd_price_tmpls(p_api_version NUMBER
118 , p_init_msg_list VARCHAR2
119 , x_return_status out nocopy VARCHAR2
120 , x_msg_count out nocopy NUMBER
121 , x_msg_data out nocopy VARCHAR2
122 , p6_a0 out nocopy NUMBER
123 , p6_a1 out nocopy NUMBER
124 , p6_a2 out nocopy NUMBER
125 , p6_a3 out nocopy VARCHAR2
126 , p6_a4 out nocopy VARCHAR2
127 , p6_a5 out nocopy VARCHAR2
128 , p6_a6 out nocopy DATE
129 , p6_a7 out nocopy DATE
130 , p6_a8 out nocopy VARCHAR2
131 , p6_a9 out nocopy NUMBER
132 , p6_a10 out nocopy DATE
133 , p6_a11 out nocopy NUMBER
134 , p6_a12 out nocopy DATE
135 , p6_a13 out nocopy NUMBER
136 , p5_a0 NUMBER := 0-1962.0724
137 , p5_a1 NUMBER := 0-1962.0724
138 , p5_a2 NUMBER := 0-1962.0724
139 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
140 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
141 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
142 , p5_a6 DATE := fnd_api.g_miss_date
143 , p5_a7 DATE := fnd_api.g_miss_date
144 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
145 , p5_a9 NUMBER := 0-1962.0724
146 , p5_a10 DATE := fnd_api.g_miss_date
147 , p5_a11 NUMBER := 0-1962.0724
148 , p5_a12 DATE := fnd_api.g_miss_date
149 , p5_a13 NUMBER := 0-1962.0724
150 )
151
152 as
153 ddp_pitv_rec okl_setup_prd_prctempl_pub.pitv_rec_type;
154 ddx_pitv_rec okl_setup_prd_prctempl_pub.pitv_rec_type;
155 ddindx binary_integer; indx binary_integer;
156 begin
157
158 -- copy data to the local IN or IN-OUT args, if any
159
160
161
162
163
164 ddp_pitv_rec.id := rosetta_g_miss_num_map(p5_a0);
165 ddp_pitv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
166 ddp_pitv_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
167 ddp_pitv_rec.template_name := p5_a3;
168 ddp_pitv_rec.template_path := p5_a4;
169 ddp_pitv_rec.version := p5_a5;
170 ddp_pitv_rec.start_date := rosetta_g_miss_date_in_map(p5_a6);
171 ddp_pitv_rec.end_date := rosetta_g_miss_date_in_map(p5_a7);
172 ddp_pitv_rec.description := p5_a8;
173 ddp_pitv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
174 ddp_pitv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
175 ddp_pitv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
176 ddp_pitv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
177 ddp_pitv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
178
179
180 -- here's the delegated call to the old PL/SQL routine
181 okl_setup_prd_prctempl_pub.update_prd_price_tmpls(p_api_version,
182 p_init_msg_list,
183 x_return_status,
184 x_msg_count,
185 x_msg_data,
186 ddp_pitv_rec,
187 ddx_pitv_rec);
188
189 -- copy data back from the local variables to OUT or IN-OUT args, if any
190
191
192
193
194
195
196 p6_a0 := rosetta_g_miss_num_map(ddx_pitv_rec.id);
197 p6_a1 := rosetta_g_miss_num_map(ddx_pitv_rec.object_version_number);
198 p6_a2 := rosetta_g_miss_num_map(ddx_pitv_rec.pdt_id);
199 p6_a3 := ddx_pitv_rec.template_name;
200 p6_a4 := ddx_pitv_rec.template_path;
201 p6_a5 := ddx_pitv_rec.version;
202 p6_a6 := ddx_pitv_rec.start_date;
203 p6_a7 := ddx_pitv_rec.end_date;
204 p6_a8 := ddx_pitv_rec.description;
205 p6_a9 := rosetta_g_miss_num_map(ddx_pitv_rec.created_by);
206 p6_a10 := ddx_pitv_rec.creation_date;
207 p6_a11 := rosetta_g_miss_num_map(ddx_pitv_rec.last_updated_by);
208 p6_a12 := ddx_pitv_rec.last_update_date;
209 p6_a13 := rosetta_g_miss_num_map(ddx_pitv_rec.last_update_login);
210 end;
211
212 procedure insert_prd_price_tmpls(p_api_version NUMBER
213 , p_init_msg_list VARCHAR2
214 , x_return_status out nocopy VARCHAR2
215 , x_msg_count out nocopy NUMBER
216 , x_msg_data out nocopy VARCHAR2
217 , p5_a0 JTF_NUMBER_TABLE
218 , p5_a1 JTF_NUMBER_TABLE
219 , p5_a2 JTF_NUMBER_TABLE
220 , p5_a3 JTF_VARCHAR2_TABLE_200
221 , p5_a4 JTF_VARCHAR2_TABLE_400
222 , p5_a5 JTF_VARCHAR2_TABLE_100
223 , p5_a6 JTF_DATE_TABLE
224 , p5_a7 JTF_DATE_TABLE
225 , p5_a8 JTF_VARCHAR2_TABLE_2000
226 , p5_a9 JTF_NUMBER_TABLE
227 , p5_a10 JTF_DATE_TABLE
228 , p5_a11 JTF_NUMBER_TABLE
229 , p5_a12 JTF_DATE_TABLE
230 , p5_a13 JTF_NUMBER_TABLE
231 , p6_a0 out nocopy JTF_NUMBER_TABLE
232 , p6_a1 out nocopy JTF_NUMBER_TABLE
233 , p6_a2 out nocopy JTF_NUMBER_TABLE
234 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
235 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_400
236 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
237 , p6_a6 out nocopy JTF_DATE_TABLE
238 , p6_a7 out nocopy JTF_DATE_TABLE
239 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_2000
240 , p6_a9 out nocopy JTF_NUMBER_TABLE
241 , p6_a10 out nocopy JTF_DATE_TABLE
242 , p6_a11 out nocopy JTF_NUMBER_TABLE
243 , p6_a12 out nocopy JTF_DATE_TABLE
244 , p6_a13 out nocopy JTF_NUMBER_TABLE
245 )
246
247 as
248 ddp_pitv_tbl okl_setup_prd_prctempl_pub.pitv_tbl_type;
249 ddx_pitv_tbl okl_setup_prd_prctempl_pub.pitv_tbl_type;
250 ddindx binary_integer; indx binary_integer;
251 begin
252
253 -- copy data to the local IN or IN-OUT args, if any
254
255
256
257
258
259 okl_pit_pvt_w.rosetta_table_copy_in_p5(ddp_pitv_tbl, p5_a0
260 , p5_a1
261 , p5_a2
262 , p5_a3
263 , p5_a4
264 , p5_a5
265 , p5_a6
266 , p5_a7
267 , p5_a8
268 , p5_a9
269 , p5_a10
270 , p5_a11
271 , p5_a12
272 , p5_a13
273 );
274
275
276 -- here's the delegated call to the old PL/SQL routine
277 okl_setup_prd_prctempl_pub.insert_prd_price_tmpls(p_api_version,
278 p_init_msg_list,
279 x_return_status,
280 x_msg_count,
281 x_msg_data,
282 ddp_pitv_tbl,
283 ddx_pitv_tbl);
284
285 -- copy data back from the local variables to OUT or IN-OUT args, if any
286
287
288
289
290
291
292 okl_pit_pvt_w.rosetta_table_copy_out_p5(ddx_pitv_tbl, p6_a0
293 , p6_a1
294 , p6_a2
295 , p6_a3
296 , p6_a4
297 , p6_a5
298 , p6_a6
299 , p6_a7
300 , p6_a8
301 , p6_a9
302 , p6_a10
303 , p6_a11
304 , p6_a12
305 , p6_a13
306 );
307 end;
308
309 procedure update_prd_price_tmpls(p_api_version NUMBER
310 , p_init_msg_list VARCHAR2
311 , x_return_status out nocopy VARCHAR2
312 , x_msg_count out nocopy NUMBER
313 , x_msg_data out nocopy VARCHAR2
314 , p5_a0 JTF_NUMBER_TABLE
315 , p5_a1 JTF_NUMBER_TABLE
316 , p5_a2 JTF_NUMBER_TABLE
317 , p5_a3 JTF_VARCHAR2_TABLE_200
318 , p5_a4 JTF_VARCHAR2_TABLE_400
319 , p5_a5 JTF_VARCHAR2_TABLE_100
320 , p5_a6 JTF_DATE_TABLE
321 , p5_a7 JTF_DATE_TABLE
322 , p5_a8 JTF_VARCHAR2_TABLE_2000
323 , p5_a9 JTF_NUMBER_TABLE
324 , p5_a10 JTF_DATE_TABLE
325 , p5_a11 JTF_NUMBER_TABLE
326 , p5_a12 JTF_DATE_TABLE
327 , p5_a13 JTF_NUMBER_TABLE
328 , p6_a0 out nocopy JTF_NUMBER_TABLE
329 , p6_a1 out nocopy JTF_NUMBER_TABLE
330 , p6_a2 out nocopy JTF_NUMBER_TABLE
331 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
332 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_400
333 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
334 , p6_a6 out nocopy JTF_DATE_TABLE
335 , p6_a7 out nocopy JTF_DATE_TABLE
336 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_2000
337 , p6_a9 out nocopy JTF_NUMBER_TABLE
338 , p6_a10 out nocopy JTF_DATE_TABLE
339 , p6_a11 out nocopy JTF_NUMBER_TABLE
340 , p6_a12 out nocopy JTF_DATE_TABLE
341 , p6_a13 out nocopy JTF_NUMBER_TABLE
342 )
343
344 as
345 ddp_pitv_tbl okl_setup_prd_prctempl_pub.pitv_tbl_type;
346 ddx_pitv_tbl okl_setup_prd_prctempl_pub.pitv_tbl_type;
347 ddindx binary_integer; indx binary_integer;
348 begin
349
350 -- copy data to the local IN or IN-OUT args, if any
351
352
353
354
355
356 okl_pit_pvt_w.rosetta_table_copy_in_p5(ddp_pitv_tbl, p5_a0
357 , p5_a1
358 , p5_a2
359 , p5_a3
360 , p5_a4
361 , p5_a5
362 , p5_a6
363 , p5_a7
364 , p5_a8
365 , p5_a9
366 , p5_a10
367 , p5_a11
368 , p5_a12
369 , p5_a13
370 );
371
372
373 -- here's the delegated call to the old PL/SQL routine
374 okl_setup_prd_prctempl_pub.update_prd_price_tmpls(p_api_version,
375 p_init_msg_list,
376 x_return_status,
377 x_msg_count,
378 x_msg_data,
379 ddp_pitv_tbl,
380 ddx_pitv_tbl);
381
382 -- copy data back from the local variables to OUT or IN-OUT args, if any
383
384
385
386
387
388
389 okl_pit_pvt_w.rosetta_table_copy_out_p5(ddx_pitv_tbl, p6_a0
390 , p6_a1
391 , p6_a2
392 , p6_a3
393 , p6_a4
394 , p6_a5
395 , p6_a6
396 , p6_a7
397 , p6_a8
398 , p6_a9
399 , p6_a10
400 , p6_a11
401 , p6_a12
402 , p6_a13
403 );
404 end;
405
406 procedure check_product_constraints(p_api_version NUMBER
407 , p_init_msg_list VARCHAR2
408 , x_return_status out nocopy VARCHAR2
409 , x_msg_count out nocopy NUMBER
410 , x_msg_data out nocopy VARCHAR2
411 , x_validated out nocopy VARCHAR2
412 , p5_a0 NUMBER := 0-1962.0724
413 , p5_a1 NUMBER := 0-1962.0724
414 , p5_a2 NUMBER := 0-1962.0724
415 , p5_a3 NUMBER := 0-1962.0724
416 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
417 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
418 , p5_a6 NUMBER := 0-1962.0724
419 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
420 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
421 , p5_a9 DATE := fnd_api.g_miss_date
422 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
423 , p5_a11 DATE := fnd_api.g_miss_date
424 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
425 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
426 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
427 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
428 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
429 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
430 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
431 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
432 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
433 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
434 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
435 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
436 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
437 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
438 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
439 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
440 , p5_a28 NUMBER := 0-1962.0724
441 , p5_a29 DATE := fnd_api.g_miss_date
442 , p5_a30 NUMBER := 0-1962.0724
443 , p5_a31 DATE := fnd_api.g_miss_date
444 , p5_a32 NUMBER := 0-1962.0724
445 )
446
447 as
448 ddp_pdtv_rec okl_setup_prd_prctempl_pub.pdtv_rec_type;
449 ddindx binary_integer; indx binary_integer;
450 begin
451
452 -- copy data to the local IN or IN-OUT args, if any
453
454
455
456
457
458 ddp_pdtv_rec.id := rosetta_g_miss_num_map(p5_a0);
459 ddp_pdtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
460 ddp_pdtv_rec.aes_id := rosetta_g_miss_num_map(p5_a2);
461 ddp_pdtv_rec.ptl_id := rosetta_g_miss_num_map(p5_a3);
462 ddp_pdtv_rec.name := p5_a4;
463 ddp_pdtv_rec.description := p5_a5;
464 ddp_pdtv_rec.reporting_pdt_id := rosetta_g_miss_num_map(p5_a6);
465 ddp_pdtv_rec.product_status_code := p5_a7;
466 ddp_pdtv_rec.legacy_product_yn := p5_a8;
467 ddp_pdtv_rec.from_date := rosetta_g_miss_date_in_map(p5_a9);
468 ddp_pdtv_rec.version := p5_a10;
469 ddp_pdtv_rec.to_date := rosetta_g_miss_date_in_map(p5_a11);
470 ddp_pdtv_rec.attribute_category := p5_a12;
471 ddp_pdtv_rec.attribute1 := p5_a13;
472 ddp_pdtv_rec.attribute2 := p5_a14;
473 ddp_pdtv_rec.attribute3 := p5_a15;
474 ddp_pdtv_rec.attribute4 := p5_a16;
475 ddp_pdtv_rec.attribute5 := p5_a17;
476 ddp_pdtv_rec.attribute6 := p5_a18;
477 ddp_pdtv_rec.attribute7 := p5_a19;
478 ddp_pdtv_rec.attribute8 := p5_a20;
479 ddp_pdtv_rec.attribute9 := p5_a21;
480 ddp_pdtv_rec.attribute10 := p5_a22;
481 ddp_pdtv_rec.attribute11 := p5_a23;
482 ddp_pdtv_rec.attribute12 := p5_a24;
483 ddp_pdtv_rec.attribute13 := p5_a25;
484 ddp_pdtv_rec.attribute14 := p5_a26;
485 ddp_pdtv_rec.attribute15 := p5_a27;
486 ddp_pdtv_rec.created_by := rosetta_g_miss_num_map(p5_a28);
487 ddp_pdtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a29);
488 ddp_pdtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a30);
489 ddp_pdtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a31);
490 ddp_pdtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a32);
491
492
493 -- here's the delegated call to the old PL/SQL routine
494 okl_setup_prd_prctempl_pub.check_product_constraints(p_api_version,
495 p_init_msg_list,
496 x_return_status,
497 x_msg_count,
498 x_msg_data,
499 ddp_pdtv_rec,
500 x_validated);
501
502 -- copy data back from the local variables to OUT or IN-OUT args, if any
503
504
505
506
507
508
509 end;
510
511 procedure check_product_constraints(p_api_version NUMBER
512 , p_init_msg_list VARCHAR2
513 , x_return_status out nocopy VARCHAR2
514 , x_msg_count out nocopy NUMBER
515 , x_msg_data out nocopy VARCHAR2
516 , p5_a0 JTF_NUMBER_TABLE
517 , p5_a1 JTF_NUMBER_TABLE
518 , p5_a2 JTF_NUMBER_TABLE
519 , p5_a3 JTF_NUMBER_TABLE
520 , p5_a4 JTF_VARCHAR2_TABLE_200
521 , p5_a5 JTF_VARCHAR2_TABLE_2000
522 , p5_a6 JTF_NUMBER_TABLE
523 , p5_a7 JTF_VARCHAR2_TABLE_100
524 , p5_a8 JTF_VARCHAR2_TABLE_100
525 , p5_a9 JTF_DATE_TABLE
526 , p5_a10 JTF_VARCHAR2_TABLE_100
527 , p5_a11 JTF_DATE_TABLE
528 , p5_a12 JTF_VARCHAR2_TABLE_100
529 , p5_a13 JTF_VARCHAR2_TABLE_500
530 , p5_a14 JTF_VARCHAR2_TABLE_500
531 , p5_a15 JTF_VARCHAR2_TABLE_500
532 , p5_a16 JTF_VARCHAR2_TABLE_500
533 , p5_a17 JTF_VARCHAR2_TABLE_500
534 , p5_a18 JTF_VARCHAR2_TABLE_500
535 , p5_a19 JTF_VARCHAR2_TABLE_500
536 , p5_a20 JTF_VARCHAR2_TABLE_500
537 , p5_a21 JTF_VARCHAR2_TABLE_500
538 , p5_a22 JTF_VARCHAR2_TABLE_500
539 , p5_a23 JTF_VARCHAR2_TABLE_500
540 , p5_a24 JTF_VARCHAR2_TABLE_500
541 , p5_a25 JTF_VARCHAR2_TABLE_500
542 , p5_a26 JTF_VARCHAR2_TABLE_500
543 , p5_a27 JTF_VARCHAR2_TABLE_500
544 , p5_a28 JTF_NUMBER_TABLE
545 , p5_a29 JTF_DATE_TABLE
546 , p5_a30 JTF_NUMBER_TABLE
547 , p5_a31 JTF_DATE_TABLE
548 , p5_a32 JTF_NUMBER_TABLE
549 , x_validated out nocopy VARCHAR2
550 )
551
552 as
553 ddp_pdtv_tbl okl_setup_prd_prctempl_pub.pdtv_tbl_type;
554 ddindx binary_integer; indx binary_integer;
555 begin
556
557 -- copy data to the local IN or IN-OUT args, if any
558
559
560
561
562
563 okl_pdt_pvt_w.rosetta_table_copy_in_p5(ddp_pdtv_tbl, p5_a0
564 , p5_a1
565 , p5_a2
566 , p5_a3
567 , p5_a4
568 , p5_a5
569 , p5_a6
570 , p5_a7
571 , p5_a8
572 , p5_a9
573 , p5_a10
574 , p5_a11
575 , p5_a12
576 , p5_a13
577 , p5_a14
578 , p5_a15
579 , p5_a16
580 , p5_a17
581 , p5_a18
582 , p5_a19
583 , p5_a20
584 , p5_a21
585 , p5_a22
586 , p5_a23
587 , p5_a24
588 , p5_a25
589 , p5_a26
590 , p5_a27
591 , p5_a28
592 , p5_a29
593 , p5_a30
594 , p5_a31
595 , p5_a32
596 );
597
598
599 -- here's the delegated call to the old PL/SQL routine
600 okl_setup_prd_prctempl_pub.check_product_constraints(p_api_version,
601 p_init_msg_list,
602 x_return_status,
603 x_msg_count,
604 x_msg_data,
605 ddp_pdtv_tbl,
606 x_validated);
607
608 -- copy data back from the local variables to OUT or IN-OUT args, if any
609
610
611
612
613
614
615 end;
616
617 end okl_setup_prd_prctempl_pub_w;