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