[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUP_PRCPARAMS_PUB_W
Source
1 package body okl_setup_prcparams_pub_w as
2 /* $Header: OKLUPPRB.pls 115.0 2004/07/02 02:38:23 sgorantl 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_price_parm(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , p3_a0 out nocopy NUMBER
25 , p3_a1 out nocopy NUMBER
26 , p3_a2 out nocopy VARCHAR2
27 , p3_a3 out nocopy VARCHAR2
28 , p3_a4 out nocopy DATE
29 , p3_a5 out nocopy DATE
30 , p3_a6 out nocopy VARCHAR2
31 , p3_a7 out nocopy VARCHAR2
32 , p3_a8 out nocopy VARCHAR2
33 , p3_a9 out nocopy VARCHAR2
34 , p3_a10 out nocopy VARCHAR2
35 , p3_a11 out nocopy VARCHAR2
36 , p3_a12 out nocopy VARCHAR2
37 , p3_a13 out nocopy VARCHAR2
38 , p3_a14 out nocopy VARCHAR2
39 , p3_a15 out nocopy VARCHAR2
40 , p3_a16 out nocopy VARCHAR2
41 , p3_a17 out nocopy VARCHAR2
42 , p3_a18 out nocopy VARCHAR2
43 , p3_a19 out nocopy VARCHAR2
44 , p3_a20 out nocopy VARCHAR2
45 , p3_a21 out nocopy VARCHAR2
46 , p3_a22 out nocopy VARCHAR2
47 , p3_a23 out nocopy VARCHAR2
48 , p3_a24 out nocopy VARCHAR2
49 , p3_a25 out nocopy VARCHAR2
50 , p3_a26 out nocopy VARCHAR2
51 , p3_a27 out nocopy NUMBER
52 , p3_a28 out nocopy NUMBER
53 , p3_a29 out nocopy DATE
54 , p3_a30 out nocopy DATE
55 , p3_a31 out nocopy NUMBER
56 , x_return_status out nocopy VARCHAR2
57 , x_msg_count out nocopy NUMBER
58 , x_msg_data out nocopy VARCHAR2
59 , p2_a0 NUMBER := 0-1962.0724
60 , p2_a1 NUMBER := 0-1962.0724
61 , p2_a2 VARCHAR2 := fnd_api.g_miss_char
62 , p2_a3 VARCHAR2 := fnd_api.g_miss_char
63 , p2_a4 DATE := fnd_api.g_miss_date
64 , p2_a5 DATE := fnd_api.g_miss_date
65 , p2_a6 VARCHAR2 := fnd_api.g_miss_char
66 , p2_a7 VARCHAR2 := fnd_api.g_miss_char
67 , p2_a8 VARCHAR2 := fnd_api.g_miss_char
68 , p2_a9 VARCHAR2 := fnd_api.g_miss_char
69 , p2_a10 VARCHAR2 := fnd_api.g_miss_char
70 , p2_a11 VARCHAR2 := fnd_api.g_miss_char
71 , p2_a12 VARCHAR2 := fnd_api.g_miss_char
72 , p2_a13 VARCHAR2 := fnd_api.g_miss_char
73 , p2_a14 VARCHAR2 := fnd_api.g_miss_char
74 , p2_a15 VARCHAR2 := fnd_api.g_miss_char
75 , p2_a16 VARCHAR2 := fnd_api.g_miss_char
76 , p2_a17 VARCHAR2 := fnd_api.g_miss_char
77 , p2_a18 VARCHAR2 := fnd_api.g_miss_char
78 , p2_a19 VARCHAR2 := fnd_api.g_miss_char
79 , p2_a20 VARCHAR2 := fnd_api.g_miss_char
80 , p2_a21 VARCHAR2 := fnd_api.g_miss_char
81 , p2_a22 VARCHAR2 := fnd_api.g_miss_char
82 , p2_a23 VARCHAR2 := fnd_api.g_miss_char
83 , p2_a24 VARCHAR2 := fnd_api.g_miss_char
84 , p2_a25 VARCHAR2 := fnd_api.g_miss_char
85 , p2_a26 VARCHAR2 := fnd_api.g_miss_char
86 , p2_a27 NUMBER := 0-1962.0724
87 , p2_a28 NUMBER := 0-1962.0724
88 , p2_a29 DATE := fnd_api.g_miss_date
89 , p2_a30 DATE := fnd_api.g_miss_date
90 , p2_a31 NUMBER := 0-1962.0724
91 )
92
93 as
94 ddp_sppv_rec okl_setup_prcparams_pub.sppv_rec_type;
95 ddx_sppv_rec okl_setup_prcparams_pub.sppv_rec_type;
96 ddindx binary_integer; indx binary_integer;
97 begin
98
99 -- copy data to the local IN or IN-OUT args, if any
100
101
102 ddp_sppv_rec.id := rosetta_g_miss_num_map(p2_a0);
103 ddp_sppv_rec.object_version_number := rosetta_g_miss_num_map(p2_a1);
104 ddp_sppv_rec.name := p2_a2;
105 ddp_sppv_rec.version := p2_a3;
106 ddp_sppv_rec.date_start := rosetta_g_miss_date_in_map(p2_a4);
107 ddp_sppv_rec.date_end := rosetta_g_miss_date_in_map(p2_a5);
108 ddp_sppv_rec.description := p2_a6;
109 ddp_sppv_rec.sps_code := p2_a7;
110 ddp_sppv_rec.dyp_code := p2_a8;
111 ddp_sppv_rec.array_yn := p2_a9;
112 ddp_sppv_rec.xml_tag := p2_a10;
113 ddp_sppv_rec.attribute_category := p2_a11;
114 ddp_sppv_rec.attribute1 := p2_a12;
115 ddp_sppv_rec.attribute2 := p2_a13;
116 ddp_sppv_rec.attribute3 := p2_a14;
117 ddp_sppv_rec.attribute4 := p2_a15;
118 ddp_sppv_rec.attribute5 := p2_a16;
119 ddp_sppv_rec.attribute6 := p2_a17;
120 ddp_sppv_rec.attribute7 := p2_a18;
121 ddp_sppv_rec.attribute8 := p2_a19;
122 ddp_sppv_rec.attribute9 := p2_a20;
123 ddp_sppv_rec.attribute10 := p2_a21;
124 ddp_sppv_rec.attribute11 := p2_a22;
125 ddp_sppv_rec.attribute12 := p2_a23;
126 ddp_sppv_rec.attribute13 := p2_a24;
127 ddp_sppv_rec.attribute14 := p2_a25;
128 ddp_sppv_rec.attribute15 := p2_a26;
129 ddp_sppv_rec.created_by := rosetta_g_miss_num_map(p2_a27);
130 ddp_sppv_rec.last_updated_by := rosetta_g_miss_num_map(p2_a28);
131 ddp_sppv_rec.creation_date := rosetta_g_miss_date_in_map(p2_a29);
132 ddp_sppv_rec.last_update_date := rosetta_g_miss_date_in_map(p2_a30);
133 ddp_sppv_rec.last_update_login := rosetta_g_miss_num_map(p2_a31);
134
135
136
137
138
139 -- here's the delegated call to the old PL/SQL routine
140 okl_setup_prcparams_pub.create_price_parm(p_api_version,
141 p_init_msg_list,
142 ddp_sppv_rec,
143 ddx_sppv_rec,
144 x_return_status,
145 x_msg_count,
146 x_msg_data);
147
148 -- copy data back from the local variables to OUT or IN-OUT args, if any
149
150
151
152 p3_a0 := rosetta_g_miss_num_map(ddx_sppv_rec.id);
153 p3_a1 := rosetta_g_miss_num_map(ddx_sppv_rec.object_version_number);
154 p3_a2 := ddx_sppv_rec.name;
155 p3_a3 := ddx_sppv_rec.version;
156 p3_a4 := ddx_sppv_rec.date_start;
157 p3_a5 := ddx_sppv_rec.date_end;
158 p3_a6 := ddx_sppv_rec.description;
159 p3_a7 := ddx_sppv_rec.sps_code;
160 p3_a8 := ddx_sppv_rec.dyp_code;
161 p3_a9 := ddx_sppv_rec.array_yn;
162 p3_a10 := ddx_sppv_rec.xml_tag;
163 p3_a11 := ddx_sppv_rec.attribute_category;
164 p3_a12 := ddx_sppv_rec.attribute1;
165 p3_a13 := ddx_sppv_rec.attribute2;
166 p3_a14 := ddx_sppv_rec.attribute3;
167 p3_a15 := ddx_sppv_rec.attribute4;
168 p3_a16 := ddx_sppv_rec.attribute5;
169 p3_a17 := ddx_sppv_rec.attribute6;
170 p3_a18 := ddx_sppv_rec.attribute7;
171 p3_a19 := ddx_sppv_rec.attribute8;
172 p3_a20 := ddx_sppv_rec.attribute9;
173 p3_a21 := ddx_sppv_rec.attribute10;
174 p3_a22 := ddx_sppv_rec.attribute11;
175 p3_a23 := ddx_sppv_rec.attribute12;
176 p3_a24 := ddx_sppv_rec.attribute13;
177 p3_a25 := ddx_sppv_rec.attribute14;
178 p3_a26 := ddx_sppv_rec.attribute15;
179 p3_a27 := rosetta_g_miss_num_map(ddx_sppv_rec.created_by);
180 p3_a28 := rosetta_g_miss_num_map(ddx_sppv_rec.last_updated_by);
181 p3_a29 := ddx_sppv_rec.creation_date;
182 p3_a30 := ddx_sppv_rec.last_update_date;
183 p3_a31 := rosetta_g_miss_num_map(ddx_sppv_rec.last_update_login);
184
185
186
187 end;
188
189 procedure update_price_parm(p_api_version NUMBER
190 , p_init_msg_list VARCHAR2
191 , p3_a0 out nocopy NUMBER
192 , p3_a1 out nocopy NUMBER
193 , p3_a2 out nocopy VARCHAR2
194 , p3_a3 out nocopy VARCHAR2
195 , p3_a4 out nocopy DATE
196 , p3_a5 out nocopy DATE
197 , p3_a6 out nocopy VARCHAR2
198 , p3_a7 out nocopy VARCHAR2
199 , p3_a8 out nocopy VARCHAR2
200 , p3_a9 out nocopy VARCHAR2
201 , p3_a10 out nocopy VARCHAR2
202 , p3_a11 out nocopy VARCHAR2
203 , p3_a12 out nocopy VARCHAR2
204 , p3_a13 out nocopy VARCHAR2
205 , p3_a14 out nocopy VARCHAR2
206 , p3_a15 out nocopy VARCHAR2
207 , p3_a16 out nocopy VARCHAR2
208 , p3_a17 out nocopy VARCHAR2
209 , p3_a18 out nocopy VARCHAR2
210 , p3_a19 out nocopy VARCHAR2
211 , p3_a20 out nocopy VARCHAR2
212 , p3_a21 out nocopy VARCHAR2
213 , p3_a22 out nocopy VARCHAR2
214 , p3_a23 out nocopy VARCHAR2
215 , p3_a24 out nocopy VARCHAR2
216 , p3_a25 out nocopy VARCHAR2
217 , p3_a26 out nocopy VARCHAR2
218 , p3_a27 out nocopy NUMBER
219 , p3_a28 out nocopy NUMBER
220 , p3_a29 out nocopy DATE
221 , p3_a30 out nocopy DATE
222 , p3_a31 out nocopy NUMBER
223 , x_return_status out nocopy VARCHAR2
224 , x_msg_count out nocopy NUMBER
225 , x_msg_data out nocopy VARCHAR2
226 , p2_a0 NUMBER := 0-1962.0724
227 , p2_a1 NUMBER := 0-1962.0724
228 , p2_a2 VARCHAR2 := fnd_api.g_miss_char
229 , p2_a3 VARCHAR2 := fnd_api.g_miss_char
230 , p2_a4 DATE := fnd_api.g_miss_date
231 , p2_a5 DATE := fnd_api.g_miss_date
232 , p2_a6 VARCHAR2 := fnd_api.g_miss_char
233 , p2_a7 VARCHAR2 := fnd_api.g_miss_char
234 , p2_a8 VARCHAR2 := fnd_api.g_miss_char
235 , p2_a9 VARCHAR2 := fnd_api.g_miss_char
236 , p2_a10 VARCHAR2 := fnd_api.g_miss_char
237 , p2_a11 VARCHAR2 := fnd_api.g_miss_char
238 , p2_a12 VARCHAR2 := fnd_api.g_miss_char
239 , p2_a13 VARCHAR2 := fnd_api.g_miss_char
240 , p2_a14 VARCHAR2 := fnd_api.g_miss_char
241 , p2_a15 VARCHAR2 := fnd_api.g_miss_char
242 , p2_a16 VARCHAR2 := fnd_api.g_miss_char
243 , p2_a17 VARCHAR2 := fnd_api.g_miss_char
244 , p2_a18 VARCHAR2 := fnd_api.g_miss_char
245 , p2_a19 VARCHAR2 := fnd_api.g_miss_char
246 , p2_a20 VARCHAR2 := fnd_api.g_miss_char
247 , p2_a21 VARCHAR2 := fnd_api.g_miss_char
248 , p2_a22 VARCHAR2 := fnd_api.g_miss_char
249 , p2_a23 VARCHAR2 := fnd_api.g_miss_char
250 , p2_a24 VARCHAR2 := fnd_api.g_miss_char
251 , p2_a25 VARCHAR2 := fnd_api.g_miss_char
252 , p2_a26 VARCHAR2 := fnd_api.g_miss_char
253 , p2_a27 NUMBER := 0-1962.0724
254 , p2_a28 NUMBER := 0-1962.0724
255 , p2_a29 DATE := fnd_api.g_miss_date
256 , p2_a30 DATE := fnd_api.g_miss_date
257 , p2_a31 NUMBER := 0-1962.0724
258 )
259
260 as
261 ddp_sppv_rec okl_setup_prcparams_pub.sppv_rec_type;
262 ddx_sppv_rec okl_setup_prcparams_pub.sppv_rec_type;
263 ddindx binary_integer; indx binary_integer;
264 begin
265
266 -- copy data to the local IN or IN-OUT args, if any
267
268
269 ddp_sppv_rec.id := rosetta_g_miss_num_map(p2_a0);
270 ddp_sppv_rec.object_version_number := rosetta_g_miss_num_map(p2_a1);
271 ddp_sppv_rec.name := p2_a2;
272 ddp_sppv_rec.version := p2_a3;
273 ddp_sppv_rec.date_start := rosetta_g_miss_date_in_map(p2_a4);
274 ddp_sppv_rec.date_end := rosetta_g_miss_date_in_map(p2_a5);
275 ddp_sppv_rec.description := p2_a6;
276 ddp_sppv_rec.sps_code := p2_a7;
277 ddp_sppv_rec.dyp_code := p2_a8;
278 ddp_sppv_rec.array_yn := p2_a9;
279 ddp_sppv_rec.xml_tag := p2_a10;
280 ddp_sppv_rec.attribute_category := p2_a11;
281 ddp_sppv_rec.attribute1 := p2_a12;
282 ddp_sppv_rec.attribute2 := p2_a13;
283 ddp_sppv_rec.attribute3 := p2_a14;
284 ddp_sppv_rec.attribute4 := p2_a15;
285 ddp_sppv_rec.attribute5 := p2_a16;
286 ddp_sppv_rec.attribute6 := p2_a17;
287 ddp_sppv_rec.attribute7 := p2_a18;
288 ddp_sppv_rec.attribute8 := p2_a19;
289 ddp_sppv_rec.attribute9 := p2_a20;
290 ddp_sppv_rec.attribute10 := p2_a21;
291 ddp_sppv_rec.attribute11 := p2_a22;
292 ddp_sppv_rec.attribute12 := p2_a23;
293 ddp_sppv_rec.attribute13 := p2_a24;
294 ddp_sppv_rec.attribute14 := p2_a25;
295 ddp_sppv_rec.attribute15 := p2_a26;
296 ddp_sppv_rec.created_by := rosetta_g_miss_num_map(p2_a27);
297 ddp_sppv_rec.last_updated_by := rosetta_g_miss_num_map(p2_a28);
298 ddp_sppv_rec.creation_date := rosetta_g_miss_date_in_map(p2_a29);
299 ddp_sppv_rec.last_update_date := rosetta_g_miss_date_in_map(p2_a30);
300 ddp_sppv_rec.last_update_login := rosetta_g_miss_num_map(p2_a31);
301
302
303
304
305
306 -- here's the delegated call to the old PL/SQL routine
307 okl_setup_prcparams_pub.update_price_parm(p_api_version,
308 p_init_msg_list,
309 ddp_sppv_rec,
310 ddx_sppv_rec,
311 x_return_status,
312 x_msg_count,
313 x_msg_data);
314
315 -- copy data back from the local variables to OUT or IN-OUT args, if any
316
317
318
319 p3_a0 := rosetta_g_miss_num_map(ddx_sppv_rec.id);
320 p3_a1 := rosetta_g_miss_num_map(ddx_sppv_rec.object_version_number);
321 p3_a2 := ddx_sppv_rec.name;
322 p3_a3 := ddx_sppv_rec.version;
323 p3_a4 := ddx_sppv_rec.date_start;
324 p3_a5 := ddx_sppv_rec.date_end;
325 p3_a6 := ddx_sppv_rec.description;
326 p3_a7 := ddx_sppv_rec.sps_code;
327 p3_a8 := ddx_sppv_rec.dyp_code;
328 p3_a9 := ddx_sppv_rec.array_yn;
329 p3_a10 := ddx_sppv_rec.xml_tag;
330 p3_a11 := ddx_sppv_rec.attribute_category;
331 p3_a12 := ddx_sppv_rec.attribute1;
332 p3_a13 := ddx_sppv_rec.attribute2;
333 p3_a14 := ddx_sppv_rec.attribute3;
334 p3_a15 := ddx_sppv_rec.attribute4;
335 p3_a16 := ddx_sppv_rec.attribute5;
336 p3_a17 := ddx_sppv_rec.attribute6;
337 p3_a18 := ddx_sppv_rec.attribute7;
338 p3_a19 := ddx_sppv_rec.attribute8;
339 p3_a20 := ddx_sppv_rec.attribute9;
340 p3_a21 := ddx_sppv_rec.attribute10;
341 p3_a22 := ddx_sppv_rec.attribute11;
342 p3_a23 := ddx_sppv_rec.attribute12;
343 p3_a24 := ddx_sppv_rec.attribute13;
344 p3_a25 := ddx_sppv_rec.attribute14;
345 p3_a26 := ddx_sppv_rec.attribute15;
346 p3_a27 := rosetta_g_miss_num_map(ddx_sppv_rec.created_by);
347 p3_a28 := rosetta_g_miss_num_map(ddx_sppv_rec.last_updated_by);
348 p3_a29 := ddx_sppv_rec.creation_date;
349 p3_a30 := ddx_sppv_rec.last_update_date;
350 p3_a31 := rosetta_g_miss_num_map(ddx_sppv_rec.last_update_login);
351
352
353
354 end;
355
356 procedure create_price_parm(p_api_version NUMBER
357 , p_init_msg_list VARCHAR2
358 , p2_a0 JTF_NUMBER_TABLE
359 , p2_a1 JTF_NUMBER_TABLE
360 , p2_a2 JTF_VARCHAR2_TABLE_200
361 , p2_a3 JTF_VARCHAR2_TABLE_100
362 , p2_a4 JTF_DATE_TABLE
363 , p2_a5 JTF_DATE_TABLE
364 , p2_a6 JTF_VARCHAR2_TABLE_2000
365 , p2_a7 JTF_VARCHAR2_TABLE_100
366 , p2_a8 JTF_VARCHAR2_TABLE_100
367 , p2_a9 JTF_VARCHAR2_TABLE_100
368 , p2_a10 JTF_VARCHAR2_TABLE_200
369 , p2_a11 JTF_VARCHAR2_TABLE_100
370 , p2_a12 JTF_VARCHAR2_TABLE_500
371 , p2_a13 JTF_VARCHAR2_TABLE_500
372 , p2_a14 JTF_VARCHAR2_TABLE_500
373 , p2_a15 JTF_VARCHAR2_TABLE_500
374 , p2_a16 JTF_VARCHAR2_TABLE_500
375 , p2_a17 JTF_VARCHAR2_TABLE_500
376 , p2_a18 JTF_VARCHAR2_TABLE_500
377 , p2_a19 JTF_VARCHAR2_TABLE_500
378 , p2_a20 JTF_VARCHAR2_TABLE_500
379 , p2_a21 JTF_VARCHAR2_TABLE_500
380 , p2_a22 JTF_VARCHAR2_TABLE_500
381 , p2_a23 JTF_VARCHAR2_TABLE_500
382 , p2_a24 JTF_VARCHAR2_TABLE_500
383 , p2_a25 JTF_VARCHAR2_TABLE_500
384 , p2_a26 JTF_VARCHAR2_TABLE_500
385 , p2_a27 JTF_NUMBER_TABLE
386 , p2_a28 JTF_NUMBER_TABLE
387 , p2_a29 JTF_DATE_TABLE
388 , p2_a30 JTF_DATE_TABLE
389 , p2_a31 JTF_NUMBER_TABLE
390 , p3_a0 out nocopy JTF_NUMBER_TABLE
391 , p3_a1 out nocopy JTF_NUMBER_TABLE
392 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_200
393 , p3_a3 out nocopy JTF_VARCHAR2_TABLE_100
394 , p3_a4 out nocopy JTF_DATE_TABLE
395 , p3_a5 out nocopy JTF_DATE_TABLE
396 , p3_a6 out nocopy JTF_VARCHAR2_TABLE_2000
397 , p3_a7 out nocopy JTF_VARCHAR2_TABLE_100
398 , p3_a8 out nocopy JTF_VARCHAR2_TABLE_100
399 , p3_a9 out nocopy JTF_VARCHAR2_TABLE_100
400 , p3_a10 out nocopy JTF_VARCHAR2_TABLE_200
401 , p3_a11 out nocopy JTF_VARCHAR2_TABLE_100
402 , p3_a12 out nocopy JTF_VARCHAR2_TABLE_500
403 , p3_a13 out nocopy JTF_VARCHAR2_TABLE_500
404 , p3_a14 out nocopy JTF_VARCHAR2_TABLE_500
405 , p3_a15 out nocopy JTF_VARCHAR2_TABLE_500
406 , p3_a16 out nocopy JTF_VARCHAR2_TABLE_500
407 , p3_a17 out nocopy JTF_VARCHAR2_TABLE_500
408 , p3_a18 out nocopy JTF_VARCHAR2_TABLE_500
409 , p3_a19 out nocopy JTF_VARCHAR2_TABLE_500
410 , p3_a20 out nocopy JTF_VARCHAR2_TABLE_500
411 , p3_a21 out nocopy JTF_VARCHAR2_TABLE_500
412 , p3_a22 out nocopy JTF_VARCHAR2_TABLE_500
413 , p3_a23 out nocopy JTF_VARCHAR2_TABLE_500
414 , p3_a24 out nocopy JTF_VARCHAR2_TABLE_500
415 , p3_a25 out nocopy JTF_VARCHAR2_TABLE_500
416 , p3_a26 out nocopy JTF_VARCHAR2_TABLE_500
417 , p3_a27 out nocopy JTF_NUMBER_TABLE
418 , p3_a28 out nocopy JTF_NUMBER_TABLE
419 , p3_a29 out nocopy JTF_DATE_TABLE
420 , p3_a30 out nocopy JTF_DATE_TABLE
421 , p3_a31 out nocopy JTF_NUMBER_TABLE
422 , x_return_status out nocopy VARCHAR2
423 , x_msg_count out nocopy NUMBER
424 , x_msg_data out nocopy VARCHAR2
425 )
426
427 as
428 ddp_sppv_tbl okl_setup_prcparams_pub.sppv_tbl_type;
429 ddx_sppv_tbl okl_setup_prcparams_pub.sppv_tbl_type;
430 ddindx binary_integer; indx binary_integer;
431 begin
432
433 -- copy data to the local IN or IN-OUT args, if any
434
435
436 okl_spp_pvt_w.rosetta_table_copy_in_p5(ddp_sppv_tbl, p2_a0
437 , p2_a1
438 , p2_a2
439 , p2_a3
440 , p2_a4
441 , p2_a5
442 , p2_a6
443 , p2_a7
444 , p2_a8
445 , p2_a9
446 , p2_a10
447 , p2_a11
448 , p2_a12
449 , p2_a13
450 , p2_a14
451 , p2_a15
452 , p2_a16
453 , p2_a17
454 , p2_a18
455 , p2_a19
456 , p2_a20
457 , p2_a21
458 , p2_a22
459 , p2_a23
460 , p2_a24
461 , p2_a25
462 , p2_a26
463 , p2_a27
464 , p2_a28
465 , p2_a29
466 , p2_a30
467 , p2_a31
468 );
469
470
471
472
473
474 -- here's the delegated call to the old PL/SQL routine
475 okl_setup_prcparams_pub.create_price_parm(p_api_version,
476 p_init_msg_list,
477 ddp_sppv_tbl,
478 ddx_sppv_tbl,
479 x_return_status,
480 x_msg_count,
481 x_msg_data);
482
483 -- copy data back from the local variables to OUT or IN-OUT args, if any
484
485
486
487 okl_spp_pvt_w.rosetta_table_copy_out_p5(ddx_sppv_tbl, p3_a0
488 , p3_a1
489 , p3_a2
490 , p3_a3
491 , p3_a4
492 , p3_a5
493 , p3_a6
494 , p3_a7
495 , p3_a8
496 , p3_a9
497 , p3_a10
498 , p3_a11
499 , p3_a12
500 , p3_a13
501 , p3_a14
502 , p3_a15
503 , p3_a16
504 , p3_a17
505 , p3_a18
506 , p3_a19
507 , p3_a20
508 , p3_a21
509 , p3_a22
510 , p3_a23
511 , p3_a24
512 , p3_a25
513 , p3_a26
514 , p3_a27
515 , p3_a28
516 , p3_a29
517 , p3_a30
518 , p3_a31
519 );
520
521
522
523 end;
524
525 procedure update_price_parm(p_api_version NUMBER
526 , p_init_msg_list VARCHAR2
527 , p2_a0 JTF_NUMBER_TABLE
528 , p2_a1 JTF_NUMBER_TABLE
529 , p2_a2 JTF_VARCHAR2_TABLE_200
530 , p2_a3 JTF_VARCHAR2_TABLE_100
531 , p2_a4 JTF_DATE_TABLE
532 , p2_a5 JTF_DATE_TABLE
533 , p2_a6 JTF_VARCHAR2_TABLE_2000
534 , p2_a7 JTF_VARCHAR2_TABLE_100
535 , p2_a8 JTF_VARCHAR2_TABLE_100
536 , p2_a9 JTF_VARCHAR2_TABLE_100
537 , p2_a10 JTF_VARCHAR2_TABLE_200
538 , p2_a11 JTF_VARCHAR2_TABLE_100
539 , p2_a12 JTF_VARCHAR2_TABLE_500
540 , p2_a13 JTF_VARCHAR2_TABLE_500
541 , p2_a14 JTF_VARCHAR2_TABLE_500
542 , p2_a15 JTF_VARCHAR2_TABLE_500
543 , p2_a16 JTF_VARCHAR2_TABLE_500
544 , p2_a17 JTF_VARCHAR2_TABLE_500
545 , p2_a18 JTF_VARCHAR2_TABLE_500
546 , p2_a19 JTF_VARCHAR2_TABLE_500
547 , p2_a20 JTF_VARCHAR2_TABLE_500
548 , p2_a21 JTF_VARCHAR2_TABLE_500
549 , p2_a22 JTF_VARCHAR2_TABLE_500
550 , p2_a23 JTF_VARCHAR2_TABLE_500
551 , p2_a24 JTF_VARCHAR2_TABLE_500
552 , p2_a25 JTF_VARCHAR2_TABLE_500
553 , p2_a26 JTF_VARCHAR2_TABLE_500
554 , p2_a27 JTF_NUMBER_TABLE
555 , p2_a28 JTF_NUMBER_TABLE
556 , p2_a29 JTF_DATE_TABLE
557 , p2_a30 JTF_DATE_TABLE
558 , p2_a31 JTF_NUMBER_TABLE
559 , p3_a0 out nocopy JTF_NUMBER_TABLE
560 , p3_a1 out nocopy JTF_NUMBER_TABLE
561 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_200
562 , p3_a3 out nocopy JTF_VARCHAR2_TABLE_100
563 , p3_a4 out nocopy JTF_DATE_TABLE
564 , p3_a5 out nocopy JTF_DATE_TABLE
565 , p3_a6 out nocopy JTF_VARCHAR2_TABLE_2000
566 , p3_a7 out nocopy JTF_VARCHAR2_TABLE_100
567 , p3_a8 out nocopy JTF_VARCHAR2_TABLE_100
568 , p3_a9 out nocopy JTF_VARCHAR2_TABLE_100
569 , p3_a10 out nocopy JTF_VARCHAR2_TABLE_200
570 , p3_a11 out nocopy JTF_VARCHAR2_TABLE_100
571 , p3_a12 out nocopy JTF_VARCHAR2_TABLE_500
572 , p3_a13 out nocopy JTF_VARCHAR2_TABLE_500
573 , p3_a14 out nocopy JTF_VARCHAR2_TABLE_500
574 , p3_a15 out nocopy JTF_VARCHAR2_TABLE_500
575 , p3_a16 out nocopy JTF_VARCHAR2_TABLE_500
576 , p3_a17 out nocopy JTF_VARCHAR2_TABLE_500
577 , p3_a18 out nocopy JTF_VARCHAR2_TABLE_500
578 , p3_a19 out nocopy JTF_VARCHAR2_TABLE_500
579 , p3_a20 out nocopy JTF_VARCHAR2_TABLE_500
580 , p3_a21 out nocopy JTF_VARCHAR2_TABLE_500
581 , p3_a22 out nocopy JTF_VARCHAR2_TABLE_500
582 , p3_a23 out nocopy JTF_VARCHAR2_TABLE_500
583 , p3_a24 out nocopy JTF_VARCHAR2_TABLE_500
584 , p3_a25 out nocopy JTF_VARCHAR2_TABLE_500
585 , p3_a26 out nocopy JTF_VARCHAR2_TABLE_500
586 , p3_a27 out nocopy JTF_NUMBER_TABLE
587 , p3_a28 out nocopy JTF_NUMBER_TABLE
588 , p3_a29 out nocopy JTF_DATE_TABLE
589 , p3_a30 out nocopy JTF_DATE_TABLE
590 , p3_a31 out nocopy JTF_NUMBER_TABLE
591 , x_return_status out nocopy VARCHAR2
592 , x_msg_count out nocopy NUMBER
593 , x_msg_data out nocopy VARCHAR2
594 )
595
596 as
597 ddp_sppv_tbl okl_setup_prcparams_pub.sppv_tbl_type;
598 ddx_sppv_tbl okl_setup_prcparams_pub.sppv_tbl_type;
599 ddindx binary_integer; indx binary_integer;
600 begin
601
602 -- copy data to the local IN or IN-OUT args, if any
603
604
605 okl_spp_pvt_w.rosetta_table_copy_in_p5(ddp_sppv_tbl, p2_a0
606 , p2_a1
607 , p2_a2
608 , p2_a3
609 , p2_a4
610 , p2_a5
611 , p2_a6
612 , p2_a7
613 , p2_a8
614 , p2_a9
615 , p2_a10
616 , p2_a11
617 , p2_a12
618 , p2_a13
619 , p2_a14
620 , p2_a15
621 , p2_a16
622 , p2_a17
623 , p2_a18
624 , p2_a19
625 , p2_a20
626 , p2_a21
627 , p2_a22
628 , p2_a23
629 , p2_a24
630 , p2_a25
631 , p2_a26
632 , p2_a27
633 , p2_a28
634 , p2_a29
635 , p2_a30
636 , p2_a31
637 );
638
639
640
641
642
643 -- here's the delegated call to the old PL/SQL routine
644 okl_setup_prcparams_pub.update_price_parm(p_api_version,
645 p_init_msg_list,
646 ddp_sppv_tbl,
647 ddx_sppv_tbl,
648 x_return_status,
649 x_msg_count,
650 x_msg_data);
651
652 -- copy data back from the local variables to OUT or IN-OUT args, if any
653
654
655
656 okl_spp_pvt_w.rosetta_table_copy_out_p5(ddx_sppv_tbl, p3_a0
657 , p3_a1
658 , p3_a2
659 , p3_a3
660 , p3_a4
661 , p3_a5
662 , p3_a6
663 , p3_a7
664 , p3_a8
665 , p3_a9
666 , p3_a10
667 , p3_a11
668 , p3_a12
669 , p3_a13
670 , p3_a14
671 , p3_a15
672 , p3_a16
673 , p3_a17
674 , p3_a18
675 , p3_a19
676 , p3_a20
677 , p3_a21
678 , p3_a22
679 , p3_a23
680 , p3_a24
681 , p3_a25
682 , p3_a26
683 , p3_a27
684 , p3_a28
685 , p3_a29
686 , p3_a30
687 , p3_a31
688 );
689
690
691
692 end;
693
694 end okl_setup_prcparams_pub_w;