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